- DVBAALRT ;ALB/THM-ALERT RO REPORTS THAT ARE READY ; 1/16/91 7:11 AM
- ;;2.7;AMIE;**193**;Apr 10, 1995;Build 84
- EN I '$D(IOF) D HOME^%ZIS
- D DUZ2^DVBAUTIL I $D(DVBAQUIT) K DVBAQUIT,DVBAD2 Q
- I $D(^DVB(396.2,"C",DVBAD2,"R")) W !!,*7,"You have new NOTICES OF DISCHARGE to print.",! H 2
- ;AJF;Request Status conversion
- I $D(^DVB(396.3,"AF",4,DUZ(2))) W !!,*7,"You have new C&P EXAM REPORTS to print.",! H 2
- I $D(^DVB(396,"AC",DVBAD2,"R")) W !!,*7,"You have new 21-DAY CERTIFICATES to print.",! H 2
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBAALRT 508 printed Jan 18, 2025@02:41:30 Page 2
- DVBAALRT ;ALB/THM-ALERT RO REPORTS THAT ARE READY ; 1/16/91 7:11 AM
- +1 ;;2.7;AMIE;**193**;Apr 10, 1995;Build 84
- EN IF '$DATA(IOF)
- DO HOME^%ZIS
- +1 DO DUZ2^DVBAUTIL
- IF $DATA(DVBAQUIT)
- KILL DVBAQUIT,DVBAD2
- QUIT
- +2 IF $DATA(^DVB(396.2,"C",DVBAD2,"R"))
- WRITE !!,*7,"You have new NOTICES OF DISCHARGE to print.",!
- HANG 2
- +3 ;AJF;Request Status conversion
- +4 IF $DATA(^DVB(396.3,"AF",4,DUZ(2)))
- WRITE !!,*7,"You have new C&P EXAM REPORTS to print.",!
- HANG 2
- +5 IF $DATA(^DVB(396,"AC",DVBAD2,"R"))
- WRITE !!,*7,"You have new 21-DAY CERTIFICATES to print.",!
- HANG 2
- +6 QUIT