Last change
on this file since 1806 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
561 bytes
|
Rev | Line | |
---|
[613] | 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.