PSIVORFE ;BIR/MLM-IV FLUID ORDER ENTRY FOR OE/RR FRONT DOOR. ;02-Apr-2013 14:25;PLS
Source file <PSIVORFE.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SET | ; Set variables needed to create/update orders in the ORDERS file (100).
|
|
SORTX | ;Set up ORTX(.
|
|
ORTXF | ; Set up ORTX( for Fluids.
|
|
NEWORD | ; Create new IV Fluid order.
|
|
GTFLDS | ;Ask field no.s to be edited.
|
|
EN | ; Entry pt. to create new IV Fluid order.
|
|
SETUP | ; Initialize variables.
|
|
NEWENT | ; Get login date/entry code for new order
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(53.1 - [#53.1] | NEWORD+4 |
^VA(200 - [#200] | SETUP+4, NEWENT+1 |
Name | Line Occurrences |
---|---|
NEWENT | SETUP+3 |
NEWORD | EN+1 |
ORTXF | SORTX+6 |
SETUP | NEWORD+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | NEWORD+4! |
DIC | NEWORD+4! |
>> DONE | EN+1, NEWORD+1*, NEWORD+3, GTFLDS+6* |
DRG | SETUP+3! |
DRG( | ORTXF+4, ORTXF+5 |
DRG("SOL" | NEWORD+1, SORTX+4 |
>> DRGI | ORTXF+4*, ORTXF+5 |
>> DRGN | SETUP+3* |
DRGT | SET+3~, ORTXF+4*, ORTXF+5 |
DUZ | NEWENT+1 |
>> EDIT | NEWORD+1*, NEWORD+3*, GTFLDS+4, GTFLDS+6, GTFLDS+7* |
ON | NEWORD+4!* |
ORETURN | SET+3! |
OREVENT | SET+3!, SET+5* |
>> ORL | SET+4* |
>> ORLOG | SET+5* |
>> ORNP | EN+1, SET+5* |
ORSTOP | SET+3!, SET+5* |
ORSTRT | SET+3!, SET+5* |
ORTX | SET+3! |
ORTX( | SORTX+4*, SORTX+5*, ORTXF+5*, ORTXF+6* |
ORTX(1 | SORTX+4*, SORTX+7*, SORTX+8* |
ORTX(2 | SORTX+7* |
>> P( | SETUP+3* |
>> P("CLRK" | NEWENT+1* |
>> P("FRES" | SORTX+8 |
>> P("LOG" | SET+5, NEWENT+1* |
>> P("MR" | SORTX+7 |
>> P("OLDON" | NEWORD+4! |
>> P("OT" | SET+5*, SORTX+3, SORTX+6, SORTX+7, SETUP+4* |
>> P("PD" | SORTX+7 |
>> P("RES" | SORTX+8, SETUP+4* |
>> P(17 | SETUP+4* |
>> P(2 | SET+5 |
>> P(3 | SET+5 |
>> P(4 | SET+5, SET+6, SETUP+4* |
>> P(6 | SET+5, SETUP+4* |
>> P(8 | SORTX+5, SORTX+7, ORTXF+6 |
>> P(9 | SORTX+5, SORTX+7, ORTXF+6 |
PLN | SET+3~, SORTX+4*, SORTX+5*, SORTX+7*, ORTXF+4*, ORTXF+5*, ORTXF+6* |
PSGEFN | GTFLDS+4~, GTFLDS+6* |
PSGEFN( | GTFLDS+4* |
>> PSIVAC | GTFLDS+6 |
>> PSIVOK | NEWORD+1*, NEWORD+3* |
PSIVRENW | GTFLDS+8~*, GTFLDS+10! |
PSJDTYP | GTFLDS+6*! |
>> PSJEDFLG | GTFLDS+6* |
>> PSJORNP | EN+1*, SETUP+4 |
>> PSJORPF | EN+1 |
>> PSJORSTS | SETUP+4* |
SOLF | ORTXF+3~, ORTXF+5* |
U | GTFLDS+4, GTFLDS+6, GTFLDS+7, SORTX+4, SORTX+7, ORTXF+5, SETUP+4, NEWENT+1 |
>> VAIN(4 | SET+4 |
X | GTFLDS+4*, GTFLDS+7*, SET+3~, SORTX+4*, SETUP+3* |
>> X1 | GTFLDS+7* |
>> XQORNOD(0 | GTFLDS+5 |
>> Y | GTFLDS+5*, GTFLDS+6, GTFLDS+7, SETUP+4* |