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
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBHUTL1 1372 printed Dec 13, 2024@01:59:15 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
