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

LRLRRVF.m

Go to the documentation of this file.
  1. LRLRRVF ;LAB REFERENCE RANGE VALUE FORMATTING - LAB UTILITY; SLC-GDU; 5/25/07 3:50pm ; 5/29/07 3:21pm
  1. ;;5.2;LAB SERVICE;**372**;Sep 27, 1994;Build 11
  1. EN(RLV,RHV) ;Entry point for this routine
  1. ;RLV - Range low value
  1. ;RHV - Range high value
  1. ;If both are null return the low value and quit
  1. I RLV="",RHV="" Q RLV
  1. ;If only the low is defined
  1. I RLV'="",RHV="" D Q RLV
  1. . I RLV=0 S RLV="Ref: >="_RLV Q
  1. . I ($E(RLV,1,1)="<")!($E(RLV,1,1)=">") S RLV="Ref: "_RLV Q
  1. . I (RLV?.N.".".N) S RLV="Ref: >="_RLV Q
  1. . S RLV="Ref: "_RLV
  1. ;If only the high is defined
  1. I RLV="",RHV'="" D Q RHV
  1. . I RHV=0 S RHV="Ref: "_RHV Q
  1. . I ($E(RHV,1,1)="<")!($E(RHV,1,1)=">") S RHV="Ref: "_RHV Q
  1. . I (RHV?.N.".".N) S RHV="Ref: <="_RHV Q
  1. . S RHV="Ref: "_RHV
  1. ;If both are defined
  1. Q RLV_" - "_RHV