Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGGTU4.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGGTU4.m
r628 r636 1 MAGGTU4 ;WOIFO/GEK - Imaging Client- Version checking routine; [ 06/20/2001 08:57 ]2 ;;3.0;IMAGING;**8,48,63,45,46 ,59,96**;April 29, 2008;Build 93 ;; Per VHA Directive 2004-038, this routine should not be modified.1 MAGGTU4 ;WOIFO/GEK - Testing callbacks for Delphi Doc Image Prototype ; 02/16/2007 13:37 2 ;;3.0;IMAGING;**8,48,63,45,46**;16-February-2007;;Build 1023 3 ;; Per VHA Directive 2004-038, this routine should not be modified. 4 4 ;; +---------------------------------------------------------------+ 5 5 ;; | Property of the US Government. | … … 22 22 ; The Server Version SVRVER needs hardcoded to match the Delphi Client. 23 23 ; and This Routine must be distributed whenever a new Client is 24 S SVRVER="3.0. 96"25 S SVRTVER= "4"; This is the T version that the server expects24 S SVRVER="3.0.46" 25 S SVRTVER=28 ; This is the T version that the server expects 26 26 ; released Client will have the T version that the server expects 27 27 S A("3.0.24")=5 ;Sept 2003 … … 32 32 S A("3.0.63")=4 ;June 2005 33 33 S A("3.0.45")=8 ;Sept 2005 34 S A("3.0.46")=28 ;Mar 2007 35 S A("3.0.59")=31 ;Jul 2007 36 S A("3.0.72")=21 ;Jan 2008 37 S A("3.0.83")=24 ;Mar 2008 38 S A("3.0.95")=5 ;Mar 2008 39 S A("3.0.96")=4 ;Apr 2008 34 S A("3.0.59")=20 ;July 2006 40 35 Q 41 36 ; 42 37 CHKVER(MAGRY,CLVER) ;RPC [MAG4 VERSION CHECK] 43 38 ; CLVER is the version of the Delphi Client. 44 ; CLVER format = Major .Minor.Patch.T-version39 ; CLVER format = Major,Minor,Patch,T Version 45 40 ; example : for Version 3.0 Patch 8 T 21 --> CLVER=3.0.8.21 46 41 ; Ver 2.5P9 (2.5.24.1) is first Delphi Ver that makes this call. … … 60 55 I $P(CLVER,".",1)="30" S CLVER="3.0."_$P(CLVER,".",3,99) 61 56 ; 62 N PLC,SV,ST,SVSTAT,CV,CP,CT,OKVER,WARN,I ,BETA57 N PLC,SV,ST,SVSTAT,CV,CP,CT,OKVER,WARN,I 63 58 ; PLC = Entry in 2006.1 64 59 ; SV = Server Version -> (3.0.8) from (3.0.8.43) Hard coded to Sync with Delphi Clients … … 93 88 D VERSTAT(.SVSTAT,SV) 94 89 I 'SVSTAT S MAGRY(0)="2^"_$P(SVSTAT,"^",2) Q ; There is not record of a KIDS for this Server. 95 ; Set Alpha Beta Flag 96 S BETA=(+SVSTAT=2) 90 ; 97 91 ; If Client isn't one of the Supported Clients. 98 92 I (CV'=SV),'$D(OKVER(CV)) D Q 99 . I BETAD NOTOKB^MAGGTU41(.MAGRY) Q93 . I +SVSTAT=2 D NOTOKB^MAGGTU41(.MAGRY) Q 100 94 . D NOTOK^MAGGTU41(.MAGRY) Q 101 95 . Q … … 104 98 I (CV'=SV) D Q 105 99 . I CT<$G(OKVER(CV)) D Q 106 . . I BETADO OKBADTB^MAGGTU41(.MAGRY) Q100 . . I +SVSTAT=2 DO OKBADTB^MAGGTU41(.MAGRY) Q 107 101 . . DO OKBADT^MAGGTU41(.MAGRY) Q 108 102 . . Q 109 . I BETAD OKB^MAGGTU41(.MAGRY)103 . I +SVSTAT=2 D OKB^MAGGTU41(.MAGRY) 110 104 . E D OK^MAGGTU41(.MAGRY) 111 105 . I WARN D WARNING … … 114 108 ; At this point, Versions are the Same: If T versions are not, warn the Client. 115 109 I CT,(CT'=ST) D Q 116 . I BETAD TNOTOKB^MAGGTU41(.MAGRY) Q110 . I +SVSTAT=2 D TNOTOKB^MAGGTU41(.MAGRY) Q 117 111 . D TNOTOK^MAGGTU41(.MAGRY) Q 118 112 . Q … … 125 119 ; 126 120 NEEDWARN(WARN) ; This call determines if Client needs the warning. 127 S WARN=0 Q ; we don't need warning anymore.128 121 I $P($G(^MAG(2006.1,PLC,"USERPREF")),U,2)="" S WARN=0 Q ; Not a MUSE Site. 129 122 I $D(MAGJOB("CAPTURE")) S WARN=0 Q ;Not needed for Capture Clients … … 173 166 N VERI,TVER,MAGERR 174 167 I +MAGVER S MAGVER="MAG*"_$P(MAGVER,".",1,2)_"*"_$P(MAGVER,".",3) 175 S VERI=$$FIND1^DIC(9.6,"","M O",MAGVER,"","","MAGERR")176 I 'VERI S MAGRY="0^There is No KIDs Install record for """_MAGVER_"""." Q168 S VERI=$$FIND1^DIC(9.6,"","M",MAGVER,"","","MAGERR") 169 I 'VERI S MAGRY="0^There is No KIDs Install record." Q 177 170 S TVER=$$GET1^DIQ(9.6,VERI_",","ALPHA/BETA TESTING") 178 171 I TVER="YES" S MAGRY="2^Alpha/Beta Version." Q
Note:
See TracChangeset
for help on using the changeset viewer.