XBDIQ0	; IHS/ADC/GTH - Documentation for XBDIQ1 ; [ 02/07/97   3:02 PM ]
	;;4.0;XB;;Jul 20, 2009;Build 2
	;
	; Documentation for XBDIQ1
	;
	; This routine provides a friendly front end to EN^DIQ1 and
	; an assortment of other features.
	;
	; 1. Data arrays are returned into 'DIQ in a variety of
	;    formats controlled by the parameter set into DIQ(0). 
	;    The default is 'DIQ(FLDNUM)= external value of field
	;    FLDNUM is the DD number of the field as used in DR.
	;
	; 2. Data retrieval is non-intrusive! Does not disturb the
	;    partition.
	;
	; 3. Input Variables used are the same as for EN^DIQ1 with
	;    more friendly results.
	;
	; 4. DR(filenumber and DA(filenumber arrays are
	;    automatically built when needed.
	;
	; ENTRY POINTS
	;
	; ENP^XBDIQ1(DIC,DA,DR,DIQ,DIQ(0)) 
	;    Returns 'DIQ(FLDNUM)= data for One Entry.
	;
	; ENPM^XBDIQ1(DIC,DA,DR,DIQ,DIQ(0))
	;    Returns 'DIQ(DA,FLDNUM)= data for Multiple Entries.
	;    DIC("S") can be set and used for screening entries.
	;
	; $$VAL^XBDIQ1(DIC,DA,DR)   
	;    Returns External value of one field.
	;
	; $$VALI^XBDIQ1(DIC,DA,DR)    
	;    Returns Internal value of one field.
	;
	; $$DIC^XBDIQ1(DIC)  Returns constructed DIC from
	;    file/subfile number.
	;
	; PARSE^XBDIQ1(DA)
	;    Returns a DA array from a literal string made from
	;    Variables or Numbers mixed in descending order.
	;    EXMP: "1,DFN,56" => DA=56,DA(1)=34,DA(2)=1 where DFN=34
	;    also: S VAR(I)="1,DFN,56" D PARSE^XBDIQ1(VAR(I)) => as
	;    above.
	;
	; EN             Returns one Entry (DR) fields.
	;                Needs DIC,DA,DR,DIQ,DIQ(0) as set up for
	;                calls to EN^DIQ1.
	;
	; ENM            Returns Multiple Entry's (DR) fields
	;                 1) upper DA array ie: DA(1),DA(2), ...
	;                 2) DA="" in the passing array
	;                 3) optional DIC("S")
	;                Needs DIC,DA,DR,DIQ,DIQ(0) as set up for
	;                calls to EN^DIQ1.
	;                DIQ(0)=1 by default.
	;
	; DIQ(0)   Format Options.
	;
	; DIQ(0)          If DIQ(0) is not present the default is
	;                 set to NULL.
	;
	;   0 OR NULL     DIQ(FLD)=
	;   1             DIQ(DA,FLD)=
	;   2             DIQ(DA(x),..,DA,FLD)=
	;   nI            DIQ(... ,FLD,"I")=internal value(s) returned
	;   nN            NULL fields are not returned
	;
	;   DA can be the array .DA or a literal string in descending
	;   order.
	;                "1,23,45"
	;                "1,PATDFN,BLDFN" variables will be unfolded.
	;                BARVDA("EOBSUB")
	;                  ("EOBSUB")="BAFCLDA,BARITDA,BAREDA"
	;
	;
	Q
	;