Routine: IBOHLS2

Information

IBOHLS2 ;ALB/BAA - IB HELD CHARGES LIST MANAGER ;08-SEP-2015

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$KCHK^XUSRB
Accounts Receivable	4	COMP^PRCAAPR (DIS,HDR,HDR2)^PRCAAPR1 EN1^PRCAATR $$NAM^RCFN01
Integrated Billing	3	BLD^IBOHLS SORT^IBOHLS1 REL^IBOHRL
List Manager	3	EN^VALM ($$UPPER,CLEAR,FULL,PAUSE)^VALM1 EN^VALM2
VA FileMan	2	^DIC ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 8

Package	Total	Caller Graph
Integrated Billing	7	IBOH EXPORT TO FILE IBOH HELD CHARGES ACCOUNT PROFILE IBOH HELD CHARGES CLAIM TRACKING IBOH HELD CHARGES PATIENT INSURANCE IBOH HELD CHARGES TPJI IBOH PRINT HELD CHARGES RPT IBOH RELEASE HELD CHARGES
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
REL
RELHLD(DFN,IBN,IB0)	; queue copay for release
RELHLDQ
RPT(RTN,FILTERS)	; print the information
DEVICE(TYPE)	; Ask user to select device
ENQ
PRINT(RTN,BDATE,EDATE,MAX)	; -- print the current data
HEADER	; -- print header
HEADERX	; EXIT
EXPORT(RTN,FILTERS)	; -- print excel spreadsheet.
EXCEL(RTN,BDATE,EDATE,MAX)	; print the data in excel format
COUNT	; format output
EXHDR	; -- excel header
PAUSE	;pause at end of screen if being displayed on a terminal
PATINS	; view patient insurance
CLMTRK	; look at claims tracking
PATCLM	; look at claims INFO
PATACP	; look at ACCOUNT PROFILE
SETL(LINE,DATA,LABEL,COL,LNG)	; Creates a line of data to be set into the body ; of the worklist ; Input: LINE - Current line being created ; DATA - Information to be added to the end of the current line ; LABEL - Label to describe the information being added ; COL - Column position in line to add information add ; LNG - Maximum length of data information to include on the line ; Returns: Line updated with added information
QUE	; QUEUED REPORT ENTRY

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+5
HOME^%ZIS	DEVICE+16
^%ZISC	DEVICE+24, EXPORT+4
^%ZTLOAD	DEVICE+16
$$S^%ZTLOAD	HEADER+9
^DIC	PATACP+15
^DIR	RELHLD+13, HEADER+6, PAUSE+2
BLD^IBOHLS	REL+18, RPT+5, EXPORT+7, PATINS+8, CLMTRK+13, PATCLM+8, PATACP+22
SORT^IBOHLS1	QUE+8
REL^IBOHRL	RELHLD+21
COMP^PRCAAPR	PATACP+14, PATACP+19
DIS^PRCAAPR1	PATACP+19
HDR^PRCAAPR1	PATACP+19
HDR2^PRCAAPR1	PATACP+19
EN1^PRCAATR	PATACP+14
$$NAM^RCFN01	PATACP+14
EN^VALM	PATINS+7, CLMTRK+11, PATCLM+7
$$UPPER^VALM1	PATACP+12
CLEAR^VALM1	DEVICE+2, PRINT+3, PATACP+4, QUE+4
FULL^VALM1	REL+1, DEVICE+3, PATINS+1, CLMTRK+1, PATCLM+1, PATACP+1, QUE+3
PAUSE^VALM1	RELHLD+5, RELHLD+17, RELHLD+25, RPT+4, PATACP+20
EN^VALM2	REL+6, PATINS+3, CLMTRK+3, PATCLM+3, PATACP+3
$$FMTE^XLFDT	PRINT+16, PRINT+17, PRINT+34, PRINT+63, PRINT+64, PRINT+73, HEADER+12, HEADER+16, HEADER+17, COUNT+7 , COUNT+8, COUNT+18
$$NOW^XLFDT	HEADER+12
$$KCHK^XUSRB	RELHLD+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"The necessary key is IB AUTHORIZE. Please see your manager." Line Location: RELHLD+4
Function Call: WRITE	Prompt: !," Copay for "_$P(IB0,U,1)_" - "_$P(IB0,U,2)_" for the amount of $"_$P(IB0,U,7)_" will be released." Line Location: RELHLD+7
Function Call: WRITE	Prompt: !," Release of Copay for "_$P(IB0,U,1)_" - "_$P(IB0,U,2)_" canceled." Line Location: RELHLD+16
Function Call: WRITE	Prompt: !," Copay for "_$P(IB0,U,1)_" - "_$P(IB0,U,2)_" for the amount of $"_$P(IB0,U,7)_" has been queued for released." Line Location: RELHLD+23
Function Call: WRITE	Prompt: !,^TMP("IBOUT",$J,XX) Line Location: PRINT+80
Function Call: WRITE	Prompt: !!,?5,"END OF REPORT" Line Location: PRINT+81
Function Call: WRITE	Prompt: ! Line Location: HEADER+5
Function Call: WRITE	Prompt: @IOF,!,?1,"VistA Held Charges Report" Line Location: HEADER+11
Function Call: WRITE	Prompt: ?OFFSET,HDR Line Location: HEADER+14
Function Call: WRITE	Prompt: !,?OFFSET,HDR Line Location: HEADER+19
Function Call: WRITE	Prompt: !,?4,"Patient Name",?26,"ID",?35,"Type",?44,"Fr/Fl Dt",?54,"To/Rls Dt",?64,"Days",?73,"Amount" Line Location: HEADER+20
Function Call: WRITE	Prompt: !,?2,"-----------------------------------------------------------------------------" Line Location: HEADER+21
Function Call: WRITE	Prompt: !,^TMP("IBOUT",$J,XX) Line Location: EXCEL+8
Function Call: WRITE	Prompt: !,"END OF REPORT" Line Location: EXCEL+10
Function Call: WRITE	Prompt: !,HDR Line Location: EXHDR+2
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: !,"No entries found for "_NAME Line Location: PATACP+16
Routine Call	%ZIS Line Location: DEVICE+5
Routine Call	%ZIS Line Location: DEVICE+16
Routine Call	DIC Line Location: PATACP+15
Routine Call	DIR Line Location: RELHLD+13 HEADER+6 PAUSE+2
Routine Call	VALM Line Location: PATINS+7 CLMTRK+11 PATCLM+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RCD(340 - [#340]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	PATACP+14, PATACP+17
^PRCA(430 - [#430]	PATACP+13, PATACP+14
^RCD(340 - [#340]	PATACP+14
^TMP("IBOUT"	DEVICE+27!, PRINT+21, PRINT+26, PRINT+37, PRINT+52, PRINT+56, PRINT+66, PRINT+69, PRINT+77, PRINT+80 , EXCEL+8, COUNT+9, COUNT+11, COUNT+13, COUNT+21, COUNT+22
^TMP("PRCAAPR"	PATACP+21!
^TMP($J	REL+8, REL+12, REL+14, REL+16!, RELHLD+2!, RELHLD+19, RELHLD+26!, PRINT+6, PRINT+8, PRINT+12 , PRINT+22, PRINT+27, PRINT+29, PRINT+30, PRINT+42, PRINT+57, PRINT+59, PRINT+70, PRINT+71, EXCEL+5 , COUNT+3, COUNT+5, COUNT+11, COUNT+12, COUNT+14, COUNT+17, PATINS+5, CLMTRK+4!, CLMTRK+6, CLMTRK+8 , CLMTRK+10, CLMTRK+12!, PATCLM+5, PATACP+6

Label References

Name	Line Occurrences
$$SETL	PRINT+10, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+24, PRINT+31 , PRINT+32, PRINT+33, PRINT+34, PRINT+35, PRINT+40, PRINT+41, PRINT+46, PRINT+47, PRINT+48, PRINT+49 , PRINT+50, PRINT+55, PRINT+60, PRINT+61, PRINT+62, PRINT+63, PRINT+64, PRINT+67, PRINT+72, PRINT+73 , PRINT+74, PRINT+75
COUNT	EXCEL+5
DEVICE	RPT+3, EXPORT+5
ENQ	DEVICE+5, DEVICE+9
EXCEL	DEVICE+22, QUE+11
EXHDR	EXCEL+3
HEADER	PRINT+5, PRINT+9, PRINT+80
HEADERX	HEADER+4, HEADER+9
PAUSE	EXPORT+8, EXCEL+11
PRINT	DEVICE+21, QUE+10
RELHLD	REL+15
RELHLDQ	RELHLD+3

Naked Globals

Name	Field # of Occurrence
^(0	PATACP+13
^(1	PRINT+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+4~, DEVICE+5*
BAT	PATACP+8~
BCNT	PRINT+29, PRINT+30, EXCEL+2~, COUNT+14, COUNT+17
BDATE	RPT+1~, RPT+2, DEVICE+21, DEVICE+22, PRINT~, HEADER+15, HEADER+16, HEADER+17, EXPORT+1~, EXPORT+3 , EXCEL~, QUE+5*, QUE+10, QUE+11
BILL	PATACP+8~
CNT	REL+2~, REL+11, REL+12, REL+14, REL+16, PRINT+1~, PRINT+8, PRINT+12, PRINT+22, PRINT+27 , PRINT+29, PRINT+30, PRINT+42, EXPORT+1~, EXCEL+2~, COUNT+2, COUNT+3, COUNT+5, COUNT+11, COUNT+12 , COUNT+14, COUNT+17
COL	SETL~, SETL+8
COUNT	PATACP+8~, PATACP+10*
CPY	PATACP+2~, PATACP+10*
CRT	DEVICE+4~, DEVICE+7, DEVICE+8, HEADER+4
DA	PATACP+8~
DASHES	HEADER+1~
DASHES2	HEADER+1~
DATA	REL+2~, REL+8, REL+9, REL+10, REL+11, REL+12, REL+13, SETL~, SETL+8
DEBT	PATACP+8~, PATACP+14, PATACP+18
DFN	REL+2~, REL+9, REL+15, RELHLD~, RELHLD+19, PATINS+2~, PATINS+6, CLMTRK+7, CLMTRK+10, PATCLM+6 , PATACP+2~, PATACP+7*
DIC	PATACP+8~, PATACP+15*
DIC(0	PATACP+15*
DIR	RELHLD+13!, HEADER+1~, HEADER+6!, PAUSE+1~, PAUSE+2!
DIR("?"	RELHLD+10, RELHLD+11, RELHLD+12*
DIR("A"	RELHLD+9*
DIR("B"	RELHLD+9*
DIR(0	RELHLD+9, HEADER+6, PAUSE+2*
DIROUT	PATACP+8~
DIRUT	PAUSE+1~, PAUSE+3, PATACP+8~
DPTNOFZK	PATACP+9~*
DPTNOFZY	PATACP+9~*
DR	PATACP+8~
DTOUT	HEADER+1~, HEADER+8, PAUSE+1~, PATACP+8~
DUOUT	HEADER+1~, HEADER+8, PAUSE+1~, PAUSE+3, PATACP+8~
DUZ	PATACP+14, PATACP+17
DXS	PATACP+8~
ECNT	PATINS+2~, CLMTRK+2~, CLMTRK+7, PATCLM+2~, PATCLM+6, PATACP+2~, PATACP+7*
EDATE	RPT+1~, RPT+2, DEVICE+21, DEVICE+22, PRINT~, HEADER+17, EXPORT+1~, EXPORT+3, EXCEL~, QUE+5* , QUE+10, QUE+11
FILTERS	RPT~, EXPORT~
FILTERS(0	RPT+2, EXPORT+3, QUE+5, QUE+6
FILTERS(1	DEVICE+12, DEVICE+13
FILTERS(3	QUE+7
FIRST	PRINT+1~, PRINT+7, PRINT+42, PRINT+45, COUNT+2*
GOPAT	PATINS+2~
GOTPAT	CLMTRK+2~, CLMTRK+7*
HDR	HEADER+1~, HEADER+12, HEADER+13, HEADER+14, HEADER+17, HEADER+18, HEADER+19, EXHDR+1*, EXHDR+2
I	REL+2~, DEVICE+15*, PATINS+2~, CLMTRK+2~
IB0	RELHLD~, RELHLD+7, RELHLD+16, RELHLD+23
IBCHRGS	REL+2~, REL+14*, REL+15
>> IBDIVS	DEVICE+12*
IBFR	CLMTRK+2~, CLMTRK+9*, CLMTRK+10
IBIFN	PATCLM+2~
IBN	RELHLD~, RELHLD+19
IBND	REL+2~, REL+13*, REL+15
IBPXT	HEADER+1~, HEADER+2, HEADER+4, HEADER+8, HEADER+9*
IBQUIT	PRINT+1~, PRINT+2, PRINT+9, PRINT+80, HEADER+7, HEADER+8, EXPORT+1~, EXPORT+2, PAUSE+3
IBR60	RELHLD+1!
IBTO	CLMTRK+2~, CLMTRK+9*, CLMTRK+10
IBXX	REL+2~, REL+7, REL+8, PATINS+2~, PATINS+4, PATINS+5, CLMTRK+2~, CLMTRK+5, CLMTRK+6, PATCLM+2~ , PATCLM+4, PATCLM+5, PATACP+2~, PATACP+5*, PATACP+6
>> IINS	QUE+7*
>> INSTS	QUE+6*
IO	DEVICE+21, DEVICE+22, PRINT+4, EXCEL+1, QUE+10, QUE+11
IO("Q"	DEVICE+9, DEVICE+16!, DEVICE+18!
IOF	HEADER+11
IOM	DEVICE+14
ION	DEVICE+14
IOSL	DEVICE+7, DEVICE+8, DEVICE+14
IOST	DEVICE+7, DEVICE+14, PAUSE+1
J	REL+2~, PATINS+2~, CLMTRK+2~
LABEL	SETL~, SETL+8
LCNT	PRINT+1~, PRINT+2, PRINT+20, PRINT+21, PRINT+25, PRINT+26, PRINT+36, PRINT+37, PRINT+51, PRINT+52 , PRINT+53, PRINT+56, PRINT+65, PRINT+66, PRINT+68, PRINT+69, PRINT+76, PRINT+77, EXPORT+2, EXCEL+2~ , EXCEL+4, COUNT+4, COUNT+9, COUNT+11, COUNT+13, COUNT+21, COUNT+22*
LIN	HEADER+1~, HEADER+5*
LINE	PRINT+1~, PRINT+10, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+21 , PRINT+24, PRINT+26, PRINT+31, PRINT+32, PRINT+33, PRINT+34, PRINT+35, PRINT+37, PRINT+40, PRINT+41 , PRINT+46, PRINT+47, PRINT+48, PRINT+49, PRINT+50, PRINT+52, PRINT+55, PRINT+56, PRINT+60, PRINT+61 , PRINT+62, PRINT+63, PRINT+64, PRINT+66, PRINT+67, PRINT+69, PRINT+72, PRINT+73, PRINT+74, PRINT+75 , PRINT+77, EXCEL+2~, COUNT+1~, COUNT+2, COUNT+16, COUNT+22, SETL~, SETL+8, SETL+9
LNG	SETL~, SETL+8
MAX	PRINT~, PRINT+9, PRINT+80, HEADER+5, EXCEL~
MAXCNT	DEVICE+4~, DEVICE+7, DEVICE+8, DEVICE+21, DEVICE+22, QUE+10, QUE+11
NAME	REL+2~, REL+10, REL+12, REL+14, REL+16, PRINT+1~, PRINT+6, PRINT+8, PRINT+12, PRINT+22 , PRINT+27, PRINT+29, PRINT+30, PRINT+42, PRINT+57, PRINT+59, PRINT+70, PRINT+71, EXPORT+1~, EXCEL+2~ , EXCEL+5, COUNT+3, COUNT+5, COUNT+11, COUNT+12, COUNT+14, COUNT+17, CLMTRK+2~, CLMTRK+7, PATCLM+6* , PATACP+2~, PATACP+7*, PATACP+11, PATACP+16
NXT	EXCEL+2~
OFFSET	HEADER+1~, HEADER+13, HEADER+14, HEADER+18, HEADER+19
OUT	EXCEL+2~, PATACP+8~
>> PATS	QUE+6*
PCE	EXCEL+2~
PGC	PRINT+1~, PRINT+2, HEADER+4, HEADER+10, HEADER+12, EXPORT+2*
PNAME	PATCLM+2~
POP	DEVICE+4~, DEVICE+5
PRCA	PATACP+8~
PRCADB	PATACP+8~, PATACP+14, PATACP+18
PRCATY	PATACP+2~, PATACP+11*
RC	CLMTRK+2~, CLMTRK+6, CLMTRK+7, CLMTRK+8, CLMTRK+9, PATCLM+2~, PATCLM+5, PATCLM+6, PATACP+2~, PATACP+6 , PATACP+7
REC	PRINT+1~, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+30 , PRINT+32, PRINT+33, PRINT+34, PRINT+35, PRINT+38, EXPORT+1~, EXCEL+2~, COUNT+1~, COUNT+5, COUNT+7 , COUNT+8, COUNT+9, COUNT+13, COUNT+17, COUNT+18, COUNT+19, PATINS+5*, PATINS+6
REC1	COUNT+1~, COUNT+19*, COUNT+21, COUNT+22
RELCPY	REL+2~, REL+3, REL+16, RELHLD+15, RELHLD+24*
RNB	PRINT+1~, PRINT+38*, PRINT+39, PRINT+41
RTN	RPT~, PRINT~, EXPORT~, EXCEL~
RX	PRINT+1~, PRINT+22*, PRINT+24, EXPORT+1~
SEL	PATACP+8~
>> SVRC	COUNT+13*, COUNT+16
TRAN	PATACP+8~
TYPE	DEVICE~, DEVICE+21, DEVICE+22, QUE+10, QUE+11
U	REL+9, REL+10, REL+11, REL+13, RELHLD+7, RELHLD+16, RELHLD+23, RPT+2, PRINT+13, PRINT+14 , PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+32, PRINT+33, PRINT+34, PRINT+35, PRINT+38 , PRINT+60, PRINT+61, PRINT+62, PRINT+63, PRINT+64, PRINT+72, PRINT+73, PRINT+74, PRINT+75, EXPORT+3 , COUNT+7, COUNT+8, COUNT+11, COUNT+17, COUNT+18, COUNT+19, COUNT+21, COUNT+22, EXHDR+1, PATINS+6 , CLMTRK+7, CLMTRK+9, CLMTRK+10, PATCLM+6, PATACP+7, QUE+5, QUE+6
>> V	DEVICE+12, DEVICE+13
>> VALMBCK	REL+19, RPT+6, EXPORT+9, PATINS+9, CLMTRK+14, PATCLM+9, PATACP+23*
VALMY	REL+2~, REL+7, PATINS+2~, PATINS+4, CLMTRK+2~, CLMTRK+5, PATCLM+2~, PATCLM+4, PATACP+2~, PATACP+5
VALMY(	REL+7, PATINS+4, CLMTRK+5, PATCLM+4, PATACP+5
>> WHO	DEVICE+13*
X	HEADER+1~, HEADER+7, PATACP+8~, PATACP+11, PATACP+12, PATACP+13
>> XQORNOD(0	REL+6, PATINS+3, CLMTRK+3, PATCLM+3, PATACP+3
XX	PRINT+1~, PRINT+79, PRINT+80, EXCEL+2~, EXCEL+7, EXCEL+8, COUNT+13, COUNT+20, COUNT+21, COUNT+22 , PATCLM+2~
Y	RELHLD+14, HEADER+1~, PATACP+8~, PATACP+13*, PATACP+14, PATACP+16, PATACP+17, PATACP+18
>> ZTDESC	DEVICE+10, DEVICE+11
>> ZTIO	DEVICE+14*
>> ZTQUEUED	DEVICE+26, HEADER+4, HEADER+9
>> ZTREQ	DEVICE+26*
>> ZTRTN	DEVICE+11*
>> ZTSAVE(	DEVICE+15*
ZTSK	DEVICE+17, DEVICE+18!
>> ZTSTOP	HEADER+9*
ZZ	PRINT+1~, PRINT+43~, PRINT+57*, PRINT+59, PRINT+70, PRINT+71, EXCEL+2~
ZZ1	PRINT+1~, PRINT+43~, PRINT+59, PRINT+60, PRINT+61, PRINT+62, PRINT+63, PRINT+64, PRINT+71, PRINT+72 , PRINT+74, PRINT+75, EXCEL+2~
ZZ2	PRINT+1~, PRINT+43~, PRINT+54, PRINT+55, PRINT+70, PRINT+71, PRINT+73, EXCEL+2~

Customize PDF page

Package: Integrated Billing

Routine: IBOHLS2

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: