DGYVPRE.m

DGYVPRE ;ALB/LD - Patch DG*5.3*64 Pre-Init ; 8/24/95

 ;;5.3;Registration;**64**;Aug 13, 1993

 ;

 ;

 ;-- Delete existing Treating Specialty file (#42.4) and restore

 ;-- (file with data contained in init).

 ;-- Delete Census Date multiple in Facility Treating Specialty (#45.7)

 ;-- file.  This multiple was added as part of MAS V5.0 but was never

 ;-- used or populated (Census Date multiple now resides in Med Ctr 

 ;-- Division file).

 ;

EN ;-- Entry point

 W !!,">>> Deleting Treating Specialty (#42.4) file with data."

 W !,"    It will be restored."

 S DIU="^DIC(42.4,",DIU(0)="D" D EN^DIU2 K DIU

 W !!,">>> Deleting Census Date multiple from Facility Treating Specialty (#45.7) file.",!?4,"This multiple resides in the Medical Center Division (#40.8) file and was",!?4,"never used in this file."

 S DIU=45.702,DIU(0)="SD" D EN^DIU2 K DIU

ENQ Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGYVPRE   868     printed  Apr 09, 2024@21:44:28                                                                                                                                                                                                      Page 2

DGYVPRE   ;ALB/LD - Patch DG*5.3*64 Pre-Init ; 8/24/95

 +1       ;;5.3;Registration;**64**;Aug 13, 1993

 +2       ;

 +3       ;

 +4       ;-- Delete existing Treating Specialty file (#42.4) and restore

 +5       ;-- (file with data contained in init).

 +6       ;-- Delete Census Date multiple in Facility Treating Specialty (#45.7)

 +7       ;-- file.  This multiple was added as part of MAS V5.0 but was never

 +8       ;-- used or populated (Census Date multiple now resides in Med Ctr 

 +9       ;-- Division file).

 +10      ;

EN        ;-- Entry point

 +1        WRITE !!,">>> Deleting Treating Specialty (#42.4) file with data."

 +2        WRITE !,"    It will be restored."

 +3        SET DIU="^DIC(42.4,"

           SET DIU(0)="D"

           DO EN^DIU2

           KILL DIU

 +4        WRITE !!,">>> Deleting Census Date multiple from Facility Treating Specialty (#45.7) file.",!?4,"This multiple resides in the Medical Center Division (#40.8) file and was",!?4,"never used in this file."

 +5        SET DIU=45.702

           SET DIU(0)="SD"

           DO EN^DIU2

           KILL DIU

ENQ        QUIT