Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGQBPG1.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/MAGQBPG1.m (modified) (6 diffs)

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

@@ -1 +1 @@
 MAGQBPG1 ;WOIFO/RMP - REMOTE Task SERVER Program [ 11/08/2001 17:18 ]
- ;;3.0;IMAGING;**7,8,20,81**;May 17, 2007
- ;;  Per VHA Directive 2004-038, this routine should not be modified.
+ ;;3.0;IMAGING;**7,8,20**;Apr 12, 2006
  ;; +---------------------------------------------------------------+
  ;; | Property of the US Government.                                |
@@ -9 +8 @@
  ;; | Development Office of the Department of Veterans Affairs,     |
  ;; | telephone (301) 734-0100.                                     |
+ ;; |                                                               |
  ;; | The Food and Drug Administration classifies this software as  |
  ;; | a medical device.  As such, it may not be changed in any way. |
@@ -79 +79 @@
 CNP2(RESULT,IEN,START,STOP) ;[MAGQ JBSCN]
  S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
- N FNAME,PIECE,ZNODE,NODE2,BNODE,BNAME,PTR,HASH,TEMP,ORDER,RDATE,PLACE,OFFLINE,PLACEOK,GL,END,ACQSITE
+ N FNAME,PIECE,ZNODE,NODE2,BNODE,BNAME,PTR,HASH,TEMP,ORDER,RDATE,PLACE,OFFLINE,PLACEOK,GL,END
  S (RESULT,GL)="",PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2))),(OFFLINE,PLACEOK)=0
  S:START="" START=$O(^MAG(2005,0)) S:STOP="" STOP=$O(^MAG(2005,"A"),-1)
@@ -91 +91 @@
  . Q
  S IEN=+IEN
- F  D SCAN^MAGQBPG1(.IEN,ORDER,.GL) D  Q:((('OFFLINE)&PLACEOK)!('IEN)!($P(RESULT,U,21)="DUPE")!'$G(ACQSITE))
+ F  D SCAN^MAGQBPG1(.IEN,ORDER,.GL) D  Q:((('OFFLINE)&PLACEOK)!('IEN)!($P(RESULT,U,21)="DUPE"))
  . Q:'IEN
- . S ZNODE=$G(@(GL_IEN_",0)")),ACQSITE=$P($G(@(GL_IEN_",100)")),U,3)
- . S PLACEOK=$S($$PLACE^MAGBAPI(+ACQSITE)=$$PLACE^MAGBAPI($G(DUZ(2))):1,1:"")
+ . S ZNODE=$G(@(GL_IEN_",0)"))
+ . S PLACEOK=$S($P($G(@(GL_IEN_",100)")),U,3)=$G(DUZ(2)):1,1:"")
  . I $P(ZNODE,U,2)'="" S OFFLINE=$$IMOFFLN^MAGFILEB($P(ZNODE,U,2))  ; Only check the offline status of image files
  . I ($D(^MAG(2005.1,IEN,0))&$D(^MAG(2005,IEN,0))) D  Q  ; Image is duplicated in the Archive file
@@ -133 +133 @@
  . I $D(@(GL_IEN_",""FBIG"")")),'$P(BNODE,U),'$P(BNODE,U,2) S $P(RESULT,U,22)="EMPTY_FBIG"
  . Q
- I '$P($G(@(GL_IEN_",100)")),U,3) S $P(RESULT,U,23)=-1 ;"NO ACQ SITE VALUE"
- ;
  I GL[("^MAG(2005.1,") S $P(RESULT,U,21)="ARCH"
  E  S $P(RESULT,U,12,17)=$$CHKIMG^MAGQBUT2(IEN)
@@ -187 +185 @@
  . D ^XMD
  . K ^TMP($J,"MAGQDFN")
- . K XMSUB
  . Q
  E  S CNT=CNT+1,^TMP($J,"MAGQDFN",CNT)=INPUT