source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY269.m@ 861

Last change on this file since 861 was 623, checked in by George Lilly, 15 years ago

revised back to 6/30/08 version

File size: 585 bytes
RevLine 
[623]1ORY269 ;WV/CJS - POST INIT FOR OR*3*269 ;1/24/07 23:34
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**269**;Dec 17, 1997;Build 28
3 ; Register Lookup RPCs
4 N MENU,RPC
5 S MENU="OR CPRS GUI CHART"
6 F RPC="ORWPT ENHANCED PATLOOKUP","ORWPT OTHER-RADIOBUTTONS" D INSERT(MENU,RPC)
7 Q
8INSERT(OPTION,RPC) ; Call FM Updater with each RPC
9 ; Input -- OPTION Option file (#19) Name field (#.01)
10 ; RPC RPC sub-file (#19.05) RPC field (#.01)
11 ; Output -- None
12 N FDA,FDAIEN,ERR,DIERR
13 S FDA(19,"?1,",.01)=OPTION
14 S FDA(19.05,"?+2,?1,",.01)=RPC
15 D UPDATE^DIE("E","FDA","FDAIEN","ERR")
16 Q
Note: See TracBrowser for help on using the repository browser.