Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
850 bytes
|
Line | |
---|
1 | DGYVPRE ;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 | ;
|
---|
12 | EN ;-- 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
|
---|
18 | ENQ Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.