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

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

@@ -1 +1 @@
 MAGBAPIP ;WOIFO/MLH - Background Processor API to build queues - Modules for place
- ;;3.0;IMAGING;**1,7,8,20,59**;Nov 27, 2007;Build 20
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+ ;;3.0;IMAGING;**1,7,8,20**;Apr 12, 2006
  ;; +---------------------------------------------------------------+
  ;; | Property of the US Government.                                |
@@ -17 +16 @@
  ;; +---------------------------------------------------------------+
  ;;
-DUZ2PLC(WARN) ;Convert DUZ to a PLACE. File 2006.1 entry (PLACE)
- ; Extrinsic : Always returns a PLACE
- ; WARN          : message about where the PLACE was derived from.
+DUZ2PLC(WARN) ; Moved from MAGGTU3 v2.5 - DBI - SEB Patch 4
+ ; Extrinsic : Always returns a PLACE /gek 8/2003
+ ; WARN          : message about where the PLACE was derived from.  /gek 8/2003
  ; Compute the Users Institution for older versions of Imaging Display workstation.
- ; This is called when DUZ(2) doesn't exist Or Can't resolve DUZ(2)
- ;  into site param entry.  This solved a GateWay Problem where DUZ(2) didn't
- ;  exist.  - Shouldn't get here anymore, that was fixed.
+ ; This is called when : 
+ ;               DUZ(2) doesn't exist, 
+ ;               Or Can't resolve DUZ(2) into site param entry
  N MAGINST,DIVDTA,PLACE
  S MAGINST=0
@@ -38 +37 @@
  Q PLACE
  ;
-DA2PLC(MAGDA,TYPE) ; Get Place from Image File IEN
+DA2PLC(MAGDA,TYPE) ; Moved from MAGGTU7 v2.5 - DBI - SEB Patch 4
  ; TYPE :        Possible values "A" Abstract, "F" Full Res or "B" Big File
  ; (defaults to "F" if null)
- ; Resolve Place (PLC) using the Acquisition Site field (ACQS)
- ; IF ACQS is null or not doesn't exist in the site parameter file
- ; THEN Resolve PLC using NetWork Location pointer
+ ; Resolve current place of image using the Acquisition Site field, then
+ ; resolve current place of image using NetWork Location pointer
+ ; if the Acquisition Site field is null or not related to the site 
+ ; parameter file.
  ; 
  N MAGREF,MAG0,FBIG,SITE,PLC,MAGJB
@@ -49 +49 @@
  S SITE=$P($G(^MAG(2005,MAGDA,100)),U,3)
  I SITE S PLC=$$PLACE^MAGBAPI(SITE) Q:PLC PLC
- ; p59  Stop the error when an Image is Deleted.
- S MAG0=$G(^MAG(2005,MAGDA,0)) Q:MAG0="" 0
- ;
+ S MAG0=^MAG(2005,MAGDA,0)
+ ;I '$D(TYPE) S TYPE="F" /gek 8/2003  mod for efficiency (from ed)
  S TYPE=$E($G(TYPE)_"F",1)
  I "AF"[TYPE D