|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 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.
