| 1 | XLFNP152 ;SFISC/MKO-POST INSTALL ROUTINE FOR PATCH XU*8*152 ;9:11 AM 26 Apr 2000
|
|---|
| 2 | ;;8.0;KERNEL;**152**;Jul 10, 1995
|
|---|
| 3 | ;This post-install routine for patch XU*8*152 loops through the
|
|---|
| 4 | ;entries in the New Person file, and if the SIGNATURE BLOCK
|
|---|
| 5 | ;PRINTED NAME field (#20.2) is null, updates it from the
|
|---|
| 6 | ;data in the corresponding entry in the Name Components file.
|
|---|
| 7 | N XUDA
|
|---|
| 8 | S XUDA=0
|
|---|
| 9 | F S XUDA=$O(^VA(200,XUDA)) Q:'XUDA D:$P($G(^(XUDA,20)),U,2)=""
|
|---|
| 10 | . N XUCOMP,XUFDA,XUMSG,XUNC,XUNC1,DIERR
|
|---|
| 11 | . S XUNC=$O(^VA(20,"BB",200,.01,XUDA_",",0)) Q:'XUNC
|
|---|
| 12 | . S XUNC1=$G(^VA(20,XUNC,1)) Q:XUNC1?."^"
|
|---|
| 13 | . S XUCOMP("FAMILY")=$P(XUNC1,U)
|
|---|
| 14 | . S XUCOMP("GIVEN")=$P(XUNC1,U,2)
|
|---|
| 15 | . S XUCOMP("MIDDLE")=$P(XUNC1,U,3)
|
|---|
| 16 | . S XUCOMP("SUFFIX")=$P(XUNC1,U,5)
|
|---|
| 17 | . S XUFDA(200,XUDA_",",20.2)=$$NAMEFMT^XLFNAME(.XUCOMP,"G")
|
|---|
| 18 | . D FILE^DIE("","XUFDA","XUMSG")
|
|---|
| 19 | Q
|
|---|
