MAGIPS77 ;WOIFO/MJK; P77 (Reports) Pre and Post Init ; 06 Jun 2006 7:50 AM
;;3.0;IMAGING;**77**;07-December-2006;;Build 982
;; Per VHA Directive 2004-038, this routine should not be modified.
;; +---------------------------------------------------------------+
;; | 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. |
;; +---------------------------------------------------------------+
;;
Q
POST ;
;
; Create a Date cross reference from the 'Date/Time Image Saved' field #7
;
D INDEX,MAIL
D REMTASK^MAGQE4
D STTASK^MAGQE4
Q
INDEX ; Index the Image Saved Date/Time in the 2005 and 2005.1 file
;
NEW DATE,DATETIME,I,IMGFILE,IMGIEN
;
F IMGFILE=2005,2005.1 D
. ;
. K ^MAG(IMGFILE,"AD")
. ;
. U IO(0) W !!,IMGFILE
. ;
. S IMGIEN=0
. F I=1:1 S IMGIEN=$O(^MAG(IMGFILE,IMGIEN)) Q:'IMGIEN D
. . I I#1000=0 U IO(0) W "."
. . S DATETIME=$P($G(^MAG(IMGFILE,IMGIEN,2)),"^")
. . Q:DATETIME=""
. . S DATE=$P(DATETIME,".")
. . Q:DATE=""
. . S ^MAG(IMGFILE,"AD",DATE,IMGIEN)=""
. . Q
. Q
Q
MAIL ; Send a mail message about the Patch
;
NEW %,CT,CNT,D,D0,D1,D2,DDATE,DG,DIC,DICR,DIW,MAGDUZ,MAGMSG,ST,X,XMERR,XMID,XMSUB,XMY,XMZ,Y
;
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: "_XPDNM
S CNT=CNT+1,MAGMSG(CNT)="Version: "_$$VER^XPDUTL(XPDNM)
S ST=$$GET1^DIQ(9.7,XPDA,11,"I")
S CNT=CNT+1,MAGMSG(CNT)="Start time: "_$$FMTE^XLFDT(ST)
S CT=$$GET1^DIQ(9.7,XPDA,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 CNT=CNT+1,MAGMSG(CNT)="FILE COMMENT: "_$$GET1^DIQ(9.7,XPDA,6,"I")
S CNT=CNT+1,MAGMSG(CNT)="DATE: "_$$NOW^XLFDT()
S CNT=CNT+1,MAGMSG(CNT)="Installed by: "_$$GET1^DIQ(9.7,XPDA,9,"E")
S CNT=CNT+1,MAGMSG(CNT)="Install Name: "_$$GET1^DIQ(9.7,XPDA,.01,"E")
S DDATE=$$GET1^DIQ(9.7,XPDA,51,"I")
S CNT=CNT+1,MAGMSG(CNT)="Distribution Date: "_$$FMTE^XLFDT(DDATE)
S:$G(CVT)'="" CNT=CNT+1,MAGMSG(CNT)="Conversion time: "_CVT
S XMSUB=XPDNM_" 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,"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGIPS77 3204 printed Nov 22, 2024@17:16:31 Page 2
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
+2 ;; Per VHA Directive 2004-038, this routine should not be modified.
+3 ;; +---------------------------------------------------------------+
+4 ;; | Property of the US Government. |
+5 ;; | No permission to copy or redistribute this software is given. |
+6 ;; | Use of unreleased versions of this software requires the user |
+7 ;; | to execute a written test agreement with the VistA Imaging |
+8 ;; | Development Office of the Department of Veterans Affairs, |
+9 ;; | telephone (301) 734-0100. |
+10 ;; | The Food and Drug Administration classifies this software as |
+11 ;; | a medical device. As such, it may not be changed in any way. |
+12 ;; | Modifications to this software may result in an adulterated |
+13 ;; | medical device under 21CFR820, the use of which is considered |
+14 ;; | to be a violation of US Federal Statutes. |
+15 ;; +---------------------------------------------------------------+
+16 ;;
+17 QUIT
POST ;
+1 ;
+2 ; Create a Date cross reference from the 'Date/Time Image Saved' field #7
+3 ;
+4 DO INDEX
DO MAIL
+5 DO REMTASK^MAGQE4
+6 DO STTASK^MAGQE4
+7 QUIT
INDEX ; Index the Image Saved Date/Time in the 2005 and 2005.1 file
+1 ;
+2 NEW DATE,DATETIME,I,IMGFILE,IMGIEN
+3 ;
+4 FOR IMGFILE=2005,2005.1
Begin DoDot:1
+5 ;
+6 KILL ^MAG(IMGFILE,"AD")
+7 ;
+8 USE IO(0)
WRITE !!,IMGFILE
+9 ;
+10 SET IMGIEN=0
+11 FOR I=1:1
SET IMGIEN=$ORDER(^MAG(IMGFILE,IMGIEN))
if 'IMGIEN
QUIT
Begin DoDot:2
+12 IF I#1000=0
USE IO(0)
WRITE "."
+13 SET DATETIME=$PIECE($GET(^MAG(IMGFILE,IMGIEN,2)),"^")
+14 if DATETIME=""
QUIT
+15 SET DATE=$PIECE(DATETIME,".")
+16 if DATE=""
QUIT
+17 SET ^MAG(IMGFILE,"AD",DATE,IMGIEN)=""
+18 QUIT
End DoDot:2
+19 QUIT
End DoDot:1
+20 QUIT
MAIL ; Send a mail message about the Patch
+1 ;
+2 NEW %,CT,CNT,D,D0,D1,D2,DDATE,DG,DIC,DICR,DIW,MAGDUZ,MAGMSG,ST,X,XMERR,XMID,XMSUB,XMY,XMZ,Y
+3 ;
+4 DO GETENV^%ZOSV
+5 SET CNT=0
+6 SET CNT=CNT+1
SET MAGMSG(CNT)="PACKAGE INSTALL"
+7 SET CNT=CNT+1
SET MAGMSG(CNT)="SITE: "_$$KSP^XUPARAM("WHERE")
+8 SET CNT=CNT+1
SET MAGMSG(CNT)="PACKAGE: "_XPDNM
+9 SET CNT=CNT+1
SET MAGMSG(CNT)="Version: "_$$VER^XPDUTL(XPDNM)
+10 SET ST=$$GET1^DIQ(9.7,XPDA,11,"I")
+11 SET CNT=CNT+1
SET MAGMSG(CNT)="Start time: "_$$FMTE^XLFDT(ST)
+12 SET CT=$$GET1^DIQ(9.7,XPDA,17,"I")
if +CT'=CT
SET CT=$$NOW^XLFDT()
+13 SET CNT=CNT+1
SET MAGMSG(CNT)="Completion time: "_$$FMTE^XLFDT(CT)
+14 SET CNT=CNT+1
SET MAGMSG(CNT)="Run time: "_$$FMDIFF^XLFDT(CT,ST,3)
+15 SET CNT=CNT+1
SET MAGMSG(CNT)="Environment: "_Y
+16 SET CNT=CNT+1
SET MAGMSG(CNT)="FILE COMMENT: "_$$GET1^DIQ(9.7,XPDA,6,"I")
+17 SET CNT=CNT+1
SET MAGMSG(CNT)="DATE: "_$$NOW^XLFDT()
+18 SET CNT=CNT+1
SET MAGMSG(CNT)="Installed by: "_$$GET1^DIQ(9.7,XPDA,9,"E")
+19 SET CNT=CNT+1
SET MAGMSG(CNT)="Install Name: "_$$GET1^DIQ(9.7,XPDA,.01,"E")
+20 SET DDATE=$$GET1^DIQ(9.7,XPDA,51,"I")
+21 SET CNT=CNT+1
SET MAGMSG(CNT)="Distribution Date: "_$$FMTE^XLFDT(DDATE)
+22 if $GET(CVT)'=""
SET CNT=CNT+1
SET MAGMSG(CNT)="Conversion time: "_CVT
+23 SET XMSUB=XPDNM_" INSTALLATION"
+24 SET XMID=$GET(DUZ)
if 'XMID
SET XMID=.5
+25 SET XMY(XMID)=""
+26 SET XMY("G.MAG SERVER")=""
+27 if $GET(MAGDUZ)
SET XMY(MAGDUZ)=""
+28 SET XMSUB=$EXTRACT(XMSUB,1,63)
+29 DO SENDMSG^XMXAPI(XMID,XMSUB,"MAGMSG",.XMY,,.XMZ,)
+30 IF $GET(XMERR)
MERGE XMERR=^TMP("XMERR",$JOB)
SET $ECODE=",U13-Cannot send MailMan message,"
+31 QUIT
