Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGGTU4.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• IMAGING-MAG-ZMAG/MAGGTU4.m (modified) (9 diffs)

FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGGTU4.m

@@ -1 @@
-MAGGTU4 ;WOIFO/GEK - Imaging Client- Version checking routine; [ 06/20/2001 08:57 ]
- ;;3.0;IMAGING;**8,48,63,45,46,59,96**;April 29, 2008;Build 9
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+MAGGTU4 ;WOIFO/GEK - Testing callbacks for Delphi Doc Image Prototype ; 02/16/2007 13:37
+ ;;3.0;IMAGING;**8,48,63,45,46**;16-February-2007;;Build 1023
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
  ;; +---------------------------------------------------------------+
  ;; | Property of the US Government.                                |
@@ -22 +22 @@
  ; The Server Version SVRVER needs hardcoded to match the Delphi Client.
  ; and This Routine must be distributed whenever a new Client is
- S SVRVER="3.0.96"
- S SVRTVER="4" ; This is the T version that the server expects
+ S SVRVER="3.0.46"
+ S SVRTVER=28 ; This is the T version that the server expects
  ; released Client will have the T version that the server expects
  S A("3.0.24")=5         ;Sept 2003
@@ -32 +32 @@
  S A("3.0.63")=4         ;June 2005
  S A("3.0.45")=8         ;Sept 2005
- S A("3.0.46")=28        ;Mar  2007
- S A("3.0.59")=31        ;Jul  2007
- S A("3.0.72")=21        ;Jan  2008
- S A("3.0.83")=24        ;Mar  2008
- S A("3.0.95")=5         ;Mar  2008
- S A("3.0.96")=4         ;Apr  2008
+ S A("3.0.59")=20        ;July 2006
  Q
  ;
 CHKVER(MAGRY,CLVER) ;RPC [MAG4 VERSION CHECK]
  ; CLVER is the version of the Delphi Client.
- ; CLVER format = Major.Minor.Patch.T-version
+ ; CLVER format = Major,Minor,Patch,T Version
  ; example : for Version 3.0 Patch 8 T 21 -->  CLVER=3.0.8.21
  ; 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)
  ;
- N PLC,SV,ST,SVSTAT,CV,CP,CT,OKVER,WARN,I,BETA
+ N PLC,SV,ST,SVSTAT,CV,CP,CT,OKVER,WARN,I
  ; PLC = Entry in 2006.1
  ; SV = Server Version -> (3.0.8) from (3.0.8.43) Hard coded to Sync with Delphi Clients
@@ -93 +88 @@
  D VERSTAT(.SVSTAT,SV)
  I 'SVSTAT S MAGRY(0)="2^"_$P(SVSTAT,"^",2) Q  ; There is not record of a KIDS for this Server.
- ; Set Alpha Beta Flag
- S BETA=(+SVSTAT=2)
+ ; 
  ;      If Client isn't one of the Supported Clients.
  I (CV'=SV),'$D(OKVER(CV)) D  Q
- . I BETA D NOTOKB^MAGGTU41(.MAGRY) Q
+ . I +SVSTAT=2 D NOTOKB^MAGGTU41(.MAGRY) Q
  . D NOTOK^MAGGTU41(.MAGRY) Q
  . Q 
@@ -104 +98 @@
  I (CV'=SV) D  Q
  . I CT<$G(OKVER(CV)) D  Q
- . . I BETA DO OKBADTB^MAGGTU41(.MAGRY) Q
+ . . I +SVSTAT=2 DO OKBADTB^MAGGTU41(.MAGRY) Q
  . . DO OKBADT^MAGGTU41(.MAGRY) Q
  . . Q
- . I BETA D OKB^MAGGTU41(.MAGRY)
+ . I +SVSTAT=2 D OKB^MAGGTU41(.MAGRY)
  . E  D OK^MAGGTU41(.MAGRY)
  . I WARN D WARNING
@@ -114 +108 @@
  ; At this point, Versions are the Same: If T versions are not, warn the Client.
  I CT,(CT'=ST) D  Q
- . I BETA D TNOTOKB^MAGGTU41(.MAGRY) Q
+ . I +SVSTAT=2 D TNOTOKB^MAGGTU41(.MAGRY) Q
  . D TNOTOK^MAGGTU41(.MAGRY) Q
  . Q
@@ -125 +119 @@
  ;
 NEEDWARN(WARN) ; This call determines if Client needs the warning.
- S WARN=0 Q  ; we don't need warning anymore.
  I $P($G(^MAG(2006.1,PLC,"USERPREF")),U,2)="" S WARN=0 Q  ; Not a MUSE Site.
  I $D(MAGJOB("CAPTURE")) S WARN=0 Q  ;Not needed for Capture Clients
@@ -173 +166 @@
  N VERI,TVER,MAGERR
  I +MAGVER S MAGVER="MAG*"_$P(MAGVER,".",1,2)_"*"_$P(MAGVER,".",3)
- S VERI=$$FIND1^DIC(9.6,"","MO",MAGVER,"","","MAGERR")
- I 'VERI S MAGRY="0^There is No KIDs Install record for """_MAGVER_"""." Q
+ S VERI=$$FIND1^DIC(9.6,"","M",MAGVER,"","","MAGERR")
+ I 'VERI S MAGRY="0^There is No KIDs Install record." Q
  S TVER=$$GET1^DIQ(9.6,VERI_",","ALPHA/BETA TESTING")
  I TVER="YES" S MAGRY="2^Alpha/Beta Version." Q