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* |