source: FOIAVistA/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBAALRT.m@ 949

Last change on this file since 949 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 453 bytes
Line 
1DVBAALRT ;ALB/THM-ALERT RO REPORTS THAT ARE READY ; 1/16/91 7:11 AM
2 ;;2.7;AMIE;;Apr 10, 1995
3EN 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.