DVBAUDXPD1 ;ALB/CP - KIDS Utilities;JAN 23, 2012 ; 9/20/13 2:58pm
;;2.7;AMIE;**256**;;Build 19
; Per VHA Directive 6402 this routine should not be modified
; $$GET1^DIQ ; IA #2056
; ^XMD ; IA #10070
; $$HTE^XLFDT ; IA #10103
; MES^XPDUTL ; IA #10141
;
Q
;
INSTALLD(XMY) ;Send E-Mail Notification of KIDS installation
; - assumes only called from a KIDS post-install.
; XMY : Addressee array to receive the install message
;
; External variable maintained by the KIDS build:
; XPDNM : the name of the build KIDS is now installing.
;
N DIFROM
N DVBSITE S DVBSITE=$$GET1^DIQ(8989.3,1,.01,"E")
N XMSUB S XMSUB=XPDNM_" installed at "_DVBSITE
N XMDUZ S XMDUZ=DUZ
S XMY(XMDUZ)=""
N DVBI S DVBI=0
N XMTEXT S XMTEXT="DVBTXT(",DVBI=DVBI+1
N DVBTXT
S DVBI=DVBI+1,DVBTXT(DVBI)=" "
S DVBI=DVBI+1,DVBTXT(DVBI)=XPDNM_" installed at "_$G(^XMB("NAME"))
S DVBI=DVBI+1,DVBTXT(DVBI)=" "
S DVBI=DVBI+1,DVBTXT(DVBI)="Installation complete: "_$$HTE^XLFDT($H)
S DVBI=DVBI+1,DVBTXT(DVBI)="Site: "_DVBSITE
S DVBI=DVBI+1,DVBTXT(DVBI)="By: "_$$GET1^DIQ(200,DUZ,.01,"E")
S DVBI=DVBI+1,DVBTXT(DVBI)="Phone: "_$$GET1^DIQ(200,DUZ,.132,"E") ; office
;
; Send E-Mail message
D ^XMD
;
; Send feedback to installation device and INSTALL file entry
I $D(XMZ) D
. D MES^XPDUTL("AMIE Installation notification message #"_XMZ_" sent.")
. K XMZ
E D
. D MES^XPDUTL("AMIE Installation notification failed: "_XMMG)
. K XMMG
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBAUDXPD1 1528 printed Sep 17, 2026@20:27:39 Page 2
DVBAUDXPD1 ;ALB/CP - KIDS Utilities;JAN 23, 2012 ; 9/20/13 2:58pm
+1 ;;2.7;AMIE;**256**;;Build 19
+2 ; Per VHA Directive 6402 this routine should not be modified
+3 ; $$GET1^DIQ ; IA #2056
+4 ; ^XMD ; IA #10070
+5 ; $$HTE^XLFDT ; IA #10103
+6 ; MES^XPDUTL ; IA #10141
+7 ;
+8 QUIT
+9 ;
INSTALLD(XMY) ;Send E-Mail Notification of KIDS installation
+1 ; - assumes only called from a KIDS post-install.
+2 ; XMY : Addressee array to receive the install message
+3 ;
+4 ; External variable maintained by the KIDS build:
+5 ; XPDNM : the name of the build KIDS is now installing.
+6 ;
+7 NEW DIFROM
+8 NEW DVBSITE
SET DVBSITE=$$GET1^DIQ(8989.3,1,.01,"E")
+9 NEW XMSUB
SET XMSUB=XPDNM_" installed at "_DVBSITE
+10 NEW XMDUZ
SET XMDUZ=DUZ
+11 SET XMY(XMDUZ)=""
+12 NEW DVBI
SET DVBI=0
+13 NEW XMTEXT
SET XMTEXT="DVBTXT("
SET DVBI=DVBI+1
+14 NEW DVBTXT
+15 SET DVBI=DVBI+1
SET DVBTXT(DVBI)=" "
+16 SET DVBI=DVBI+1
SET DVBTXT(DVBI)=XPDNM_" installed at "_$GET(^XMB("NAME"))
+17 SET DVBI=DVBI+1
SET DVBTXT(DVBI)=" "
+18 SET DVBI=DVBI+1
SET DVBTXT(DVBI)="Installation complete: "_$$HTE^XLFDT($HOROLOG)
+19 SET DVBI=DVBI+1
SET DVBTXT(DVBI)="Site: "_DVBSITE
+20 SET DVBI=DVBI+1
SET DVBTXT(DVBI)="By: "_$$GET1^DIQ(200,DUZ,.01,"E")
+21 ; office
SET DVBI=DVBI+1
SET DVBTXT(DVBI)="Phone: "_$$GET1^DIQ(200,DUZ,.132,"E")
+22 ;
+23 ; Send E-Mail message
+24 DO ^XMD
+25 ;
+26 ; Send feedback to installation device and INSTALL file entry
+27 IF $DATA(XMZ)
Begin DoDot:1
+28 DO MES^XPDUTL("AMIE Installation notification message #"_XMZ_" sent.")
+29 KILL XMZ
End DoDot:1
+30 IF '$TEST
Begin DoDot:1
+31 DO MES^XPDUTL("AMIE Installation notification failed: "_XMMG)
+32 KILL XMMG
End DoDot:1
+33 QUIT
