DGENELA3.m

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

 ;;5.3;Registration;**147**;08/13/93

 ;

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)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGENELA3   1062     printed  Apr 09, 2024@21:58:36                                                                                                                                                                                                    Page 2

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

 +1       ;;5.3;Registration;**147**;08/13/93

 +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)