DVBAB82 ;ALB/DJS - CAPRI DVBA REPORTS ; 01/24/12
 ;;2.7;AMIE;**42,90,100,119,156,149,179,181,184,185,192,196**;Apr 10, 1995;Build 1
 ;Per VHA Directive 2004-038, this routine should not be modified.
 ;ALB/RTW added subroutine VBACRPON to allow VBA reprint reqardless of office
 
Q
 
;
START(MSG,RPID,PARM) ; CALLED BY REMOTE PROCEDURE DVBAB REPORTS
 ;Parameters
 ;=============
 ; MSG  : Output - ^TMP("DVBA",$J)
 ; RPID : Report Identification Number
 ; PARM : Input parameters separated by "^"
 ;
 
DVBHFS,DVBERR,DVBGUI,I,DVBADLMTD
 
^TMP("DVBA",$J)
 
DVBGUI=1,(DVBERR,DVBADLMTD)=0,DVBHFS=$$HFS(),RPID=$G(RPID)
 
RPID<1!(RPID>15) DVBERR=1,^TMP("DVBA",$J,1)="0^Undefined Report ID" END
 
HFSOPEN("DVBRP",DVBHFS,"W"DVBERR END
 
RPID=1 CRMS END
 
RPID=3 CPRNT END
 
RPID=11 CNHRP END  ;FNCNH Print Roster
 
CHECK DVBERR END  ;reports below require parameters
 
RPID=2 CRRR END
 
RPID=4 CRPON END
 
;DVBA*196 - I6184115FY16 REMOVE CALL TO VBACRPON
 ;I RPID=4,$P(PARM,U,8)=0 D CRPON G END
 ;I RPID=4,$P(PARM,U,8)=1 D VBACRPON G END
 
RPID=5 CIRPT END
 
RPID=6 DSRP END
 
RPID=7 SDPP END
 
RPID=8 SPRPT END
 
RPID=9 VIEW END
 
RPID=10 CNHDEOC END  ;FBCNH Display Episode Of Care
 
RPID=12 CNHRAD END  ;FNCNH Report of Admissions/Discharges
 
RPID=13 CNHSE90D END  ;FNCNH Stays in Excess of 90 Days
 
RPID=14 REQSTAT END  ;REQUEST STATUS BY DATE RANGE
 
RPID=15 DVBA8861 END  ;FORM 28-8861 STATUS REPORT
 ;
END HFSCLOSE("DVBRP",DVBHFS)
 
($G(DVBADLMTD)&('+DVBERR)) D  Q  ;Create delimited output if no errors
 
.DLMTRPT^DVBAB82D(RPID)
 .
I=0 F  S I=$O(^TMP("DVBADLMTD",$J,I)) Q:I=""  D
 
..I $G(^TMP("DVBADLMTD",$J,I))["##FFFF##" ^TMP("DVBADLMTD",$J,I)=$TR(^TMP("DVBADLMTD",$J,I),"##FFFF##","")
 .
MSG=$NA(^TMP("DVBADLMTD",$J))
 
;Replace "##FFFF##" with Form Feeds - code needed for LINUX environments
 
I=0 F  S I=$O(^TMP("DVBA",$J,1,I)) Q:'I  D
 
.S:^TMP("DVBA",$J,1,I)["##FFFF##" ^TMP("DVBA",$J,1,I)=$P(^TMP("DVBA",$J,1,I),"##FFFF##")_$C(13,12)_$P(^TMP("DVBA",$J,1,I),"##FFFF##",2)
 .
^TMP("DVBA",$J,1,I)=^TMP("DVBA",$J,1,I)_$C(13)
 .
S:^TMP("DVBA",$J,1,I)["$END" ^TMP("DVBA",$J,1,I)=""
 
MSG=$NA(^TMP("DVBA",$J))
 
($G(RPID)=5)&($G(DVBADLMTR)=","MSG=$NA(^TMP("INSUFF",$J))
 
Q
CHECK ; VALIDATE INPUT PARAMETERS
 
I $G(PARM)="" DVBERR=1,^TMP("DVBA",$J,1)="0^Undefined Input Parameters"
 
Q
 
;
SDPP ; Report # 7 - Full (Patient Profile MAS) Report
 ;Parameters
 ;=============
 ; DFN : Patient Identification Number
 ; SDR : R/Range or A/All
 ; SDBD : Begining date
 ; SDED : Ending date
 ; SDP : Print the profile? 1 OR 0
 ; SDTYP(2) : Print appointments? 1 OR 0
 ; SDTYP(1) : Print add/edits? 1 or 0
 ; SDTYP(4) : Print enrollments? 1 or 0
 ; SDTYP(3) : Print dispositions? 1 OR 0
 ; SDTYP(7) : Print team information? 1 OR 0
 ; SDTYP(5) : Print means test? 1 OR 0
 ;
 
SDTYP,SDBD,SDED,SDACT,SDPRINT,SDYES,SDRANGE,SDBEG,SDEN
 
^XTMP("JAP",$J,$$NOW^XLFDT(),"SDPP")=PARM
 
DFN=$P(PARM,"^",1),SDR=$P(PARM,"^",2),SDBD=$P(PARM,"^",3),SDED=$P(PARM,"^",4)
 
SDP=$P(PARM,"^",5),SDTYP(2)=$P(PARM,"^",6),SDTYP(1)=$P(PARM,"^",7)
 
SDTYP(4)=$P(PARM,"^",8),SDTYP(3)=$P(PARM,"^",9),SDTYP(7)=$P(PARM,"^",10),SDTYP(5)=$P(PARM,"^",11)
 
VAL Q:DVBERR
 
SDACT="",(SDYES,SDRANGE,SDPRINT)=0
 
SDR="R" SDRANGE=1
 
SDP=1 SDYES=1,SDPRINT=1
 
'SDRANGE (SDBD,SDBEG)=2800101,(SDED,SDEND)=$$ENDDT(),SDHDR=1
 
ENS^%ZISS
 
SDPRINT=1
 
S:(SDTYP(2)=1) SDTYP(2)=""  ;appointments
 
K:(SDTYP(2)=0) SDTYP(2)
 
S:(SDTYP(1)=1) SDTYP(1)=""  ;add/edits
 
K:(SDTYP(1)=0) SDTYP(1)
 
(SDTYP(4)=1) SDTYP(4)="",SDACT=0  ;enrollments
 
K:(SDTYP(4)=0) SDTYP(4)
 
S:(SDTYP(3)=1) SDTYP(3)=""  ;dispositions
 
K:(SDTYP(3)=0) SDTYP(3)
 
S:(SDTYP(5)=1) SDTYP(5)=""  ;means test
 
K:(SDTYP(5)=0) SDTYP(5)
 
SDTYP(7)=1 D  ;team information
 
SDTYP(7)="",GBL="^TMP(""SDPP"","_$J_")"
 
K:(SDTYP(7)=0) SDTYP(7)
 
PRINT^SDPPRT
 
VALMBCK="R"
 
Q
ENDDT() ;Calculate end date for "all" date
 
DVBAPPTS,DVBX
 
DVBAPPTS(1)=2800101,DVBAPPTS(4)=DFN,DVBAPPTS("SORT")="P"
 
DVBAPPTS("FLDS")=1,DVBAPPTS("MAX")=-1
 
DVBX=$S(($$SDAPI^SDAMA301(.DVBAPPTS)>0):$O(^TMP($J,"SDAMA301",DFN,0)),1:DT_.24)
 
^TMP($J,"SDAMA301")
 
DVBX
 
;
VIEW ; Report # 9 - View Registration Data Report
 ; Parameters
 ; ==========
 ; DFN : Patient Identification Number
 ;
 
IO
 
DFN=$P(PARM,"^",1)
 
VAL Q:DVBERR
 
EN1^DGRP
 
Q
 
;
DSRP ; Report # 6 - Reprint a Notice of Discharge Report
 ; Parameters
 ; % : 1=Report on all veterans for a given day (BDATE required)
 ;   : 0=Report on a single Veteran (DFN required)
 ; BDATE : Original Processing Date - $H/FileMan
 ; DFN  : Patient Identification Number
 ;
 
%,BDATE,DFN,DFNIEN
 
%=$P(PARM,"^",1),BDATE=$P(PARM,"^",2),DFN=$P(PARM,"^",3),DFNIEN=""
 
BDATE="" DVBERR=1,^TMP("DVBA",$J,1)="0^Incorrect Date"  Q
 D 
DUZ2^DVBAUTIL
 
IO
 
VAL Q:DVBERR
 
%=1 D  Q
 
HD="SINGLE NOTICE OF DISCHARGE REPRINTING"
 
NOPARM^DVBAUTL2
 . 
I $D(DVBAQUITKILL^DVBAUTIL Q  ;CAUTION: Short-circuit
 
DTAR=^DVB(396.1,1,0),FDT(0)=$$FMTE^XLFDT(DT,"5DZ")
 . 
HEAD="NOTICE OF DISCHARGE",HEAD1="FOR "_$P(DTAR,U,1)_" ON "_FDT(0)
 . 
I $D(^DVB(396.2,"B",DFN)) D
 
. . DFNIEN=$O(^DVB(396.2,"B",DFN,DFNIEN)),ADM=$P(^DVB(396.2,DFNIEN,0),U,3)
 . . 
I $D(^DGPM(+ADM,0)),$P(^(0),U,17)]"" DCHPTR=$P(^DGPM(+ADM,0),U,17),DISCH=$S($P(^DGPM(DCHPTR,0),U,1)]"":$P(^(0),U,1),1:""?($X+5),"Discharge date: ",$$FMTE^XLFDT(DISCH,"5DZ")
 . . 
I $P(^DVB(396.2,DFNIEN,0),U,7)'=DVBAD2 *7,!!,"This does not belong to your RO.",!! Q
 
. . DFNIEN>0 XDA=DFNIEN,DA=$P(^DVB(396.2,DFNIEN,0),U,1),ADMDT=$P(^DVB(396.2,DFNIEN,0),U,2),MB=$P(^(0),U,3)
 . . 
REPRINT^DVBADSNT
 
DEQUE^DVBADSRP
 
Q
 
;
SPRPT ; Report # 8 - OP(Operation Report)
 ;Parameters
 ;=============
 ; DFN : Patient Identification Number
 ; SRTN : Select Operation
 ;
 
DFN,SRTN,MAGTMPR2,SRSITE
 
I $O(^SRO(133,1))'="B" SRSITE=1
 
DFN=$P(PARM,"^",1),SRTN=$P(PARM,"^",2),MAGTMPR2=1
 
VAL Q:DVBERR
 
^SROPRPT
 
Q
 
;
CRPON ; Report # - 4 Reprint C&P Final Report
 ;Parameters
 ;=============
 ; RTYPE : Select Reprint Option (D)ate or (V)eteran
 ; RUNDATE : ORIGINAL PROCESSING date
 ; ANS : Reprinted by the RO or MAS
 ; % : LAB 1 OR 0
 ; DA(1) : Patient IEN for lab results
 ; DFN  : Patient Identification Number
 ;
 
IO
 
ONE,DVBAQ,DVBAWHO
 
DVBAWHO=$P($G(PARM),U,8),DVBAQ=""
 
RTYPE=$P(PARM,"^",1),RUNDATE=$P(PARM,"^",2),ANS=$P(PARM,"^",3),%=$P(PARM,"^",4),DA(1)=$P(PARM,"^",5),DFN=$P(PARM,"^",6),DA=DA(1)
 
RTYPE="V" VAL Q:DVBERR
 
XDD=^DD("DD"),$P(ULINE,"_",70)="_",ONE="N",Y=DT
 
XDD HD="Reprint C & P Exams",SUPER=0
 
I $D(^XUSEC("DVBA C SUPERVISOR",DUZ)) SUPER=1
 
DVBCDT(0)=Y,PGHD="Compensation and Pension Exam Report",LOC=DUZ(2),PG=0,DVBCSITE=$S($D(^DVB(396.1,1,0)):$P(^(0),U,1),1:"Not specified")
 
"^D^V^"'[RTYPE DVBERR=1,^TMP("DVBA",$J,1)="0^Incorrect Data Type" Q
 I 
ANS="R" AUTO
 
ANS="M" AUTO=1
 
"^M^R^"'[ANS DVBERR=1,^TMP("DVBA",$J,1)="0^Incorrect Data Type" Q
 I 
RTYPE="D" GO^DVBCRPRT Q
 
;DVBA*196 - I6184115FY16 FIX VALIDATION LOGIC FOR "BY VETERAN" TO MEET REQUIREMENTS IN PATCH 192
 
RTYPE="V" D
 
ONE="Y",RO=$P(^DVB(396.3,DA,0),U,3)
 . 
DVBAWHO=0  D
 
.. RO'=DUZ(2)&('$D(AUTO))&(SUPER=0) !!,*7,"Those results do not belong to your office.",!! DVBAQ=1 Q
 
.. RO=DUZ(2)&('$D(AUTO))&("RC"'[($P(^DVB(396.3,DA,0),U,18))) *7,!!,"This request has not been released to the Regional Office yet.",!! DVBAQ=1 Q
 
.. PRTDATE=$P(^DVB(396.3,DA,0),U,16) PRTDATE="" *7,!!,"This has never been printed.",!! SUPER=0 OUT=1 DVBAQ=1 Q
 
DVBAWHO=1 D
 
.. "RC"'[($P(^DVB(396.3,DA,0),U,18)) *7,!!,"This request has not been released to the Regional Office yet.",!! DVBAQ=1 Q
 
DVBAQ=1 Q
 
%=1 REN2^DVBCLABR Q
 
;D OV^DVBCRPON
 
DVBAON2 SETLAB^DVBCPRNT,VARS^DVBCUTIL  D
 
..DVBAWHO=1 VBASTEP2^DVBCRPRT
 ..
DVBAWHO=0 STEP2^DVBCRPRT
 
Q
 
;
VBACRPON ; Report # - 4 Reprint C&P Final Report by VBA personnel
 ;Parameters
 ;=============
 ; RTYPE : Select Reprint Option (D)ate or (V)eteran
 ; RUNDATE : ORIGINAL PROCESSING date
 ; ANS : Reprinted by the RO or MAS
 ; % : LAB 1 OR 0
 ; DA(1) : Patient IEN for lab results
 ; DFN  : Patient Identification Number
 ;
 
DVBERR=0
 
I $D(^TMP("DVBA",$J)) DVBAX=(^TMP("DVBA",$J))
 
IO
 
ONE
 
RTYPE=$P(PARM,"^",1),RUNDATE=$P(PARM,"^",2),ANS=$P(PARM,"^",3),%=$P(PARM,"^",4),DA(1)=$P(PARM,"^",5),DFN=$P(PARM,"^",6),DA=DA(1)
 
RTYPE="V" VAL Q:DVBERR
 
XDD=^DD("DD"),$P(ULINE,"_",70)="_",ONE="N",Y=DT
 
XDD HD="Reprint C & P Exams"
 
DVBCDT(0)=Y,PGHD="Compensation and Pension Exam Report",LOC=DUZ(2),PG=0,DVBCSITE=$S($D(^DVB(396.1,1,0)):$P(^(0),U,1),1:"Not specified")
 
"^D^V^"'[RTYPE DVBERR=1,^TMP("DVBA",$J,1)="0^Incorrect Data Type" Q
 I 
ANS="R" AUTO
 
ANS="M" AUTO=1
 
"^M^R^"'[ANS DVBERR=1,^TMP("DVBA",$J,1)="0^Incorrect Data Type" Q
 I 
RTYPE="D" VBAGO^DVBCRPRT Q
 I 
RTYPE="V" D
 
ONE="Y",RO=$P(^DVB(396.3,DA,0),U,3)
 . 
PRTDATE=$P(^DVB(396.3,DA,0),U,16)
 . 
%=1 REN2^DVBCLABR Q
 
DVBAON2 SETLAB^DVBCPRNT,VARS^DVBCUTIL,VBASTEP2^DVBCRPRT
 
Q
 
;
CIRPT ; Report # 5 - Insufficient Exam Report
 ;Parameters
 ;=============
 ; RPTTYPE : D/Detailed or S/Summary
 ; BEGDT : Beginning date $H/FileMan
 ; ENDDT : Ending date $H/FileMan
 ; RESANS : Insufficient Reason
 ; DVBAPRTY : Priority of Exam Code
 ;    AO  : Agent Orange
 ;    BDD : Benefits Delivery at Discharge / Quick Start
 ;    IDES : Integrated Disability Evaluation System
 ;    ALL : All Others (Original Report w/ all codes except the above)
 ; DVBADLMTR: 0=non-delimted format, ","=delimiter for .csv file for EXCEL
 ;
 
DVBAPRTY,RPTTYPE,BEGDT,ENDDT,RESANS
 
IO
 
RPTTYPE=$P(PARM,"^",1),BEGDT=$P(PARM,"^",2),ENDDT=$P(PARM,"^",3),RESANS=""
 
DVBADLMTR=$P(PARM,"^",6),DVBADLMTR=$S(DVBADLMTR=1:",",1:0)
 
ENDDT=ENDDT_".2359"
 
RPTTYPE="S" SUM^DVBCIRP2 Q
 I 
RPTTYPE="D" D
 
INREAS
 
Q:($D(^TMP("DVBA",$J,1)))  ;invalid reason sent
 
EXMTPE,DETAIL^DVBCIRP2
 
Q
 
;
EXMTPE ;exam types (retrieve all for filter)
 
DVBAXIFN
 
DVBAXIFN=0:0 DVBAXIFN=$O(^DVB(396.6,DVBAXIFN)) Q:+DVBAXIFN=0  DO
 
^TMP($J,"XMTYPE",DVBAXIFN)=""
 
Q
INREAS ;insufficient reason (validate specific or retrieve all)
 
DVBAXIFN
 
D:(RESANS="")  ;use all insufficient reasons
 
.DVBAXIFN=0:0 DVBAXIFN=$O(^DVB(396.94,DVBAXIFN)) Q:+DVBAXIFN=0  DO
 
.. DVBAARY("REASON",DVBAXIFN)=""
 ;D:(RESANS'="")  ;use specific insufficient reason
 ;.I ('$D(^DVB(396.94,+RESANS))) D  ;validate IEN
 ;..S DVBERR=1,^TMP("DVBA",$J,1)="0^Invalid Insufficient Reason IEN"
 ;.E  S DVBAARY("REASON",+RESANS)=""
 
Q
 
;
CRMS ; Report # 1 - Regional Office 21- day Certificate Printing Report.
 ; No Parameters
 ;
 
IO
 
^DVBACRMS
 
Q
 
;
CRRR ; Report # 2 - Reprint a 21 - day Certificate for the RO
 ;Parameters
 ;=============
 ; DVBSEL : Select one of the following:
 ;       N         Patient Name
 ;       D         ORIGINAL PROCESSING DATE
 ; SDATE : ORIGINAL PROCESSING date - $H/FileMan
 ; XDA : Patient IEN
 ;
 
IO
 
DVBSEL=$P(PARM,"^",1),SDATE=$P(PARM,"^",2),XDA=$P(PARM,"^",3)
 
"^D^N^"'[DVBSEL DVBERR=1,^TMP("DVBA",$J,1)="0^Incorrect Data Type" Q
 I 
DVBSEL="D" D  I DVBERR Q
 
SDATE="" DVBERR=1,^TMP("DVBA",$J,1)="0^Undefined Date" Q
 
%DT="X" X=SDATE ^%DT Y<0 D  Q
 
. . DVBERR=1,^TMP("DVBA",$J,1)="0^Incorrect Date Format"
 
DVBSEL="N" D  I DVBERR Q
 
XDA="" DVBERR=1,^TMP("DVBA",$J,1)="0^Undefined Patient IEN" Q
 
DIC=2,DIC(0)="NZX",X=XDA ^DIC Y<0 D  I DVBERR Q
 
. . DVBERR=1,^TMP("DVBA",$J,1)="0^Invalid Patient Name."
 
DFN=XDA
 
INIT^DVBACRRR 'CONT Q
 D 
HDR^DVBACRRR,DATA^DVBACRRR
 
Q
 
;
CPRNT ; Report # 3 - Print C&P Final Report (manual) Report
 ; No Parameters
 ;
 
XDD=^DD("DD"),$P(ULINE,"_",70)="_",Y=DT
 
XDD DVBCDT(0)=Y,PGHD="Compensation and Pension Exam Report",DVBCSITE=$S($D(^DVB(396.1,1,0)):$P(^(0),U,1),1:"Not Specified")
 
GO^DVBCPRNT
 
Q
VAL ; VALIDATE PATIENT
 
I $G(DFN)="" DVBERR=1,^TMP("DVBA",$J,1)="0^Undefined Patient IEN" END
 
DIC=2,DIC(0)="NZX",X=DFN ^DIC
 
Y<0 DVBERR=1,^TMP("DVBA",$J,1)="0^Invalid Patient Name." END
 
Q
 
;
VALDATE(DVBADTE) ;Validate Date
 ;dates must be valid internal FileMan format
 
X,Y,%DT
 
%DT="X",X=DVBADTE ^%DT
 
S:(Y=-1) DVBERR=1,^TMP("DVBA",$J,1)="0^Invalid FileMan formatted date."
 
Q
 
;
CNHDEOC ; Report #10 - FBCNH Display Episode of Care
 ; Parameters
 ; ==========
 ;   DFN : IEN in PATIENT (#2) file
 ;   IFN : IEN in FEE CNH ACTIVITY (#162.3) file
 ;
 
IO
 
DFN,IFN
 
DFN=$P(PARM,U,1),IFN=$P(PARM,U,2)
 
^FBNHDEC  ;DBIA#: 5566
 
Q
 
;
CNHRP ; Report #11 - FBCNH Roster Print
 ; Parameters
 ; ==========
 ;   DVBADLMTD : 0 (Standard) or 1 (Delimited)
 ; 
 
IO
 
DVBADLMTD=+$P($G(PARM),U)
 
START^FBNHROS  ;DBIA#: 5566
 
Q
 
;
CNHRAD ; Report #12 - FBCNH Report of Admissions/Discharges
 ; Parameters
 ; ==========
 ;   BEGDATE   : Start date in FM format
 ;   ENDDATE   : End date in FM format
 ;   DVBADLMTD : 0 (Standard) or 1 (Delimited)
 ;
 
IO
 
BEGDATE,ENDDATE
 
BEGDATE=$P(PARM,U,1),ENDDATE=$P(PARM,U,2)
 
DVBADLMTD=+$P(PARM,U,3)
 
VALDATE(BEGDATE),VALDATE(ENDDATE)
 
D:('+DVBERRSTART^FBNHAMIE  ;DBIA#: 5566
 
Q
 
;
CNHSE90D ; Report #13 - FBCNH Stays in Excess of 90 Days
 ; Parameters
 ; ==========
 ;   FBDT      : Effective date in FM format
 ;   DVBADLMTD : 0 (Standard) or 1 (Delimited)
 ;
 
IO
 
FBDT
 
FBDT=$P(PARM,U,1),DVBADLMTD=+$P(PARM,U,2)
 
VALDATE(FBDT)
 
D:('+DVBERRSTART^FBNHAMI2  ;DBIA#: 5566
 
Q
 
;
HFS() ; -- get hfs file name
 
H
 
H=$H
 Q 
"DVBA_"_$J_"_"_$P(H,",")_"_"_$P(H,",",2)_".DAT"
 ;
HFSOPEN(HANDLE,DVBHFS,DVBMODE) ; Open File
 
DVBDIRY=$$GET^XPAR("DIV","DVB HFS SCRATCH")
 
;I DVBDIRY="" S ECERR=1 D  Q
 ;. S ^TMP("DVBA",$J,1)="0^A scratch directory for reports doesn't exist"
 
OPEN^%ZISH(HANDLE,,DVBHFS,$G(DVBMODE,"W")) D:POP  Q:POP
 
.DVBERR=1,^TMP("DVBA",$J,1)="0^Unable to open file "
 
IOF="$$IOF^DVBAB82"   ;resets screen position and adds page break flag - added to deal with Linux environments.
 
Q
 
;
HFSCLOSE(HANDLE,DVBHFS) ;Close HFS and unload data
 
DVBDEL,X,%ZIS
 
CLOSE^%ZISH(HANDLE)
 
DVBDEL(DVBHFS)=""
 
ROOT=$NA(^TMP("DVBA",$J,1))
 
K:('+DVBERR) @ROOT
 
X=$$FTG^%ZISH(,DVBHFS,$NA(@ROOT@(1)),4)
 
X=$$DEL^%ZISH(,$NA(DVBDEL))
 
Q
 
;
IOF() ;used to reset position and insert page break flag when @IOF is executed.
 
S $X=0,$Y=0
 
"##FFFF##"_$C(13,10)
 
;
REQSTAT ; Report #14 - Request Status by Date Range
 ; Parameters
 ; ==========
 ; BEGDAT        : Start date in FM format
 ; ENDDAT        : End date in FM format
 ; REQSTAT       : Request Status filter
 ; ISDELIM       : 0 (Standard format); 1 (Delimited format)
 ; ISNODT        : 0 (Use date range); 1 (Ignore date range)
 
IO
 
BEGDAT,ENDDAT,REQSTAT
 
BEGDAT=$P(PARM,U,1),ENDDAT=$P(PARM,U,2)
 
REQSTAT=$P(PARM,U,3),ISDELIM=$P(PARM,U,4),ISNODT=$P(PARM,U,5)
 
VALDATE(BEGDAT),VALDATE(ENDDAT)
 
D:('+DVBERRREQSTAT^DVBARSBD(BEGDAT,ENDDAT,REQSTAT,ISDELIM,ISNODT)
 
Q
 
;
DVBA8861 ; Report #15 - Form 28-8861 Status Report
 ; Parameters
 ; ==========
 ; BEGDAT  -  Start date in FM format
 ; ENDDAT  -  End date in FM format
 ; ROSTAT  -  Regional Office filter
 ; REQSTAT -  Request Status filter
 ; DELIMTER - 0 (Standard format); 1 (Delimited format)
 ;
 
IO
 
BEGDAT,ENDDAT,REQSTAT
 
BEGDAT=$P(PARM,U,1),ENDDAT=$P(PARM,U,2)
 
ROSTAT=$P(PARM,U,3),REQSTAT=$P(PARM,U,4),DELIMTER=$P(PARM,U,5)
 
VALDATE(BEGDAT),VALDATE(ENDDAT)
 
D:('+DVBERRSTATRPT^DVBA8861(BEGDAT,ENDDAT,ROSTAT,REQSTAT,DELIMTER)
 
Q