ONCPRE50.m

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 ---ONCPRE50   576     printed  Apr 09, 2024@21:30:06                                                                                                                                                                                                     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