- 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