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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY147 435 printed Oct 16, 2024@18:39:17 Page 2
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
