source: IHS-VA_UTILITIES-XB/trunk/XBDIQ0.m@ 1681

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
        ;