ONCPRE45 ;Hines OIFO/GWB - PRE-INSTALL ROUTINE FOR PATCH ONC*2.11*45
;;2.11;ONCOLOGY;**45**;Mar 07, 1995
;
;Kill ONCOLOGY DATA EXTRACT FORMAT (160.16) data
K ^ONCO(160.16)
;
;Kill PRIMARY PAYER AT DIAGNOSIS (160.3) data
K ^ONCO(160.3)
;
;Delete ONCOLOGY CROSS TAB REPORTS (166) data dictionary
S DIU="^ONCO(166,",DIU(0)="D" D EN^DIU2
K DIU Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCPRE45 366 printed Nov 22, 2024@17:37:26 Page 2
ONCPRE45 ;Hines OIFO/GWB - PRE-INSTALL ROUTINE FOR PATCH ONC*2.11*45
+1 ;;2.11;ONCOLOGY;**45**;Mar 07, 1995
+2 ;
+3 ;Kill ONCOLOGY DATA EXTRACT FORMAT (160.16) data
+4 KILL ^ONCO(160.16)
+5 ;
+6 ;Kill PRIMARY PAYER AT DIAGNOSIS (160.3) data
+7 KILL ^ONCO(160.3)
+8 ;
+9 ;Delete ONCOLOGY CROSS TAB REPORTS (166) data dictionary
+10 SET DIU="^ONCO(166,"
SET DIU(0)="D"
DO EN^DIU2
+11 KILL DIU
QUIT
