DVBAALRT.m

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 ---DVBAALRT   508     printed  Apr 09, 2024@20:56:42                                                                                                                                                                                                     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