READ ACCESS TO DD(404.53    ICR (6722)

This is a onetime agreement via patch SD*5.3*659.
Scheduling requests read access to the following ^DD(404.53 nodes to obtain
the cross reference numbers that will be deleted by the patch post-install
routine.
^DD(404.53,.01,1, ^DD(404.53,.02,1, ^DD(404.53,.04,1,
^DD(404.53,.06,1, The patch post-install routine will delete the following
cross references. These cross references are associated with HL7 messaging
that PCMM no longer performs.

PRECEPTOR ASSIGNMENT HISTORY FILE (#404.53)
.01    TEAM POSITION
Xref-AEVENT1
.02    EFFECTIVE DATE
Xref-AEVENT2
.04    STATUS
Xref-AEVENT3
.06    PRECEPTOR TEAM POSITION
Xref-AEVENT4

Code to delete cross references.  DELXREF(SDFILE,SDFIELD,SDXREFNM) ; Delete
traditional cross reference
;Inputs: SDFILE - file number
; SDFIELD - field number
; SDXREFNM - xref name
;
NEW SDOUT,SDERR,SDXREF
DO BMES^XPDUTL("Delete the "_SDXREFNM_" xref in "_SDFILE_"/"_SDFIELD_".")
;
SET SDXREF=0
FOR  SET SDXREF=$O(^DD(SDFILE,SDFIELD,1,SDXREF)) QUIT:'+SDXREF  DO
. IF $GET(^DD(SDFILE,SDFIELD,1,SDXREF,0))[SDXREFNM DO
. . ;W !,"SDXREF: ",SDXREF," Node: ",^DD(SDFILE,SDFIELD,1,SDXREF,0),!
. . DO DELIX^DDMOD(SDFILE,SDFIELD,SDXREF,"","SDOUT","SDERR")
. . IF '$DATA(SDERR) DO
. . . DO MES^XPDUTL("The "_SDXREFNM_" cross reference was deleted.")
. . ELSE  DO
. . . DO MES^XPDUTL("ERROR encountered deleting the "_SDXREFNM_" cross
reference.")
QUIT
;