source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGYVPRE.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 850 bytes
Line 
1DGYVPRE ;ALB/LD - Patch DG*5.3*64 Pre-Init ; 8/24/95
2 ;;5.3;Registration;**64**;Aug 13, 1993
3 ;
4 ;
5 ;-- Delete existing Treating Specialty file (#42.4) and restore
6 ;-- (file with data contained in init).
7 ;-- Delete Census Date multiple in Facility Treating Specialty (#45.7)
8 ;-- file. This multiple was added as part of MAS V5.0 but was never
9 ;-- used or populated (Census Date multiple now resides in Med Ctr
10 ;-- Division file).
11 ;
12EN ;-- Entry point
13 W !!,">>> Deleting Treating Specialty (#42.4) file with data."
14 W !," It will be restored."
15 S DIU="^DIC(42.4,",DIU(0)="D" D EN^DIU2 K DIU
16 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."
17 S DIU=45.702,DIU(0)="SD" D EN^DIU2 K DIU
18ENQ Q
Note: See TracBrowser for help on using the repository browser.