- 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 Feb 19, 2025@00:20:54 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