ORY178.m

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 ---ORY178   525     printed  Apr 09, 2024@21:30:26                                                                                                                                                                                                       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       ;