| [613] | 1 | ORY232 ;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
|
|---|
| 3 | POST ;
|
|---|
| 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
|
|---|
