ONCPRE50 ;Hines OIFO/GWB - PRE-INSTALL routine for patch ONC*2.11*50
;;2.11;ONCOLOGY;**50**;Mar 07, 1995;Build 29
;
ITEM8 ;ADDITIONAL SERVICE INDICATORS
;Kill AGENT ORANGE EXPOSURE (160,48) and
;IONIZING RADIATION EXPOSURE (160,50) to remove extraneous 9.1 nodes
S DIK="^DD(160,",DA=48,DA(1)=160 D ^DIK
S DIK="^DD(160,",DA=50,DA(1)=160 D ^DIK
K DA,DIK
;
ITEM16 ;ONCOLOGY DATA EXTRACT FORMAT (#160.16)
K ^ONCO(160.16)
K ^ONCO(160.17)
;
;Delete MIDDLE NAME (160,.015) to remove extranious 9.2 and 9.3 nodes
S DIK="^DD(160,",DA=.015,DA(1)=160 D ^DIK
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCPRE50 576 printed Dec 13, 2024@02:27:28 Page 2
ONCPRE50 ;Hines OIFO/GWB - PRE-INSTALL routine for patch ONC*2.11*50
+1 ;;2.11;ONCOLOGY;**50**;Mar 07, 1995;Build 29
+2 ;
ITEM8 ;ADDITIONAL SERVICE INDICATORS
+1 ;Kill AGENT ORANGE EXPOSURE (160,48) and
+2 ;IONIZING RADIATION EXPOSURE (160,50) to remove extraneous 9.1 nodes
+3 SET DIK="^DD(160,"
SET DA=48
SET DA(1)=160
DO ^DIK
+4 SET DIK="^DD(160,"
SET DA=50
SET DA(1)=160
DO ^DIK
+5 KILL DA,DIK
+6 ;
ITEM16 ;ONCOLOGY DATA EXTRACT FORMAT (#160.16)
+1 KILL ^ONCO(160.16)
+2 KILL ^ONCO(160.17)
+3 ;
+4 ;Delete MIDDLE NAME (160,.015) to remove extranious 9.2 and 9.3 nodes
+5 SET DIK="^DD(160,"
SET DA=.015
SET DA(1)=160
DO ^DIK
