Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DVBAB82

Package: Automated Medical Information Exchange

Routine: DVBAB82


Information

DVBAB82 ;ALB/DJS - CAPRI DVBA REPORTS ; 01/24/12

Source Information

Source file <DVBAB82.m>

Call Graph

Call Graph

Call Graph Total: 29

Package Total Call Graph
Automated Medical Information Exchange 15 STATRPT^DVBA8861  DLMTRPT^DVBAB82D  ^DVBACRMS  (DATA,HDR,INIT)^DVBACRRR  REPRINT^DVBADSNT  DEQUE^DVBADSRP  REQSTAT^DVBARSBD  (DUZ2,KILL)^DVBAUTIL  
NOPARM^DVBAUTL2  (DETAIL,SUM)^DVBCIRP2  REN2^DVBCLABR  (GO,SETLAB)^DVBCPRNT  (GO,STEP2,VBAGO,VBASTEP2)^DVBCRPRT  VARS^DVBCUTIL  $$RSTAT^DVBCUTL8  
Fee Basis 4 START^FBNHAMI2  START^FBNHAMIE  ^FBNHDEC  START^FBNHROS  
Kernel 3 ($$DEL,$$FTG,CLOSE,OPEN)^%ZISH  ENS^%ZISS  ($$FMTE,$$NOW)^XLFDT  
Scheduling 2 $$SDAPI^SDAMA301  PRINT^SDPPRT  
VA FileMan 2 ^%DT  ^DIC  
Registration 1 EN1^DGRP  
Surgery 1 ^SROPRPT  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Automated Medical Information Exchange 3 DVBAADRP  DVBAB REPORTS  DVBADSNT  

Entry Points

Name Comments DBIA/ICR reference
START(MSG,RPID,PARM) ; CALLED BY REMOTE PROCEDURE DVBAB REPORTS
END
CHECK ; VALIDATE INPUT PARAMETERS
SDPP ; Report # 7 - Full (Patient Profile MAS) Report
ENDDT() ;Calculate end date for "all" date
VIEW ; Report # 9 - View Registration Data Report
; Parameters
; ==========
; DFN : Patient Identification Number
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
SPRPT ; Report # 8 - OP(Operation Report)
CRPON ; Report # - 4 Reprint C&P Final Report
VBACRPON ; Report # - 4 Reprint C&P Final Report by VBA personnel
CIRPT ; Report # 5 - Insufficient Exam Report
EXMTPE ;exam types (retrieve all for filter)
INREAS ;insufficient reason (validate specific or retrieve all)
CRMS ; Report # 1 - Regional Office 21- day Certificate Printing Report.
; No Parameters
CRRR ; Report # 2 - Reprint a 21 - day Certificate for the RO
CPRNT ; Report # 3 - Print C&P Final Report (manual) Report
; No Parameters
VAL ; VALIDATE PATIENT
VALDATE(DVBADTE) ;Validate Date
CNHDEOC ; Report #10 - FBCNH Display Episode of Care
; Parameters
; ==========
; DFN : IEN in PATIENT (#2) file
; IFN : IEN in FEE CNH ACTIVITY (#162.3) file
CNHRP ; Report #11 - FBCNH Roster Print
; Parameters
; ==========
; DVBADLMTD : 0 (Standard) or 1 (Delimited)
;
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)
CNHSE90D ; Report #13 - FBCNH Stays in Excess of 90 Days
; Parameters
; ==========
; FBDT : Effective date in FM format
; DVBADLMTD : 0 (Standard) or 1 (Delimited)
HFS() ; -- get hfs file name
HFSOPEN(HANDLE,DVBHFS,DVBMODE) ; Open File
HFSCLOSE(HANDLE,DVBHFS) ;Close HFS and unload data
IOF() ;used to reset position and insert page break flag when @IOF is executed.
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)
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)

External References

Name Field # of Occurrence
^%DT CRRR+14, VALDATE+3
$$DEL^%ZISH HFSCLOSE+7
$$FTG^%ZISH HFSCLOSE+6
CLOSE^%ZISH HFSCLOSE+2
OPEN^%ZISH HFSOPEN+4
ENS^%ZISS SDPP+25
EN1^DGRP VIEW+8
^DIC CRRR+18, VAL+2
STATRPT^DVBA8861 DVBA8861+14
DLMTRPT^DVBAB82D END+2
^DVBACRMS CRMS+4
DATA^DVBACRRR CRRR+22
HDR^DVBACRRR CRRR+22
INIT^DVBACRRR CRRR+21
REPRINT^DVBADSNT DSRP+24
DEQUE^DVBADSRP DSRP+25
REQSTAT^DVBARSBD REQSTAT+13
DUZ2^DVBAUTIL DSRP+10
KILL^DVBAUTIL DSRP+16
NOPARM^DVBAUTL2 DSRP+15
DETAIL^DVBCIRP2 CIRPT+23
SUM^DVBCIRP2 CIRPT+19
REN2^DVBCLABR CRPON+38, VBACRPON+27
GO^DVBCPRNT CPRNT+5
SETLAB^DVBCPRNT CRPON+40, VBACRPON+28
GO^DVBCRPRT CRPON+23
STEP2^DVBCRPRT CRPON+42
VBAGO^DVBCRPRT VBACRPON+23
VBASTEP2^DVBCRPRT CRPON+41, VBACRPON+28
VARS^DVBCUTIL CRPON+40, VBACRPON+28
$$RSTAT^DVBCUTL8 CRPON+27
START^FBNHAMI2 CNHSE90D+10
START^FBNHAMIE CNHRAD+12
^FBNHDEC CNHDEOC+9
START^FBNHROS CNHRP+7
$$SDAPI^SDAMA301 ENDDT+4
PRINT^SDPPRT SDPP+40
^SROPRPT SPRPT+10
$$FMTE^XLFDT DSRP+17, DSRP+21
$$NOW^XLFDT SDPP+16
$$GET^XPAR HFSOPEN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?($X+5),"Discharge date: ",$$FMTE^XLFDT(DISCH,"5DZ")
  • Line Location: DSRP+21
Function Call: WRITE
  • Prompt: *7,!!,"This does not belong to your RO.",!!
  • Line Location: DSRP+22
Function Call: WRITE
  • Prompt: !!,*7,"Those results do not belong to your office.",!!
  • Line Location: CRPON+30
Function Call: WRITE
  • Prompt: *7,!!,"This request has not been released to the Regional Office yet.",!!
  • Line Location: CRPON+32
Function Call: WRITE
  • Prompt: *7,!!,"This has never been printed.",!!
  • Line Location: CRPON+33
Function Call: WRITE
  • Prompt: *7,!!,"This request has not been released to the Regional Office yet.",!!
  • Line Location: CRPON+36
Routine Call
  • DIC
  • Line Location:
    • CRRR+18
    • VAL+2

Used in RPC

RPC Name Call Tags
DVBAB REPORTS START

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" CRPON+15, VBACRPON+16, CPRNT+3
^DGPM - [#405] DSRP+21
^DVB(396.1 - [#396.1] DSRP+17, CRPON+18, VBACRPON+18, CPRNT+4
^DVB(396.2 - [#396.2] DSRP+19, DSRP+20, DSRP+22, DSRP+23
^DVB(396.3 - [#396.3] CRPON+27, CRPON+28, CRPON+33, VBACRPON+25, VBACRPON+26
^DVB(396.6 - [#396.6] EXMTPE+2
^DVB(396.94 - [#396.94] INREAS+3
^SRO(133 - [#133] SPRPT+7
^TMP("DVBA" START+8!, START+10*, END+7, END+8*, END+9*, END+10*, END+11, CHECK+1*, DSRP+9*, CRPON+19*
, CRPON+22*, VBACRPON+11, VBACRPON+19*, VBACRPON+22*, CIRPT+22, CRRR+11*, CRRR+13*, CRRR+15*, CRRR+17*, CRRR+19*
, VAL+1*, VAL+3*, VALDATE+4*, HFSOPEN+5*, HFSCLOSE+4
^TMP("DVBADLMTD" END+3, END+4*, END+5
^TMP("INSUFF" END+12
^TMP($J ENDDT+4, ENDDT+5!, EXMTPE+3*
^XTMP("JAP" SDPP+16*
^XUSEC("DVBA C SUPERVISOR" CRPON+17

Label References

Name Line Occurrences
$$ENDDT SDPP+24
$$HFS START+9
CHECK START+15
CIRPT START+21
CNHDEOC START+26
CNHRAD START+27
CNHRP START+14
CNHSE90D START+28
CPRNT START+13
CRMS START+12
CRPON START+17
CRRR START+16
DSRP START+22
DVBA8861 START+30
END START+10, START+11, START+12, START+13, START+14, START+15, START+16, START+17, START+21, START+22
, START+23, START+24, START+25, START+26, START+27, START+28, START+29, START+30, VAL+1, VAL+3
EXMTPE CIRPT+23
HFSCLOSE END
HFSOPEN START+11
INREAS CIRPT+21
REQSTAT START+29
SDPP START+23
SPRPT START+24
VAL SDPP+20, VIEW+7, DSRP+12, SPRPT+9, CRPON+14, VBACRPON+15
VALDATE CNHRAD+11, CNHSE90D+9, REQSTAT+12, DVBA8861+13
VIEW START+25

Naked Globals

Name Field # of Occurrence
^(0 DSRP+21, DSRP+23, CRPON+18, VBACRPON+18, CPRNT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DSRP+7~, DSRP+8*, DSRP+13, CRPON+13*, CRPON+38, VBACRPON+14*, VBACRPON+27
%DT CRRR+14*, VALDATE+2~, VALDATE+3*
%ZIS HFSCLOSE+1~
>> ADM DSRP+20*, DSRP+21
>> ADMDT DSRP+23*
>> ANS CRPON+13*, CRPON+20, CRPON+21, CRPON+22, VBACRPON+14*, VBACRPON+20, VBACRPON+21, VBACRPON+22
AUTO CRPON+20!, CRPON+21*, CRPON+30, CRPON+32, VBACRPON+20!, VBACRPON+21*
BDATE DSRP+7~, DSRP+8*, DSRP+9
BEGDAT REQSTAT+9~, REQSTAT+10*, REQSTAT+12, REQSTAT+13, DVBA8861+10~, DVBA8861+11*, DVBA8861+13, DVBA8861+14
BEGDATE CNHRAD+8~, CNHRAD+9*, CNHRAD+11
BEGDT CIRPT+14~, CIRPT+16*
>> CONT CRRR+21
>> DA DSRP+23*, CRPON+13*, CRPON+27, CRPON+28, CRPON+33, VBACRPON+14*, VBACRPON+25, VBACRPON+26
>> DA(1 CRPON+13*, VBACRPON+14*
>> DCHPTR DSRP+21*
>> DELIMTER DVBA8861+12*, DVBA8861+14
DFN SDPP+17*, ENDDT+2, ENDDT+4, VIEW+6*, DSRP+7~, DSRP+8*, DSRP+19, DSRP+20, SPRPT+6~, SPRPT+8*
, CRPON+13*, VBACRPON+14*, CRRR+20*, VAL+1, VAL+2, CNHDEOC+7~, CNHDEOC+8*
DFNIEN DSRP+7~, DSRP+8*, DSRP+20*, DSRP+22, DSRP+23
>> DIC CRRR+18*, VAL+2*
>> DIC(0 CRRR+18*, VAL+2*
>> DISCH DSRP+21*
DT ENDDT+4, DSRP+17, CRPON+15, VBACRPON+16, CPRNT+3
>> DTAR DSRP+17*, DSRP+18
DUZ CRPON+17
DUZ(2 CRPON+18, CRPON+30, CRPON+32, VBACRPON+18
>> DVBAARY("REASON" INREAS+4*
>> DVBAD2 DSRP+22
DVBADLMTD START+7~, START+9*, END+1, CNHRP+6*, CNHRAD+10*, CNHSE90D+8*
>> DVBADLMTR END+12, CIRPT+17*
DVBADTE VALDATE~, VALDATE+3
DVBAON2 CRPON+40!, VBACRPON+28!
DVBAPPTS ENDDT+1~, ENDDT+4
DVBAPPTS("FLDS" ENDDT+3*
DVBAPPTS("MAX" ENDDT+3*
DVBAPPTS("SORT" ENDDT+2*
DVBAPPTS(1 ENDDT+2*
DVBAPPTS(4 ENDDT+2*
DVBAPRTY CIRPT+14~
DVBAQ CRPON+11~, CRPON+12*, CRPON+30*, CRPON+32*, CRPON+33*, CRPON+36*, CRPON+37
>> DVBAQUIT DSRP+16
DVBAWHO CRPON+11~, CRPON+12*, CRPON+29, CRPON+34, CRPON+41, CRPON+42
>> DVBAX VBACRPON+11*
DVBAXIFN EXMTPE+1~, EXMTPE+2*, EXMTPE+3, INREAS+1~, INREAS+3*, INREAS+4
>> DVBCDT(0 CRPON+18*, VBACRPON+18*, CPRNT+4*
>> DVBCSITE CRPON+18*, VBACRPON+18*, CPRNT+4*
DVBDEL HFSCLOSE+1~, HFSCLOSE+7
DVBDEL( HFSCLOSE+3*
>> DVBDIRY HFSOPEN+1*
DVBERR START+7~, START+9*, START+10*, START+11, START+15, END+1, CHECK+1*, SDPP+20, VIEW+7, DSRP+9*
, DSRP+12, SPRPT+9, CRPON+14, CRPON+19*, CRPON+22*, VBACRPON+10*, VBACRPON+15, VBACRPON+19*, VBACRPON+22*, CRRR+11*
, CRRR+12, CRRR+13*, CRRR+15*, CRRR+16, CRRR+17*, CRRR+18, CRRR+19*, VAL+1*, VAL+3*, VALDATE+4*
, CNHRAD+12, CNHSE90D+10, HFSOPEN+5*, HFSCLOSE+5, REQSTAT+13, DVBA8861+14
DVBGUI START+7~, START+9*
DVBHFS START+7~, START+9*, START+11, END, HFSOPEN~, HFSOPEN+4, HFSCLOSE~, HFSCLOSE+3, HFSCLOSE+6
DVBMODE HFSOPEN~, HFSOPEN+4
>> DVBSEL CRRR+10*, CRRR+11, CRRR+12, CRRR+16
DVBX ENDDT+1~, ENDDT+4*, ENDDT+6
ENDDAT REQSTAT+9~, REQSTAT+10*, REQSTAT+12, REQSTAT+13, DVBA8861+10~, DVBA8861+11*, DVBA8861+13, DVBA8861+14
ENDDATE CNHRAD+8~, CNHRAD+9*, CNHRAD+11
ENDDT CIRPT+14~, CIRPT+16*, CIRPT+18*
FBDT CNHSE90D+7~, CNHSE90D+8*, CNHSE90D+9
>> FDT(0 DSRP+17*, DSRP+18
>> GBL SDPP+38*
H HFS+1~, HFS+2*, HFS+3
HANDLE HFSOPEN~, HFSOPEN+4, HFSCLOSE~, HFSCLOSE+2
>> HD DSRP+14*, CRPON+16*, VBACRPON+17*
>> HEAD DSRP+18*
>> HEAD1 DSRP+18*
I START+7~, END+3*, END+4, END+7*, END+8, END+9, END+10
IFN CNHDEOC+7~, CNHDEOC+8*
IO VIEW+5, DSRP+11, CRPON+10, VBACRPON+12, CIRPT+15, CRMS+3, CRRR+9, CNHDEOC+6, CNHRP+5, CNHRAD+7
, CNHSE90D+6, REQSTAT+8, DVBA8861+9
IOF HFSOPEN+6*
>> ISDELIM REQSTAT+11*, REQSTAT+13
>> ISNODT REQSTAT+11*, REQSTAT+13
>> LOC CRPON+18*, VBACRPON+18*
MAGTMPR2 SPRPT+6~, SPRPT+8*
>> MB DSRP+23*
MSG START~, END+5*, END+11*, END+12*
ONE CRPON+11~, CRPON+15*, CRPON+28*, VBACRPON+13~, VBACRPON+16*, VBACRPON+25*
>> OUT CRPON+33*
PARM START~, CHECK+1, SDPP+16, SDPP+17, SDPP+18, SDPP+19, VIEW+6, DSRP+8, SPRPT+8, CRPON+12
, CRPON+13, VBACRPON+14, CIRPT+16, CIRPT+17, CRRR+10, CNHDEOC+8, CNHRP+6, CNHRAD+9, CNHRAD+10, CNHSE90D+8
, REQSTAT+10, REQSTAT+11, DVBA8861+11, DVBA8861+12
>> PG CRPON+18*, VBACRPON+18*
>> PGHD CRPON+18*, VBACRPON+18*, CPRNT+4*
>> POP HFSOPEN+4
>> PRTDATE CRPON+33*, VBACRPON+26*
REQSTAT REQSTAT+9~, REQSTAT+11*, REQSTAT+13, DVBA8861+10~, DVBA8861+12*, DVBA8861+14
RESANS CIRPT+14~, CIRPT+16*, INREAS+2
>> RO CRPON+28*, CRPON+30, CRPON+32, VBACRPON+25*
>> ROOT HFSCLOSE+4*, HFSCLOSE+5, HFSCLOSE+6
>> ROSTAT DVBA8861+12*, DVBA8861+14
RPID START~, START+9*, START+10, START+12, START+13, START+14, START+16, START+17, START+21, START+22
, START+23, START+24, START+25, START+26, START+27, START+28, START+29, START+30, END+2, END+12
RPTTYPE CIRPT+14~, CIRPT+16*, CIRPT+19, CIRPT+20
>> RQST CRPON+27*, CRPON+32, CRPON+36
>> RTYPE CRPON+13*, CRPON+14, CRPON+19, CRPON+23, CRPON+25, VBACRPON+14*, VBACRPON+15, VBACRPON+19, VBACRPON+23, VBACRPON+24
>> RUNDATE CRPON+13*, VBACRPON+14*
SDACT SDPP+15~, SDPP+21*, SDPP+31*
>> SDATE CRRR+10*, CRRR+13, CRRR+14
SDBD SDPP+15~, SDPP+17*, SDPP+24*
SDBEG SDPP+15~, SDPP+24*
SDED SDPP+15~, SDPP+17*, SDPP+24*
SDEN SDPP+15~
>> SDEND SDPP+24*
>> SDHDR SDPP+24*
>> SDP SDPP+18*, SDPP+23
SDPRINT SDPP+15~, SDPP+21*, SDPP+23*, SDPP+26*
>> SDR SDPP+17*, SDPP+22
SDRANGE SDPP+15~, SDPP+21*, SDPP+22*, SDPP+24
SDTYP SDPP+15~
SDTYP(1 SDPP+18*, SDPP+29*, SDPP+30!
SDTYP(2 SDPP+18*, SDPP+27*, SDPP+28!
SDTYP(3 SDPP+19*, SDPP+33*, SDPP+34!
SDTYP(4 SDPP+19*, SDPP+31*, SDPP+32!
SDTYP(5 SDPP+19*, SDPP+35*, SDPP+36!
SDTYP(7 SDPP+19*, SDPP+37, SDPP+38*, SDPP+39!
SDYES SDPP+15~, SDPP+21*, SDPP+23*
SRSITE SPRPT+6~, SPRPT+7*
SRTN SPRPT+6~, SPRPT+8*
>> SUPER CRPON+16*, CRPON+17*, CRPON+30, CRPON+33
U DSRP+18, DSRP+20, DSRP+21, DSRP+22, DSRP+23, CRPON+12, CRPON+18, CRPON+27, CRPON+28, CRPON+33
, VBACRPON+18, VBACRPON+25, VBACRPON+26, CPRNT+4, CNHDEOC+8, CNHRP+6, CNHRAD+9, CNHRAD+10, CNHSE90D+8, REQSTAT+10
, REQSTAT+11, DVBA8861+11, DVBA8861+12
>> ULINE CRPON+15*, VBACRPON+16*, CPRNT+3*
>> VALMBCK SDPP+41*
X CRRR+14*, CRRR+18*, VAL+2*, VALDATE+2~, VALDATE+3*, HFSCLOSE+1~, HFSCLOSE+6*, HFSCLOSE+7*
>> XDA DSRP+23*, CRRR+10*, CRRR+17, CRRR+18, CRRR+20
>> XDD CRPON+15*, CRPON+16, VBACRPON+16*, VBACRPON+17, CPRNT+3*, CPRNT+4
Y CRPON+15*, CRPON+18, VBACRPON+16*, VBACRPON+18, CRRR+14, CRRR+18, CPRNT+3*, CPRNT+4, VAL+3, VALDATE+2~
, VALDATE+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All