|
Last change
on this file since 1800 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
