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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY222 370 printed Nov 22, 2024@17:49:28 Page 2
ORY222 ;;SLC/JDL- Group Notes
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**222**
MAIN ;
+1 NEW MENU,I
+2 SET MENU="OR CPRS GUI CHART"
+3 FOR I="ORWGN GNLOC","ORWGN AUTHUSR"
DO INSERT(MENU,I)
+4 QUIT
+5 ;
INSERT(OPTION,RPC) ; Call FM Updater with each RPC
+1 NEW FDA,FDAIEN,ERR,DIERR
+2 SET FDA(19,"?1,",.01)=OPTION
+3 SET FDA(19.05,"?+2,?1,",.01)=RPC
+4 DO UPDATE^DIE("E","FDA","FDAIEN","ERR")
+5 QUIT
