ORY298 ;SLCOIFO - Pre/Post-init for patch OR*3*298
;;3.0;ORDER ENTRY/RESULTS REPORTING;**298**;Dec 17, 1997;Build 14
PRE ; Pre-init
D CLEAN
Q
POST ; Post-init
Q
CLEAN ;Clean up reports for install
I $P($G(^ORD(101.24,1102,0)),"^",1)="ORRPW DOD" D
. S ORVIT=1,DA=1102,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,1102,0)="ORRPW DOD",^ORD(101.24,"B","ORRPW DOD",1102)=""
I $P($G(^ORD(101.24,1143,0)),"^",1)="ORRPW DOD HISTORIES" D
. S ORVIT=1,DA=1143,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,1143,0)="ORRPW DOD HISTORIES",^ORD(101.24,"B","ORRPW DOD HISTORIES",1143)=""
I $P($G(^ORD(101.24,1144,0)),"^",1)="ORRPW DOD FAMILY HISTORY" D
. S ORVIT=1,DA=1144,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,1144,0)="ORRPW DOD FAMILY HISTORY",^ORD(101.24,"B","ORRPW DOD FAMILY HISTORY",1144)=""
I $P($G(^ORD(101.24,1145,0)),"^",1)="ORRPW DOD SOCIAL HISTORY" D
. S ORVIT=1,DA=1145,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,1145,0)="ORRPW DOD SOCIAL HISTORY",^ORD(101.24,"B","ORRPW DOD SOCIAL HISTORY",1145)=""
I $P($G(^ORD(101.24,1146,0)),"^",1)="ORRPW DOD OTHER PAST MED HX" D
. S ORVIT=1,DA=1146,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,1146,0)="ORRPW DOD OTHER PAST MED HX",^ORD(101.24,"B","ORRPW DOD OTHER PAST MED HX",1146)=""
I $P($G(^ORD(101.24,1147,0)),"^",1)="ORRPW DOD QUESTIONNAIRES" D
. S ORVIT=1,DA=1147,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,1147,0)="ORRPW DOD QUESTIONNAIRES",^ORD(101.24,"B","ORRPW DOD QUESTIONNAIRES",1147)=""
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY298 1478 printed Apr 09, 2024@21:33:50 Page 2
ORY298 ;SLCOIFO - Pre/Post-init for patch OR*3*298
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**298**;Dec 17, 1997;Build 14
PRE ; Pre-init
+1 DO CLEAN
+2 QUIT
POST ; Post-init
+1 QUIT
CLEAN ;Clean up reports for install
+1 IF $PIECE($GET(^ORD(101.24,1102,0)),"^",1)="ORRPW DOD"
Begin DoDot:1
+2 SET ORVIT=1
SET DA=1102
SET DIK="^ORD(101.24,"
DO ^DIK
+3 SET ^ORD(101.24,1102,0)="ORRPW DOD"
SET ^ORD(101.24,"B","ORRPW DOD",1102)=""
End DoDot:1
+4 IF $PIECE($GET(^ORD(101.24,1143,0)),"^",1)="ORRPW DOD HISTORIES"
Begin DoDot:1
+5 SET ORVIT=1
SET DA=1143
SET DIK="^ORD(101.24,"
DO ^DIK
+6 SET ^ORD(101.24,1143,0)="ORRPW DOD HISTORIES"
SET ^ORD(101.24,"B","ORRPW DOD HISTORIES",1143)=""
End DoDot:1
+7 IF $PIECE($GET(^ORD(101.24,1144,0)),"^",1)="ORRPW DOD FAMILY HISTORY"
Begin DoDot:1
+8 SET ORVIT=1
SET DA=1144
SET DIK="^ORD(101.24,"
DO ^DIK
+9 SET ^ORD(101.24,1144,0)="ORRPW DOD FAMILY HISTORY"
SET ^ORD(101.24,"B","ORRPW DOD FAMILY HISTORY",1144)=""
End DoDot:1
+10 IF $PIECE($GET(^ORD(101.24,1145,0)),"^",1)="ORRPW DOD SOCIAL HISTORY"
Begin DoDot:1
+11 SET ORVIT=1
SET DA=1145
SET DIK="^ORD(101.24,"
DO ^DIK
+12 SET ^ORD(101.24,1145,0)="ORRPW DOD SOCIAL HISTORY"
SET ^ORD(101.24,"B","ORRPW DOD SOCIAL HISTORY",1145)=""
End DoDot:1
+13 IF $PIECE($GET(^ORD(101.24,1146,0)),"^",1)="ORRPW DOD OTHER PAST MED HX"
Begin DoDot:1
+14 SET ORVIT=1
SET DA=1146
SET DIK="^ORD(101.24,"
DO ^DIK
+15 SET ^ORD(101.24,1146,0)="ORRPW DOD OTHER PAST MED HX"
SET ^ORD(101.24,"B","ORRPW DOD OTHER PAST MED HX",1146)=""
End DoDot:1
+16 IF $PIECE($GET(^ORD(101.24,1147,0)),"^",1)="ORRPW DOD QUESTIONNAIRES"
Begin DoDot:1
+17 SET ORVIT=1
SET DA=1147
SET DIK="^ORD(101.24,"
DO ^DIK
+18 SET ^ORD(101.24,1147,0)="ORRPW DOD QUESTIONNAIRES"
SET ^ORD(101.24,"B","ORRPW DOD QUESTIONNAIRES",1147)=""
End DoDot:1
