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