Return to DIQGDDU.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIQGDDU.m, revision 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:"")