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

MAGIPS46.m

Go to the documentation of this file. 
  1. MAGIPS46 ;Post init routine to queue site activity at install. ; 09 May 2006  12:43 PM
  1.  ;;3.0;IMAGING;**46**;16-February-2007;;Build 1023
  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. PRE ;
  1.  D  ; save filters to guard against deletion during installation
  1.  . N FMDTNOW ; -- current date/time in Fileman format
  1.  . N FMDTPRG ; -- date & time to purge (1 day from now)
  1.  . N XTMP0 ; ---- header node of temporary save location - for purge
  1.  . ;
  1.  . U IO(0) W !,"Saving image filters..."
  1.  . L +^XTMP("MAGIPS46"):1E9 K ^XTMP("MAGIPS46")
  1.  . S FMDTNOW=$$NOW^XLFDT
  1.  . S FMDTPRG=$$FMADD^XLFDT(FMDTNOW,1,0,0,0)
  1.  . S ^XTMP("MAGIPS46",0)=FMDTPRG_"^"_FMDTNOW_"^MAG*3.0*46 FILTER SAVE"
  1.  . M ^XTMP("MAGIPS46",1)=^MAG(2006.57)
  1.  . L -^XTMP("MAGIPS46")
  1.  . U IO(0) W "saved.",!
  1.  . Q
  1.  Q
  1. POST ;
  1.  ;
  1.  D  ; restore filters
  1.  . U IO(0) W !,"Restoring filters..."
  1.  . L +^MAG(2006.57):1E9
  1.  . M ^MAG(2006.57)=^XTMP("MAGIPS46",1)
  1.  . L -^MAG(2006.57)
  1.  . U IO(0) W "restored."
  1.  . Q
  1.  ;
  1.  D DEFAULTS
  1.  D XREF
  1.  ;
  1.  D REMTASK^MAGQE4
  1.  D STTASK^MAGQE4
  1.  ;
  1.  D ADDRPC("MAG DICOM CON UNREADLIST LOCK","MAG WINDOWS")
  1.  D ADDRPC("MAG DICOM CON UNREADLIST GET","MAG WINDOWS")
  1.  D ADDRPC("MAG DICOM CON UNREAD ACQ SITES","MAG WINDOWS")
  1.  D ADDRPC("MAG DICOM CON GET TELE READER","MAG WINDOWS")
  1.  D ADDRPC("MAG DICOM CON SET TELE READER","MAG WINDOWS")
  1.  ;
  1.  D ADDRPC("MAG DICOM CON UNREADLIST LOCK","MAG DICOM GATEWAY FULL")
  1.  D ADDRPC("MAG DICOM CON UNREADLIST GET","MAG DICOM GATEWAY FULL")
  1.  D ADDRPC("MAG DICOM CON UNREAD ACQ SITES","MAG DICOM GATEWAY FULL")
  1.  D ADDRPC("MAG DICOM CON GET TELE READER","MAG DICOM GATEWAY FULL")
  1.  D ADDRPC("MAG DICOM CON SET TELE READER","MAG DICOM GATEWAY FULL")
  1.  ;
  1.  D ADDRPC("MAG DICOM CON UNREADLIST LOCK","MAG DICOM GATEWAY VIEW")
  1.  D ADDRPC("MAG DICOM CON UNREADLIST GET","MAG DICOM GATEWAY VIEW")
  1.  D ADDRPC("MAG DICOM CON UNREAD ACQ SITES","MAG DICOM GATEWAY VIEW")
  1.  D ADDRPC("MAG DICOM CON GET TELE READER","MAG DICOM GATEWAY VIEW")
  1.  D ADDRPC("MAG DICOM CON SET TELE READER","MAG DICOM GATEWAY VIEW")
  1.  ;
  1.  D  ;  Confirmation message
  1.  . ;
  1.  . NEW %,CT,CNT,D,D0,D1,D2,DDATE,DG,DIC,DICR,DIW,MAGMSG,ST,X,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
  1.  Q
  1. ADDRPC(RPCNAME,OPTNAME) ;
  1.  ;
  1.  NEW DA,DIC,I,X,Y
  1.  ;
  1.  S DIC="^DIC(19,",DIC(0)="",X=OPTNAME D ^DIC
  1.  I Y<0 D  Q
  1.  . W !,"Cannot add """_RPCNAME_""" to """_OPTNAME_"""."
  1.  . W !,"Cannot find """_OPTNAME_"""."
  1.  . Q
  1.  S DA(1)=+Y
  1.  S DIC=DIC_DA(1)_",""RPC"","
  1.  S DIC(0)="L" ; LAYGO should be allowed here
  1.  S X=RPCNAME
  1.  D ^DIC
  1.  I Y<0 D  Q
  1.  . W !,"Cannot add """_RPCNAME_""" to """_OPTNAME_"""."
  1.  . W !,"Cannot find """_RPCNAME_"""."
  1.  . Q
  1.  Q
  1. DEFAULTS ;  Set default for location of TeleReader Timeout.
  1.  ;
  1.  NEW %,%H,D,D0,DA,DI,DIC,DIE,DQ,DR,X
  1.  ;
  1.  S X=0
  1.  F  S X=$O(^MAG(2006.1,X)) Q:'+X  S DA=X,DIE="^MAG(2006.1,",DR="131///180" D ^DIE
  1.  Q
  1. XREF ;  Kill then Reset ALL xrefs for ALL entries.
  1.  ;
  1.  NEW DA,DIC,DIK,X
  1.  ;
  1.  Q:'$O(^MAG(2006.5849,0))
  1.  ;
  1.  S DIK="^MAG(2006.5849," D IXALL2^DIK  ;  KILL
  1.  S DIK="^MAG(2006.5849," D IXALL^DIK   ;  SET
  1.  Q