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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBJTBA

Package: Integrated Billing

Routine: IBJTBA


Information

IBJTBA ;ALB/ARH - TPI BILL CHARGE INFO SCREEN ;01-MAR-1995

Source Information

Source file <IBJTBA.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Integrated Billing 11 $$INPAT^IBCEF  ($$ISPROS,$$ISRX)^IBCEF1  ($$BOX24D,$$RCBOX)^IBCEF11  $$BILLN^IBCEFG0  SET^IBCSC5A  ($$PINB,SET)^IBCSC5B  ($$LOS,$$LOS1)^IBCU64  SHEOB^IBJTBA1  
HDR^IBJTU1  $$DAT1^IBOUTL  ZERO^IBRXUTL  
List Manager 3 EN^VALM  ($$SETSTR,CLEAR,FULL)^VALM1  SET^VALM10  
Accounts Receivable 1 $$BN1^PRCAFN  
Kernel 1 DISP^XQORM1  
VA FileMan 1 ^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: 5

Package Total Caller Graph
Integrated Billing 4 IBCECOB5  IBJT BILL CHARGES  IBJT BILL CHARGES SCREEN  IBJTBA1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for IBJ TP BILL CHARGES
HDR ; -- header code
INIT ; -- init variables and list array
INITQ
MRA ; -- mra/eob
HELP ; -- help code
EXIT ; -- exit code
BLD ; charges, as they would display on the bill
H1500 ; block 24
H1500Q
UB04 ;form locator 42-49, IBIFN required
UB04Q
SETLN(STR,IBX,COL,WD) ;
SET(STR,LN) ; set up TMP array with screen data (allows 2 blank lines, if not at end of array)
SETQ
COB ; if there is an offset or a secondary/tertiary payer add it to the display, with ins co, and prior bill #
; IBIFN and IBLN must exist upon entry, IBLN is updated with new line count
RX ;RX refill info for CMS-1500 TPJI display
PROS ;prosthetic info for CMS-1500 TPJI display

External References

Name Field # of Occurrence
^DIR INIT+7
$$INPAT^IBCEF UB04+10
$$ISPROS^IBCEF1 H1500+15
$$ISRX^IBCEF1 H1500+14
$$BOX24D^IBCEF11 H1500+3
$$RCBOX^IBCEF11 UB04+3
$$BILLN^IBCEFG0 H1500+6, UB04+6
SET^IBCSC5A RX+4
$$PINB^IBCSC5B PROS+5
SET^IBCSC5B PROS+3
$$LOS^IBCU64 UB04+16
$$LOS1^IBCU64 UB04+16
SHEOB^IBJTBA1 MRA+10
HDR^IBJTU1 HDR+1
$$DAT1^IBOUTL RX+6, PROS+5
ZERO^IBRXUTL RX+12
$$BN1^PRCAFN COB+11
EN^VALM EN+1
$$SETSTR^VALM1 SETLN+1
CLEAR^VALM1 EXIT+2
FULL^VALM1 INIT+7
SET^VALM10 SET+2, SET+3
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Routine Call
  • DIR
  • Line Location:
    • INIT+7
Routine Call
  • VALM
  • Line Location:
    • EN+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] INIT+4, BLD+4, UB04+11, COB+3, COB+4, COB+5
^DIC(36 - [#36] COB+9
^IBE(353 - [#353] H1500+5, UB04+5
^IBM(361.1 - [#361.1] INIT+5, MRA+3, MRA+4
^TMP("IBJTBA" INIT+2!, EXIT+1!
^TMP("IBXDISP" H1500+4!, H1500+7, H1500+8!, H1500+9, H1500+10, H1500+11, H1500+12!, UB04+4!, UB04+7, UB04+8
, UB04+9*, UB04+18, UB04+19, UB04+22!
^TMP("IBXSAVE" BLD+6!, H1500+2!, UB04+2!
^TMP($J RX+13, RX+14!

Label References

Name Line Occurrences
$$SET MRA+7, H1500+11, UB04+14, UB04+19, COB+6, COB+7, COB+12, COB+13, RX+7, RX+9
, RX+15, RX+17, PROS+6, PROS+8, PROS+11
$$SETLN MRA+6, COB+8, COB+9, COB+10, COB+11, COB+14, COB+15, COB+16, COB+17, RX+9
, RX+15, RX+17, PROS+8, PROS+11
BLD INIT+10
COB H1500+13, UB04+20
H1500 BLD+4
H1500Q H1500+9
INITQ INIT+3, INIT+5
MRA H1500+13, UB04+24
PROS H1500+15
RX H1500+14
SETQ SET+1
UB04 BLD+5
UB04Q UB04+7

Naked Globals

Name Field # of Occurrence
^( MRA+3, H1500+8, UB04+8!
^(0 BLD+4
^(2 H1500+5, UB04+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COL SETLN~, SETLN+1
>> DFN HDR+1, INIT+3
DIR INIT+7!, UB04+1~
DIR("A" INIT+6*
DIR("B" INIT+6*
DIR(0 INIT+6*
>> DTOUT INIT+8
>> DUOUT INIT+8
IBARRAY RX+1~, RX+4, RX+5, PROS+1~, PROS+3, PROS+4
IBARRAY( RX+6, PROS+5
IBCBILL UB04+1~, UB04+11*, UB04+16
IBCT MRA+1~, MRA+2*, MRA+3*, MRA+4*, MRA+5, MRA+8, MRA+10
IBCU1 COB+2~, COB+4*, COB+12, COB+15, COB+16, COB+17
IBCU2 COB+2~, COB+4*, COB+10
IBD COB+2~, COB+8*, COB+9*, COB+10*, COB+11*, COB+14*, COB+15*, COB+16*, COB+17*, RX+1~
, RX+7*, RX+8*, RX+9, RX+13*, RX+15, RX+16*, RX+17, PROS+1~, PROS+6*, PROS+7*
, PROS+8, PROS+10*, PROS+11
IBEOBDET INIT+1~, INIT+9*
IBFT INIT+2~, INIT+4*
IBI MRA+1~, MRA+3*, MRA+4*, MRA+10*, H1500+1~, H1500+7*, H1500+8, H1500+9, H1500+10*, H1500+11
, UB04+1~, UB04+18*, UB04+19, SET+1~, SET+2*, COB+2~, COB+6*, COB+8, COB+9, COB+10
, COB+11, RX+1~, RX+10*, RX+11, PROS+1~, PROS+9*, PROS+10
>> IBIFN HDR+1, INIT+3, INIT+4, INIT+5, MRA+3, MRA+4, BLD+4, H1500+4, H1500+6, H1500+14
, H1500+15, UB04+4, UB04+6, UB04+10, UB04+11, UB04+16, COB+2, COB+3, COB+4, COB+5
, RX+4, PROS+3
IBINPAT UB04+1~, UB04+10*, UB04+14
IBJ H1500+1~, H1500+8*, H1500+10*, H1500+11, UB04+1~, UB04+18*, UB04+19, COB+2~, COB+5*, COB+6
IBLC UB04+1~, UB04+4*
IBLIN H1500+1~, H1500+3*, H1500+6, UB04+1~, UB04+3*, UB04+6
IBLKLN H1500+1~, H1500+3*, UB04+13*, SET+1*, SET+2, SET+4*
IBLN MRA+7*, H1500+1~, H1500+3*, H1500+5*, H1500+11*, H1500+16, UB04+1~, UB04+13*, UB04+14*, UB04+19*
, UB04+25, COB+6*, COB+7*, COB+12*, COB+13*, RX+2*, RX+7, RX+9*, RX+15*, RX+17*
, PROS+2*, PROS+6, PROS+8*, PROS+11*
IBM COB+2~, COB+3*, COB+6, COB+9
IBM1 COB+2~, COB+3*, COB+11
IBOK INIT+1~, INIT+4*, INIT+5, INIT+8*
IBPFORM H1500+1~, H1500+5*, H1500+6, UB04+1~, UB04+5*, UB04+6
IBQ UB04+1~, UB04+4*
IBRXX RX+1~, RX+11*, RX+12, RX+13, RX+16
IBSHEOB MRA+1~
IBSHEOB( MRA+3*, MRA+4*, MRA+10
IBSPC RX+1~, RX+3*, RX+13, PROS+1~, PROS+2*, PROS+10
IBSTATE UB04+1~, UB04+11*, UB04+15, UB04+16
IBSTR MRA+1~, MRA+6*, MRA+7, H1500+1~, UB04+14, UB04+15*, UB04+16*, COB+2~, COB+5*, COB+6
, COB+7, COB+8*, COB+9*, COB+10*, COB+11*, COB+12, COB+13, COB+14*, COB+15*, COB+16*
, COB+17*, RX+1~, RX+9*, RX+15*, RX+17*, PROS+1~, PROS+8*, PROS+11*
IBX H1500+1~, H1500+6*, H1500+11*, UB04+1~, UB04+6*, UB04+15*, UB04+16*, UB04+19*, UB04+20, SETLN~
, SETLN+1*, SETLN+2, SET+1~
IBXDATA BLD+1~
IBXDATA( RX+6*, RX+10, RX+11, PROS+5*, PROS+9, PROS+10
IBXSAVE BLD+1~
LN SET~, SET+2*, SET+3, SET+4*, SETQ
STR SETLN~, SETLN+1, SET~, SET+1, SET+3
U INIT+4, BLD+4, H1500+5, UB04+5, UB04+15, UB04+16, COB+5, COB+6, COB+9, COB+10
, COB+11, COB+12, COB+15, COB+16, COB+17, RX+6, RX+12, RX+13, RX+16, PROS+5
, PROS+10
>> VALMCNT H1500+16*, UB04+13*, UB04+25*
>> VALMQUIT INIT+3*, H1500+9*, UB04+7*
>> VALMSG H1500+9*, UB04+7*
WD SETLN~, SETLN+1
X HELP+1*, H1500+1~, UB04+1~
Y INIT+9, UB04+1~
Z MRA+1~, MRA+3*, MRA+9*, MRA+10*, UB04+1~, UB04+8*, UB04+9, RX+1~, RX+6*, PROS+1~
, PROS+5*
Z0 UB04+1~, UB04+8*, RX+1~, RX+6*, PROS+1~, PROS+5*
Z1 RX+1~, RX+6*, PROS+1~, PROS+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All