source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY232.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 646 bytes
Line 
1ORY232 ;SLC/JMH - OR*3*232 INSTALL ROUTINE; [8/10/05 12:30pm]
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**232**;Dec 17, 1997;Build 19
3POST ;
4 D EN^XPAR("SYS","OR RDI CACHE TIME",,"120")
5 I '$$GET^XPAR("SYS","OR RDI HAVE HDR") D EN^XPAR("SYS","OR RDI HAVE HDR",,"NO")
6 D EN^XPAR("SYS","ORRDI FAIL THRESH",,"2")
7 D EN^XPAR("SYS","ORRDI SUCCEED THRESH",,"2")
8 D EN^XPAR("SYS","ORRDI PING FREQ",,"20")
9 D EN^XPAR("SYS","ORRDI DUMMY ICN",,"99")
10 N ORHLL
11 S ORHLL=$O(^HLCS(870,"B","ORHDR",0))
12 I +ORHLL D
13 .S $P(^HLCS(870,+ORHLL,200),U,2)=1
14 .S $P(^HLCS(870,+ORHLL,200),U,4)=10
15 .S $P(^HLCS(870,+ORHLL,200),U,5)=10
16 .S $P(^HLCS(870,+ORHLL,200),U,10)="R"
17 Q
Note: See TracBrowser for help on using the repository browser.