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