| 1 | DIQGDDF ;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
|
|---|
| 5 | FILE(DIQGR,DR,DIQGPARM,DIQGTA,DIQGERRA,DIQGIPAR) ;
|
|---|
| 6 | EN2 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")
|
|---|
| 29 | SETF .I DIQGSALX]"" S @DIQGTA@(DIQGSAL)=DIQGSALX Q
|
|---|
| 30 | .Q:DIQGFNUL
|
|---|
| 31 | .S @DIQGTA@(DIQGSAL)=DIQGSALX
|
|---|
| 32 | .Q
|
|---|
| 33 | Q
|
|---|
