READ ACCESS TO DD(404.52    ICR (6168)

This is a onetime agreement via patch SD*5.3*603.
Scheduling requests read access to ^DD(404.52,.09,1,2,0). The post-install
routine, SD53P603, in SD*5.3*603 will delete the FTEXR trigger cross-reference
on the POSITION ASSIGNMENT HISTORY (#404.52) file, FTEE EQUIVALENT (#.09)
field. Access to the ^DD(404.52 global is required to verify the cross
reference is present and the correct number prior to deleting it.

Entry point in SD53P603: DELTRIGR        ;Delete FTEE History trigger in
404.52
;
NEW SDERR
DO BMES^XPDUTL("Delete the FTEXR Trigger in 404.52/.09")
;
IF $DATA(^DD(404.52,.09,1,2,0)),^DD(404.52,.09,1,2,0)["FTEXR" DO
. DO DELIX^DDMOD(404.52,.09,2,"","SDERR")
. IF '$DATA(SDERR) DO
. . DO BMES^XPDUTL("The FTEXR trigger was deleted.")
. ELSE  DO
. . DO BMES^XPDUTL("ERROR encountered deleting the trigger.")
ELSE  DO
. DO BMES^XPDUTL("The FTEXR trigger does not exist - previously deleted.")
QUIT
;