| 1 | XPDIST ;SFISC/RSD - site tracking; 06/01/2006
|
|---|
| 2 | ;;8.0;KERNEL;**66,108,185,233,350,393**;Jul 10, 1995;Build 12
|
|---|
| 3 | ;Returns ""=failed, XMZ=sent
|
|---|
| 4 | ;D0=ien in file 9.7, XPY=national site tracking^address(optional)
|
|---|
| 5 | EN(D0,XPY) ;send message
|
|---|
| 6 | N %,DIFROM,XPD,XPD0,XPD1,XPD2,XPDV,XPDTEXT,XPZ,XMDUZ,XMSUB,XMTEXT,XMY,XMZ,X,X1,Z,Y,XPD6
|
|---|
| 7 | ;Get data needed
|
|---|
| 8 | I '$D(^XPD(9.7,$G(D0),0)) D BMES^XPDUTL(" INSTALL file entry missing") Q ""
|
|---|
| 9 | ;p350 -add node 6 for the Test# and Seq#. -REM
|
|---|
| 10 | S XPD0=^XPD(9.7,D0,0),XPD1=$G(^(1)),XPD2=$G(^(2)),XPD6=$G(^(6))
|
|---|
| 11 | I '$P(XPD0,U,2) D BMES^XPDUTL(" No link to PACKAGE file") Q ""
|
|---|
| 12 | S XPD=$P($G(^DIC(9.4,+$P(XPD0,U,2),0)),U),XPDV=$$VER^XPDUTL($P(XPD0,U))
|
|---|
| 13 | I XPD="" D BMES^XPDUTL(" PACKAGE file entry missing") Q ""
|
|---|
| 14 | ;XPZ(1)=start, XPZ(2)=completion date/time, XPZ(3)=run time
|
|---|
| 15 | S XPZ(1)=$P(XPD1,U),XPZ(2)=$P(XPD1,U,3),XPZ(3)=$$FMDIFF^XLFDT(XPZ(2),XPZ(1),3),XPZ(1)=$$FMTE^XLFDT(XPZ(1)),XPZ(2)=$$FMTE^XLFDT(XPZ(2))
|
|---|
| 16 | D LOCAL
|
|---|
| 17 | D REMEDY ;p350 -REM
|
|---|
| 18 | Q $$FORUM()
|
|---|
| 19 | ;
|
|---|
| 20 | ;
|
|---|
| 21 | FORUM() ;send to Server on FORUM
|
|---|
| 22 | K XMY,XPDTEXT ;393
|
|---|
| 23 | Q:$G(XPY)="" ""
|
|---|
| 24 | S:XPY XMY("S.A5CSTS@FORUM.VA.GOV")="" ;,XMY("ESSRESOURCE@MED.VA.GOV")=""
|
|---|
| 25 | S:$L($P(XPY,U,2)) XMY($P(XPY,U,2))=""
|
|---|
| 26 | K ^TMP($J)
|
|---|
| 27 | ;Quit if not VA production primary domain
|
|---|
| 28 | I $G(^XMB("NETNAME"))'[".VA.GOV" D BMES^XPDUTL(" Not a VA primary domain") Q ""
|
|---|
| 29 | X ^%ZOSF("UCI") S %=^%ZOSF("PROD")
|
|---|
| 30 | S:%'["," Y=$P(Y,",")
|
|---|
| 31 | I Y'=% D BMES^XPDUTL(" Not a production UCI") Q ""
|
|---|
| 32 | ;Message for server
|
|---|
| 33 | S XPDTEXT(1,0)="PACKAGE INSTALL"
|
|---|
| 34 | S XPDTEXT(2,0)="SITE: "_$G(^XMB("NETNAME"))
|
|---|
| 35 | S XPDTEXT(3,0)="PACKAGE: "_XPD
|
|---|
| 36 | S XPDTEXT(4,0)="VERSION: "_XPDV
|
|---|
| 37 | S XPDTEXT(5,0)="Start time: "_XPZ(1)
|
|---|
| 38 | S XPDTEXT(6,0)="Completion time: "_XPZ(2)
|
|---|
| 39 | S XPDTEXT(7,0)="Run time: "_XPZ(3)
|
|---|
| 40 | S XPDTEXT(8,0)="DATE: "_DT
|
|---|
| 41 | S XPDTEXT(9,0)="Installed by: "_$P($G(^VA(200,+$P(XPD0,U,11),0)),U)
|
|---|
| 42 | S XPDTEXT(10,0)="Install Name: "_$P(XPD0,U)
|
|---|
| 43 | S XPDTEXT(11,0)="Distribution Date: "_$P(XPD1,U,4)
|
|---|
| 44 | S XPDTEXT(12,0)=XPD2
|
|---|
| 45 | S XMDUZ=$S($P(XPD0,U,11):+$P(XPD0,U,11),1:.5),XMTEXT="XPDTEXT(",XMSUB=$P(XPD0,U)_" INSTALLATION"
|
|---|
| 46 | D ^XMD
|
|---|
| 47 | Q "#"_$G(XMZ)
|
|---|
| 48 | ;
|
|---|
| 49 | LOCAL ;Send a message to local mail group
|
|---|
| 50 | K ^TMP($J),XMY,XPDTEXT,XMTEXT
|
|---|
| 51 | S X=$$MAILGRP^XPDUTL(XPD) Q:X=""
|
|---|
| 52 | S XMY(X)="" D GETENV^%ZOSV
|
|---|
| 53 | ;Message for users
|
|---|
| 54 | S XPDTEXT(1,0)="PACKAGE INSTALL"
|
|---|
| 55 | S XPDTEXT(2,0)="SITE: "_$G(^XMB("NETNAME"))
|
|---|
| 56 | S XPDTEXT(3,0)="PACKAGE: "_XPD
|
|---|
| 57 | S XPDTEXT(4,0)="VERSION: "_XPDV
|
|---|
| 58 | S XPDTEXT(5,0)="Start time: "_XPZ(1)
|
|---|
| 59 | S XPDTEXT(6,0)="Completion time: "_XPZ(2)
|
|---|
| 60 | S XPDTEXT(7,0)="Environment: "_Y
|
|---|
| 61 | S XPDTEXT(8,0)="Installed by: "_$P($G(^VA(200,+$P(XPD0,U,11),0)),U)
|
|---|
| 62 | S XPDTEXT(9,0)="Install Name: "_$P(XPD0,U)
|
|---|
| 63 | S XPDTEXT(10,0)="Distribution Date: "_$$FMTE^XLFDT($P(XPD1,U,4))
|
|---|
| 64 | S XMDUZ=$S($P(XPD0,U,11):+$P(XPD0,U,11),1:.5),XMTEXT="XPDTEXT(",XMSUB=$P(XPD0,U)_" INSTALLATION"
|
|---|
| 65 | D ^XMD
|
|---|
| 66 | Q
|
|---|
| 67 | ;
|
|---|
| 68 | REMEDY ;Send to Remedy Server - ESSRESOURCE@MED.VA.GOV *p350 -REM
|
|---|
| 69 | K ^TMP($J),XMY,XPDTEXT,XMTEXT ;393
|
|---|
| 70 | Q:$G(XPY)=""
|
|---|
| 71 | S:XPY XMY("ESSRESOURCE@MED.VA.GOV")=""
|
|---|
| 72 | S:$L($P(XPY,U,2)) XMY($P(XPY,U,2))=""
|
|---|
| 73 | ;Quit if not VA production primary domain
|
|---|
| 74 | I $G(^XMB("NETNAME"))'[".VA.GOV" D BMES^XPDUTL(" Not a VA primary domain") Q
|
|---|
| 75 | X ^%ZOSF("UCI") S %=^%ZOSF("PROD")
|
|---|
| 76 | S:%'["," Y=$P(Y,",")
|
|---|
| 77 | I Y'=% D BMES^XPDUTL(" Not a production UCI") Q
|
|---|
| 78 | ;Message for server (all in one string)
|
|---|
| 79 | ;XMTEXT=Type(1),Domain(2-65),Pkg(66-95),Version(96-125),
|
|---|
| 80 | ; StartTime(126-147),CompleteTime(148-169),RunTime(170-177),
|
|---|
| 81 | ; Date(178-199),InstalledBy(200-229),InstallName(230-259),
|
|---|
| 82 | ; DistributionDate(260-281),Seq#(282-286),
|
|---|
| 83 | ; PatchTestVersion(287-317)
|
|---|
| 84 | ;
|
|---|
| 85 | S X1=1_$G(^XMB("NETNAME")) ;Type is always "1"(1=patch,0=pkg).
|
|---|
| 86 | S $E(X1,66,95)=XPD,$E(X1,96,125)=XPDV,$E(X1,126,147)=XPZ(1),$E(X1,148,169)=XPZ(2),$E(X1,170,177)=XPZ(3),$E(X1,178,199)=DT
|
|---|
| 87 | S $E(X1,200,229)=$P($G(^VA(200,+$P(XPD0,U,11),0)),U),$E(X1,230,259)=$P(XPD0,U),$E(X1,260,281)=$P(XPD1,U,4),$E(X1,282,286)=$P(XPD6,U,2),$E(X1,287,317)=$P(XPD6,U)
|
|---|
| 88 | S XPDTEXT(1,0)=X1
|
|---|
| 89 | S XMDUZ=$S($P(XPD0,U,11):+$P(XPD0,U,11),1:.5),XMTEXT="XPDTEXT(",XMSUB="KIDS-"_$P(XPD0,U)_" INSTALLATION"
|
|---|
| 90 | D ^XMD
|
|---|
| 91 | Q
|
|---|
