source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY222.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 356 bytes
Line 
1ORY222 ;;SLC/JDL- Group Notes
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**222**
3MAIN ;
4 N MENU,I
5 S MENU="OR CPRS GUI CHART"
6 F I="ORWGN GNLOC","ORWGN AUTHUSR" D INSERT(MENU,I)
7 Q
8 ;
9INSERT(OPTION,RPC) ; Call FM Updater with each RPC
10 N FDA,FDAIEN,ERR,DIERR
11 S FDA(19,"?1,",.01)=OPTION
12 S FDA(19.05,"?+2,?1,",.01)=RPC
13 D UPDATE^DIE("E","FDA","FDAIEN","ERR")
14 Q
Note: See TracBrowser for help on using the repository browser.