Last change
on this file since 1785 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
457 bytes
|
Line | |
---|
1 | IVMCMZ ;ALB/EJG- PROCESS INCOME TEST (Z10) TRANSMISSIONS - EXTRINSICS ; 03/17/02 1:43pm
|
---|
2 | ;;2.0;INCOME VERIFICATION MATCH;**77**;21-OCT-94
|
---|
3 | ;
|
---|
4 | DOM(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.