| [613] | 1 | XUPSPD1 ;CS/DW - NEW PERSON File Report continued ; 1 May 2004
|
|---|
| 2 | ;;8.0;KERNEL;**309**; Jul 10, 1995;
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | NOTICE(XUT) ; Notify that the update is complete for the site.
|
|---|
| 6 | ;If called within a task, protect variables
|
|---|
| 7 | I $D(ZTQUEUED) N %,DIFROM
|
|---|
| 8 | ;
|
|---|
| 9 | N RDT
|
|---|
| 10 | D NOW^%DTC S Y=% X ^DD("DD")
|
|---|
| 11 | S RDT=$P(Y,"@",1)_"@"_$P($P(Y,"@",2),":",1,2)
|
|---|
| 12 | ;
|
|---|
| 13 | N XMY,XMTEXT,XMDUZ,XUSUB,XUWHAT,XUSITE,XUPLACE,XUNUM
|
|---|
| 14 | ;
|
|---|
| 15 | S XUSITE=$$SITE^VASITE
|
|---|
| 16 | S XUPLACE=$P(XUSITE,"^",2)
|
|---|
| 17 | S XUNUM=$P(XUSITE,"^",3)
|
|---|
| 18 | ;
|
|---|
| 19 | S XMDUZ=.5
|
|---|
| 20 | S XMY(DUZ)=""
|
|---|
| 21 | S XMY("G.XUPS IDENTITY MANAGEMENT@FORUM.VA.GOV")=""
|
|---|
| 22 | S XMSUB="XUPS NPF CLEANUP UPDATE - "_XUPLACE_"("_XUNUM_")"
|
|---|
| 23 | ;
|
|---|
| 24 | S XUWHAT(1)=" NEW PERSON file cleanup (XU*8*309) is complete."
|
|---|
| 25 | S XUWHAT(2)=""
|
|---|
| 26 | S XUWHAT(3)=" Facility Name: "_XUPLACE
|
|---|
| 27 | S XUWHAT(4)=" Station Number: "_XUNUM
|
|---|
| 28 | S XUWHAT(5)=""
|
|---|
| 29 | S XUWHAT(6)=" Total linked entries: "_XUT(1)
|
|---|
| 30 | S XUWHAT(7)=" Total NPF updates: "_XUT(2)
|
|---|
| 31 | S XUWHAT(8)=""
|
|---|
| 32 | S XUWHAT(9)=" Date/Time: "_RDT
|
|---|
| 33 | ;
|
|---|
| 34 | S XMTEXT="XUWHAT("
|
|---|
| 35 | ;
|
|---|
| 36 | D ^XMD
|
|---|
| 37 | ;
|
|---|
| 38 | Q
|
|---|
