36 lines
1020 B
Mathematica
36 lines
1020 B
Mathematica
IVMCUF1 ;ALB/KCL - GENERIC DCD FUNCTIONS ; 24-JUL-95
|
|
;;2.0;INCOME VERIFICATION MATCH;**17**;21-OCT-94
|
|
;
|
|
; This routine contains generic functions which are used throughout
|
|
; the DCD/IVM module.
|
|
;
|
|
;
|
|
PAUSE ; Function to check if primary elig. is on file:
|
|
; - If primary elig. is on file --> quit
|
|
; - Check if primary elig. on file every 30 sec. for 1/2 hour
|
|
;
|
|
; Input: DFN -- Pointer to the patient in file (#2)
|
|
;
|
|
N IVMTRY
|
|
I '$G(DFN) G PAUSEQ
|
|
F IVMTRY=1:1:60 D
|
|
.Q:$$ELIG(DFN)
|
|
.H 30
|
|
PAUSEQ Q
|
|
;
|
|
;
|
|
ELIG(DFN) ; Check if patient has Primary Eligibility on file
|
|
;
|
|
; Input: DFN -- pointer to patient in file (#2)
|
|
;
|
|
; Output: 1 --> if patient has primary eligibillity on file in Patient
|
|
; (#2) file
|
|
; 0 --> if patient does not have primary eligibillity on file
|
|
; in Patient (#2) file
|
|
;
|
|
N IVMELIG
|
|
I '$G(DFN) G ELIGQ
|
|
; - check if PRIMARY ELIGIBILITY CODE (#.361) field on file
|
|
S IVMELIG=$S($P($G(^DPT(+DFN,.36)),"^"):1,1:0)
|
|
ELIGQ Q $G(IVMELIG)
|