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 ---[H[J[2J[HDGYVPRE 868 printed Dec 13, 2024@03:00:44 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
