source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIOC.m@ 1717

Last change on this file since 1717 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1DIOC ;SFISC/TKW-GENERATE CODE TO CHECK QUERY CONDITIONS ;04:18 PM 13 Feb 2002
2 ;;22.0;VA FileMan;**97**;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4BEF(X,Y,N,M) ; BEFORE (X before Y)
5 N Z D Q(.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
9AFT(X,Y,N,M) ; AFTER (X after Y)
10 N Z D Q(.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
13BTWI(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="" D Q(.F) S Z=F_"']]"_X
18 S Z="("_Z_")&("_$$AFT(X,T,"'")_")" Q Z
19BTWE(X,F,T,N) ;BETWEEN EXCLUSIVE
20 N Z D Q(.T)
21 I $G(N)="'" S Z="("_$$AFT(X,F,"'")_")!("_T_"']]"_X_")" Q Z
22 S Z="("_$$AFT(X,F)_")&("_T_"]]"_X_")" Q Z
23EQ(X,Y,N) ;EQUALS
24 N Z S:$G(N)'="'" N="" D Q(.Y) S Z=X_N_"="_Y Q Z
25NULL(X,N) ;NULL
26 N Z S:$G(N)'="'" N="" S Z=X_N_"=""""" Q Z
27 ;
28Q(X) ;
29 I +$P(X,"E")'=X S X=""""_$$CONVQQ^DILIBF(X)_""""
30 Q
Note: See TracBrowser for help on using the repository browser.