18 lines
646 B
Mathematica
18 lines
646 B
Mathematica
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
|