Routine: DVBHUTL1

DVBHUTL1 ;ISC-ALB/JLU - General utility routine;1/10/94

 ;;4.0;HINQ;**15,20,65**;03/25/92;Build 19

POW ;this subroutine is to figure out the BIRLS pow indicator. a 'c' is

 ;checked for because of old unconverted VBA data.

 K DVBPOWD

 S Y=$E(X,5,10)

 I $E(X,1,1)="C",+$E(X,2,4)<30 S DVBPOWD="1 to 29 days"

 I $E(X,1,1)="C",+$E(X,2,4)>29 S DVBPOWD="30 days or greater"

 I '$D(DVBPOWD) DO

 .N A

 .F A=1:1:4 S DVBPOWD=+$E(X,A,4) Q:DVBPOWD

 .I DVBPOWD S DVBPOWD=DVBPOWD_" days "

 .E  K DVBPOWD

.Q

CLEAN ;this subroutine is used to kill the variables that would have

 ;be killed if the mail message parameter was turned on for

 ;the alerts

 K DVBCHECK,DVBADR,DVBZIP,DVBAAHB,DVBCN,DVBDXPCT,DVBFL,DVBBAS,DVBP(1),DVBP(2),DVBP(3),DVBP(4),DVBP(5),DVBP(6),DVBVET,DVBDIA,DVBCHI,DVBRTYPE,DVBRTYP,DVBEI,DVBCI,DVBCPS,DVBSPNAM,DVBSPDOB,DVBCHILD,DVBDOB,V,DVBDXX,DVBHOLD,DVBEINC

 K DVBSSA,DVBRETT,DVBRETO,DVBOINC,DVBNMREC,DVBSRC,DVBSVCN,DVBEODN,DVBRADN,DVBPNAM,DVBSN,DVBCSVC,DVBPOA,DVBRAD,DVBEOD,DVBPOWD,DVBTOTAS,DVBASVC,DVBNAM,DVBSNSVC,DVBPOW,DVBBOS,DVBADRLN,DVBVNA,DVBRMA,DVBSPENC,DVBSPSSA,DVBSPRET

 K DVBSPETD,DVBSPINC,Y,DVBDXNO,DVBDX,DVBPT,DVBPTI,DVBPTIDT,DVBDENTI,DVBFIDCU,DVBNAM,DVBSSN,DVBDIV,DVBREQST,DVBOTM,DVBNETER,DVBREQUE,DVBCHNO,DVBCTN,DVBIXMZ,DVBNAME,DVBMON,DVBERR1,DVBSTATS,DVBWIT,DVBAD,DVBBDF,DVBDBE,DVBREF

 K DVBFUT,DVBINC,DVBBIR,DVBCAP

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBHUTL1   1372     printed  Apr 23, 2025@18:13:41                                                                                                                                                                                                    Page 2

DVBHUTL1  ;ISC-ALB/JLU - General utility routine;1/10/94

 +1       ;;4.0;HINQ;**15,20,65**;03/25/92;Build 19

 +2       ;

POW       ;this subroutine is to figure out the BIRLS pow indicator. a 'c' is

 +1       ;checked for because of old unconverted VBA data.

 +2       ;

 +3        KILL DVBPOWD

 +4        SET Y=$EXTRACT(X,5,10)

 +5        IF $EXTRACT(X,1,1)="C"

               IF +$EXTRACT(X,2,4)<30

                   SET DVBPOWD="1 to 29 days"

 +6        IF $EXTRACT(X,1,1)="C"

               IF +$EXTRACT(X,2,4)>29

                   SET DVBPOWD="30 days or greater"

 +7        IF '$DATA(DVBPOWD)

               Begin DoDot:1

 +8                NEW A

 +9                FOR A=1:1:4

                       SET DVBPOWD=+$EXTRACT(X,A,4)

                       if DVBPOWD

                           QUIT

 +10               IF DVBPOWD

                       SET DVBPOWD=DVBPOWD_" days "

 +11              IF '$TEST

                       KILL DVBPOWD

 +12               QUIT

               End DoDot:1

 +13       QUIT

CLEAN     ;this subroutine is used to kill the variables that would have

 +1       ;be killed if the mail message parameter was turned on for

 +2       ;the alerts

 +3        KILL DVBCHECK,DVBADR,DVBZIP,DVBAAHB,DVBCN,DVBDXPCT,DVBFL,DVBBAS,DVBP(1),DVBP(2),DVBP(3),DVBP(4),DVBP(5),DVBP(6),DVBVET,DVBDIA,DVBCHI,DVBRTYPE,DVBRTYP,DVBEI,DVBCI,DVBCPS,DVBSPNAM,DVBSPDOB,DVBCHILD,DVBDOB,V,DVBDXX,DVBHOLD,DVBEINC

 +4        KILL DVBSSA,DVBRETT,DVBRETO,DVBOINC,DVBNMREC,DVBSRC,DVBSVCN,DVBEODN,DVBRADN,DVBPNAM,DVBSN,DVBCSVC,DVBPOA,DVBRAD,DVBEOD,DVBPOWD,DVBTOTAS,DVBASVC,DVBNAM,DVBSNSVC,DVBPOW,DVBBOS,DVBADRLN,DVBVNA,DVBRMA,DVBSPENC,DVBSPSSA,DVBSPRET

 +5        KILL DVBSPETD,DVBSPINC,Y,DVBDXNO,DVBDX,DVBPT,DVBPTI,DVBPTIDT,DVBDENTI,DVBFIDCU,DVBNAM,DVBSSN,DVBDIV,DVBREQST,DVBOTM,DVBNETER,DVBREQUE,DVBCHNO,DVBCTN,DVBIXMZ,DVBNAME,DVBMON,DVBERR1,DVBSTATS,DVBWIT,DVBAD,DVBBDF,DVBDBE,DVBREF

 +6        KILL DVBFUT,DVBINC,DVBBIR,DVBCAP

 +7        QUIT

DVBHUTL1.m