Changeset 623 for WorldVistAEHR/trunk/r/IMAGING-MAG-ZMAG/MAGGTU41.m
- Timestamp:
- Dec 4, 2009, 12:11:15 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
WorldVistAEHR/trunk/r/IMAGING-MAG-ZMAG/MAGGTU41.m
r613 r623 1 MAGGTU41 ;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 20 NOTOKB(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 34 NOTOK(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 47 OKBADTB(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 61 OKBADT(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 76 OKB(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 80 OK(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. 96 TNOTOKB(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 105 TNOTOK(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 117 BADPLC(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 1 MAGGTU41 ;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 19 NOTOKB(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 33 NOTOK(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 46 OKBADTB(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 60 OKBADT(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 75 OKB(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 79 OK(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. 95 TNOTOKB(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 104 TNOTOK(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 116 BADPLC(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 TracChangeset
for help on using the changeset viewer.