source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIQGDDF.m@ 1707

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

initial load of WorldVistAEHR

File size: 1.3 KB
RevLine 
[613]1DIQGDDF ;SFISC/DCL,MMW-DD ATTRIBUTE RETRIEVER (FILES) ;12:44 PM 26 Sep 1996
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q ;not for interactive use
5FILE(DIQGR,DR,DIQGPARM,DIQGTA,DIQGERRA,DIQGIPAR) ;
6EN2 N DA
7 I '$G(DIQGR),$G(DIQGR)]"",$D(^DIC("B",DIQGR)) S DIQGR=$O(^(DIQGR,""))
8 N DIQGERR,DIQGEY,DIQGSAL,DIQGFNUL,DIQGSALX,DIQGTAXX
9 S DIQGEY(1)=$G(DIQGR)
10 I $G(U)'="^" N U S U="^"
11 I $G(DIQGIPAR)'["A" K DIERR,^TMP("DIERR",$J)
12 I $G(DIQGR)'>0 D 202^DIQGDD("FILE") Q
13 I $D(^DD(DIQGR,0))[0 D 202^DIQGDD("FILE") Q
14 S DA=DIQGR,DIQGR=1 I '$D(^DIC(DA,0)) D 202^DIQGDD("FILE") Q
15 I $G(DIQGTA)']"" D 202^DIQGDD("TARGET ARRAY") Q
16 S DIQGPARM=$G(DIQGPARM),DIQGFNUL=DIQGPARM["N"
17 I DA'>0 S DIQGEY(3)=DA D 200^DIQGDD Q
18 D BLDSAL^DIQGDD(1,.DR,.DIQGSAL)
19 I '$D(DIQGSAL),'$D(DIERR) D 200^DIQGDD Q
20 I '$D(DIQGSAL) Q
21 S DIQGSAL="" F S DIQGSAL=$O(DIQGSAL(DIQGSAL)) Q:DIQGSAL="" D
22 .I DIQGSAL="REQUIRED IDENTIFIERS" D Q
23 ..N X
24 ..S X=$$RIF^DIQGDDU(DA,DIQGSAL,DIQGTA)
25 ..S:X]"" @DIQGTA@(DIQGSAL)=X
26 ..Q
27 .S DIQGTAXX=$S('$D(DIQGSAL(DIQGSAL,"#(word-processing)")):DIQGTA,1:$$OREF^DIQGDD(DIQGTA)_$$Q^DIQGDD(DIQGSAL)_")")
28 .S DIQGSALX=$$GET^DIQG("^DIC(",DA,DIQGSAL(DIQGSAL),DIQGPARM,DIQGTAXX,"","1A")
29SETF .I DIQGSALX]"" S @DIQGTA@(DIQGSAL)=DIQGSALX Q
30 .Q:DIQGFNUL
31 .S @DIQGTA@(DIQGSAL)=DIQGSALX
32 .Q
33 Q
Note: See TracBrowser for help on using the repository browser.