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 ---[H[J[2J[HDGENELA3 1062 printed Oct 16, 2024@18:43:21 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)
