<< Click to Display Table of Contents >>   DrugEntry

Read and Write

This Block Tag must contain 27 Elements. All names and fill rules for each one of these Elements are described on the next table. Depending on the operation performed, reading or writing, this Tag follows the set of behaviors described next.

 

Write

Writing must be performed as an entire block operation, that is, writing only Block Elements is not allowed. This operation stores in an internal memory a candidate for a new Drug item, which is processed according to the command selected in the operations of the DrugEntryOperation Tag.

 

Read

Displays all Drug items stored in this Driver's internal memory list. This reading returns a list of N blocks of Drug items, where N is the number of items in memory.

Format of a DrugEntry Block Tag

 

Format Types

All Elements must be filled as Strings obeying the format described on the previous table.

•Number format with a decimal point: It may have decimal places after a point. For example, 10.0 or 10 are valid values

•Positive integer format: Without decimal places. For example, 10, 20, or 1000 are valid values

 

Fill Rules

There is no need to fill all Elements, because several of them are optional, but users must follow these rules:

•Rule 1: DrugName or DrugShort Elements must be filled. Only one of these Elements must be filled and the other one must be omitted

•Rule 2: It is mandatory to fill this Element if the previous Element is filled, otherwise it must be omitted

•Rule 3: It is optional, but if the TotalTime Element is filled, it must be omitted

•Rule 4: It is mandatory to fill if the AmountValue and AmountUnit Elements are filled, otherwise it must be omitted

•Rule 5: It is optional, but when filling it, users must obey the ISP or PSP prefixes, followed by decimal number digits

 

Writing this Block Tag by Script

The next script is an example on how to fill an Array and write it to this Block Tag.

Dim Arr(26) 'Array DrugList
Arr(1)  = "ampicillin"   'DrugName
Arr(3)  = "2749283"      'CatalogName
Arr(4)  = "Intermittent" 'TherapyMode
Arr(5)  = "200.0"        'InfusionRate
Arr(6)  = "ml/h"         'RateUnit
Arr(7)  = "100.0"        'VtbiValue
Arr(8)  = "ml"           'VtbiUnit
Arr(9)  = "1000.0"       'AmountValue
Arr(10) = "mg"           'AmountUnit
Arr(11) = "100.0"        'VolumeValue
Arr(12) = "ml"           'VolumeUnit
Arr(13) = "1000.0"       'TotalDose
Arr(14) = "mg"           'TotalDoseUnit
Arr(25) = "3488817"      'OrderNumber
Arr(26) = "ISP154133"    'PumpId
Set Driver = Application.GetObject("DriverAutoProgramming")
'Write DrugList
Driver.Item("DrugEntry").WriteEx Arr