- EEOIPRE ;HISC/JWR-Deletes the old trigger x-ref on field 48 of file 785 ;Apr 20, 1995
- ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
- S DIK="^DD(785,48,1,"
- S DA=1,DA(1)=48,DA(2)=785
- D ^DIK K DIK,DA Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEEOIPRE 204 printed Feb 18, 2025@23:17:39 Page 2
- EEOIPRE ;HISC/JWR-Deletes the old trigger x-ref on field 48 of file 785 ;Apr 20, 1995
- +1 ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
- +2 SET DIK="^DD(785,48,1,"
- +3 SET DA=1
- SET DA(1)=48
- SET DA(2)=785
- +4 DO ^DIK
- KILL DIK,DA
- QUIT