source: FOIAVistA/trunk/r/IMAGING-MAG-ZMAG/MAGGTU41.m@ 765

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

initial load of FOIAVistA 6/30/08 version

File size: 5.7 KB
Line 
1MAGGTU41 ;WOIFO/GEK - Version Control utilities ; [ 06/20/2001 08:57 ]
2 ;;3.0;IMAGING;**46,59**;Nov 27, 2007;Build 20
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
20NOTOKB(X) ; Client Not Supported. Server is Beta
21 ; Client will not be supported when this version is Released. Warn Client.
22 S X(0)="0^ This site is a test site for Version: "_SV_"."
23 S X(5)=" Client is running Version: "_CV
24 S X(7)=" "
25 S X(10)=" When Version : "_SV_" is Released, "
26 S X(15)=" Client Version: "_CV_" will no longer be supported."
27 S X(17)=" "
28 S X(18)=" This Client Application will not work correctly."
29 S X(19)=" "
30 S X(20)=" Contact the Imaging System Manager to update this workstation."
31 S X(30)=" "
32 S X(40)=" APPLICATION Will Continue"
33 Q
34NOTOK(X) ; Client Not Supported.
35 S X(0)="2^ Server is running Imaging V. "_SV_" "_$P(SVSTAT,"^",2)
36 S X(1)=" "
37 S X(5)=" Client is running Imaging V. "_CV
38 S X(7)=" "
39 S X(10)=" Version "_CV_" is no longer supported."
40 S X(15)=" "
41 S X(20)=" Contact the Imaging System Manager to update this workstation."
42 S X(30)=" "
43 S X(40)=" APPLICATION WILL ABORT !"
44 ; Clients prior to 8, have a 'Cancel' button on Message Dialog (oversight)
45 I $P(CV,".",1)=2 S X(50)="(clicking 'Cancel' will not stop the Abort.)"
46 Q
47OKBADTB(X) ; Client not Equal, Is supported. Previous Supported Version. Beta
48 ; But it's T isn't the T of it's Released Patch
49 S X(0)="0^ Server is running Imaging V. "_SV_" "_$P(SVSTAT,"^",2)
50 S X(3)=" "
51 S X(5)=" Client is running Imaging V. "_CLVER
52 S X(10)=" The Released Version of Patch "_CP_" is V. "_CV_"."_$G(OKVER(CV))
53 S X(12)=" "
54 S X(18)=" This Client Application will not work correctly. You should"
55 S X(20)=" update this workstation with the Released Version of Patch "_CP
56 S X(21)=" "
57 S X(22)=" Contact the Imaging System Manager to update this workstation."
58 S X(27)=" "
59 S X(30)=" APPLICATION will Continue "
60 Q
61OKBADT(X) ; Client not Equal, but it is supported. Previous Supported Version
62 ; But it's T isn't the T of it's Released Patch
63 S X(0)="2^ Server is running Imaging V. "_SV_" "_$P(SVSTAT,"^",2)
64 S X(3)=" "
65 S X(5)=" Client is running Imaging V. "_CLVER
66 S X(10)=" The Released Version of Patch "_CP_" is V. "_CV_"."_$G(OKVER(CV))
67 S X(15)=" "
68 S X(18)=" Version "_CLVER_" is not supported."
69 S X(19)=" "
70 S X(20)=" You must update this workstation."
71 S X(22)=" "
72 S X(25)=" Contact the Imaging System Manager to update this workstation."
73 S X(27)=" "
74 S X(40)=" APPLICATION WILL ABORT !"
75 Q
76OKB(X) ; Client is Not Equal to server. Server Version / Beta
77 ; Alpha/Beta Version so allow to continue. no message
78 S X(0)="1^ Alpha/Beta testing in progress for: "_SV
79 Q
80OK(X) ; Client is Not Equal to the server. Warn
81 S X(0)="0^ Server is running Imaging V. "_SV_" "_$P(SVSTAT,"^",2)
82 S X(5)=" Client is running Imaging V. "_CV
83 S X(7)=" "
84 S X(10)=" The Client application should be updated "
85 S X(15)=" "
86 S X(20)=" Contact the Imaging System Manager to update this workstation."
87 S X(30)=" "
88 S X(40)=" APPLICATION Will Continue"
89 ; Clients prior to 8, have a 'Cancel' button on Message Dialog (oversight)
90 I $P(CV,".",1)=2 S X(50)="(clicking 'Cancel' will not stop the Client.)"
91 Q
92 ;
93 ; Versions are the Same: If T versions are not, warn the Client.
94 ; Released Client (of any version) will have the T version that the server expects, and
95 ; no warning will be displayed.
96TNOTOKB(X) ; Client T is Not Equal to Server T, Beta Site.
97 ;I CT,(CT'=ST) D Q
98 S X(0)="0^ Server is running Imaging V. "_SV_"."_ST_" "_$P(SVSTAT,"^",2)
99 S X(5)=" Client is running Imaging V. "_CLVER
100 S X(10)=" "
101 S X(20)=" Test Versions of Patch "_SV_" other than T"_ST_" may not work correctly."
102 S X(25)=" "
103 S X(30)=" APPLICATION will Continue "
104 Q
105TNOTOK(X) ; Client T is Not Equal to Server T.
106 ;I CT,(CT'=ST) D Q
107 S X(0)="0^ Server is running Imaging V. "_SV_"."_ST_" "_$P(SVSTAT,"^",2)
108 S X(5)=" Client is running Imaging V. "_CLVER
109 S X(10)=" "
110 S X(12)=" For Patch "_CP_" the released T version is: "_ST
111 S X(20)=" You must update this workstation with the Released Version."
112 S X(22)=" "
113 S X(25)=" Contact the Imaging System Manager to update this workstation."
114 S X(27)=" "
115 S X(30)=" APPLICATION will Continue "
116 Q
117BADPLC(X) ; The call to $$PLACE^MAGBAPI($G(DUZ(2))) Failed, return a message.
118 ;
119 I '$G(DUZ(2)) S X(0)="2^ Error: Undefined DUZ(2)"
120 E D
121 . S X(0)="2^ Error: Division "_$P($G(^DIC(4,DUZ(2),0)),"^",1)_" ["_DUZ(2)_"]"
122 . S X(2)=" is not an Imaging Site Parameter."
123 . Q
124 S X(5)=" Contact IRM. Application will abort"
125 Q
Note: See TracBrowser for help on using the repository browser.