Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1020 bytes
|
Rev | Line | |
---|
[628] | 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.