source: WorldVistAEHR/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVMCMZ.m@ 1093

Last change on this file since 1093 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 457 bytes
Line 
1IVMCMZ ;ALB/EJG- PROCESS INCOME TEST (Z10) TRANSMISSIONS - EXTRINSICS ; 03/17/02 1:43pm
2 ;;2.0;INCOME VERIFICATION MATCH;**77**;21-OCT-94
3 ;
4DOM(DFN) ; Is patient in a DOM?
5 ; Input: DFN - pointer to pt in file (#2)
6 ; Output: IVMDOM - Is the patient in a DOM? 0 => NO | 1 => YES
7 ;
8 N IVMDOM,VAINDT,VADMVT
9 D ADM^VADPT2
10 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
11 Q +$G(IVMDOM)
12 ;
Note: See TracBrowser for help on using the repository browser.