XLFNP152 ;SFISC/MKO-POST INSTALL ROUTINE FOR PATCH XU*8*152 ;9:11 AM 26 Apr 2000
;;8.0;KERNEL;**152**;Jul 10, 1995
;This post-install routine for patch XU*8*152 loops through the
;entries in the New Person file, and if the SIGNATURE BLOCK
;PRINTED NAME field (#20.2) is null, updates it from the
;data in the corresponding entry in the Name Components file.
N XUDA
S XUDA=0
F S XUDA=$O(^VA(200,XUDA)) Q:'XUDA D:$P($G(^(XUDA,20)),U,2)=""
. N XUCOMP,XUFDA,XUMSG,XUNC,XUNC1,DIERR
. S XUNC=$O(^VA(20,"BB",200,.01,XUDA_",",0)) Q:'XUNC
. S XUNC1=$G(^VA(20,XUNC,1)) Q:XUNC1?."^"
. S XUCOMP("FAMILY")=$P(XUNC1,U)
. S XUCOMP("GIVEN")=$P(XUNC1,U,2)
. S XUCOMP("MIDDLE")=$P(XUNC1,U,3)
. S XUCOMP("SUFFIX")=$P(XUNC1,U,5)
. S XUFDA(200,XUDA_",",20.2)=$$NAMEFMT^XLFNAME(.XUCOMP,"G")
. D FILE^DIE("","XUFDA","XUMSG")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXLFNP152 844 printed Dec 13, 2024@02:03:02 Page 2
XLFNP152 ;SFISC/MKO-POST INSTALL ROUTINE FOR PATCH XU*8*152 ;9:11 AM 26 Apr 2000
+1 ;;8.0;KERNEL;**152**;Jul 10, 1995
+2 ;This post-install routine for patch XU*8*152 loops through the
+3 ;entries in the New Person file, and if the SIGNATURE BLOCK
+4 ;PRINTED NAME field (#20.2) is null, updates it from the
+5 ;data in the corresponding entry in the Name Components file.
+6 NEW XUDA
+7 SET XUDA=0
+8 FOR
SET XUDA=$ORDER(^VA(200,XUDA))
if 'XUDA
QUIT
if $PIECE($GET(^(XUDA,20)),U,2)=""
Begin DoDot:1
+9 NEW XUCOMP,XUFDA,XUMSG,XUNC,XUNC1,DIERR
+10 SET XUNC=$ORDER(^VA(20,"BB",200,.01,XUDA_",",0))
if 'XUNC
QUIT
+11 SET XUNC1=$GET(^VA(20,XUNC,1))
if XUNC1?."^"
QUIT
+12 SET XUCOMP("FAMILY")=$PIECE(XUNC1,U)
+13 SET XUCOMP("GIVEN")=$PIECE(XUNC1,U,2)
+14 SET XUCOMP("MIDDLE")=$PIECE(XUNC1,U,3)
+15 SET XUCOMP("SUFFIX")=$PIECE(XUNC1,U,5)
+16 SET XUFDA(200,XUDA_",",20.2)=$$NAMEFMT^XLFNAME(.XUCOMP,"G")
+17 DO FILE^DIE("","XUFDA","XUMSG")
End DoDot:1
+18 QUIT
