Return to DILF.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DILF	;SFISC/STAFF-LIBRARY OF FUNCTIONS ;6/7/94  10:47
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 	Q
    5: CREF(X)	G ENCREF^DIQGU
    6: 	;
    7: OREF(X)	G ENOREF^DIQGU
    8: 	;
    9: FDA(DIEFF,DIEFDAS,DIEFFLD,DIEFFLG,DIEFVAL,DIEFAR,DIEFOUT)	;
   10: 	G LOADX^DIEF1
   11: 	;
   12: CLEAN	;
   13: 	G CLEAN^DIEFU
   14: 	;
   15: IENS(DIEFDA)	;
   16: 	G IENX^DIEFU
   17: 	;
   18: DA(DAIEN,DATARG)	;
   19: 	G DAX^DIEFU
   20: 	;
   21: DT(DIEFDT,DIEFX,DIEFY,DIEFDT0,DIOUTAR)	;
   22: 	G DTX^DIEFU
   23: 	;
   24: VALUES(DILFILE,DILFLD,DILFDA,DILOUT)	;
   25: 	I $G(DILFILE)=""!($G(DILFLD)="")!($G(DILFDA)="") S DILOUT=0 Q
   26: 	K DILOUT
   27: 	N DILCNT,DILIEN
   28: 	S DILIEN=""
   29: 	D VALLOOP
   30: 	S DILOUT=DILCNT
   31: 	Q
   32: 	;
   33: VALLOOP	;
   34: 	S DILCNT=0
   35: 	F  S DILIEN=$O(@DILFDA@(DILFILE,DILIEN)) Q:DILIEN=""  D
   36: 	. I $D(@DILFDA@(DILFILE,DILIEN,DILFLD)) D
   37: 	. . S DILCNT=DILCNT+1
   38: 	. . S DILOUT(DILCNT)=@DILFDA@(DILFILE,DILIEN,DILFLD)
   39: 	. . S DILOUT(DILCNT,"IENS")=DILIEN
   40: 	Q
   41: 	;
   42: VALUE1(DILFILE,DILFLD,DILFDA)	;
   43: 	I $G(DILFILE)=""!($G(DILFLD)="")!($G(DILFDA)="") Q "^"
   44: 	N DILIEN
   45: 	S DILIEN=$O(@DILFDA@(DILFILE,""))
   46: 	I DILIEN="" Q "^"
   47: 	I $D(@DILFDA@(DILFILE,DILIEN,DILFLD)) Q @DILFDA@(DILFILE,DILIEN,DILFLD)
   48: 	N DILCNT,DILOUT
   49: 	D VALLOOP
   50: 	I DILCNT Q DILOUT(1)
   51: 	Q "^"
   52: 	;
   53: ROUSIZE()	;
   54: 	Q $G(^DD("ROU"))
   55: 	;