DGENELA3.m

DGENELA3 ;ALB/CJM - Patient Eligibility API ; 13 JUN 1997

 ;;5.3;Registration;**147,1015**;08/13/93;Build 21

 ;

FILE(SUB) ;

 ;Description: Given a subscript from the ELIGIBILITY object array, 

 ;returns the corresponding file number.

 ;

 ;Input:

 ;  SUB - subscript from the ELIGIBILITY object array

 ;

 ;Output:

 ;  FUNCTION RETURN VALUE - the file the array subscript is mapped to, or NULL if mapping not found

 ;

 Q:SUB="MTSTA" ""  ;don't map Means Test Category

 Q:SUB="RD" 2.04

 Q:SUB="PER" 2.04

 Q:SUB="RDSC" 2.04

 ;

 Q 2

EXT(SUB,VAL) ;

 ;Description: Given the subscript used in the ELIGIBILITY object array,

 ;     and a field value, returns the external representation of the

 ;     value.

 ;Input: 

 ;  SUB - subscript in the array defined by the ELIGIBILTY object array

 ;  VAL - field value

 ;

 ;Output:

 ;  Function Value - returns the external value of the attribute

 ;

 Q:(($G(SUB)="")!($G(VAL)="")) ""

 ;

 N FLD,FILE

 S FILE=$$FILE(SUB)

 S FLD=$$FIELD^DGENELA1(SUB)

 ;

 Q:(FLD="") ""

 Q $$EXTERNAL^DILFD(FILE,FLD,"F",VAL)

DGENELA3  ;ALB/CJM - Patient Eligibility API ; 13 JUN 1997

 +1       ;;5.3;Registration;**147,1015**;08/13/93;Build 21

 +2       ;

FILE(SUB) ;

 +1       ;Description: Given a subscript from the ELIGIBILITY object array, 

 +2       ;returns the corresponding file number.

 +3       ;

 +4       ;Input:

 +5       ;  SUB - subscript from the ELIGIBILITY object array

 +6       ;

 +7       ;Output:

 +8       ;  FUNCTION RETURN VALUE - the file the array subscript is mapped to, or NULL if mapping not found

 +9       ;

 +10      ;don't map Means Test Category

           IF SUB="MTSTA"

               QUIT ""

 +11       IF SUB="RD"

               QUIT 2.04

 +12       IF SUB="PER"

               QUIT 2.04

 +13       IF SUB="RDSC"

               QUIT 2.04

 +14      ;

 +15       QUIT 2

EXT(SUB,VAL) ;

 +1       ;Description: Given the subscript used in the ELIGIBILITY object array,

 +2       ;     and a field value, returns the external representation of the

 +3       ;     value.

 +4       ;Input: 

 +5       ;  SUB - subscript in the array defined by the ELIGIBILTY object array

 +6       ;  VAL - field value

 +7       ;

 +8       ;Output:

 +9       ;  Function Value - returns the external value of the attribute

 +10      ;

 +11       IF (($GET(SUB)="")!($GET(VAL)=""))

               QUIT ""

 +12      ;

 +13       NEW FLD,FILE

 +14       SET FILE=$$FILE(SUB)

 +15       SET FLD=$$FIELD^DGENELA1(SUB)

 +16      ;

 +17       IF (FLD="")

               QUIT ""

 +18       QUIT $$EXTERNAL^DILFD(FILE,FLD,"F",VAL)