- MAGVD005 ;WOIFO/MLH - Delete study by accession number - collect study summary info ; 03-Feb-12 04:39 PM
- ;;3.0;IMAGING;**118**;Mar 19, 2002;Build 4525;May 01, 2013
- ;; 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
- ;
- GETSTDY(IARRAY,P,MAGD0,MAGD1,MAGD2,PROC) ; Get summary data for Radiology images (old DB structure)
- N V,P1,MAGIEN
- S MAGD0=$P(P,"^",2),MAGD1=$P(P,"^",3),MAGD2=$P(P,"^",4)
- I MAGD0'="",MAGD1'="",MAGD2'="" D
- . S V=$P($G(^RADPT(MAGD0,"DT",MAGD1,"P",MAGD2,0)),"^",17) Q:'V ; IA # 1172
- . S P1=0 F S P1=$O(^RARPT(V,2005,P1)) Q:'P1 D ; IA # 1171
- . . S MAGIEN=+$G(^RARPT(V,2005,P1,0)) ; IA # 1171
- . . S:MAGIEN IARRAY(MAGIEN)=""
- . . Q
- . S PROC=$$GET1^DIQ(70.03,MAGD2_","_MAGD1_","_MAGD0,2)
- . Q
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGVD005 1685 printed Apr 23, 2025@18:24:14 Page 2
- MAGVD005 ;WOIFO/MLH - Delete study by accession number - collect study summary info ; 03-Feb-12 04:39 PM
- +1 ;;3.0;IMAGING;**118**;Mar 19, 2002;Build 4525;May 01, 2013
- +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 ;
- GETSTDY(IARRAY,P,MAGD0,MAGD1,MAGD2,PROC) ; Get summary data for Radiology images (old DB structure)
- +1 NEW V,P1,MAGIEN
- +2 SET MAGD0=$PIECE(P,"^",2)
- SET MAGD1=$PIECE(P,"^",3)
- SET MAGD2=$PIECE(P,"^",4)
- +3 IF MAGD0'=""
- IF MAGD1'=""
- IF MAGD2'=""
- Begin DoDot:1
- +4 ; IA # 1172
- SET V=$PIECE($GET(^RADPT(MAGD0,"DT",MAGD1,"P",MAGD2,0)),"^",17)
- if 'V
- QUIT
- +5 ; IA # 1171
- SET P1=0
- FOR
- SET P1=$ORDER(^RARPT(V,2005,P1))
- if 'P1
- QUIT
- Begin DoDot:2
- +6 ; IA # 1171
- SET MAGIEN=+$GET(^RARPT(V,2005,P1,0))
- +7 if MAGIEN
- SET IARRAY(MAGIEN)=""
- +8 QUIT
- End DoDot:2
- +9 SET PROC=$$GET1^DIQ(70.03,MAGD2_","_MAGD1_","_MAGD0,2)
- +10 QUIT
- End DoDot:1
- +11 QUIT
