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