Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGQBTM.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/MAGQBTM.m
r628 r636 1 1 MAGQBTM ;WOIFO/RMP - REMOTE Task SERVER Program [ 03/25/2001 11:20 ] 2 ;;3.0;IMAGING;**1,7,8,20,81**;May 17, 2007 3 ;; Per VHA Directive 2004-038, this routine should not be modified. 2 ;;3.0;IMAGING;**1,7,8,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. | … … 18 18 ; 19 19 ENTRY(RESULT,WSTAT,PROCESS) ; RPC[MAGQ ABP] 20 N X,SYSIEN,SYSNAME,NODE,INDX,CNT,PROC,%,QPTR,QCNT,VERS,EXEDATE,WSOS,PLACE ,VOK20 N X,SYSIEN,SYSNAME,NODE,INDX,CNT,PROC,%,QPTR,QCNT,VERS,EXEDATE,WSOS,PLACE 21 21 D NOW^%DTC 22 22 S X="ERR^MAGQBTM",@^%ZOSF("TRAP") 23 S (SYSIEN,CNT)=0,SYSNAME="",PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2))) ,VOK=""23 S (SYSIEN,CNT)=0,SYSNAME="",PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2))) 24 24 S $P(RESULT(0),U,6)=$D(^XUSEC("MAG SYSTEM",DUZ)) 25 25 Q:'$P(RESULT(0),U,6) … … 38 38 S $P(^MAG(2006.8,SYSIEN,1),U,4)=WSOS 39 39 S VERS=$P(VERS,".",1,2)_"P"_$P(VERS,".",3) 40 D VOKR^MAGQBUT4(.VOK,VERS) 41 Q:'$P(VOK,U) 40 Q:'$$VOK^MAGQBUT4(VERS) 42 41 S ^TMP("MAGQN",$J,0)=SYSIEN_"^"_WSTAT 43 42 S NODE=^MAG(2006.8,SYSIEN,0)
Note:
See TracChangeset
for help on using the changeset viewer.