- 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 Jan 18, 2025@03:43:24 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)