XU8P789.m

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 ---XU8P789   1677     printed  Apr 09, 2024@21:13:42                                                                                                                                                                                                     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