Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGQBUT4.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/MAGQBUT4.m
r628 r636 1 1 MAGQBUT4 ;WOIFO/RMP - BP Utilities ;19 Nov 2001 1:23 PM 2 ;;3.0;IMAGING;**7,8,48,20,81**;May 17, 2007 3 ;; Per VHA Directive 2004-038, this routine should not be modified. 2 ;;3.0;IMAGING;**7,8,48,20**;Apr 12, 2006 4 3 ;; +---------------------------------------------------------------+ 5 4 ;; | Property of the US Government. | … … 9 8 ;; | Development Office of the Department of Veterans Affairs, | 10 9 ;; | telephone (301) 734-0100. | 10 ;; | | 11 11 ;; | The Food and Drug Administration classifies this software as | 12 12 ;; | a medical device. As such, it may not be changed in any way. | … … 83 83 . Q 84 84 Q 85 ; 86 VOKR(RESULT,VER) ; RPC for VOK [MAGQ VOK] 87 N CVERS,PNUM,SLINE 88 S X="ERR^MAGQBTM",@^%ZOSF("TRAP") 89 S SLINE=$T(+2) 85 VOK(VER) ; Check for the appropriate BP Queue processor version 86 ; This routine MAGQBUT4 will need to be released with each BP Update 87 ; The variable CVERS will contain the current BP server version 88 ; ;;3.0;IMAGING;**7,13,8**;Jul 26, 2004 89 N VN,I,CVERS,PNUM,SLINE,ALTVER 90 S SLINE=$T(+2),ALTVER=","_$$TRIM($P(SLINE,"**",2))_"," 90 91 S PNUM=$$TRIM($P(SLINE,"**",2)),PNUM=$$TRIM($P(PNUM,",",$L(PNUM,","))) 91 92 S CVERS=$$TRIM($P(SLINE,";",3))_"P"_PNUM 92 S RESULT=$S(CVERS=VER:1,1:0)_U_CVERS 93 Q 93 Q $S(CVERS=VER:1,$P(VER,"P",2)["13":1,ALTVER[(","_$P(VER,"P",2)_","):1,1:0) 94 94 ; 95 95 TRIM(X) ; remove both leading and trailing blanks
Note:
See TracChangeset
for help on using the changeset viewer.