Return to DIOC.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIOC.m, revision 1.1.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