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 ---[H[J[2J[HONCPRE44 523 printed Nov 22, 2024@17:37:25 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
