ONCPRE45.m

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 ---ONCPRE45   366     printed  Apr 09, 2024@21:30:27                                                                                                                                                                                                     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