Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MAGIPS78

MAGIPS78.m

Go to the documentation of this file.
  1. MAGIPS78 ;Pre-init routine to queue site activity at install.
  1. ;;3.0;IMAGING;**78**;May 9, 2006
  1. ;; +---------------------------------------------------------------+
  1. ;; | Property of the US Government. |
  1. ;; | No permission to copy or redistribute this software is given. |
  1. ;; | Use of unreleased versions of this software requires the user |
  1. ;; | to execute a written test agreement with the VistA Imaging |
  1. ;; | Development Office of the Department of Veterans Affairs, |
  1. ;; | telephone (301) 734-0100. |
  1. ;; | |
  1. ;; | The Food and Drug Administration classifies this software as |
  1. ;; | a medical device. As such, it may not be changed |
  1. ;; | in any way. Modifications to this software may result in an |
  1. ;; | adulterated medical device under 21CFR820, the use of which |
  1. ;; | is considered to be a violation of US Federal Statutes. |
  1. ;; +---------------------------------------------------------------+
  1. ;;
  1. ;
  1. POST ;
  1. D REMTASK^MAGQE4
  1. D STTASK^MAGQE4
  1. D INS(XPDNM,DUZ,$$NOW^XLFDT,XPDA)
  1. D BMES^XPDUTL("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT))
  1. Q
  1. INS(XP,DUZ,DATE,IDA) ;
  1. N CT,CNT,COM,D,D0,D1,D2,DDATE,DG,DIC,DICR,DIW,MAGMSG,ST,XMID,XMY
  1. D GETENV^%ZOSV
  1. S CNT=0
  1. S CNT=CNT+1,MAGMSG(CNT)="PACKAGE INSTALL"
  1. S CNT=CNT+1,MAGMSG(CNT)="SITE: "_$$KSP^XUPARAM("WHERE")
  1. S CNT=CNT+1,MAGMSG(CNT)="PACKAGE: "_XP
  1. S CNT=CNT+1,MAGMSG(CNT)="Version: "_$$VER^XPDUTL(XP)
  1. S ST=$$GET1^DIQ(9.7,IDA,11,"I")
  1. S CNT=CNT+1,MAGMSG(CNT)="Start time: "_$$FMTE^XLFDT(ST)
  1. S CT=$$GET1^DIQ(9.7,IDA,17,"I") S:+CT'=CT CT=$$NOW^XLFDT
  1. S CNT=CNT+1,MAGMSG(CNT)="Completion time: "_$$FMTE^XLFDT(CT)
  1. S CNT=CNT+1,MAGMSG(CNT)="Run time: "_$$FMDIFF^XLFDT(CT,ST,3)
  1. S CNT=CNT+1,MAGMSG(CNT)="Environment: "_Y
  1. S COM=$$GET1^DIQ(9.7,IDA,6,"I")
  1. S CNT=CNT+1,MAGMSG(CNT)="FILE COMMENT: "_COM
  1. S CNT=CNT+1,MAGMSG(CNT)="DATE: "_DATE
  1. S CNT=CNT+1,MAGMSG(CNT)="Installed by: "_$$GET1^DIQ(9.7,IDA,9,"E")
  1. S CNT=CNT+1,MAGMSG(CNT)="Install Name: "_$$GET1^DIQ(9.7,IDA,.01,"E")
  1. S DDATE=$$GET1^DIQ(9.7,IDA,51,"I")
  1. S CNT=CNT+1,MAGMSG(CNT)="Distribution Date: "_$$FMTE^XLFDT(DDATE)
  1. S XMSUB=XP_" INSTALLATION"
  1. S XMID=$G(DUZ) S:'XMID XMID=.5
  1. S XMY(XMID)=""
  1. S XMY("G.MAG SERVER")=""
  1. S:$G(MAGDUZ) XMY(MAGDUZ)=""
  1. S XMSUB=$E(XMSUB,1,63)
  1. D SENDMSG^XMXAPI(XMID,XMSUB,"MAGMSG",.XMY,,.XMZ,)
  1. I $G(XMERR) M XMERR=^TMP("XMERR",$J) S $EC=",U13-Cannot send MailMan message," K XMERR
  1. Q