PSGOEE0 ;BIR/CML3 - ORDER EDIT UTILITIES ;Oct 27, 2020@15:14:39
Source file <PSGOEE0.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 |
---|---|---|
ENSFE(PSGP,PSGORD) | ; Determine editable fields, and fields that cause new order.
|
|
ENSFE3 | ; set-up fields to edit for 53.1 ;*399-IND
|
|
ENSFE5 | ; set-up fields to edit for 55
|
|
ENOK | ;
|
|
ENNOU | ; create new order or update old order
|
|
ENF | ; finish order from edit
|
|
FIELDS | ;;linetag^routine for fied edit;variable used for before value;variable used for after value;associated field number in File; 1 - edit will create a new entry (field is starred) or 0 - edit will not create a new entry
|
|
31 | ;;108^PSGOE8;PSGOPD;PSGPD;108;1
|
|
32 | ;;109^PSGOE8;PSGODO;PSGDO;109;1
|
|
33 | ;;10^PSGOE81;PSGOSD;PSGSD;10;0
|
|
34 | ;;3^PSGOE8;PSGOMR;PSGMR;3;1
|
|
35 | ;;25^PSGOE81;PSGOFD;PSGFD;25;0
|
|
36 | ;;7^PSGOE8;PSGOST;PSGST;7;0
|
|
37 | ;;5^PSGOE82;PSGOSM;PSGSM;5;0
|
|
38 | ;;26^PSGOE8;PSGOSCH;PSGSCH;26;1
|
|
39 | ;;39^PSGOE81;PSGOAT;PSGAT;39;0
|
|
310 | ;;1^PSGOE82;PSGOPR;PSGPR;1;1
|
|
311 | ;;8^PSGOE81;PSGOSI;PSGSI;8;0
|
|
312 | ;;2^PSGOE82;;;2;0
|
|
313 | ;;40^PSGOE82;;;40;0
|
|
314 | ;;132^PSGOE41;PSGOIND;PSGIND;132;0
|
|
315 | ;;50^PSGOE82;P("CLINO");P("CLIN");113;0
|
|
316 | ;;51^PSGOE82;P("APPTO");P("APPT");126;0
|
|
51 | ;;108^PSGOE9;PSGOPD;PSGPD;108;1
|
|
52 | ;;109^PSGOE9;PSGODO;PSGDO;109;1
|
|
53 | ;;10^PSGOE91;PSGOSD;PSGSD;10;1
|
|
54 | ;;3^PSGOE9;PSGOMR;PSGMR;3;1
|
|
55 | ;;34^PSGOE91;PSGOFD;PSGFD;34;1
|
|
56 | ;;7^PSGOE9;PSGOST;PSGST;7;0
|
|
57 | ;;5^PSGOE82;PSGOSM;PSGSM;5;0
|
|
58 | ;;26^PSGOE9;PSGOSCH;PSGSCH;26;1
|
|
59 | ;;41^PSGOE91;PSGOAT;PSGAT;41;0
|
|
510 | ;;1^PSGOE92;PSGOPR;PSGPR;1;1
|
|
511 | ;;8^PSGOE92;PSGOSI;PSGSI;8;0
|
|
512 | ;;2^PSGOE92;;;2;0
|
|
513 | ;;15^PSGOE92;;;15;0
|
|
514 | ;;141^PSGOE41;PSGOIND;PSGIND;141;0
|
|
515 | ;;50^PSGOE82;P("CLINO");P("CLIN");130;0
|
|
516 | ;;51^PSGOE82;P("APPTO");P("APPT");131;0
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
>> | 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+10*, ENNOU+11* , ENNOU+14*, ENNOU+15*, ENNOU+16*, ENNOU+17* |
F | ENOK+10! |
F0 | ENOK+10! |
F1 | ENOK+10! |
F3 | ENOK+10! |
FLD | ENNOU+11~* |
>> MSG | ENNOU+1 |
ND2 | ENOK+10! |
P | ENNOU+14~*, ENNOU+15* |
>> PSGAT | ENNOU+11 |
PSGDL | ENOK+10! |
PSGDLS | ENOK+10! |
>> PSGDUR | ENNOU+10 |
>> PSGEB | ENSFE3+6 |
>> PSGEFN | ENSFE3+3*, ENSFE3+4*, ENSFE5+3* |
>> PSGEFN( | ENSFE3+3*, ENNOU+3, ENNOU+14, ENNOU+15 |
>> PSGEFN(9 | ENSFE3+5*, ENSFE5+5* |
PSGF2 | ENOK+10! |
PSGFOK | ENOK+10! |
>> PSGHSM | ENNOU+8 |
PSGND | ENF+3! |
>> PSGOEEF | ENSFE3+3*, ENSFE3+4*, ENSFE3+5*, ENSFE3+6*, ENSFE5+4*, ENSFE5+5* |
>> PSGOEEF( | ENSFE3+3*, ENSFE3+4*, ENSFE3+5*, ENSFE3+6*, ENSFE5+4*, ENSFE5+5* |
>> PSGOEEF(109 | ENSFE3+8*, ENSFE5+8* |
>> PSGOEEG | ENSFE3+9*, ENSFE5+6* |
PSGOEEND | ENSFE3+9!, ENSFE5+6* |
>> PSGOEENO | ENOK+2*, ENOK+3, ENOK+4, ENOK+6, ENOK+11*, ENNOU+2*, ENNOU+3*, ENNOU+7, ENNOU+14, ENNOU+15 , ENNOU+16, ENNOU+17 |
>> PSGOEEWF | ENNOU+14, ENNOU+15, ENNOU+16, ENNOU+17 |
>> PSGOEF | ENOK+7 |
PSGOEFF | ENF+3*! |
>> PSGOETO | ENSFE5+4 |
>> PSGOETOF | ENSFE3+4, ENSFE3+6 |
>> PSGOHSM | ENNOU+8 |
>> PSGOPD | ENSFE3+9 |
>> PSGOPDN | ENSFE3+9 |
>> PSGOPR | ENSFE3+6 |
PSGORD | ENSFE~, ENSFE+1, ENNOU+11 |
PSGOROE1 | ENOK+10!, ENOK+11* |
>> PSGOSI | ENNOU+4, ENNOU+5, ENNOU+7 |
PSGP | ENSFE~ |
>> PSGPD | ENSFE5+6, ENOK+2 |
>> PSGPDN | ENSFE5+6 |
>> PSGPDRG | ENSFE3+9*, ENSFE5+6* |
>> PSGPDRGN | ENSFE3+9*, ENSFE5+6* |
>> PSGRF | ENNOU+9, ENNOU+10 |
>> PSGRMV | ENNOU+10 |
>> PSGRMVT | ENNOU+10 |
PSGRO | ENOK+10! |
PSGSD | ENF+3! |
>> PSGSI | ENNOU+4, ENNOU+5, ENNOU+7* |
>> PSGSM | ENNOU+8 |
>> PSGSTAT | ENSFE3+3 |
>> PSJCM01 | ENSFE3+2, ENSFE5+2 |
>> PSJCMO | ENSFE3+2, ENSFE5+2, ENSFE5+3 |
PSJCMOF | ENSFE3+1~, ENSFE3+2*, ENSFE3+3, ENSFE3+4, ENSFE5+1~, ENSFE5+2*, ENSFE5+4 |
PSJDOSE | ENSFE3+8~, ENSFE5+8~ |
>> PSJDSFLG | ENSFE3+8, ENSFE5+8 |
>> PSJLMFIN | ENNOU+7 |
>> PSJNOO | ENOK+9*, ENOK+11 |
>> PSJSYSP | ENOK+1, ENOK+2, ENNOU+14, ENNOU+15, ENNOU+16, ENNOU+17 |
>> PSJSYSP0 | ENOK+1 |
>> PSJSYSU | ENSFE3+5, ENSFE5+5 |
>> Q | ENNOU+2*, ENNOU+3*, ENNOU+14*, ENNOU+15*, ENNOU+16*, ENNOU+17* |
ENNOU+14*, ENNOU+15*, ENNOU+16*, ENNOU+17* | |
SDT | ENOK+10! |
U | ENOK+1, ENNOU+14, ENNOU+15 |
>> X | ENSFE3+3*, ENSFE3+4*, ENSFE3+6*, ENSFE5+4*, ENNOU+14*, ENNOU+15*, ENNOU+16*, ENNOU+17* |
>> Y | ENSFE3+4*, ENSFE3+6*, ENSFE5+4*, ENNOU+3*, ENNOU+14*, ENNOU+15*, ENNOU+16*, ENNOU+17* |