Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MAGDQR10

MAGDQR10.m

Go to the documentation of this file.
  1. MAGDQR10 ;WOIFO/MLH - Accession # search logic for C-FIND ; 30 Dec 2011 04:32 PM
  1. ;;3.0;IMAGING;**118**;Mar 19, 2002;Build 4525;May 01, 2013
  1. ;; Per VHA Directive 2004-038, this routine should not be modified.
  1. ;; +---------------------------------------------------------------+
  1. ;; | Property of the US Government. |
  1. ;; | No permission to copy or redistribute this software is given. |
  1. ;; | Use of unreleased versions of this software requires the user |
  1. ;; | to execute a written test agreement with the VistA Imaging |
  1. ;; | Development Office of the Department of Veterans Affairs, |
  1. ;; | telephone (301) 734-0100. |
  1. ;; | The Food and Drug Administration classifies this software as |
  1. ;; | a medical device. As such, it may not be changed in any way. |
  1. ;; | Modifications to this software may result in an adulterated |
  1. ;; | medical device under 21CFR820, the use of which is considered |
  1. ;; | to be a violation of US Federal Statutes. |
  1. ;; +---------------------------------------------------------------+
  1. ;;
  1. Q
  1. ;
  1. ACCSID(P,REQ,RESULT,MAGDUZ,PAT,SSN,UID,FD,LD) ; Return from accession no. / study ID query - called from MAGDQR02
  1. N TYPE,IMAGE,IARRAY,MAGD0,MAGD1,MAGD2,ACCNUM,STUDYIX,SERIESIX,SOPIX
  1. S TYPE=$P(P,"^",1)
  1. D ; switch - build image / group array for old Rad, old Consult or new DB?
  1. . I TYPE="R" D ACCSIDRA^MAGDQR11(.IARRAY,P,PAT,SSN,UID,.MAGD0,.MAGD1,.MAGD2) Q ; Radiology Images (old DB structure) case
  1. . I TYPE="C" D Q ; Consult Images (old DB structure) case
  1. . . ; P = C ^ DFN ^ File# ^ IEN ^ Image# ^ Accession#
  1. . . S IMAGE=$P(P,"^",5) Q:'IMAGE S IARRAY(IMAGE)=""
  1. . . S MAGD0=+$P($G(^MAG(2005,+IMAGE,0)),"^",7)
  1. . . S (MAGD1,MAGD2)=0 ; Not a radiology study...
  1. . . S ACCNUM=$P(P,"^",6)
  1. . . Q
  1. . I TYPE="N" D Q ; New database structure case
  1. . . S STUDYIX=$P(P,"^",3),MAGD0=$P(P,"^",2)
  1. . . S SERIESIX=""
  1. . . F S SERIESIX=$O(^MAGV(2005.63,"C",STUDYIX,SERIESIX)) Q:'SERIESIX D Q:$D(IARRAY) ; only study level for now
  1. . . . S SOPIX=""
  1. . . . F S SOPIX=$O(^MAGV(2005.64,"C",SERIESIX,SOPIX)) Q:'SOPIX S IARRAY(SOPIX)=STUDYIX Q ; only study level for now
  1. . . . Q
  1. . . S (MAGD1,MAGD2)=0 ; Not a radiology study in the old structure...
  1. . . Q
  1. . Q
  1. S IMAGE=""
  1. F S IMAGE=$O(IARRAY(IMAGE)) Q:'IMAGE D
  1. . D RESULT^MAGDQR03(TYPE,.REQ,RESULT,IMAGE,MAGDUZ,MAGD0,MAGD1,MAGD2)
  1. . Q
  1. Q