IVMCUF1.m

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 ---IVMCUF1   1055     printed  Apr 09, 2024@21:02:10                                                                                                                                                                                                     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)