- MAGDQR07 ;WOIFO/EDM,MLH,BT - Imaging RPCs for Query/Retrieve ; Feb 15, 2022@10:25:44
- ;;3.0;IMAGING;**54,118,138,305**;Mar 19, 2002;Build 3
- ;; Per VHA Directive 2004-038, this routine should not be modified.
- ;; +---------------------------------------------------------------+
- ;; | Property of the US Government. |
- ;; | No permission to copy or redistribute this software is given. |
- ;; | Use of unreleased versions of this software requires the user |
- ;; | to execute a written test agreement with the VistA Imaging |
- ;; | 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. |
- ;; | Modifications to this software may result in an adulterated |
- ;; | medical device under 21CFR820, the use of which is considered |
- ;; | to be a violation of US Federal Statutes. |
- ;; +---------------------------------------------------------------+
- ;;
- Q
- ; -- overflow from MAGDQR02
- ;
- ACCNUM(REQ,T,ACC,ANY) ; TAG = 0008,0050 R Accession Number
- N P
- S P="" F S P=$O(REQ(T,P)) Q:(P="") D:(REQ(T,P)'="")&((REQ(T,P))'="GMRC-")
- . S ANY=1
- . D ACCNEW^MAGDQR71(.REQ,T,P,.ACC) ; first look in the new database structure
- . D ACCRAD^MAGDQR72(.REQ,T,P,.ACC) ; then look for old radiology images
- . D ACCCON^MAGDQR73(.REQ,T,P,.ACC) ; then look for old consult images
- . D ACCLAB^MAGDQR75(.REQ,T,P,.ACC) ; finally look for lab images - P305 PMK 01/03/2022
- . Q
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGDQR07 1661 printed Feb 18, 2025@23:27:22 Page 2
- MAGDQR07 ;WOIFO/EDM,MLH,BT - Imaging RPCs for Query/Retrieve ; Feb 15, 2022@10:25:44
- +1 ;;3.0;IMAGING;**54,118,138,305**;Mar 19, 2002;Build 3
- +2 ;; Per VHA Directive 2004-038, this routine should not be modified.
- +3 ;; +---------------------------------------------------------------+
- +4 ;; | Property of the US Government. |
- +5 ;; | No permission to copy or redistribute this software is given. |
- +6 ;; | Use of unreleased versions of this software requires the user |
- +7 ;; | to execute a written test agreement with the VistA Imaging |
- +8 ;; | Development Office of the Department of Veterans Affairs, |
- +9 ;; | telephone (301) 734-0100. |
- +10 ;; | The Food and Drug Administration classifies this software as |
- +11 ;; | a medical device. As such, it may not be changed in any way. |
- +12 ;; | Modifications to this software may result in an adulterated |
- +13 ;; | medical device under 21CFR820, the use of which is considered |
- +14 ;; | to be a violation of US Federal Statutes. |
- +15 ;; +---------------------------------------------------------------+
- +16 ;;
- +17 QUIT
- +18 ; -- overflow from MAGDQR02
- +19 ;
- ACCNUM(REQ,T,ACC,ANY) ; TAG = 0008,0050 R Accession Number
- +1 NEW P
- +2 SET P=""
- FOR
- SET P=$ORDER(REQ(T,P))
- if (P="")
- QUIT
- if (REQ(T,P)'="")&((REQ(T,P))'="GMRC-")
- Begin DoDot:1
- +3 SET ANY=1
- +4 ; first look in the new database structure
- DO ACCNEW^MAGDQR71(.REQ,T,P,.ACC)
- +5 ; then look for old radiology images
- DO ACCRAD^MAGDQR72(.REQ,T,P,.ACC)
- +6 ; then look for old consult images
- DO ACCCON^MAGDQR73(.REQ,T,P,.ACC)
- +7 ; finally look for lab images - P305 PMK 01/03/2022
- DO ACCLAB^MAGDQR75(.REQ,T,P,.ACC)
- +8 QUIT
- End DoDot:1
- +9 QUIT