15 lines
356 B
Mathematica
15 lines
356 B
Mathematica
ORY222 ;;SLC/JDL- Group Notes
|
|
;;3.0;ORDER ENTRY/RESULTS REPORTING;**222**
|
|
MAIN ;
|
|
N MENU,I
|
|
S MENU="OR CPRS GUI CHART"
|
|
F I="ORWGN GNLOC","ORWGN AUTHUSR" D INSERT(MENU,I)
|
|
Q
|
|
;
|
|
INSERT(OPTION,RPC) ; Call FM Updater with each RPC
|
|
N FDA,FDAIEN,ERR,DIERR
|
|
S FDA(19,"?1,",.01)=OPTION
|
|
S FDA(19.05,"?+2,?1,",.01)=RPC
|
|
D UPDATE^DIE("E","FDA","FDAIEN","ERR")
|
|
Q
|