| GENERAL DESCRIPTION |
This is a onetime agreement via patch SD*5.3*659.
Scheduling requests read access to the following ^DD(404.52 nodes to obtain
the cross reference numbers that will be deleted by the patch post-install
routine.
^DD(404.52,.01,1, ^DD(404.52,.02,1, ^DD(404.52,.03,1,
^DD(404.52,.04,1, ^DD(404.52,.09,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.
POSITION ASSIGNMENT HISTORY FILE (#404.52)
.01 TEAM POSITION
Xref-AEVENT1
.02 EFFECTIVE DATE
Xref-AEVENT2
.03 PRACTITIONER
Xref-AEVENT3
.04 STATUS
Xref-ASTATUS
.09 FTEE EQUIVALENT
Xref-AFTEE
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
;
|