Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGJUTL5.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/MAGJUTL5.m
r628 r636 1 1 MAGJUTL5 ;WOIFO/JHC - VistARad RPCs ; [ 07/3/2006 17:17 ] 2 ;;3.0;IMAGING;**65 ,76**;Jun 22, 2007;Build 192 ;;3.0;IMAGING;**65**;Jul 27, 2006;Build 28 3 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 4 4 ;; +---------------------------------------------------------------+ … … 24 24 ; released Client will have the T version that the server expects 25 25 ; 26 S SVRVER="3.0. 76",SVRTVER=14; <*> Edit this line for each patch/T-version26 S SVRVER="3.0.65",SVRTVER=12 ; <*> Edit this line for each patch/T-version 27 27 ; 28 S ALLOWCL="|3.0. 65|" ;28 S ALLOWCL="|3.0.18|" ; note--patch 32 is numbered funny, so is hard-coded below 29 29 Q 30 30 ; … … 68 68 S SVERSION=SV 69 69 I TESTFLAG S SVERSION=SV_"."_ST 70 ; Check Version differences: 70 ; 71 ; Patch 32 client is OK: 72 I CLVER="3.0.41.17" S MAGRY="1^1~P32 Client Version Check OK. Server: "_SVERSION_" Client: "_CLVER Q 73 ; Other Version differences: 71 74 I (CV'=SV) D Q 72 75 . I '(ALLOWV[("|"_CV_"|")) D Q 73 76 . . S MAGRY="0^4~VistARad Workstation software version "_CLVER_" is not compatible with the VistA server version "_SVERSION_". Contact Imaging support. (CNA)" 77 . ; Don't allow Test versions of P18 78 . I CP=18,(CT'=132) D Q 79 . . S MAGRY="0^4~VistARad Workstation software version "_CLVER_" is not compatible with the VistA server version "_SVERSION_". Contact Imaging support. (C18T)" 74 80 . ; Warn the Client, allow to continue 75 81 . I TESTFLAG S MAGRY="2^3~VistARad Workstation software version "_CLVER_" is running with VistA server TEST Version "_SVERSION_" -- VistARad will Continue, but contact Imaging Support if problems occur. (Pdif)" … … 89 95 Q 90 96 ; 91 P32STOP(RET) ; logic to indicate P32 should no longer function, once the RELEASED P76 is installed92 ; This is invoked from magjutl3, P76 version, if a P32 client is launched93 ; RET=1/0 ^ text -- 0 = OK to run P32; 1 = Not OK94 N SV,ST,ALLOWV,SVSTAT,RELEASED95 S RET="0^P32 supported" ; init return to allow p32 to function96 D GETVER(.SV,.ST,.ALLOWV)97 D VERSTAT(.SVSTAT,SV)98 I 'SVSTAT S RET="0^Error, but on side of caution, allow running." Q ; KIDS status for this version indeterminate99 S RELEASED=(+SVSTAT=2)100 I RELEASED!(SV'="3.0.76") S RET="1^P32 support over" ; don't allow P32 to function101 Q102 ;103 97 VERSTAT(MAGRY,MAGVER) ; 104 98 ; Returns the status of an Imaging Version … … 109 103 N VERI,TVER,MAGERR 110 104 I +MAGVER S MAGVER="MAG*"_$P(MAGVER,".",1,2)_"*"_$P(MAGVER,".",3) 111 S VERI=$$FIND1^DIC(9.6,""," O",MAGVER,"","","MAGERR")105 S VERI=$$FIND1^DIC(9.6,"","",MAGVER,"","","MAGERR") 112 106 I 'VERI S MAGRY="0^4~There is No KIDs Install record." 113 107 E D
Note:
See TracChangeset
for help on using the changeset viewer.