PSGOEE0 ;BIR/CML3 - ORDER EDIT UTILITIES ;Oct 27, 2020@15:14:39
Source file <PSGOEE0.m>
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 |
|