DVBAB3 ;ALB/KLB - CAPRI Amis Report ;05/01/00
 ;;2.7;AMIE;**35,42,149,184**;Apr 10, 1995;Build 10
 ;Per VHA Directive 2004-038, this routine should not be modified.
 ;
 ;Input:  MSG    - Array with report contents/error message 
 ;                 (By Ref)
 ;        BDATE  - Beginning date in a date range to use
 ;                 for retrieving results for the report.
 ;        EDATE  - Ending date in a date range to use for
 ;                 retrieving results for the report.
 ;        RONUMB - Regional Office number '^' Division to 
 ;                 filter result set on (Both Optional)
 ;        SBULL  - A Y/N value indicating whether a bulletin
 ;                 (Report Contents) will be generated when 
 ;                 processing completes.
 ;        DUZ    - IEN of the individual in File #200 to send
 ;                 bulletin to.
 ;      DVBAPRTY - Priority of Exam code that indicates which
 ;                 priorities to filter on.
 ;                    AO  - Agent Orange (A0)
 ;                    BDD - Benefits Delivery at Discharge (BDD)
 ;                          Quick Start (QS)
 ;                    IDES - Integrated Disability Evaluation System (IDES)
 ;                    ALL - All others (Excludes AO,BDD,IDES,QS)
STRT(MSG,BDATE,EDATE,RONUMB,SBULL,DUZ,DVBAPRTY) ;
 
BDATE=BDATE+".0000"
 
EDATE=EDATE+".2359"
 
DVBDIV=$P($G(RONUMB),"^",2)
 
RONUMB=$P($G(RONUMB),"^",1)
 
CNT=0
 
^TMP($J)
 
RONUM=0
SETUP UPDATE="N",PREVMO=$P(^DVB(396.1,1,0),U,11)
 
'$D(DTDT=$$DT^XLFDT
 
DVBCDT(0)=$$FMTE^XLFDT(DT,"5DZ")
INITCNTR ;initialize counter arrays
 
DVBAEXMP,DVBAP
 
DVBAEXMP=$S($G(DVBAPRTY)["BDD":"BDD,QS",($G(DVBAPRTY)["IDES"):"IDES",($G(DVBAPRTY)["AO"):"AO",1:"ALL")
 
JI="3DAYSCH","30DAYEX","PENDADJ" D
 
.DVBAP=1:1:$L(DVBAEXMP,","TOT($P(DVBAEXMP,",",DVBAP),JI)=0
 
JI="INSUFF","SENT","INCOMPLETE","DAYS","COMPLETED" D
 
.DVBAP=1:1:$L(DVBAEXMP,","TOT($P(DVBAEXMP,",",DVBAP),JI)=0
 
JI="P90","P121","P151","P181","P365","P366" D
 
.DVBAP=1:1:$L(DVBAEXMP,","TOT($P(DVBAEXMP,",",DVBAP),JI)=0
 
^TMP($J,CNT)="REGIONAL OFFICE 2507 AMIS REPORT",CNT=CNT+1
 
;
EN ;
 
DVBAERR
 
^TMP($J,CNT)="",CNT=CNT+1,^TMP($J,CNT)="",CNT=CNT+1,^TMP($J,CNT)="",CNT=CNT+1
 
S:'$D(EDATEMSG(1)="Please enter a ending date"
 
G:'$D(EDATEEXIT
 
S:'$D(BDATEMSG(1)="Please enter a starting date"
 
G:'$D(BDATEEXIT
 
BDATE1=BDATE-.1,EDATE1=EDATE+.5
 
S:EDATE<BDATE MSG(1)="Beginning date must be before ending date"
 
G:EDATE<BDATE EXIT
 
(RONUMB]""D  G:DVBAERR EXIT
 
.DVBAERR=0
 .
RONUM=$O(^DIC(4,"B",RONUMB,RONUM))
 .
RONUM="" MSG(1)="Invalid Regional Office number",DVBAERR=1 Q
 
.S:'$D(^DIC(4,RONUM,99)) MSG(1)="Invalid Regional Office number",DVBAERR=1
 .
Q:'$D(^DIC(4,RONUM,99))
 .
RONUM=$S($D(^DIC(4,RONUM,99)):$P(^(99),U,1),1:"000")
 .
RONAME=RONUMB
 
D:(RONUMB']"")
 .
(RONUM,RONAME)="ALL"
 ;validate Priority of Exam (Null Allowed and will default to ALL)
 
((";AO;BDD;IDES;ALL;;")'[(";"_$G(DVBAPRTY)_";")) D  G EXIT
 
.MSG(1)="Invalid Priority of Exam Code"
 
S:'$D(SBULLMSG(1)="You need to say if you want a Bulletin or not"
 
G:'$D(SBULLEXIT
 
SBULL="Y" BULL^DVBAB2
 
;
 
GO^DVBAB2
EXIT BDATE,BDATE1,DVBCDT,EDATE,CNT,EDATE1,JI,PREVMO,RONAME,RONUM,RONUMB,SBULL,TOT,UPDATE,X,Y,^TMP($J)
 
Q
INIT(Y) ;
 ; INITS MAILMAN VARIABLES
 
INIT^XMVVITAE
 
Y=XMV("NETNAME")_"^"
 
Q