IVMCMZ.m

IVMCMZ ;ALB/EJG- PROCESS INCOME TEST (Z10) TRANSMISSIONS - EXTRINSICS ; 03/17/02 1:43pm

 ;;2.0;INCOME VERIFICATION MATCH;**77**;21-OCT-94

 ;

DOM(DFN) ; Is patient in a DOM?

 ;  Input:    DFN - pointer to pt in file (#2)

 ; Output: IVMDOM - Is the patient in a DOM?  0 => NO | 1 => YES

 ;

 N IVMDOM,VAINDT,VADMVT

 D ADM^VADPT2

 I VADMVT,$P($G(^DG(43,1,0)),"^",21),$D(^DIC(42,+$P($G(^DGPM(VADMVT,0)),"^",6),0)),$P(^(0),"^",3)="D" S IVMDOM=1

 Q +$G(IVMDOM)

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IVMCMZ   469     printed  Dec 13, 2024@02:01:34                                                                                                                                                                                                       Page 2

IVMCMZ    ;ALB/EJG- PROCESS INCOME TEST (Z10) TRANSMISSIONS - EXTRINSICS ; 03/17/02 1:43pm

 +1       ;;2.0;INCOME VERIFICATION MATCH;**77**;21-OCT-94

 +2       ;

DOM(DFN)  ; Is patient in a DOM?

 +1       ;  Input:    DFN - pointer to pt in file (#2)

 +2       ; Output: IVMDOM - Is the patient in a DOM?  0 => NO | 1 => YES

 +3       ;

 +4        NEW IVMDOM,VAINDT,VADMVT

 +5        DO ADM^VADPT2

 +6        IF VADMVT

               IF $PIECE($GET(^DG(43,1,0)),"^",21)

                   IF $DATA(^DIC(42,+$PIECE($GET(^DGPM(VADMVT,0)),"^",6),0))

                       IF $PIECE(^(0),"^",3)="D"

                           SET IVMDOM=1

 +7        QUIT +$GET(IVMDOM)

 +8       ;