Last change
on this file since 1128 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
561 bytes
|
Line | |
---|
1 | DGMTDOM ;ALB/TET,RMO - Check if DOM/NH patient requires a means test ;6/1/92 10:00 am
|
---|
2 | ;;5.3;Registration;**61**;Aug 13, 1993
|
---|
3 | ;
|
---|
4 | EN ;Entry point from the movement event driver
|
---|
5 | N DGMSGF,DGREQF
|
---|
6 | ;I DGPMP="",$P(DGPMA,"^",2)=2,"^13^44^"[("^"_$P(DGPMA,"^",18)_"^") I $$CK(DGPMA) S DGMSGF=1 D EN^DGMTR D DIS^DGMTU(DFN)
|
---|
7 | S DGMSGF=1 D EN^DGMTR I '$G(DGQUIET) D DIS^DGMTU(DFN)
|
---|
8 | Q
|
---|
9 | ;
|
---|
10 | CK(X) ;Check if patient is being transferred from a DOM or NH
|
---|
11 | N Y
|
---|
12 | I $D(^DGPM(+$P(X,"^",14),0)),$D(^DIC(42,+$P(^(0),"^",6),0)) S:$P(^(0),"^",3)="D"!($P(^(0),"^",3)="NH") Y=1
|
---|
13 | Q +$G(Y)
|
---|
Note:
See
TracBrowser
for help on using the repository browser.