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

DGENELA3.m

Go to the documentation of this file.
  1. DGENELA3 ;ALB/CJM - Patient Eligibility API ; 13 JUN 1997
  1. ;;5.3;Registration;**147**;08/13/93
  1. ;
  1. FILE(SUB) ;
  1. ;Description: Given a subscript from the ELIGIBILITY object array,
  1. ;returns the corresponding file number.
  1. ;
  1. ;Input:
  1. ; SUB - subscript from the ELIGIBILITY object array
  1. ;
  1. ;Output:
  1. ; FUNCTION RETURN VALUE - the file the array subscript is mapped to, or NULL if mapping not found
  1. ;
  1. Q:SUB="MTSTA" "" ;don't map Means Test Category
  1. Q:SUB="RD" 2.04
  1. Q:SUB="PER" 2.04
  1. Q:SUB="RDSC" 2.04
  1. ;
  1. Q 2
  1. EXT(SUB,VAL) ;
  1. ;Description: Given the subscript used in the ELIGIBILITY object array,
  1. ; and a field value, returns the external representation of the
  1. ; value.
  1. ;Input:
  1. ; SUB - subscript in the array defined by the ELIGIBILTY object array
  1. ; VAL - field value
  1. ;
  1. ;Output:
  1. ; Function Value - returns the external value of the attribute
  1. ;
  1. Q:(($G(SUB)="")!($G(VAL)="")) ""
  1. ;
  1. N FLD,FILE
  1. S FILE=$$FILE(SUB)
  1. S FLD=$$FIELD^DGENELA1(SUB)
  1. ;
  1. Q:(FLD="") ""
  1. Q $$EXTERNAL^DILFD(FILE,FLD,"F",VAL)