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 Oct 16, 2024@17:41:08 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
