Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DIQGDDF

DIQGDDF.m

Go to the documentation of this file.
  1. DIQGDDF ;SFISC/DCL,MMW-DD ATTRIBUTE RETRIEVER (FILES) ;12:44 PM 26 Sep 1996
  1. ;;22.0;VA FileMan;;Mar 30, 1999
  1. ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. Q ;not for interactive use
  1. FILE(DIQGR,DR,DIQGPARM,DIQGTA,DIQGERRA,DIQGIPAR) ;
  1. EN2 N DA
  1. I '$G(DIQGR),$G(DIQGR)]"",$D(^DIC("B",DIQGR)) S DIQGR=$O(^(DIQGR,""))
  1. N DIQGERR,DIQGEY,DIQGSAL,DIQGFNUL,DIQGSALX,DIQGTAXX
  1. S DIQGEY(1)=$G(DIQGR)
  1. I $G(U)'="^" N U S U="^"
  1. I $G(DIQGIPAR)'["A" K DIERR,^TMP("DIERR",$J)
  1. I $G(DIQGR)'>0 D 202^DIQGDD("FILE") Q
  1. I $D(^DD(DIQGR,0))[0 D 202^DIQGDD("FILE") Q
  1. S DA=DIQGR,DIQGR=1 I '$D(^DIC(DA,0)) D 202^DIQGDD("FILE") Q
  1. I $G(DIQGTA)']"" D 202^DIQGDD("TARGET ARRAY") Q
  1. S DIQGPARM=$G(DIQGPARM),DIQGFNUL=DIQGPARM["N"
  1. I DA'>0 S DIQGEY(3)=DA D 200^DIQGDD Q
  1. D BLDSAL^DIQGDD(1,.DR,.DIQGSAL)
  1. I '$D(DIQGSAL),'$D(DIERR) D 200^DIQGDD Q
  1. I '$D(DIQGSAL) Q
  1. S DIQGSAL="" F S DIQGSAL=$O(DIQGSAL(DIQGSAL)) Q:DIQGSAL="" D
  1. .I DIQGSAL="REQUIRED IDENTIFIERS" D Q
  1. ..N X
  1. ..S X=$$RIF^DIQGDDU(DA,DIQGSAL,DIQGTA)
  1. ..S:X]"" @DIQGTA@(DIQGSAL)=X
  1. ..Q
  1. .S DIQGTAXX=$S('$D(DIQGSAL(DIQGSAL,"#(word-processing)")):DIQGTA,1:$$OREF^DIQGDD(DIQGTA)_$$Q^DIQGDD(DIQGSAL)_")")
  1. .S DIQGSALX=$$GET^DIQG("^DIC(",DA,DIQGSAL(DIQGSAL),DIQGPARM,DIQGTAXX,"","1A")
  1. SETF .I DIQGSALX]"" S @DIQGTA@(DIQGSAL)=DIQGSALX Q
  1. .Q:DIQGFNUL
  1. .S @DIQGTA@(DIQGSAL)=DIQGSALX
  1. .Q
  1. Q