NVSPOST ;JLS/OIOFO NVSMENU KIDS POST-INSTALL 1/21/06 NOON
;;1.8
;
POST ; -- send email on package installation --
Q:$G(DUZ)=""
D MAIL
K DIFROM,X
Q
;
MAIL ; -- send bulletin on install --
N DIFROM,COUNT,TEXT,XMSUB,XMDUZ,XMTEXT,XMY
S COUNT=0
S XMSUB="NVSMENU Version "_$P($T(VERSION),";;",2)_" installed."
S XMDUZ="NVS KIDS INSTALL"
S XMY("661@DANVILLE.DOMAIN.EXT")=""
;S XMY(DUZ)=""
S XMTEXT="TEXT("
;
S X=$P($T(VERSION),";;",2)
D LINE("Version "_X_" has been installed at "_$G(^XMB("NAME")))
D LINE(" ")
D LINE("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT()))
D ^XMD
;
BMES D BMES^XPDUTL("Install message sent to HSITES support group.")
Q
;
LINE(DATA) ; -- set text --
S COUNT=COUNT+1
S TEXT(COUNT)=DATA
Q
;
VERSION ;;1.8
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNVSPOST 801 printed Nov 22, 2024@17:27:42 Page 2
NVSPOST ;JLS/OIOFO NVSMENU KIDS POST-INSTALL 1/21/06 NOON
+1 ;;1.8
+2 ;
POST ; -- send email on package installation --
+1 if $GET(DUZ)=""
QUIT
+2 DO MAIL
+3 KILL DIFROM,X
+4 QUIT
+5 ;
MAIL ; -- send bulletin on install --
+1 NEW DIFROM,COUNT,TEXT,XMSUB,XMDUZ,XMTEXT,XMY
+2 SET COUNT=0
+3 SET XMSUB="NVSMENU Version "_$PIECE($TEXT(VERSION),";;",2)_" installed."
+4 SET XMDUZ="NVS KIDS INSTALL"
+5 SET XMY("661@DANVILLE.DOMAIN.EXT")=""
+6 ;S XMY(DUZ)=""
+7 SET XMTEXT="TEXT("
+8 ;
+9 SET X=$PIECE($TEXT(VERSION),";;",2)
+10 DO LINE("Version "_X_" has been installed at "_$GET(^XMB("NAME")))
+11 DO LINE(" ")
+12 DO LINE("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT()))
+13 DO ^XMD
+14 ;
BMES DO BMES^XPDUTL("Install message sent to HSITES support group.")
+1 QUIT
+2 ;
LINE(DATA) ; -- set text --
+1 SET COUNT=COUNT+1
+2 SET TEXT(COUNT)=DATA
+3 QUIT
+4 ;
VERSION ;;1.8
