source: WorldVistAEHR/trunk/r/IMAGING-MAG-ZMAG/MAGIPS96.m@ 1604

Last change on this file since 1604 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1MAGIPS96 ;Post init routine to queue site activity at install ; 16 Feb 2004 2:41 PM
2 ;;3.0;IMAGING;**96**;April 29, 2008;Build 9
3 ;; Per VHA Directive 2004-038, this routine should not be modified.
4 ;; +---------------------------------------------------------------+
5 ;; | Property of the US Government. |
6 ;; | No permission to copy or redistribute this software is given. |
7 ;; | Use of unreleased versions of this software requires the user |
8 ;; | to execute a written test agreement with the VistA Imaging |
9 ;; | Development Office of the Department of Veterans Affairs, |
10 ;; | telephone (301) 734-0100. |
11 ;; | |
12 ;; | The Food and Drug Administration classifies this software as |
13 ;; | a medical device. As such, it may not be changed in any way. |
14 ;; | Modifications to this software may result in an adulterated |
15 ;; | medical device under 21CFR820, the use of which is considered |
16 ;; | to be a violation of US Federal Statutes. |
17 ;; +---------------------------------------------------------------+
18 ;;
19 Q
20POST ;
21 ; create and send the site installation message
22 D VERCHKON ; Turn on Version Checking
23 D REMTASK^MAGQE4
24 D STTASK^MAGQE4
25 D INS^MAGQBUT4(XPDNM,DUZ,$$NOW^XLFDT,XPDA)
26 Q
27VERCHKON ; Turn on Version Checking at the Sites.
28 ; We aren't forcing it to stay on, sites can turn it back off.
29 N MAGIEN,MAGSITE,VERCHK,MSG
30 S MAGIEN=0
31 F S MAGIEN=$O(^MAG(2006.1,MAGIEN)) Q:'MAGIEN D
32 . S MSG="is already ON, no action taken"
33 . S MAGSITE=$P($G(^MAG(2006.1,MAGIEN,0)),"^",1)
34 . S VERCHK=$P($G(^MAG(2006.1,MAGIEN,"KEYS")),"^",5)
35 . I 'VERCHK S $P(^MAG(2006.1,MAGIEN,"KEYS"),"^",5)=1 S MSG="has been turned ON"
36 . D MES^XPDUTL("Patch 96 is turning Version Checking ON...")
37 . D MES^XPDUTL("Version Checking "_MSG_" for Site: "_MAGSITE)
38 Q
Note: See TracBrowser for help on using the repository browser.