source: WorldVistAEHR/trunk/r/IMAGING-MAG-ZMAG/MAGDFB.m@ 1604

Last change on this file since 1604 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1MAGDFB ;WOIFO/EdM - Call MAGFILEB ; 04/29/2005 08:55
2 ;;3.0;IMAGING;**11,51**;26-August-2005
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 ;; | |
11 ;; | The Food and Drug Administration classifies this software as |
12 ;; | a medical device. As such, it may not be changed in any way. |
13 ;; | Modifications to this software may result in an adulterated |
14 ;; | medical device under 21CFR820, the use of which is considered |
15 ;; | to be a violation of US Federal Statutes. |
16 ;; +---------------------------------------------------------------+
17 ;;
18 Q
19 ;
20 ; The purpose of this subroutine is to call FINDFILE in MAGFILEB
21 ; in such a way that all parameters are passed in or out,
22 ; and such that all internal variables of MAGFILEB are NEWed
23 ;
24FILEFIND(MAGXX,FILETYPE,MAGJBCP,VERBOSE,MAGFILE1,MAGFILE2,MAGFILE) ;
25 ; Input:
26 ; MAGXX -- IEN into file 2005, ^MAG(2005,IEN,0)
27 ; FILETYPE -- "FULL", "ABSTRACT" or "BIG"
28 ; MAGJBCP -- Flag: do or don't copy from JukeBox to HardDisk
29 ; VERBOSE -- Flag: do or don't display interactive error messages
30 ; Output:
31 ; MAGFILE1 -- filename
32 ; MAGFILE2 -- path + filename
33 ; MAGFILE -- path + filename + $C(0)
34 ; MAGPLACE -- pointer to ^MAG(2006.1) for "place" where image is stored
35 ; MAGINST -- pointer to ^DIC(4) that corresponds to MAGPLACE
36 ;
37 N MAGJBOL,MAGOFFLN,MAGPREF,MAGTYPE
38 D FINDFILE^MAGFILEB
39 S MAGFILE2=$G(MAGPREF)_MAGFILE1,MAGFILE=MAGFILE2_$C(0)
40 Q
41 ;
Note: See TracBrowser for help on using the repository browser.