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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY232 663 printed Nov 22, 2024@17:49:30 Page 2
ORY232 ;SLC/JMH - OR*3*232 INSTALL ROUTINE; [8/10/05 12:30pm]
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**232**;Dec 17, 1997;Build 19
POST ;
+1 DO EN^XPAR("SYS","OR RDI CACHE TIME",,"120")
+2 IF '$$GET^XPAR("SYS","OR RDI HAVE HDR")
DO EN^XPAR("SYS","OR RDI HAVE HDR",,"NO")
+3 DO EN^XPAR("SYS","ORRDI FAIL THRESH",,"2")
+4 DO EN^XPAR("SYS","ORRDI SUCCEED THRESH",,"2")
+5 DO EN^XPAR("SYS","ORRDI PING FREQ",,"20")
+6 DO EN^XPAR("SYS","ORRDI DUMMY ICN",,"99")
+7 NEW ORHLL
+8 SET ORHLL=$ORDER(^HLCS(870,"B","ORHDR",0))
+9 IF +ORHLL
Begin DoDot:1
+10 SET $PIECE(^HLCS(870,+ORHLL,200),U,2)=1
+11 SET $PIECE(^HLCS(870,+ORHLL,200),U,4)=10
+12 SET $PIECE(^HLCS(870,+ORHLL,200),U,5)=10
+13 SET $PIECE(^HLCS(870,+ORHLL,200),U,10)="R"
End DoDot:1
+14 QUIT
