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

MAGIPS72.m

Go to the documentation of this file.
  1. MAGIPS72 ;Post init routine to queue site activity at install. ; 08/07/2007 09:15
  1. ;;3.0;IMAGING;**72**;10-November-2008;;Build 1324
  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. ;
  1. ;
  1. POST ;
  1. ; 1. Populate new field in Imaging Site Parameters
  1. ; last. Send confirmation message
  1. ;
  1. ; Populate new field
  1. D
  1. . N D0,DFT
  1. . S DFT="Abdomen|350|40~Bone|2000|500~Disk|900|250~Head|80|40~Lung|1500|-700~Mediastinum|500|40~~~"
  1. . S D0=0 F S D0=$O(^MAG(2006.1,D0)) Q:'D0 D
  1. . . S X=$G(^MAG(2006.1,D0,"CT2")) Q:X'="" ; Don't overwrite existing data
  1. . . S ^MAG(2006.1,D0,"CT2")=DFT
  1. . . Q
  1. . Q
  1. ;
  1. ; Send confirmation message
  1. ;
  1. D ; Confirmation message
  1. . N CT,CNT,D,D0,D1,D2,DDATE,DG,DIC,DICR,DIW,MAGMSG,ST,XMID,XMY
  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
  1. Q
  1. ;