PSGOEE0 ;BIR/CML3-ORDER EDIT UTILITIES ;09 JAN 97 / 9:27 AM
Source file <PSGOEE0.m>
Package | Total | Call Graph |
---|---|---|
Inpatient Medications | 3 | ABORT^PSGOEE (ENDRG,UPD)^PSGOEF1 $$ENNOO^PSJUTL5 |
VA Fileman | 2 | YN^DICN ^DIR |
Name | Comments | DBIA/ICR reference |
---|---|---|
514 | ;;72^PSGOE92;;;72;1
|
|
313 | ;;66^PSGOE82;;;66;0
|
|
312 | ;;2^PSGOE82;;;2;0
|
|
311 | ;;8^PSGOE81;PSGOSI;PSGSI;8;0
|
|
310 | ;;1^PSGOE82;PSGOPR;PSGPR;1;1
|
|
314 | ;;40^PSGOE82;;;40;0
|
|
53 | ;;10^PSGOE91;PSGOSD;PSGSD;10;1
|
|
52 | ;;109^PSGOE9;PSGODO;PSGDO;109;1
|
|
ENF | ; finish order from edit
|
|
FIELDS | ;
|
|
ENOK | ;
|
|
51 | ;;108^PSGOE9;PSGOPD;PSGPD;108;1
|
|
ENSFE3 | ; set-up fields to edit for 53.1
|
|
ENSFE5 | ; set-up fields to edit for 55
|
|
ENSFE(PSGP,PSGORD) | ; Determine editable fields, and fields that cause new order.
|
|
39 | ;;39^PSGOE81;PSGOAT;PSGAT;39;0
|
|
38 | ;;26^PSGOE8;PSGOSCH;PSGSCH;26;1
|
|
59 | ;;41^PSGOE91;PSGOAT;PSGAT;41;0
|
|
58 | ;;26^PSGOE9;PSGOSCH;PSGSCH;26;1
|
|
55 | ;;34^PSGOE91;PSGOFD;PSGFD;34;1
|
|
ENNOU | ; create new order or update old order
|
|
32 | ;;109^PSGOE8;PSGODO;PSGDO;109;1
|
|
31 | ;;108^PSGOE8;PSGOPD;PSGPD;108;1
|
|
56 | ;;7^PSGOE9;PSGOST;PSGST;7;0
|
|
37 | ;;5^PSGOE82;PSGOSM;PSGSM;5;0
|
|
36 | ;;7^PSGOE8;PSGOST;PSGST;7;0
|
|
35 | ;;25^PSGOE81;PSGOFD;PSGFD;25;0
|
|
34 | ;;3^PSGOE8;PSGOMR;PSGMR;3;1
|
|
33 | ;;10^PSGOE81;PSGOSD;PSGSD;10;0
|
|
54 | ;;3^PSGOE9;PSGOMR;PSGMR;3;1
|
|
511 | ;;8^PSGOE92;PSGOSI;PSGSI;8;0
|
|
510 | ;;1^PSGOE92;PSGOPR;PSGPR;1;1
|
|
513 | ;;15^PSGOE92;;;15;0
|
|
512 | ;;2^PSGOE92;;;2;0
|
|
57 | ;;5^PSGOE82;PSGOSM;PSGSM;5;0
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(53.45 - [#53.45] | ENOK+1, ENOK+2, ENNOU+10, ENNOU+11, ENNOU+12 |
Name | Line Occurrences |
---|---|
39 | ENSFE3+3 |
59 | ENSFE5+3 |
@( | ENSFE+1 |
Name | Field # of Occurrence |
---|---|
^( | ENNOU+9, ENNOU+10, ENNOU+11, ENNOU+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | ENOK+3*, ENOK+5*, ENF+1*, ENF+3 |
DIR | ENNOU+1! |
DIR(0 | ENNOU+1* |
DR | ENOK+2*, ENOK+3, ENNOU+2!*, ENNOU+3*, ENNOU+4*, ENNOU+5*, ENNOU+7*, ENNOU+8*, ENNOU+9*, ENNOU+10* , ENNOU+11*, ENNOU+12* |
F | ENOK+12! |
F0 | ENOK+12! |
F1 | ENOK+12! |
F3 | ENOK+12! |
>> MSG | ENNOU+1 |
ND2 | ENOK+12! |
P | ENNOU+9~*, ENNOU+10* |
PSGDL | ENOK+12! |
PSGDLS | ENOK+12! |
>> PSGEB | ENSFE3+4 |
>> PSGEFN | ENSFE3+1*, ENSFE3+2*, ENSFE5+1* |
>> PSGEFN( | ENSFE3+1*, ENNOU+3, ENNOU+9, ENNOU+10 |
>> PSGEFN(9 | ENSFE3+3*, ENSFE5+3* |
PSGF2 | ENOK+12! |
PSGFOK | ENOK+12! |
>> PSGHSM | ENNOU+8 |
PSGND | ENF+3! |
>> PSGOEEF | ENSFE3+1*, ENSFE3+2*, ENSFE3+3*, ENSFE3+4*, ENSFE5+2*, ENSFE5+3* |
>> PSGOEEF( | ENSFE3+1*, ENSFE3+2*, ENSFE3+3*, ENSFE3+4*, ENSFE5+2*, ENSFE5+3* |
>> PSGOEEG | ENSFE3+5*, ENSFE5+4* |
PSGOEEND | ENSFE3+5!, ENSFE5+4* |
>> PSGOEENO | ENOK+2*, ENOK+3, ENOK+4, ENOK+6, ENOK+13*, ENNOU+2*, ENNOU+3*, ENNOU+7, ENNOU+9, ENNOU+10 , ENNOU+11, ENNOU+12 |
>> PSGOEEWF | ENNOU+9, ENNOU+10, ENNOU+11, ENNOU+12 |
>> PSGOEF | ENOK+7 |
PSGOEFF | ENF+3*! |
>> PSGOETO | ENSFE5+2 |
>> PSGOETOF | ENSFE3+2, ENSFE3+4 |
>> PSGOHSM | ENNOU+8 |
>> PSGOPD | ENSFE3+5 |
>> PSGOPDN | ENSFE3+5 |
>> PSGOPR | ENSFE3+4 |
PSGORD | ENSFE~, ENSFE+1 |
PSGOROE1 | ENOK+12!, ENOK+13* |
>> PSGOSI | ENNOU+4, ENNOU+5, ENNOU+7 |
PSGP | ENSFE~ |
>> PSGPD | ENSFE5+4, ENOK+2 |
>> PSGPDN | ENSFE5+4 |
>> PSGPDRG | ENSFE3+5*, ENSFE5+4* |
>> PSGPDRGN | ENSFE3+5*, ENSFE5+4* |
PSGRO | ENOK+12! |
PSGSD | ENF+3! |
>> PSGSI | ENNOU+4, ENNOU+5, ENNOU+7* |
>> PSGSM | ENNOU+8 |
>> PSGSTAT | ENSFE3+1 |
>> PSJLMFIN | ENNOU+7 |
>> PSJNOO | ENOK+11*, ENOK+13 |
>> PSJSYSP | ENOK+1, ENOK+2, ENNOU+9, ENNOU+10, ENNOU+11, ENNOU+12 |
>> PSJSYSP0 | ENOK+1 |
>> PSJSYSU | ENSFE3+3, ENSFE5+3 |
>> Q | ENNOU+2*, ENNOU+3*, ENNOU+9*, ENNOU+10*, ENNOU+11*, ENNOU+12* |
ENNOU+9*, ENNOU+10*, ENNOU+11*, ENNOU+12* | |
SDT | ENOK+12! |
U | ENOK+1, ENNOU+9, ENNOU+10 |
>> X | ENSFE3+1*, ENSFE3+2*, ENSFE3+4*, ENSFE5+2*, ENNOU+9*, ENNOU+10*, ENNOU+11*, ENNOU+12* |
>> Y | ENSFE3+2*, ENSFE3+4*, ENSFE5+2*, ENNOU+3*, ENNOU+9*, ENNOU+10*, ENNOU+11*, ENNOU+12* |
Name | Field # of Occurrence |
---|---|
$T(39 | ENSFE3+3 |
$T(59 | ENSFE5+3 |
$T(@(3) | ENSFE3+1, ENSFE3+2, ENSFE3+4, ENSFE5+2, ENNOU+3 |