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)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVMCUF1 1055 printed Dec 13, 2024@02:01:39 Page 2
IVMCUF1 ;ALB/KCL - GENERIC DCD FUNCTIONS ; 24-JUL-95
+1 ;;2.0;INCOME VERIFICATION MATCH;**17**;21-OCT-94
+2 ;
+3 ; This routine contains generic functions which are used throughout
+4 ; the DCD/IVM module.
+5 ;
+6 ;
PAUSE ; Function to check if primary elig. is on file:
+1 ; - If primary elig. is on file --> quit
+2 ; - Check if primary elig. on file every 30 sec. for 1/2 hour
+3 ;
+4 ; Input: DFN -- Pointer to the patient in file (#2)
+5 ;
+6 NEW IVMTRY
+7 IF '$GET(DFN)
GOTO PAUSEQ
+8 FOR IVMTRY=1:1:60
Begin DoDot:1
+9 if $$ELIG(DFN)
QUIT
+10 HANG 30
End DoDot:1
PAUSEQ QUIT
+1 ;
+2 ;
ELIG(DFN) ; Check if patient has Primary Eligibility on file
+1 ;
+2 ; Input: DFN -- pointer to patient in file (#2)
+3 ;
+4 ; Output: 1 --> if patient has primary eligibillity on file in Patient
+5 ; (#2) file
+6 ; 0 --> if patient does not have primary eligibillity on file
+7 ; in Patient (#2) file
+8 ;
+9 NEW IVMELIG
+10 IF '$GET(DFN)
GOTO ELIGQ
+11 ; - check if PRIMARY ELIGIBILITY CODE (#.361) field on file
+12 SET IVMELIG=$SELECT($PIECE($GET(^DPT(+DFN,.36)),"^"):1,1:0)
ELIGQ QUIT $GET(IVMELIG)