READ ACCESS TO DD(404.43    ICR (6696)

This is a onetime agreement via patch SD*5.3*659.
Scheduling requests read access to the following ^DD(404.43 nodes to obtain
the cross reference numbers that will be deleted by the patch post-install
routine.
^DD(404.43,.01,1,   ^DD(404.43,.02,1,   ^DD(404.43,.03,1,
^DD(404.43,.04,1,   ^DD(404.43,.05,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.
PATIENT TEAM POSITION ASSIGNMENT FILE (#404.43)
.01    PATIENT TEAM ASSIGNMENT
Xref-AEVENT1
.02    TEAM POSITION
Xref-AEVENT3
.03    POSITION ASSIGNED DATE
Xref-AEVENT4
.04    POSITION UNASSIGNED DATE
Xref-AEVENT5
.05    PC ROLE
Xref-AEVENT2

Code to delete cross references.

DELXREF(SDFILE,SDFIELD,SDXREFNM) ; Delete traditional cross reference
;Inputs: SDFILE - file number
;        SDFIELD - field number
;        SDXREFNM - xref name
;
NEW SDHIT,SDOUT,SDERR,SDXREF
DO BMES^XPDUTL("Delete the "_SDXREFNM_" xref in "_SDFILE_"/"_SDFIELD_".")
;
SET SDHIT=0
SET SDXREF=0
FOR  SET SDXREF=$O(^DD(SDFILE,SDFIELD,1,SDXREF)) QUIT:('+SDXREF)!(SDHIT)  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.")
. . . SET SDHIT=1
. . ELSE  DO
. . . DO MES^XPDUTL("ERROR encountered deleting the "_SDXREFNM_" cross
reference.")
;
DO:'SDHIT MES^XPDUTL("The "_SDXREFNM_" cross reference was not found.")
;
QUIT
;