source: WorldVistAEHR/trunk/r/IMAGING-MAG-ZMAG/MAGGTU41.m@ 1147

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

revised back to 6/30/08 version

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