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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBCRBH1

Package: Integrated Billing

Routine: IBCRBH1


Information

IBCRBH1 ;ALB/ARH - RATES: BILL HELP DISPLAYS - CHARGES ; 10-OCT-1998

Source Information

Source file <IBCRBH1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Integrated Billing 9 (CPT,INPTBS,OPTVST,PI,RX)^IBCRBC1  INPTDRG^IBCRBC11  PTF^IBCRBG  $$NODRG^IBCRBG2  $$EMUTL^IBCRU1  ($$BILLRATE,RT)^IBCRU3  ($$RCDV,$$VERSDT)^IBCRU8  $$NAME^IBCSC61  
$$GETMOD^IBEFUNC  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IBCSC5A  IBCSCH  IBCU1  IBCU65  

Entry Points

Name Comments DBIA/ICR reference
CPTNM(IBIFN,TYPE,ITEM) ; retrurn external name of the charge item if it is a CPT item (type=399,42,.1)
END
NOTES(IBIFN,PAUSE) ; compile and print charge notes for a bill
DATE(X) ;
PAUSE(CNT) ;
DSPCHRG(AA) ; display charges
; Input: TMP($J,"IBCRCSx",...) = ... (from SORTCI)
DISPLNC(LN) ; display charge adjustment commenmts
DSPLN(LN) ;
DSPHDR(AA) ;
ITMNM(IBIFN,IBBS,IBIT,IBIP,IBCPT) ; return external form of the item name
SORTCI(IBIFN) ; process charge array - create new array in sorted order with items combined, if possible
; if bs, rv cd, charge, cpt, div, item type, item ptr and component all match then charge is combined
; Input: TMP($J,"IBCRCC",X) = ... (from IBCRBC2)
; Output: TMP($J,"IBCRCSX",X) =
; RV CD ^ BS ^ CHG ^ UNITS ^ CPT ^ DIV ^ ITM TYPE ^ ITM PTR ^ CHRG CMPNT ^ CHRG SET ^ EVNT DT ^ ITM NAME
; TMP($J,"IBCRCSX",X,"CC",Y) = charge adjustment messages
; TMP($J,"IBCRCSXR",BS,RV CD,X) = ""
; TMP($J,"IBCRCSXN",DATE,ITEM NAME,X) = ""
DISPCHG(IBIFN) ; display a bills items and their charges, display only, does not change the charges on the bill
BILL(IBIFN,IBAA,IBRSARR) ; given a bill number calculate charges using schedules that match the auto add flag
; if IBRSARR is defined it will be used to create charges rather than the standard set for the bills Rate Type
; Output: ^TMP($J,"IBCRCC" - same as would be calculated if the charges were being added to bill

External References

Name Field # of Occurrence
^DIR PAUSE+2
CPT^IBCRBC1 BILL+23
INPTBS^IBCRBC1 BILL+18
OPTVST^IBCRBC1 BILL+20
PI^IBCRBC1 BILL+22
RX^IBCRBC1 BILL+21
INPTDRG^IBCRBC11 BILL+19
PTF^IBCRBG NOTES+21
$$NODRG^IBCRBG2 NOTES+27
$$EMUTL^IBCRU1 BILL+16, ITMNM+5
$$BILLRATE^IBCRU3 NOTES+10
RT^IBCRU3 BILL+11
$$RCDV^IBCRU8 NOTES+13
$$VERSDT^IBCRU8 NOTES+13
$$NAME^IBCSC61 ITMNM+2
$$GETMOD^IBEFUNC CPTNM+4
$$CPT^ICPTCOD ITMNM+4, CPTNM+3
$$FMTE^XLFDT NOTES+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?72,"--------",!,?70,$J(IBTOTAL,10,2)
  • Line Location: DSPCHRG+25
Function Call: WRITE
  • Prompt: !,"Item",?18,"Date",?28,"Charge Set",?40,"Div",?47,"Type",?52,"RvCd",?57,"Units",?64,"Charge",?75,"Total"
  • Line Location: DSPHDR+2
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: DSPHDR+3
Function Call: WRITE
  • Prompt: !,$E(ITM,1,15),?18,$$DATE($P(LN,U,6)),?28,$E(CS,1,7),?40,DIV,?47,CMP,?52,RVCD,?57,$J(UNIT,3),?62,$J(CHG,8,2),?71,$J((UNIT*CHG),9,2)
  • Line Location: DSPLN+7
Function Call: WRITE
  • Prompt: !,?18,$G(LN)
  • Line Location: DISPLNC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+34
Function Call: WRITE
  • Prompt: !,IBMSG(IBX)
  • Line Location: NOTES+34
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DSPLN+3
^DGCR(399 - [#399] BILL+7, CPTNM+2, NOTES+8
^DGCR(399.2 - [#399.2] DSPLN+5
^IBE(363.1 - [#363.1] BILL+16, DSPLN+2
^TMP($J DISPCHG+3!, DISPCHG+5!, BILL+5!, SORTCI+10!, SORTCI+12, SORTCI+14, SORTCI+20, SORTCI+21, SORTCI+22, SORTCI+29*
, SORTCI+30*, SORTCI+31*, SORTCI+32*, DSPCHRG+7, DSPCHRG+8, DSPCHRG+9, DSPCHRG+10, DSPCHRG+19, DSPCHRG+20, DSPCHRG+21
, NOTES+7!, NOTES+23, NOTES+26, NOTES+35!

Label References

Name Line Occurrences
$$CPTNM ITMNM+3
$$DATE DSPLN+7
$$ITMNM SORTCI+17
$$PAUSE DSPCHRG+23, DSPCHRG+26, NOTES+33
BILL DISPCHG+2, DISPCHG+4
DISPLNC DSPCHRG+20, DSPCHRG+21
DSPCHRG DISPCHG+2, DISPCHG+4
DSPHDR DSPCHRG+5, DSPCHRG+23
DSPLN DSPCHRG+17
END BILL+11
NOTES DISPCHG+6
SORTCI DISPCHG+2, DISPCHG+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AA DSPCHRG~, DSPCHRG+5, DSPCHRG+23, DSPHDR~, DSPHDR+1
BEG NOTES+7~, NOTES+19*, NOTES+23, NOTES+24
CHG DSPLN+1~, DSPLN+6*, DSPLN+7
CMP DSPLN+1~, DSPLN+4*, DSPLN+7
CNT PAUSE~, PAUSE+1
CS DSPLN+1~, DSPLN+2*, DSPLN+7
DIR PAUSE+2~!
DIR(0 PAUSE+2*
DIRUT PAUSE+2~
DIV DSPLN+1~, DSPLN+3*, DSPLN+7
DT ITMNM+4, CPTNM+3, NOTES+19
DTOUT PAUSE+2~
DUOUT PAUSE+2~
END NOTES+7~, NOTES+19*, NOTES+23, NOTES+24
IB0 BILL+4~, BILL+7*, BILL+8, NOTES+7~, NOTES+8*, NOTES+10, NOTES+13, NOTES+17, NOTES+19
IBAA BILL~, BILL+15
>> IBAUTO NOTES+6
IBBEVNT BILL+4~, BILL+16*, BILL+18, BILL+19, BILL+20, BILL+21, BILL+22, BILL+23
IBBRT BILL+4~, BILL+8*, BILL+11
IBBS SORTCI+9~, SORTCI+15*, SORTCI+17, SORTCI+20, SORTCI+29, SORTCI+31, ITMNM~, ITMNM+1*, ITMNM+5
IBBTYPE BILL+4~, BILL+8*, BILL+11
IBCHG SORTCI+9~, SORTCI+15*, SORTCI+23, SORTCI+31, DSPCHRG+3~, DSPCHRG+13*, DSPCHRG+15, DSPCHRG+17
IBCMPT SORTCI+9~, SORTCI+16*, SORTCI+23, SORTCI+31, DSPCHRG+3~, DSPCHRG+14*, DSPCHRG+17
IBCNT DSPCHRG+3~, DSPCHRG+5*, DSPCHRG+15*, DSPCHRG+20*, DSPCHRG+21*, DSPCHRG+23*, DSPCHRG+25*, DSPCHRG+26
IBCPT SORTCI+9~, SORTCI+16*, SORTCI+17, SORTCI+23, SORTCI+31, ITMNM~, ITMNM+1*, ITMNM+4
IBCS BILL+4~, BILL+15*, BILL+16, BILL+18, BILL+19, BILL+20, BILL+21, BILL+22, BILL+23, SORTCI+9~
, SORTCI+17*, SORTCI+31, DSPCHRG+3~, DSPCHRG+14*, DSPCHRG+17
IBCTYPE BILL+4~, BILL+8*, BILL+11
IBDT SORTCI+9~, SORTCI+17*, SORTCI+24*, SORTCI+30, SORTCI+31, DSPCHRG+3~, DSPCHRG+14*, DSPCHRG+17
IBDV SORTCI+9~, SORTCI+16*, SORTCI+23, SORTCI+31, DSPCHRG+3~, DSPCHRG+13*, DSPCHRG+17
IBENDDT NOTES+7~, NOTES+23*, NOTES+24, NOTES+26, NOTES+29
IBFND NOTES+7~*, NOTES+14*, NOTES+29*, NOTES+31, NOTES+33*
IBI SORTCI+9~, SORTCI+12*, SORTCI+14, SORTCI+21, SORTCI+26, SORTCI+32, DSPCHRG+3~, DSPCHRG+7*, DSPCHRG+8, DSPCHRG+9
, PAUSE+1~*
IBIFN DISPCHG~, DISPCHG+2, DISPCHG+4, DISPCHG+6, BILL~, BILL+4, BILL+7, BILL+18, BILL+19, BILL+20
, BILL+21, BILL+22, BILL+23, SORTCI~, SORTCI+17, ITMNM~, ITMNM+3, CPTNM~, CPTNM+2, CPTNM+4
, NOTES~, NOTES+8
IBIP SORTCI+9~, SORTCI+16*, SORTCI+17, SORTCI+23, SORTCI+31, ITMNM~, ITMNM+1*, ITMNM+2, ITMNM+3
IBIT SORTCI+9~, SORTCI+16*, SORTCI+17, SORTCI+23, SORTCI+31, ITMNM~, ITMNM+1*, ITMNM+2, ITMNM+3
IBJ SORTCI+9~, SORTCI+20*, SORTCI+22, DSPCHRG+3~, DSPCHRG+8*, DSPCHRG+9
IBK SORTCI+9~, SORTCI+20*, SORTCI+26*, SORTCI+29, SORTCI+30, SORTCI+31, SORTCI+32, DSPCHRG+3~, DSPCHRG+9*, DSPCHRG+10
, DSPCHRG+19, DSPCHRG+20, DSPCHRG+21
IBLN SORTCI+9~, SORTCI+14*, SORTCI+15, SORTCI+16, SORTCI+17, DSPCHRG+3~, DSPCHRG+10*, DSPCHRG+13, DSPCHRG+14
IBMDRG NOTES+7~, NOTES+27*, NOTES+29, NOTES+30
IBMSG NOTES+7~
IBMSG( NOTES+14*, NOTES+31*, NOTES+34
IBMVLN NOTES+7~, NOTES+26*, NOTES+27
IBNM SORTCI+9~, SORTCI+17*, SORTCI+30, SORTCI+31, DSPCHRG+3~, DSPCHRG+14*, DSPCHRG+17
IBQUIT DSPCHRG+3~*, DSPCHRG+7, DSPCHRG+8, DSPCHRG+9, DSPCHRG+23*, DSPCHRG+26*
IBRS BILL+4~, BILL+14*, BILL+15, BILL+18, BILL+19, BILL+20, BILL+21, BILL+22, BILL+23
IBRSARR BILL~, BILL+11
IBRSARR( BILL+14, BILL+15
IBRVCD SORTCI+9~, SORTCI+15*, SORTCI+20, SORTCI+29, SORTCI+31, DSPCHRG+3~, DSPCHRG+13*, DSPCHRG+17
IBTOTAL DSPCHRG+3~*, DSPCHRG+15*, DSPCHRG+25
IBTUNITS SORTCI+9~, SORTCI+20*, SORTCI+24*, SORTCI+26, SORTCI+27*, SORTCI+31
IBU BILL+4~, BILL+7*, BILL+11, NOTES+7~, NOTES+8*, NOTES+19
IBUNITS SORTCI+9~, SORTCI+15*, SORTCI+27, DSPCHRG+3~, DSPCHRG+13*, DSPCHRG+15, DSPCHRG+17
IBX SORTCI+9~, SORTCI+22*, SORTCI+23, SORTCI+24, DSPCHRG+3~, DSPCHRG+17*, DSPCHRG+20*, PAUSE+2~*, PAUSE+3, CPTNM+1~*
, CPTNM+2*, CPTNM+3, CPTNM+4*, NOTES+7~, NOTES+14*, NOTES+29*, NOTES+30*, NOTES+31, NOTES+34*
IBY SORTCI+9~, SORTCI+32*, DSPCHRG+3~, DSPCHRG+19*, DSPCHRG+20
IOF DSPHDR+1
ITEM CPTNM~, CPTNM+2, CPTNM+4
ITM DSPLN+1~, DSPLN+6*, DSPLN+7, ITMNM+1~*, ITMNM+2*, ITMNM+3*, ITMNM+4*, ITMNM+5*, ITMNM+6
LN DSPLN~, DSPLN+1*, DSPLN+2, DSPLN+3, DSPLN+4, DSPLN+5, DSPLN+6, DSPLN+7, DISPLNC~, DISPLNC+1
NAME CPTNM+1~*, CPTNM+3*, CPTNM+4*, CPTNM+5
PAUSE NOTES~, NOTES+33
PTF NOTES+7~, NOTES+19*, NOTES+21
RVCD DSPLN+1~, DSPLN+5*, DSPLN+7
TYPE CPTNM~, CPTNM+2
U BILL+8, BILL+11, BILL+16, SORTCI+15, SORTCI+16, SORTCI+17, SORTCI+23, SORTCI+24, SORTCI+31, DSPCHRG+13
, DSPCHRG+14, DSPCHRG+17, DSPLN+2, DSPLN+3, DSPLN+4, DSPLN+5, DSPLN+6, DSPLN+7, ITMNM+4, CPTNM+3
, NOTES+10, NOTES+13, NOTES+17, NOTES+19, NOTES+26, NOTES+29
UNIT DSPLN+1~, DSPLN+6*, DSPLN+7
X DATE~, DATE+1*, DATE+2, PAUSE+2~
Y PAUSE+2~
>> ZTQUEUED NOTES+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All