source:
FOIAVistA/trunk/r/EEO_COMPLAINT_TRACKING-EEO/EEOIPRE.m@
1800
| Last change on this file since 1800 was 628, checked in by , 15 years ago | |
|---|---|
| File size: 199 bytes | |
| Line | |
|---|---|
| 1 | EEOIPRE ;HISC/JWR-Deletes the old trigger x-ref on field 48 of file 785 ;Apr 20, 1995 |
| 2 | ;;2.0;EEO Complaint Tracking;;Apr 27, 1995 |
| 3 | S DIK="^DD(785,48,1," |
| 4 | S DA=1,DA(1)=48,DA(2)=785 |
| 5 | D ^DIK K DIK,DA Q |
Note:
See TracBrowser
for help on using the repository browser.
