Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: EEOIPRE

EEOIPRE.m

Go to the documentation of this file.

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  Apr 09, 2024@20:56:24                                                                                                                                                                                                      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