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

MAGIPS77.m

Go to the documentation of this file. 
  1. MAGIPS77 ;WOIFO/MJK; P77 (Reports) Pre and Post Init ; 06 Jun 2006  7:50 AM
  1.  ;;3.0;IMAGING;**77**;07-December-2006;;Build 982
  1.  ;; Per VHA Directive 2004-038, this routine should not be modified.
  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.  ;; | The Food and Drug Administration classifies this software as  |
  1.  ;; | a medical device.  As such, it may not be changed in any way. |
  1.  ;; | Modifications to this software may result in an adulterated   |
  1.  ;; | medical device under 21CFR820, the use of which is considered |
  1.  ;; | to be a violation of US Federal Statutes.                     |
  1.  ;; +---------------------------------------------------------------+
  1.  ;;
  1.  Q
  1. POST ;
  1.  ;
  1.  ;  Create a Date cross reference from the 'Date/Time Image Saved' field #7
  1.  ;
  1.  D INDEX,MAIL
  1.  D REMTASK^MAGQE4
  1.  D STTASK^MAGQE4
  1.  Q
  1. INDEX ;  Index the Image Saved Date/Time in the 2005 and 2005.1 file
  1.  ;
  1.  NEW DATE,DATETIME,I,IMGFILE,IMGIEN
  1.  ;
  1.  F IMGFILE=2005,2005.1 D
  1.  . ;
  1.  . K ^MAG(IMGFILE,"AD")
  1.  . ;
  1.  . U IO(0) W !!,IMGFILE
  1.  . ;
  1.  . S IMGIEN=0
  1.  . F I=1:1 S IMGIEN=$O(^MAG(IMGFILE,IMGIEN)) Q:'IMGIEN  D
  1.  . . I I#1000=0 U IO(0) W "."
  1.  . . S DATETIME=$P($G(^MAG(IMGFILE,IMGIEN,2)),"^")
  1.  . . Q:DATETIME=""
  1.  . . S DATE=$P(DATETIME,".")
  1.  . . Q:DATE=""
  1.  . . S ^MAG(IMGFILE,"AD",DATE,IMGIEN)=""
  1.  . . Q
  1.  . Q
  1.  Q
  1. MAIL ;  Send a mail message about the Patch
  1.  ;
  1.  NEW %,CT,CNT,D,D0,D1,D2,DDATE,DG,DIC,DICR,DIW,MAGDUZ,MAGMSG,ST,X,XMERR,XMID,XMSUB,XMY,XMZ,Y
  1.  ;
  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: "_XPDNM
  1.  S CNT=CNT+1,MAGMSG(CNT)="Version: "_$$VER^XPDUTL(XPDNM)
  1.  S ST=$$GET1^DIQ(9.7,XPDA,11,"I")
  1.  S CNT=CNT+1,MAGMSG(CNT)="Start time: "_$$FMTE^XLFDT(ST)
  1.  S CT=$$GET1^DIQ(9.7,XPDA,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 CNT=CNT+1,MAGMSG(CNT)="FILE COMMENT: "_$$GET1^DIQ(9.7,XPDA,6,"I")
  1.  S CNT=CNT+1,MAGMSG(CNT)="DATE: "_$$NOW^XLFDT()
  1.  S CNT=CNT+1,MAGMSG(CNT)="Installed by: "_$$GET1^DIQ(9.7,XPDA,9,"E")
  1.  S CNT=CNT+1,MAGMSG(CNT)="Install Name: "_$$GET1^DIQ(9.7,XPDA,.01,"E")
  1.  S DDATE=$$GET1^DIQ(9.7,XPDA,51,"I")
  1.  S CNT=CNT+1,MAGMSG(CNT)="Distribution Date: "_$$FMTE^XLFDT(DDATE)
  1.  S:$G(CVT)'="" CNT=CNT+1,MAGMSG(CNT)="Conversion time: "_CVT
  1.  S XMSUB=XPDNM_" 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,"
  1.  Q