source: FOIAVistA/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVMCUF1.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 1020 bytes
Line 
1IVMCUF1 ;ALB/KCL - GENERIC DCD FUNCTIONS ; 24-JUL-95
2 ;;2.0;INCOME VERIFICATION MATCH;**17**;21-OCT-94
3 ;
4 ; This routine contains generic functions which are used throughout
5 ; the DCD/IVM module.
6 ;
7 ;
8PAUSE ; Function to check if primary elig. is on file:
9 ; - If primary elig. is on file --> quit
10 ; - Check if primary elig. on file every 30 sec. for 1/2 hour
11 ;
12 ; Input: DFN -- Pointer to the patient in file (#2)
13 ;
14 N IVMTRY
15 I '$G(DFN) G PAUSEQ
16 F IVMTRY=1:1:60 D
17 .Q:$$ELIG(DFN)
18 .H 30
19PAUSEQ Q
20 ;
21 ;
22ELIG(DFN) ; Check if patient has Primary Eligibility on file
23 ;
24 ; Input: DFN -- pointer to patient in file (#2)
25 ;
26 ; Output: 1 --> if patient has primary eligibillity on file in Patient
27 ; (#2) file
28 ; 0 --> if patient does not have primary eligibillity on file
29 ; in Patient (#2) file
30 ;
31 N IVMELIG
32 I '$G(DFN) G ELIGQ
33 ; - check if PRIMARY ELIGIBILITY CODE (#.361) field on file
34 S IVMELIG=$S($P($G(^DPT(+DFN,.36)),"^"):1,1:0)
35ELIGQ Q $G(IVMELIG)
Note: See TracBrowser for help on using the repository browser.