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

MAGIPS96.m

Go to the documentation of this file.
  1. MAGIPS96 ;Post init routine to queue site activity at install ; 16 Feb 2004 2:41 PM
  1. ;;3.0;IMAGING;**96**;April 29, 2008;Build 9
  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. ;; | |
  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. ; create and send the site installation message
  1. D VERCHKON ; Turn on Version Checking
  1. D REMTASK^MAGQE4
  1. D STTASK^MAGQE4
  1. D INS^MAGQBUT4(XPDNM,DUZ,$$NOW^XLFDT,XPDA)
  1. Q
  1. VERCHKON ; Turn on Version Checking at the Sites.
  1. ; We aren't forcing it to stay on, sites can turn it back off.
  1. N MAGIEN,MAGSITE,VERCHK,MSG
  1. S MAGIEN=0
  1. F S MAGIEN=$O(^MAG(2006.1,MAGIEN)) Q:'MAGIEN D
  1. . S MSG="is already ON, no action taken"
  1. . S MAGSITE=$P($G(^MAG(2006.1,MAGIEN,0)),"^",1)
  1. . S VERCHK=$P($G(^MAG(2006.1,MAGIEN,"KEYS")),"^",5)
  1. . I 'VERCHK S $P(^MAG(2006.1,MAGIEN,"KEYS"),"^",5)=1 S MSG="has been turned ON"
  1. . D MES^XPDUTL("Patch 96 is turning Version Checking ON...")
  1. . D MES^XPDUTL("Version Checking "_MSG_" for Site: "_MAGSITE)
  1. Q