ORY232 ;SLC/JMH - OR*3*232 INSTALL ROUTINE; [8/10/05 12:30pm]
 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**232**;Dec 17, 1997;Build 19
POST ;
 D EN^XPAR("SYS","OR RDI CACHE TIME",,"120")
 I '$$GET^XPAR("SYS","OR RDI HAVE HDR") D EN^XPAR("SYS","OR RDI HAVE HDR",,"NO")
 D EN^XPAR("SYS","ORRDI FAIL THRESH",,"2")
 D EN^XPAR("SYS","ORRDI SUCCEED THRESH",,"2")
 D EN^XPAR("SYS","ORRDI PING FREQ",,"20")
 D EN^XPAR("SYS","ORRDI DUMMY ICN",,"99")
 N ORHLL
 S ORHLL=$O(^HLCS(870,"B","ORHDR",0))
 I +ORHLL D
 .S $P(^HLCS(870,+ORHLL,200),U,2)=1
 .S $P(^HLCS(870,+ORHLL,200),U,4)=10
 .S $P(^HLCS(870,+ORHLL,200),U,5)=10
 .S $P(^HLCS(870,+ORHLL,200),U,10)="R"
 Q