Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
304 bytes
|
Rev | Line | |
---|
[628] | 1 | DGYQPRE ;AISC/TET - PRE INIT TO PATCH DG*5.3*41
|
---|
| 2 | ;;5.3;Registration;**41**;Aug 13, 1993
|
---|
| 3 | PRE ;pre init after committment
|
---|
| 4 | ;delete field in multiple of file 2 (Patient), field 1000 (disp log enter/edit), subfile 2.101, field 3 (facility applying to)
|
---|
| 5 | S DIK="^DD(2.101,",DA=3,DA(1)=2.101 D ^DIK
|
---|
| 6 | K DA,DIK Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.