Routine: IBJTBB

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

IBJTBB ;ALB/ARH - TPI BILL DIAGNOSIS SCREEN ;01-MAR-1995

Source Information

Source file <IBJTBB.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Integrated Billing	3	($$BDATE,$$ICD9)^IBACSV SET^IBCSC4D HDR^IBJTU1
List Manager	3	EN^VALM CLEAR^VALM1 SET^VALM10
Kernel	1	DISP^XQORM1

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: 3

Package	Total	Caller Graph
Integrated Billing	2	IBJT BILL DX IBJT BILL DX SCREEN
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for IBJ TP BILL DX
HDR	; -- header code
INIT	; -- init variables and list array
INITQ
HELP	; -- help code
EXIT	; -- exit code
BLD	;
SET(STR,LN,COL,WD,RV)	; set up TMP array with screen data

External References

Name	Field # of Occurrence
$$BDATE^IBACSV	BLD+2
$$ICD9^IBACSV	BLD+5
SET^IBCSC4D	BLD+3
HDR^IBJTU1	HDR+1
EN^VALM	EN+1
CLEAR^VALM1	EXIT+2
SET^VALM10	SET+1
DISP^XQORM1	HELP+1

Interaction Calls

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("IBJTBB"	INIT+1!, EXIT+1!

Label References

Name	Line Occurrences
$$SET	BLD+3, BLD+4
BLD	INIT+3
INITQ	INIT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COL	SET~
>> DFN	HDR+1, INIT+2
IBADX	BLD+1~, BLD+3
IBADX(	BLD+4, BLD+5
IBCNT	BLD+1~, BLD+4, BLD+5, BLD+6
IBDATE	BLD+1~, BLD+2*, BLD+5
IBFT	INIT+1~
IBI	BLD+1~, BLD+4*, BLD+5
>> IBIFN	HDR+1, INIT+2, BLD+2, BLD+3
IBLN	BLD+1~, BLD+3, BLD+4, BLD+8
IBSTR	BLD+1~, BLD+3, BLD+4, BLD+6
IBX	BLD+1~, BLD+5*, BLD+6
LN	SET~, SET+1, SET+2*, SET+3
RV	SET~
STR	SET~, SET+1
U	BLD+6
>> VALMCNT	BLD+8*
>> VALMQUIT	INIT+2*
WD	SET~
>> X	HELP+1*