- MAGVRS71 ;WOIFO/MLH - RPC calls for DICOM file processing ; 20 Oct 2011 5:44 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
- GETSILST(OUT) ; RPC - MAGV GET SERVICE INST LIST
- ;
- N OSEP,ISEP,SSEP,FILE,SIIX,SIDTA
- S OSEP=$$OUTSEP^MAGVRS41,ISEP=$$INPUTSEP^MAGVRS41,SSEP=$$STATSEP^MAGVRS41
- S FILE=2005.8 ; IMAGING SERVICE INSTITUTION file
- S OUT(1)="",SIIX=0
- F S SIIX=$O(^MAGV(FILE,SIIX)) Q:'SIIX D
- . S SIDTA=$$GET1^DIQ(FILE,SIIX,.01,"I")_OSEP_$$GET1^DIQ(FILE,SIIX,.01)
- . S OUT($O(OUT(""),-1)+1)=0_SSEP_SIDTA
- . Q
- S OUT(1)=$O(OUT(""),-1)-1
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGVRS71 1578 printed Jan 18, 2025@03:11:38 Page 2
- MAGVRS71 ;WOIFO/MLH - RPC calls for DICOM file processing ; 20 Oct 2011 5:44 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
- GETSILST(OUT) ; RPC - MAGV GET SERVICE INST LIST
- +1 ;
- +2 NEW OSEP,ISEP,SSEP,FILE,SIIX,SIDTA
- +3 SET OSEP=$$OUTSEP^MAGVRS41
- SET ISEP=$$INPUTSEP^MAGVRS41
- SET SSEP=$$STATSEP^MAGVRS41
- +4 ; IMAGING SERVICE INSTITUTION file
- SET FILE=2005.8
- +5 SET OUT(1)=""
- SET SIIX=0
- +6 FOR
- SET SIIX=$ORDER(^MAGV(FILE,SIIX))
- if 'SIIX
- QUIT
- Begin DoDot:1
- +7 SET SIDTA=$$GET1^DIQ(FILE,SIIX,.01,"I")_OSEP_$$GET1^DIQ(FILE,SIIX,.01)
- +8 SET OUT($ORDER(OUT(""),-1)+1)=0_SSEP_SIDTA
- +9 QUIT
- End DoDot:1
- +10 SET OUT(1)=$ORDER(OUT(""),-1)-1
- +11 QUIT