Last change
on this file since 952 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
457 bytes
|
Rev | Line | |
---|
[628] | 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.