PSIVORFE ;BIR/MLM-IV FLUID ORDER ENTRY FOR OE/RR FRONT DOOR. ;26 NOV 97 / 9:55 AM
Source file <PSIVORFE.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry pt. to create new IV Fluid order.
|
|
| NEWORD | ; Create new IV Fluid order.
|
|
| GTFLDS | ;Ask field no.s to be edited.
|
|
| SET | ; Set variables needed to create/update orders in the ORDERS file (100).
|
|
| SORTX | ;Set up ORTX(.
|
|
| ORTXF | ; Set up ORTX( for Fluids.
|
|
| 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+2, NEWENT+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+3* |
| DRG | SETUP+1! |
| DRG( | ORTXF+4, ORTXF+5 |
| DRG("SOL" | NEWORD+1, SORTX+4 |
| >> DRGI | ORTXF+4*, ORTXF+5 |
| >> DRGN | SETUP+1* |
| DRGT | SET+3~, ORTXF+4*, ORTXF+5 |
| DUZ | NEWENT+1 |
| >> EDIT | NEWORD+1*, NEWORD+3*, GTFLDS+1, GTFLDS+3, GTFLDS+4* |
| 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+1* |
| >> 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+2* |
| >> P("PD" | SORTX+7 |
| >> P("RES" | SORTX+8, SETUP+2* |
| >> P(17 | SETUP+2* |
| >> P(2 | SET+5 |
| >> P(3 | SET+5 |
| >> P(4 | SET+5, SET+6, SETUP+2* |
| >> P(6 | SET+5, SETUP+2* |
| >> 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+1~, GTFLDS+3* |
| PSGEFN( | GTFLDS+1* |
| >> PSIVAC | GTFLDS+3 |
| >> PSIVOK | NEWORD+1*, NEWORD+3* |
| PSIVRENW | GTFLDS+5~*, GTFLDS+7! |
| PSJDTYP | GTFLDS+3*! |
| >> PSJORNP | EN+1*, SETUP+2 |
| >> PSJORPF | EN+1 |
| >> PSJORSTS | SETUP+2* |
| SOLF | ORTXF+3~, ORTXF+5* |
| U | GTFLDS+1, GTFLDS+3, GTFLDS+4, SORTX+4, SORTX+7, ORTXF+5, SETUP+2, NEWENT+1 |
| >> VAIN(4 | SET+4 |
| X | GTFLDS+1*, GTFLDS+4*, SET+3~, SORTX+4*, SETUP+1* |
| >> X1 | GTFLDS+4* |
| >> XQORNOD(0 | GTFLDS+2 |
| >> Y | GTFLDS+2*, GTFLDS+3, GTFLDS+4, SETUP+2* |
