XLFNP152.m

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 ---XLFNP152   844     printed  Apr 09, 2024@21:13:20                                                                                                                                                                                                     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