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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBOHLS2

Package: Integrated Billing

Routine: IBOHLS2


Information

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

Source Information

Source file <IBOHLS2.m>

Call Graph

Call Graph

Call Graph Total: 17

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:

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: 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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All