Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
453 bytes
|
Line | |
---|
1 | DVBAALRT ;ALB/THM-ALERT RO REPORTS THAT ARE READY ; 1/16/91 7:11 AM
|
---|
2 | ;;2.7;AMIE;;Apr 10, 1995
|
---|
3 | EN I '$D(IOF) D HOME^%ZIS
|
---|
4 | D DUZ2^DVBAUTIL I $D(DVBAQUIT) K DVBAQUIT,DVBAD2 Q
|
---|
5 | I $D(^DVB(396.2,"C",DVBAD2,"R")) W !!,*7,"You have new NOTICES OF DISCHARGE to print.",! H 2
|
---|
6 | I $D(^DVB(396.3,"AF","R",DUZ(2))) W !!,*7,"You have new C&P EXAM REPORTS to print.",! H 2
|
---|
7 | I $D(^DVB(396,"AC",DVBAD2,"R")) W !!,*7,"You have new 21-DAY CERTIFICATES to print.",! H 2
|
---|
8 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.