PSIVORC2 ;BIR/MLM - PROCESS INCOMPLETE IV ORDER - CONT ; Feb 02, 2022
Source file <PSIVORC2.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 |
---|---|---|
EDCHK | ;Update or create new order in 55.
|
|
ACTIVE | ;
|
|
CKORD | ;Check if new order is to be created.
|
|
CKPC | ;
|
|
OLDORD | ; Update old order, update order links.
|
|
NEWORD | ; Create new order, update order links.
|
|
GTIVDRG | ; Try to find an IV drug from the Orderable Item.
; If there is only 1 match to OI then stuff in DRG otherwise prompt user to select which ; ad/sol matched to OI |
|
EDIT | ; Edit incomplete order
|
|
FINISH | ; Ask only for missing data in incomplete IV order.
|
|
NONVF() | ; Updated 53.1 status to non-verified after finish.
|
|
NWNONVF | ;Create non-verified due to edit
|
|
VF | ; Display Verify screen
|
|
RESET | ;Reset PSIVOI("DILIST") for additives with quick codes
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS( | GTIVDRG+15 |
^PS(51.2 - [#51.2] | FINISH+6 |
^PS(53.1 - [#53.1] | ACTIVE+3, ACTIVE+17, CKORD+2, CKORD+3, CKORD+7, CKPC+8, OLDORD+2, OLDORD+5, OLDORD+6*, NEWORD+2* , NEWORD+3, NONVF+10, NONVF+12*, NONVF+18, NWNONVF+3*, NWNONVF+5*, NWNONVF+10* |
^PS(53.45 - [#53.45] | ACTIVE+8, NWNONVF+2 |
^PS(55 - [#55] | ACTIVE+16, ACTIVE+17, OLDORD+2*, OLDORD+3, OLDORD+4, NEWORD+3* |
^SC - [#44] | NONVF+19 |
^TMP("PSODAOC" | NONVF+2*, NWNONVF+13* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | GTIVDRG+4 |
%DT | FINISH+4!*, FINISH+5!* |
CNT | RESET+1~*, RESET+2*, RESET+4*, RESET+6 |
DA | NWNONVF+1! |
>> DFN | ACTIVE+5, ACTIVE+6, ACTIVE+7, ACTIVE+8, ACTIVE+11, ACTIVE+13, ACTIVE+15, ACTIVE+16, ACTIVE+17, CKORD+10 , OLDORD+2, OLDORD+3, OLDORD+4, NEWORD+3, NEWORD+4, NONVF+5, NWNONVF+2, NWNONVF+12, VF+3 |
>> DNE | CKPC+6*, CKPC+7, CKPC+8, CKPC+9*, CKPC+10*, GTIVDRG+15*, FINISH+2* |
>> DONE | EDIT+6 |
>> DRG | CKORD+11, CKPC+9*, GTIVDRG+14*, GTIVDRG+15 |
>> DRG( | CKPC+6, CKPC+7, CKPC+9, GTIVDRG+15* |
>> DRG("AD" | EDIT+3, FINISH+2 |
>> DRG("SOL" | EDIT+3, FINISH+2 |
>> DRGI | CKPC+7*, CKPC+9* |
>> DRGT | CKPC+6*, CKPC+7, CKPC+8, CKPC+9, GTIVDRG+7*, GTIVDRG+15 |
DUZ | ACTIVE+15, VF+6 |
>> EDIT | FINISH+13 |
FIL | CKPC+6*, GTIVDRG+3~, GTIVDRG+6*, GTIVDRG+7, GTIVDRG+15 |
INDCHNG | NONVF+5~*, NONVF+14, NWNONVF+9 |
LYN | RESET+8! |
LYN( | RESET+2*, RESET+4*, RESET+7 |
ND | CKORD+2~, CKORD+4*, CKORD+5*, CKORD+6, CKORD+8~, CKPC+7~, CKPC+8*, CKPC+9, CKPC+10!, GTIVDRG+3~ , GTIVDRG+15* |
ND("CNT" | CKPC+8*, CKPC+10 |
ND("PD" | CKORD+2*, CKORD+4 |
ND(0 | CKORD+2*, CKORD+4, CKORD+5 |
NWCLN | NONVF+9~, NONVF+18*, NONVF+19, NONVF+20 |
>> OD | ACTIVE+12* |
OLCLN | NONVF+9~, NONVF+10*, NONVF+19, NONVF+20 |
>> ON | ACTIVE+3, ACTIVE+8, ACTIVE+9, ACTIVE+12*, CKORD+2, CKORD+3, CKORD+7, CKORD+10, CKPC+8, OLDORD+2 , OLDORD+6*, NEWORD+2, NEWORD+3*, NONVF+2, NONVF+10, NONVF+12, NONVF+15, NONVF+16, NONVF+18, NONVF+19 , NONVF+20, NONVF+21, NWNONVF+3, NWNONVF+4*, NWNONVF+9, NWNONVF+10, NWNONVF+11, NWNONVF+12, NWNONVF+13, NWNONVF+14 , VF+1, VF+3, VF+4, VF+9, VF+17 |
ON1 | CKPC+7~, CKPC+8* |
>> ON55 | ACTIVE+6, ACTIVE+9, ACTIVE+11, ACTIVE+12*, ACTIVE+13, ACTIVE+15, ACTIVE+16, ACTIVE+17, OLDORD+2, OLDORD+3 , OLDORD+4, OLDORD+5, OLDORD+6, NEWORD+3, NEWORD+4, VF+4* |
>> ORSTS | ACTIVE+9* |
>> P("21FLG" | EDCHK+3* |
>> P("CLRK" | CKORD+5, VF+6 |
>> P("DO" | NWNONVF+7* |
>> P("DTYP" | CKORD+7, CKORD+11, FINISH+3* |
>> P("IND" | NONVF+5 |
>> P("MR" | CKORD+6, FINISH+6* |
>> P("NAT" | EDCHK+2, NEWORD+2, NWNONVF+3 |
>> P("NEWON" | ACTIVE+4*, ACTIVE+5, ACTIVE+7, ACTIVE+9*, ACTIVE+12, NEWORD+2, NEWORD+3*, NWNONVF+1*, NWNONVF+2, NWNONVF+3 , NWNONVF+4, NWNONVF+5 |
>> P("OLDON" | ACTIVE+4, OLDORD+2*, OLDORD+3, OLDORD+4, OLDORD+5, NWNONVF+4*, NWNONVF+5, NWNONVF+10, VF+6 |
>> P("OPI" | FINISH+2* |
>> P("OT" | CKORD+4, CKORD+6, CKPC+3, EDIT+3, FINISH+2, VF+11, VF+12 |
>> P("PD" | CKORD+6, GTIVDRG+6 |
>> P("PON" | ACTIVE+6 |
>> P("PRNTON" | ACTIVE+1 |
>> P("REN" | NONVF+7*, NWNONVF+1* |
>> P("RES" | ACTIVE+3*, ACTIVE+4, ACTIVE+9, OLDORD+1, OLDORD+2, OLDORD+3, OLDORD+4, OLDORD+5, NEWORD+1, NWNONVF+6* |
>> P(17 | ACTIVE+9*, NONVF+7*, NWNONVF+1*, VF+6 |
>> P(2 | ACTIVE+8, ACTIVE+12, FINISH+4* |
>> P(23 | FINISH+3 |
>> P(3 | FINISH+5* |
>> P(4 | EDIT+4, FINISH+3 |
>> P(5 | FINISH+3 |
>> P(6 | ACTIVE+9, CKORD+5, CKORD+6 |
>> P(8 | CKORD+3, CKORD+4, CKORD+6 |
>> P(9 | CKORD+7 |
>> PSGACT | VF+5*, VF+6*, VF+8*, VF+9*, VF+10* |
PSGOEAV | NONVF+1~*, NONVF+3, NONVF+4 |
>> PSGP | NWNONVF+14 |
>> PSIVAC | NEWORD+2*, EDIT+2*, NWNONVF+3* |
>> PSIVCHG | EDCHK+2, EDCHK+3, ACTIVE+9, CKORD+1*, CKORD+2*, CKORD+6*, CKORD+7*, CKORD+9, CKORD+11*, CKORD+13 , CKPC+3, CKPC+9*, CKPC+10*, NONVF+6 |
>> PSIVCOPY | CKORD+1 |
>> PSIVDSFG | CKORD+7* |
PSIVENO | EDIT+1!, EDIT+7*, VF+17 |
PSIVOI | GTIVDRG+3!, GTIVDRG+7*, GTIVDRG+8, GTIVDRG+16! |
PSIVOI("DILIST" | GTIVDRG+6, GTIVDRG+9, GTIVDRG+10*, GTIVDRG+13, GTIVDRG+14, GTIVDRG+16, RESET+2, RESET+3, RESET+4, RESET+5! , RESET+6*, RESET+7* |
>> PSIVOK | FINISH+12* |
PSIVORFA | NONVF+21~* |
>> PSIVQC("DILIST" | GTIVDRG+10, GTIVDRG+11! |
>> PSIVUP | FINISH+2 |
PSJCHG | CKORD+2~ |
>> PSJCOM | EDCHK+4, ACTIVE+1*, ACTIVE+2 |
PSJEDFLG | VF+13, VF+15! |
>> PSJINFIN | NONVF+16 |
>> PSJIOPIV | ACTIVE+11 |
PSJIVBD | VF+2! |
>> PSJIVORF | EDCHK+1, EDCHK+2, NEWORD+4 |
>> PSJNOL | NWNONVF+14* |
PSJNOW | GTIVDRG+3~, GTIVDRG+4* |
PSJNVO | ACTIVE+5~*, ACTIVE+6* |
>> PSJOCFG | VF+17 |
>> PSJORD | ACTIVE+9*, ACTIVE+11, ACTIVE+13, ACTIVE+17, NEWORD+3, NONVF+5, NONVF+14, NWNONVF+3*, NWNONVF+9, VF+4* |
>> PSJORNAT | NEWORD+2*, NWNONVF+3* |
>> PSJORNP | ACTIVE+9* |
>> PSJOSTOP | ACTIVE+4* |
PSJQUIT | FINISH+10~* |
>> PSJSTAR | VF+11*, VF+12* |
>> PSJSYSP | ACTIVE+8, NWNONVF+2 |
>> PSJSYSP0 | NONVF+1 |
>> PSJSYSU | NONVF+3, NONVF+4, NONVF+15, NWNONVF+11, VF+8, VF+9, VF+10 |
PSJTROPI | ACTIVE+5~*, ACTIVE+6*, ACTIVE+7* |
QC | GTIVDRG+9~, GTIVDRG+10* |
SCR | GTIVDRG+3~ |
SCR("S" | GTIVDRG+5*, GTIVDRG+6 |
TDRG | CKORD+8~, CKPC+7~, CKPC+10! |
TDRG( | CKPC+7*, CKPC+9 |
TDRG("CNT" | CKPC+7*, CKPC+10 |
TMPDRG | CKORD+8~, CKORD+10, CKORD+11, CKORD+12! |
U | ACTIVE+3, CKORD+2, CKORD+3, CKORD+4, CKORD+5, CKORD+6, CKORD+7, CKPC+7, CKPC+9, OLDORD+2 , OLDORD+3, OLDORD+4, OLDORD+5, OLDORD+6, NEWORD+2, NEWORD+3, GTIVDRG+15, NONVF+1, NONVF+12, NONVF+14 , NWNONVF+3, NWNONVF+9, NWNONVF+10 |
>> VALMBCK | EDIT+7*, FINISH+10* |
X | CKORD+3~*, CKORD+4, FINISH+4*, FINISH+5* |
XX | GTIVDRG+9~*, GTIVDRG+10, RESET+1~, RESET+2*, RESET+3, RESET+4, RESET+7* |
XXX | GTIVDRG+9~*, RESET+1~, RESET+3*, RESET+4 |
>> Y | FINISH+4, FINISH+5 |
Name | Field # of Occurrence |
---|---|
$T(EN1^ORCFLAG | VF+10 |