- 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 Jan 18, 2025@03:41:57 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