| GENERAL DESCRIPTION |
This is a one-time agreement via patch XU*8.0*687 to
clean up a cross reference on two fields, MAIL CODE (#28) and SERVICE/SECTION
(#29) of the NEW PERSON File (#200). This agreement will cover the removal of
the E cross reference on Field 28. The code to remove the cross reference is:
N XUHIT,XUOUT,XUERR,XUXREF
S (XUHIT,XUXREF)=0
F S XUXREF=$O(^DD(200,28,1,XUXREF)) Q:('+XUXREF)!(XUHIT) D
. I $P($G(^DD(200,28,1,XUXREF,0)),U,2)="E" D
.. S XUHIT=1
.. D DELIX^DDMOD(200,28,XUXREF,"K","XUOUT","XUERR")
.. ;
.. ; No error, xRef deleted
.. I '$D(XUERR) D MES^XPDUTL("The E cross reference was deleted.") Q
.. ;
.. ; Error encountered, xRef not deleted.
.. D MES^XPDUTL("ERROR encountered deleting the E cross reference.")
;
D:'XUHIT MES^XPDUTL("The E cross reference was not found.")
;
Q
|
