DIU5 ;SFISC/TKW-QUERY CONDITION EXTRINSIC FUNCTIONS ;8/27/93 13:41
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
BEF(X,Y,N) ; X BEFORE Y
I $G(N)="'" G:Y']]X Q1 Q 0
G:Y]]X Q1 Q 0
Q1 Q 1
AFT(X,Y,N) ; X AFTER Y
I $G(N)="'" G:X']]Y Q1 Q 0
G:X]]Y Q1 Q 0
BTWI(X,Y,Z,N) ;X BETWEEN INCLUSIVE Y & Z
I $G(N)="'" G:Y]]X Q1 G:X]]Z Q1 Q 0
G:(Y']]X)&(X']]Z) Q1 Q 0
BTWE(X,Y,Z,N) ;X BETWEEN EXCLUSIVE Y & Z
I $G(N)="'" G:X']]Y Q1 G:Z']]X Q1 Q 0
G:(X]]Y)&(Z]]X) Q1 Q 0
EQ(X,Y,N) ;X EQUALS Y
I $G(N)="'" G:X'=Y Q1 Q 0
G:X=Y Q1 Q 0
NULL(X,N) ;X IS NULL
I $G(N)="'" G:X'="" Q1 Q 0
G:X="" Q1 Q 0
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIU5 873 printed Nov 22, 2024@18:04:36 Page 2
DIU5 ;SFISC/TKW-QUERY CONDITION EXTRINSIC FUNCTIONS ;8/27/93 13:41
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
BEF(X,Y,N) ; X BEFORE Y
+1 IF $GET(N)="'"
if Y']]X
GOTO Q1
QUIT 0
+2 if Y]]X
GOTO Q1
QUIT 0
Q1 QUIT 1
AFT(X,Y,N) ; X AFTER Y
+1 IF $GET(N)="'"
if X']]Y
GOTO Q1
QUIT 0
+2 if X]]Y
GOTO Q1
QUIT 0
BTWI(X,Y,Z,N) ;X BETWEEN INCLUSIVE Y & Z
+1 IF $GET(N)="'"
if Y]]X
GOTO Q1
if X]]Z
GOTO Q1
QUIT 0
+2 if (Y']]X)&(X']]Z)
GOTO Q1
QUIT 0
BTWE(X,Y,Z,N) ;X BETWEEN EXCLUSIVE Y & Z
+1 IF $GET(N)="'"
if X']]Y
GOTO Q1
if Z']]X
GOTO Q1
QUIT 0
+2 if (X]]Y)&(Z]]X)
GOTO Q1
QUIT 0
EQ(X,Y,N) ;X EQUALS Y
+1 IF $GET(N)="'"
if X'=Y
GOTO Q1
QUIT 0
+2 if X=Y
GOTO Q1
QUIT 0
NULL(X,N) ;X IS NULL
+1 IF $GET(N)="'"
if X'=""
GOTO Q1
QUIT 0
+2 if X=""
GOTO Q1
QUIT 0