ONCPRE47.m

ONCPRE47 ;Hines OIFO/GWB - PRE-INSTALL ROUTINE FOR PATCH ONC*2.11*47

 ;;2.11;ONCOLOGY;**47**;Mar 07, 1995;Build 19

 ;

 ;Kill ONCOLOGY DATA EXTRACT FORMAT (160.16) data

 K ^ONCO(160.16)

 ;

ITEM2 ;Change ZIP CODE (5.11) field COUNTY (5.11,2) pointer value from 3162

 ;to 37 for ZIP CODE entry 92183 (IEN = 86016)

 I '$D(^VIC(5.1,37,0)) G MISC6

 I $P($G(^VIC(5.11,86016,0)),U,3)=3162 S $P(^VIC(5.11,86016,0),U,3)=37

 ;

 ;Convert COUNTY AT DX (165.5,10) pointer values of 3162 to 37

 F IEN=0:0 S IEN=$O(^ONCO(165.5,IEN)) Q:IEN'>0  D

 .S CNTDX=$P($G(^ONCO(165.5,IEN,1)),U,3)

 .I CNTDX=3162 S $P(^ONCO(165.5,IEN,1),U,3)=37

 ;

 ;Delete COUNTY (5.1) entry 3162 (SAN DIEGO)

 S DIK="^VIC(5.1,",DA=3162 D ^DIK

 ;

MISC6 ;Delete CASE CLASS (165.5,.043)

 ;Delete MAJOR ICDO-SITES (165.5,.016)

 ;These COMPUTED fields do not work correctly and are not needed.

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

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

 ;

MISC7 ;Delete STAGE GROUPING-AJCC (165.5,38.5)

 ;The data dictionary for STAGE GROUPING-AJCC contains can unnecessary

 ;9.1 computed expression node.  STAGE GROUPING-AJCC will be re-created

 ;by the install.

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

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCPRE47   1231     printed  Apr 09, 2024@21:26:46                                                                                                                                                                                                    Page 2

ONCPRE47  ;Hines OIFO/GWB - PRE-INSTALL ROUTINE FOR PATCH ONC*2.11*47

 +1       ;;2.11;ONCOLOGY;**47**;Mar 07, 1995;Build 19

 +2       ;

 +3       ;Kill ONCOLOGY DATA EXTRACT FORMAT (160.16) data

 +4        KILL ^ONCO(160.16)

 +5       ;

ITEM2     ;Change ZIP CODE (5.11) field COUNTY (5.11,2) pointer value from 3162

 +1       ;to 37 for ZIP CODE entry 92183 (IEN = 86016)

 +2        IF '$DATA(^VIC(5.1,37,0))

               GOTO MISC6

 +3        IF $PIECE($GET(^VIC(5.11,86016,0)),U,3)=3162

               SET $PIECE(^VIC(5.11,86016,0),U,3)=37

 +4       ;

 +5       ;Convert COUNTY AT DX (165.5,10) pointer values of 3162 to 37

 +6        FOR IEN=0:0

               SET IEN=$ORDER(^ONCO(165.5,IEN))

               if IEN'>0

                   QUIT 

               Begin DoDot:1

 +7                SET CNTDX=$PIECE($GET(^ONCO(165.5,IEN,1)),U,3)

 +8                IF CNTDX=3162

                       SET $PIECE(^ONCO(165.5,IEN,1),U,3)=37

               End DoDot:1

 +9       ;

 +10      ;Delete COUNTY (5.1) entry 3162 (SAN DIEGO)

 +11       SET DIK="^VIC(5.1,"

           SET DA=3162

           DO ^DIK

 +12      ;

MISC6     ;Delete CASE CLASS (165.5,.043)

 +1       ;Delete MAJOR ICDO-SITES (165.5,.016)

 +2       ;These COMPUTED fields do not work correctly and are not needed.

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

           SET DA=.043

           SET DA(1)=165.5

           DO ^DIK

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

           SET DA=.016

           SET DA(1)=165.5

           DO ^DIK

 +5       ;

MISC7     ;Delete STAGE GROUPING-AJCC (165.5,38.5)

 +1       ;The data dictionary for STAGE GROUPING-AJCC contains can unnecessary

 +2       ;9.1 computed expression node.  STAGE GROUPING-AJCC will be re-created

 +3       ;by the install.

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

           SET DA=38.5

           SET DA(1)=165.5

           DO ^DIK

 +5        QUIT