XUPSPD1 ;CS/DW - NEW PERSON File Report continued ; 1 May 2004
;;8.0;KERNEL;**309**; Jul 10, 1995;
Q
;
NOTICE(XUT) ; Notify that the update is complete for the site.
;If called within a task, protect variables
I $D(ZTQUEUED) N %,DIFROM
;
N RDT
D NOW^%DTC S Y=% X ^DD("DD")
S RDT=$P(Y,"@",1)_"@"_$P($P(Y,"@",2),":",1,2)
;
N XMY,XMTEXT,XMDUZ,XUSUB,XUWHAT,XUSITE,XUPLACE,XUNUM
;
S XUSITE=$$SITE^VASITE
S XUPLACE=$P(XUSITE,"^",2)
S XUNUM=$P(XUSITE,"^",3)
;
S XMDUZ=.5
S XMY(DUZ)=""
S XMY("G.XUPS IDENTITY MANAGEMENT@DOMAIN.EXT")=""
S XMSUB="XUPS NPF CLEANUP UPDATE - "_XUPLACE_"("_XUNUM_")"
;
S XUWHAT(1)=" NEW PERSON file cleanup (XU*8*309) is complete."
S XUWHAT(2)=""
S XUWHAT(3)=" Facility Name: "_XUPLACE
S XUWHAT(4)=" Station Number: "_XUNUM
S XUWHAT(5)=""
S XUWHAT(6)=" Total linked entries: "_XUT(1)
S XUWHAT(7)=" Total NPF updates: "_XUT(2)
S XUWHAT(8)=""
S XUWHAT(9)=" Date/Time: "_RDT
;
S XMTEXT="XUWHAT("
;
D ^XMD
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUPSPD1 1027 printed Oct 16, 2024@18:12:32 Page 2
XUPSPD1 ;CS/DW - NEW PERSON File Report continued ; 1 May 2004
+1 ;;8.0;KERNEL;**309**; Jul 10, 1995;
+2 QUIT
+3 ;
NOTICE(XUT) ; Notify that the update is complete for the site.
+1 ;If called within a task, protect variables
+2 IF $DATA(ZTQUEUED)
NEW %,DIFROM
+3 ;
+4 NEW RDT
+5 DO NOW^%DTC
SET Y=%
XECUTE ^DD("DD")
+6 SET RDT=$PIECE(Y,"@",1)_"@"_$PIECE($PIECE(Y,"@",2),":",1,2)
+7 ;
+8 NEW XMY,XMTEXT,XMDUZ,XUSUB,XUWHAT,XUSITE,XUPLACE,XUNUM
+9 ;
+10 SET XUSITE=$$SITE^VASITE
+11 SET XUPLACE=$PIECE(XUSITE,"^",2)
+12 SET XUNUM=$PIECE(XUSITE,"^",3)
+13 ;
+14 SET XMDUZ=.5
+15 SET XMY(DUZ)=""
+16 SET XMY("G.XUPS IDENTITY MANAGEMENT@DOMAIN.EXT")=""
+17 SET XMSUB="XUPS NPF CLEANUP UPDATE - "_XUPLACE_"("_XUNUM_")"
+18 ;
+19 SET XUWHAT(1)=" NEW PERSON file cleanup (XU*8*309) is complete."
+20 SET XUWHAT(2)=""
+21 SET XUWHAT(3)=" Facility Name: "_XUPLACE
+22 SET XUWHAT(4)=" Station Number: "_XUNUM
+23 SET XUWHAT(5)=""
+24 SET XUWHAT(6)=" Total linked entries: "_XUT(1)
+25 SET XUWHAT(7)=" Total NPF updates: "_XUT(2)
+26 SET XUWHAT(8)=""
+27 SET XUWHAT(9)=" Date/Time: "_RDT
+28 ;
+29 SET XMTEXT="XUWHAT("
+30 ;
+31 DO ^XMD
+32 ;
+33 QUIT
