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.2;VA FileMan;;Jan 05, 2016;Build 42
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
  1. ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
  1. ;;Licensed under the terms of the Apache License, Version 2.0.
  1. ;
  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