ORY222.m

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

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