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