ORY147.m

ORY147 ;slc/dcm - postinit for OR*3*147 ;5/17/02  12:17

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**132**;Dec 17, 1997

 ;

 Q

 ;

PRE ; -- preinit

 D REMOVE

 Q

 ;

POST ; -- postinit

 D SETVAL

 Q

SETVAL ;

 N ORP,ORT

 S ORP="ORWRP REPORT LIST",ORT=$O(^ORD(101.24,"B","ORRPW DOD",0))

 I ORT D PUT^XPAR("PKG",ORP,8,ORT)

 Q

REMOVE ; Remove entries from file 101.24

 N DIK,DA

 S DIK="^ORD(101.24,"

 F DA=1102:1:1106 D ^DIK

 Q

ORY147    ;slc/dcm - postinit for OR*3*147 ;5/17/02  12:17

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**132**;Dec 17, 1997

 +2       ;

 +3        QUIT 

 +4       ;

PRE       ; -- preinit

 +1        DO REMOVE

 +2        QUIT 

 +3       ;

POST      ; -- postinit

 +1        DO SETVAL

 +2        QUIT 

SETVAL    ;

 +1        NEW ORP,ORT

 +2        SET ORP="ORWRP REPORT LIST"

           SET ORT=$ORDER(^ORD(101.24,"B","ORRPW DOD",0))

 +3        IF ORT

               DO PUT^XPAR("PKG",ORP,8,ORT)

 +4        QUIT 

REMOVE    ; Remove entries from file 101.24

 +1        NEW DIK,DA

 +2        SET DIK="^ORD(101.24,"

 +3        FOR DA=1102:1:1106

               DO ^DIK

 +4        QUIT