source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIU5.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 644 bytes
Line 
1DIU5 ;SFISC/TKW-QUERY CONDITION EXTRINSIC FUNCTIONS ;8/27/93 13:41
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4BEF(X,Y,N) ; X BEFORE Y
5 I $G(N)="'" G:Y']]X Q1 Q 0
6 G:Y]]X Q1 Q 0
7Q1 Q 1
8AFT(X,Y,N) ; X AFTER Y
9 I $G(N)="'" G:X']]Y Q1 Q 0
10 G:X]]Y Q1 Q 0
11BTWI(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
14BTWE(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
17EQ(X,Y,N) ;X EQUALS Y
18 I $G(N)="'" G:X'=Y Q1 Q 0
19 G:X=Y Q1 Q 0
20NULL(X,N) ;X IS NULL
21 I $G(N)="'" G:X'="" Q1 Q 0
22 G:X="" Q1 Q 0
Note: See TracBrowser for help on using the repository browser.