source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGENELA3.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1DGENELA3 ;ALB/CJM - Patient Eligibility API ; 13 JUN 1997
2 ;;5.3;Registration;**147**;08/13/93
3 ;
4FILE(SUB) ;
5 ;Description: Given a subscript from the ELIGIBILITY object array,
6 ;returns the corresponding file number.
7 ;
8 ;Input:
9 ; SUB - subscript from the ELIGIBILITY object array
10 ;
11 ;Output:
12 ; FUNCTION RETURN VALUE - the file the array subscript is mapped to, or NULL if mapping not found
13 ;
14 Q:SUB="MTSTA" "" ;don't map Means Test Category
15 Q:SUB="RD" 2.04
16 Q:SUB="PER" 2.04
17 Q:SUB="RDSC" 2.04
18 ;
19 Q 2
20EXT(SUB,VAL) ;
21 ;Description: Given the subscript used in the ELIGIBILITY object array,
22 ; and a field value, returns the external representation of the
23 ; value.
24 ;Input:
25 ; SUB - subscript in the array defined by the ELIGIBILTY object array
26 ; VAL - field value
27 ;
28 ;Output:
29 ; Function Value - returns the external value of the attribute
30 ;
31 Q:(($G(SUB)="")!($G(VAL)="")) ""
32 ;
33 N FLD,FILE
34 S FILE=$$FILE(SUB)
35 S FLD=$$FIELD^DGENELA1(SUB)
36 ;
37 Q:(FLD="") ""
38 Q $$EXTERNAL^DILFD(FILE,FLD,"F",VAL)
Note: See TracBrowser for help on using the repository browser.