Return to DIOC.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIOC.m, revision 1.1

1.1     ! snw         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