Return to DIQGDDU.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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:"")