XUPSPD1.m

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 ---XUPSPD1   1027     printed  Apr 09, 2024@21:08:25                                                                                                                                                                                                     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