Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DIU5

DIU5.m

Go to the documentation of this file. 
  1. DIU5 ;SFISC/TKW-QUERY CONDITION EXTRINSIC FUNCTIONS ;8/27/93  13:41
  1.  ;;22.0;VA FileMan;;Mar 30, 1999
  1.  ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. BEF(X,Y,N) ; X BEFORE Y
  1.  I $G(N)="'" G:Y']]X Q1 Q 0
  1.  G:Y]]X Q1 Q 0
  1. Q1 Q 1
  1. AFT(X,Y,N) ; X AFTER Y
  1.  I $G(N)="'" G:X']]Y Q1 Q 0
  1.  G:X]]Y Q1 Q 0
  1. BTWI(X,Y,Z,N) ;X BETWEEN INCLUSIVE Y & Z
  1.  I $G(N)="'" G:Y]]X Q1 G:X]]Z Q1 Q 0
  1.  G:(Y']]X)&(X']]Z) Q1 Q 0
  1. BTWE(X,Y,Z,N) ;X BETWEEN EXCLUSIVE Y & Z
  1.  I $G(N)="'" G:X']]Y Q1 G:Z']]X Q1 Q 0
  1.  G:(X]]Y)&(Z]]X) Q1 Q 0
  1. EQ(X,Y,N) ;X EQUALS Y
  1.  I $G(N)="'" G:X'=Y Q1 Q 0
  1.  G:X=Y Q1 Q 0
  1. NULL(X,N) ;X IS NULL
  1.  I $G(N)="'" G:X'="" Q1 Q 0
  1.  G:X="" Q1 Q 0