|
Last change
on this file since 1582 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.
