| 1 | DVBHUTL1 ;ALB/JLU;General utility routine;1/10/94
|
|---|
| 2 | ;;V4.0;HINQ;**15,20**;03/25/92
|
|---|
| 3 | ;
|
|---|
| 4 | POW ;this subroutine is to figure out the BIRLS pow indicator. a 'c' is
|
|---|
| 5 | ;checked for because of old unconverted VBA data.
|
|---|
| 6 | ;
|
|---|
| 7 | K DVBPOWD
|
|---|
| 8 | S Y=$E(X,5,10)
|
|---|
| 9 | I $E(X,1,1)="C",+$E(X,2,4)<30 S DVBPOWD="1 to 29 days"
|
|---|
| 10 | I $E(X,1,1)="C",+$E(X,2,4)>29 S DVBPOWD="30 days or greater"
|
|---|
| 11 | I '$D(DVBPOWD) DO
|
|---|
| 12 | .N A
|
|---|
| 13 | .F A=1:1:4 S DVBPOWD=+$E(X,A,4) Q:DVBPOWD
|
|---|
| 14 | .I DVBPOWD S DVBPOWD=DVBPOWD_" days "
|
|---|
| 15 | .E K DVBPOWD
|
|---|
| 16 | .Q
|
|---|
| 17 | Q
|
|---|
| 18 | CLEAN ;this subroutine is used to kill the variables that would have
|
|---|
| 19 | ;be killed if the mail message parameter was turned on for
|
|---|
| 20 | ;the alerts
|
|---|
| 21 | 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
|
|---|
| 22 | 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
|
|---|
| 23 | K DVBSPETD,DVBSPINC,Y,DVBDXNO,DVBDX,DVBPT,DVBPTI,DVBFIDCU,DVBNAM,DVBSSN,DVBDIV,DVBREQST,DVBOTM,DVBNETER,DVBREQUE,DVBCHNO,DVBCTN,DVBIXMZ,DVBNAME,DVBMON,DVBERR1,DVBSTATS,DVBWIT,DVBAD,DVBBDF,DVBDBE,DVBREF,DVBFUT,DVBINC,DVBBIR,DVBCAP
|
|---|
| 24 | Q
|
|---|
