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