ONCPRE44.m

ONCPRE44 ;Hines OIFO/GWB - PRE-INSTALL ROUTINE FOR PATCH ONC*2.11*44

 ;;2.11;ONCOLOGY;**44**;Mar 07, 1995

 ;

 ;Kill ONCOLOGY DATA EXTRACT FORMAT (160.16) data

 K ^ONCO(160.16)

 ;

 ;Kill SITE-GROUP FOR ONCOLOGY (164.2) data

 K ^ONCO(164.2)

 ;

 ;Execute KILL logic for RADIATION THERAPY TO CNS DATE (165.5,52)

 S DIK="^ONCO(165.5,"

 S DIK(1)=52

 D ENALL2^DIK

 ;

 ;Delete GRADE/DIFF/CELL TYPE (165.5,24) to remove SCREEN

 ;It will be re-established by the install

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCPRE44   523     printed  Apr 23, 2025@18:41:53                                                                                                                                                                                                     Page 2

ONCPRE44  ;Hines OIFO/GWB - PRE-INSTALL ROUTINE FOR PATCH ONC*2.11*44

 +1       ;;2.11;ONCOLOGY;**44**;Mar 07, 1995

 +2       ;

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

 +4        KILL ^ONCO(160.16)

 +5       ;

 +6       ;Kill SITE-GROUP FOR ONCOLOGY (164.2) data

 +7        KILL ^ONCO(164.2)

 +8       ;

 +9       ;Execute KILL logic for RADIATION THERAPY TO CNS DATE (165.5,52)

 +10       SET DIK="^ONCO(165.5,"

 +11       SET DIK(1)=52

 +12       DO ENALL2^DIK

 +13      ;

 +14      ;Delete GRADE/DIFF/CELL TYPE (165.5,24) to remove SCREEN

 +15      ;It will be re-established by the install

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

           SET DA=24

           SET DA(1)=165.5

           DO ^DIK