Return to DIOC.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DIOC	;SFISC/TKW-GENERATE CODE TO CHECK QUERY CONDITIONS ;8/25/93  16:01
    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,M)	; BEFORE  (X before Y)
    5: 	N Z S:+$P(Y,"E")'=Y Y=""""_Y_""""
    6: 	I $G(N)="'" S Z=Y_"']]"_X Q Z
    7: 	S Z="" S:$G(M)]"" Z=X_"]"""","
    8: 	S Z=Z_Y_"]]"_X Q Z
    9: AFT(X,Y,N,M)	; AFTER (X after Y)
   10: 	N Z S:+$P(Y,"E")'=Y Y=""""_Y_""""
   11: 	I $G(N)="'" S Z="" S:$G(M)]"" Z=X_"]""""," S Z=Z_X_"']]"_Y Q Z
   12: 	S Z=X_"]]"_Y Q Z
   13: BTWI(X,F,T,N,S)	;BETWEEN INCLUSIVE  (NOTE: Param.'S' defined only if called from sort.
   14: 	S S=$G(S) N Z
   15: 	I $G(N)="'" S Z="("_$$BEF(X,F)_")!("_$$AFT(X,T)_")" Q Z
   16: 	S:S]"" Z=$$AFT(X,F)
   17: 	I S="" S:+$P(F,"E")'=F F=""""_F_"""" S Z=F_"']]"_X
   18: 	S Z="("_Z_")&("_$$AFT(X,T,"'")_")" Q Z
   19: BTWE(X,F,T,N)	;BETWEEN EXCLUSIVE
   20: 	N Z S:+$P(T,"E")'=T T=""""_T_""""
   21: 	I $G(N)="'" S Z="("_$$AFT(X,F,"'")_")!("_T_"']]"_X_")" Q Z
   22: 	S Z="("_$$AFT(X,F)_")&("_T_"]]"_X_")" Q Z
   23: EQ(X,Y,N)	;EQUALS
   24: 	N Z S:$G(N)'="'" N="" S:+$P(Y,"E")'=Y Y=""""_Y_"""" S Z=X_N_"="_Y Q Z
   25: NULL(X,N)	;NULL
   26: 	N Z S:$G(N)'="'" N="" S Z=X_N_"=""""" Q Z