Return to DIU5.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DIU5	;SFISC/TKW-QUERY CONDITION EXTRINSIC FUNCTIONS ;8/27/93  13:41
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: BEF(X,Y,N)	; X BEFORE Y
    5: 	I $G(N)="'" G:Y']]X Q1 Q 0
    6: 	G:Y]]X Q1 Q 0
    7: Q1	Q 1
    8: AFT(X,Y,N)	; X AFTER Y
    9: 	I $G(N)="'" G:X']]Y Q1 Q 0
   10: 	G:X]]Y Q1 Q 0
   11: BTWI(X,Y,Z,N)	;X BETWEEN INCLUSIVE Y & Z
   12: 	I $G(N)="'" G:Y]]X Q1 G:X]]Z Q1 Q 0
   13: 	G:(Y']]X)&(X']]Z) Q1 Q 0
   14: BTWE(X,Y,Z,N)	;X BETWEEN EXCLUSIVE Y & Z
   15: 	I $G(N)="'" G:X']]Y Q1 G:Z']]X Q1 Q 0
   16: 	G:(X]]Y)&(Z]]X) Q1 Q 0
   17: EQ(X,Y,N)	;X EQUALS Y
   18: 	I $G(N)="'" G:X'=Y Q1 Q 0
   19: 	G:X=Y Q1 Q 0
   20: NULL(X,N)	;X IS NULL
   21: 	I $G(N)="'" G:X'="" Q1 Q 0
   22: 	G:X="" Q1 Q 0