ONCPRE49.m

ONCPRE49 ;Hines OIFO/GWB - PRE-INSTALL routine for patch ONC*2.11*49

 ;;2.11;ONCOLOGY;**49**;Mar 07, 1995;Build 38

 ;

 ;Delete LETTER TYPE (#160.06,6) to remove SCREEN

 S DIK="^DD(160.06,",DA=6,DA(1)=160.06 D ^DIK

 K DA,DIK

 ;

ITEM9 ;OTHER STAGING FOR ONCOLOGY (#164.3)

 K ^ONCO(164.3)

 ;

ITEM11 ;CHEMOTHERAPEUTIC DRUGS (#164.18)

 K ^ONCO(164.18)

 ;

 ;KILL ID node to remove NSC NUMBER (#164.18,1) IDENTIFIER

 ;Supported by IA #5378

 K ^DD(164.18,0,"ID",1)

 ;

 ;Delete NSC NUMBER (#164.18,1) to remove "C" cross-reference

 S DIK="^DD(164.18,",DA=1,DA(1)=164.18 D ^DIK

 K DA,DIK

 ;

 ;Delete CHEMOTHERAPEUTIC AGENT #1-3 (#165.5,1423-1423.2) to remove

 ;OUTPUT TRANSFORMs

 S DIK="^DD(165.5,",DA=1423,DA(1)=165.5 D ^DIK

 S DIK="^DD(165.5,",DA=1423.1,DA(1)=165.5 D ^DIK

 S DIK="^DD(165.5,",DA=1423.2,DA(1)=165.5 D ^DIK

 K DA,DIK

 ;

ITEM13 ;ADDITIONAL SERVICE INDICATORS

 ;Kill PERSIAN GULF SERVICE (#160,51) to remove extraneous 9.1 node

 S DIK="^DD(160,",DA=51,DA(1)=160 D ^DIK

 K DA,DIK

 ;

ITEM19 ;ONCOLOGY DATA EXTRACT FORMAT (#160.16)

 K ^ONCO(160.16)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCPRE49   1090     printed  Apr 09, 2024@21:31:34                                                                                                                                                                                                    Page 2

ONCPRE49  ;Hines OIFO/GWB - PRE-INSTALL routine for patch ONC*2.11*49

 +1       ;;2.11;ONCOLOGY;**49**;Mar 07, 1995;Build 38

 +2       ;

 +3       ;Delete LETTER TYPE (#160.06,6) to remove SCREEN

 +4        SET DIK="^DD(160.06,"

           SET DA=6

           SET DA(1)=160.06

           DO ^DIK

 +5        KILL DA,DIK

 +6       ;

ITEM9     ;OTHER STAGING FOR ONCOLOGY (#164.3)

 +1        KILL ^ONCO(164.3)

 +2       ;

ITEM11    ;CHEMOTHERAPEUTIC DRUGS (#164.18)

 +1        KILL ^ONCO(164.18)

 +2       ;

 +3       ;KILL ID node to remove NSC NUMBER (#164.18,1) IDENTIFIER

 +4       ;Supported by IA #5378

 +5        KILL ^DD(164.18,0,"ID",1)

 +6       ;

 +7       ;Delete NSC NUMBER (#164.18,1) to remove "C" cross-reference

 +8        SET DIK="^DD(164.18,"

           SET DA=1

           SET DA(1)=164.18

           DO ^DIK

 +9        KILL DA,DIK

 +10      ;

 +11      ;Delete CHEMOTHERAPEUTIC AGENT #1-3 (#165.5,1423-1423.2) to remove

 +12      ;OUTPUT TRANSFORMs

 +13       SET DIK="^DD(165.5,"

           SET DA=1423

           SET DA(1)=165.5

           DO ^DIK

 +14       SET DIK="^DD(165.5,"

           SET DA=1423.1

           SET DA(1)=165.5

           DO ^DIK

 +15       SET DIK="^DD(165.5,"

           SET DA=1423.2

           SET DA(1)=165.5

           DO ^DIK

 +16       KILL DA,DIK

 +17      ;

ITEM13    ;ADDITIONAL SERVICE INDICATORS

 +1       ;Kill PERSIAN GULF SERVICE (#160,51) to remove extraneous 9.1 node

 +2        SET DIK="^DD(160,"

           SET DA=51

           SET DA(1)=160

           DO ^DIK

 +3        KILL DA,DIK

 +4       ;

ITEM19    ;ONCOLOGY DATA EXTRACT FORMAT (#160.16)

 +1        KILL ^ONCO(160.16)

 +2        QUIT