XU8P789 ;VISS/BT - Post-Install for XU*8*789 ; Oct 17, 2023@04:58:13
;;8.0;KERNEL;**789**;Jul 10, 1995;Build 15
;Per VA Directive 6402, this routine should not be modified.
Q
;
POST ; Build new cross-reference in the COMPONENT file (#20)
N XUXR,XURES,XUOUT
S XUXR("FILE")=20
S XUXR("NAME")="ASIG"
S XUXR("TYPE")="MU"
S XUXR("USE")="A"
S XUXR("EXECUTION")="R"
s XUXR("ACTIVITY")="IR"
S XUXR("SHORT DESCR")="Update the SIGNATURE BLOCK PRINTED NAME in the New Person file, if necessary."
S XUXR("DESCR",1)="If this entry in the Name Components file corresponds to an "
S XUXR("DESCR",2)="entry in the New Person file, this MUMPS cross-reference "
S XUXR("DESCR",3)="updates the SIGNATURE BLOCK PRINTED NAME field (#20.2) in "
S XUXR("DESCR",4)="the New Person file when the Family Name, Given Name, "
S XUXR("DESCR",5)="Middle Name, and/or Suffix are changed."
S XUXR("SET")="I '$G(XUNOSIGT),X(1)=200,X(2)=.01 N COMP,DIERR,FDA,MSG,SIG,XUNOSIGT"
S XUXR("SET")=XUXR("SET")_" S XUNOSIGT=1,COMP(""FAMILY"")=X(4),COMP(""GIVEN"")=X(5),COMP(""MIDDLE"")=X(6),"
S XUXR("SET")=XUXR("SET")_"COMP(""SUFFIX"")=X(7),FDA(200,X(3),20.2)=$$NAMEFMT^XLFNAME(.COMP,""G"") D FILE^DIE("""",""FDA"",""MSG"")"
S XUXR("KILL")="Q"
S XUXR("VAL",1)=.01
S XUXR("VAL",1,"COLLATION")="F"
S XUXR("VAL",2)=.02
S XUXR("VAL",2,"COLLATION")="F"
S XUXR("VAL",3)=.03
S XUXR("VAL",3,"COLLATION")="F"
S XUXR("VAL",4)=1
S XUXR("VAL",4,"COLLATION")="F"
S XUXR("VAL",5)=2
S XUXR("VAL",5,"COLLATION")="F"
S XUXR("VAL",6)=3
S XUXR("VAL",6,"COLLATION")="F"
S XUXR("VAL",7)=5
S XUXR("VAL",7,"COLLATION")="F"
D CREIXN^DDMOD(.XUXR,"k",.XURES,"XUOUT")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P789 1677 printed Dec 13, 2024@02:08:49 Page 2
XU8P789 ;VISS/BT - Post-Install for XU*8*789 ; Oct 17, 2023@04:58:13
+1 ;;8.0;KERNEL;**789**;Jul 10, 1995;Build 15
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
POST ; Build new cross-reference in the COMPONENT file (#20)
+1 NEW XUXR,XURES,XUOUT
+2 SET XUXR("FILE")=20
+3 SET XUXR("NAME")="ASIG"
+4 SET XUXR("TYPE")="MU"
+5 SET XUXR("USE")="A"
+6 SET XUXR("EXECUTION")="R"
+7 SET XUXR("ACTIVITY")="IR"
+8 SET XUXR("SHORT DESCR")="Update the SIGNATURE BLOCK PRINTED NAME in the New Person file, if necessary."
+9 SET XUXR("DESCR",1)="If this entry in the Name Components file corresponds to an "
+10 SET XUXR("DESCR",2)="entry in the New Person file, this MUMPS cross-reference "
+11 SET XUXR("DESCR",3)="updates the SIGNATURE BLOCK PRINTED NAME field (#20.2) in "
+12 SET XUXR("DESCR",4)="the New Person file when the Family Name, Given Name, "
+13 SET XUXR("DESCR",5)="Middle Name, and/or Suffix are changed."
+14 SET XUXR("SET")="I '$G(XUNOSIGT),X(1)=200,X(2)=.01 N COMP,DIERR,FDA,MSG,SIG,XUNOSIGT"
+15 SET XUXR("SET")=XUXR("SET")_" S XUNOSIGT=1,COMP(""FAMILY"")=X(4),COMP(""GIVEN"")=X(5),COMP(""MIDDLE"")=X(6),"
+16 SET XUXR("SET")=XUXR("SET")_"COMP(""SUFFIX"")=X(7),FDA(200,X(3),20.2)=$$NAMEFMT^XLFNAME(.COMP,""G"") D FILE^DIE("""",""FDA"",""MSG"")"
+17 SET XUXR("KILL")="Q"
+18 SET XUXR("VAL",1)=.01
+19 SET XUXR("VAL",1,"COLLATION")="F"
+20 SET XUXR("VAL",2)=.02
+21 SET XUXR("VAL",2,"COLLATION")="F"
+22 SET XUXR("VAL",3)=.03
+23 SET XUXR("VAL",3,"COLLATION")="F"
+24 SET XUXR("VAL",4)=1
+25 SET XUXR("VAL",4,"COLLATION")="F"
+26 SET XUXR("VAL",5)=2
+27 SET XUXR("VAL",5,"COLLATION")="F"
+28 SET XUXR("VAL",6)=3
+29 SET XUXR("VAL",6,"COLLATION")="F"
+30 SET XUXR("VAL",7)=5
+31 SET XUXR("VAL",7,"COLLATION")="F"
+32 DO CREIXN^DDMOD(.XUXR,"k",.XURES,"XUOUT")
+33 QUIT
