ORY232.m

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

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