Return to DIQGDDU.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIQGDDU.m, revision 1.1.1.1

1.1       snw         1: DIQGDDU        ;SFISC/DCL-DATA DICTIONARY UTILITIES ;10:55 AM  1 Aug 1994;
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4:        Q
                      5: FL(DIQGFILE,DIQGFLD)   ;RETURNS FIELD LENGTH
                      6:        ;FILENUMBER,FIELDNUMBER
                      7:        ;Short version of DIOS1
                      8:        I $G(DIQGFILE)'>0 D ERR202("FILE NUMBER") Q ""
                      9:        I $G(DIQGFLD)'>0 D ERR202("FIELD NUMBER") Q ""
                     10:        I '$D(^DD(DIQGFILE,DIQGFLD,0)) D ERR1700("DD FOR FILE#"_DIQGFILE_", FIELD#"_DIQGFLD_" DOES NOT EXIST") Q ""
                     11:        N DN,W
                     12: X      S DN=$P(^(0),"^",2),W=+$P(DN,"J",2) G DJ:W I $P(DN,"P",2)!(DN) G X:$D(^DD($S(DN:DN,1:+$P(DN,"P",2)),.01,0)),DJ
                     13:        I DN["C",DN'["J" S W=30
                     14:        I DN'["F" S W=13 G DJ
                     15:        S W=+$P(^(0),"$L(X)>",2) S:'W W=30
                     16: DJ     Q W
                     17:        ;
                     18: ERR202(DIQGERR)        ;Error processing
                     19:        N P S P(1)=DIQGERR
                     20:        D BLD^DIALOG(202,.P)
                     21:        Q
                     22: ERR1700(DIQGERR)       ;Error processing
                     23:        N P S P(1)=DIQGERR
                     24:        D BLD^DIALOG(1700,.P)
                     25:        Q
                     26:        ;
                     27: RIF(DA,DR,DIQGETA)     ;FUNCTION CALL FOR RI
                     28: RI     ;REQUIRED IDENTIFIERS - CALLED BY EN3^DIQGDD
                     29:        ;DA=FILENR,DR="REQUIRED IDENTIFIERS",DIQGETA=TARGET_ARRAY
                     30:        N DIQGRIA,DIQGRI,DIQGR
                     31:        D REQIDS^DICU(DA,"DIQGRIA")
                     32:        S DIQGRIA="",DIQGRI=0
                     33:        F  S DIQGRIA=$O(DIQGRIA(DR,DIQGRIA)) Q:DIQGRIA=""  D
                     34:        .S DIQGRI=DIQGRI+1,@DIQGETA@(DR,DIQGRI,"FIELD")=DIQGRIA
                     35:        .Q
                     36:        Q $S(DIQGRI:$NA(@DIQGETA@(DR)),1:"")