Last change
on this file since 1785 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1020 bytes
|
Line | |
---|
1 | IVMCUF1 ;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 | ;
|
---|
8 | PAUSE ; 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
|
---|
19 | PAUSEQ Q
|
---|
20 | ;
|
---|
21 | ;
|
---|
22 | ELIG(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)
|
---|
35 | ELIGQ Q $G(IVMELIG)
|
---|
Note:
See
TracBrowser
for help on using the repository browser.