- MAGIPS78 ;Pre-init routine to queue site activity at install.
- ;;3.0;IMAGING;**78**;May 9, 2006
- ;; +---------------------------------------------------------------+
- ;; | Property of the US Government. |
- ;; | No permission to copy or redistribute this software is given. |
- ;; | Use of unreleased versions of this software requires the user |
- ;; | to execute a written test agreement with the VistA Imaging |
- ;; | Development Office of the Department of Veterans Affairs, |
- ;; | telephone (301) 734-0100. |
- ;; | |
- ;; | The Food and Drug Administration classifies this software as |
- ;; | a medical device. As such, it may not be changed |
- ;; | in any way. Modifications to this software may result in an |
- ;; | adulterated medical device under 21CFR820, the use of which |
- ;; | is considered to be a violation of US Federal Statutes. |
- ;; +---------------------------------------------------------------+
- ;;
- ;
- POST ;
- D REMTASK^MAGQE4
- D STTASK^MAGQE4
- D INS(XPDNM,DUZ,$$NOW^XLFDT,XPDA)
- D BMES^XPDUTL("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT))
- Q
- INS(XP,DUZ,DATE,IDA) ;
- N CT,CNT,COM,D,D0,D1,D2,DDATE,DG,DIC,DICR,DIW,MAGMSG,ST,XMID,XMY
- D GETENV^%ZOSV
- S CNT=0
- S CNT=CNT+1,MAGMSG(CNT)="PACKAGE INSTALL"
- S CNT=CNT+1,MAGMSG(CNT)="SITE: "_$$KSP^XUPARAM("WHERE")
- S CNT=CNT+1,MAGMSG(CNT)="PACKAGE: "_XP
- S CNT=CNT+1,MAGMSG(CNT)="Version: "_$$VER^XPDUTL(XP)
- S ST=$$GET1^DIQ(9.7,IDA,11,"I")
- S CNT=CNT+1,MAGMSG(CNT)="Start time: "_$$FMTE^XLFDT(ST)
- S CT=$$GET1^DIQ(9.7,IDA,17,"I") S:+CT'=CT CT=$$NOW^XLFDT
- S CNT=CNT+1,MAGMSG(CNT)="Completion time: "_$$FMTE^XLFDT(CT)
- S CNT=CNT+1,MAGMSG(CNT)="Run time: "_$$FMDIFF^XLFDT(CT,ST,3)
- S CNT=CNT+1,MAGMSG(CNT)="Environment: "_Y
- S COM=$$GET1^DIQ(9.7,IDA,6,"I")
- S CNT=CNT+1,MAGMSG(CNT)="FILE COMMENT: "_COM
- S CNT=CNT+1,MAGMSG(CNT)="DATE: "_DATE
- S CNT=CNT+1,MAGMSG(CNT)="Installed by: "_$$GET1^DIQ(9.7,IDA,9,"E")
- S CNT=CNT+1,MAGMSG(CNT)="Install Name: "_$$GET1^DIQ(9.7,IDA,.01,"E")
- S DDATE=$$GET1^DIQ(9.7,IDA,51,"I")
- S CNT=CNT+1,MAGMSG(CNT)="Distribution Date: "_$$FMTE^XLFDT(DDATE)
- S XMSUB=XP_" INSTALLATION"
- S XMID=$G(DUZ) S:'XMID XMID=.5
- S XMY(XMID)=""
- S XMY("G.MAG SERVER")=""
- S:$G(MAGDUZ) XMY(MAGDUZ)=""
- S XMSUB=$E(XMSUB,1,63)
- D SENDMSG^XMXAPI(XMID,XMSUB,"MAGMSG",.XMY,,.XMZ,)
- I $G(XMERR) M XMERR=^TMP("XMERR",$J) S $EC=",U13-Cannot send MailMan message," K XMERR
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGIPS78 2559 printed Jan 18, 2025@03:07:38 Page 2
- MAGIPS78 ;Pre-init routine to queue site activity at install.
- +1 ;;3.0;IMAGING;**78**;May 9, 2006
- +2 ;; +---------------------------------------------------------------+
- +3 ;; | Property of the US Government. |
- +4 ;; | No permission to copy or redistribute this software is given. |
- +5 ;; | Use of unreleased versions of this software requires the user |
- +6 ;; | to execute a written test agreement with the VistA Imaging |
- +7 ;; | Development Office of the Department of Veterans Affairs, |
- +8 ;; | telephone (301) 734-0100. |
- +9 ;; | |
- +10 ;; | The Food and Drug Administration classifies this software as |
- +11 ;; | a medical device. As such, it may not be changed |
- +12 ;; | in any way. Modifications to this software may result in an |
- +13 ;; | adulterated medical device under 21CFR820, the use of which |
- +14 ;; | is considered to be a violation of US Federal Statutes. |
- +15 ;; +---------------------------------------------------------------+
- +16 ;;
- +17 ;
- POST ;
- +1 DO REMTASK^MAGQE4
- +2 DO STTASK^MAGQE4
- +3 DO INS(XPDNM,DUZ,$$NOW^XLFDT,XPDA)
- +4 DO BMES^XPDUTL("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT))
- +5 QUIT
- INS(XP,DUZ,DATE,IDA) ;
- +1 NEW CT,CNT,COM,D,D0,D1,D2,DDATE,DG,DIC,DICR,DIW,MAGMSG,ST,XMID,XMY
- +2 DO GETENV^%ZOSV
- +3 SET CNT=0
- +4 SET CNT=CNT+1
- SET MAGMSG(CNT)="PACKAGE INSTALL"
- +5 SET CNT=CNT+1
- SET MAGMSG(CNT)="SITE: "_$$KSP^XUPARAM("WHERE")
- +6 SET CNT=CNT+1
- SET MAGMSG(CNT)="PACKAGE: "_XP
- +7 SET CNT=CNT+1
- SET MAGMSG(CNT)="Version: "_$$VER^XPDUTL(XP)
- +8 SET ST=$$GET1^DIQ(9.7,IDA,11,"I")
- +9 SET CNT=CNT+1
- SET MAGMSG(CNT)="Start time: "_$$FMTE^XLFDT(ST)
- +10 SET CT=$$GET1^DIQ(9.7,IDA,17,"I")
- if +CT'=CT
- SET CT=$$NOW^XLFDT
- +11 SET CNT=CNT+1
- SET MAGMSG(CNT)="Completion time: "_$$FMTE^XLFDT(CT)
- +12 SET CNT=CNT+1
- SET MAGMSG(CNT)="Run time: "_$$FMDIFF^XLFDT(CT,ST,3)
- +13 SET CNT=CNT+1
- SET MAGMSG(CNT)="Environment: "_Y
- +14 SET COM=$$GET1^DIQ(9.7,IDA,6,"I")
- +15 SET CNT=CNT+1
- SET MAGMSG(CNT)="FILE COMMENT: "_COM
- +16 SET CNT=CNT+1
- SET MAGMSG(CNT)="DATE: "_DATE
- +17 SET CNT=CNT+1
- SET MAGMSG(CNT)="Installed by: "_$$GET1^DIQ(9.7,IDA,9,"E")
- +18 SET CNT=CNT+1
- SET MAGMSG(CNT)="Install Name: "_$$GET1^DIQ(9.7,IDA,.01,"E")
- +19 SET DDATE=$$GET1^DIQ(9.7,IDA,51,"I")
- +20 SET CNT=CNT+1
- SET MAGMSG(CNT)="Distribution Date: "_$$FMTE^XLFDT(DDATE)
- +21 SET XMSUB=XP_" INSTALLATION"
- +22 SET XMID=$GET(DUZ)
- if 'XMID
- SET XMID=.5
- +23 SET XMY(XMID)=""
- +24 SET XMY("G.MAG SERVER")=""
- +25 if $GET(MAGDUZ)
- SET XMY(MAGDUZ)=""
- +26 SET XMSUB=$EXTRACT(XMSUB,1,63)
- +27 DO SENDMSG^XMXAPI(XMID,XMSUB,"MAGMSG",.XMY,,.XMZ,)
- +28 IF $GET(XMERR)
- MERGE XMERR=^TMP("XMERR",$JOB)
- SET $ECODE=",U13-Cannot send MailMan message,"
- KILL XMERR
- +29 QUIT