ORY178 ; SLC/KCM/JLI ;2/19/03
;;3.0;ORDER ENTRY/RESULTS REPORTING;**178**;Dec 17, 1997
POST ;
N RPC
N MENU
S RPC="XUS GET TOKEN"
S MENU="OR CPRS GUI CHART"
D INSERT(MENU,RPC)
Q
;
INSERT(OPTION,RPC) ; Call FM Updater with each RPC
; Input -- OPTION Option file (#19) Name field (#.01)
; RPC RPC sub-file (#19.05) RPC field (#.01)
; Output -- None
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[HORY178 525 printed Nov 22, 2024@17:48:51 Page 2
ORY178 ; SLC/KCM/JLI ;2/19/03
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**178**;Dec 17, 1997
POST ;
+1 NEW RPC
+2 NEW MENU
+3 SET RPC="XUS GET TOKEN"
+4 SET MENU="OR CPRS GUI CHART"
+5 DO INSERT(MENU,RPC)
+6 QUIT
+7 ;
INSERT(OPTION,RPC) ; Call FM Updater with each RPC
+1 ; Input -- OPTION Option file (#19) Name field (#.01)
+2 ; RPC RPC sub-file (#19.05) RPC field (#.01)
+3 ; Output -- None
+4 NEW FDA,FDAIEN,ERR,DIERR
+5 SET FDA(19,"?1,",.01)=OPTION
+6 SET FDA(19.05,"?+2,?1,",.01)=RPC
+7 DO UPDATE^DIE("E","FDA","FDAIEN","ERR")
+8 QUIT
+9 ;
