Routine: IBOMTP

Customize PDF page

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

Information

IBOMTP ;ALB/CPM - MEANS TEST BILLING PROFILE ; 10-DEC-91

Source Information

Source file <IBOMTP.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
VA FileMan	2	(,DD)^%DT ^DIC
Integrated Billing	1	^IBOMTP1

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

Package	Total	Caller Graph
Integrated Billing	1	IB MT PROFILE

Entry Points

Name	Comments	DBIA/ICR reference
ASK	;
BDT
EDT
END	;

External References

Name	Field # of Occurrence
^%DT	BDT, EDT+1
DD^%DT	EDT
^%ZIS	EDT+5
HOME^%ZIS	IBOMTP+3, EDT+6
^%ZTLOAD	EDT+6
^DIC	ASK+5
^IBOMTP1	EDT+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Go to DATE: ",Y,"//" Line Location: EDT+0
Function Call: WRITE	Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE.",! Line Location: EDT+2
Function Call: WRITE	Prompt: ! Line Location: EDT+6
Function Call: WRITE	Prompt: ! Line Location: EDT+13
Routine Call	DIC Line Location: ASK+5
Routine Call	%ZIS Line Location: EDT+5
Routine Call	%ZIS Line Location: IBOMTP+3 EDT+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Label References

Name	Line Occurrences
ASK	EDT+6, EDT+13
BDT	EDT+2
EDT	EDT+1
END	ASK+5, BDT, EDT+1, EDT+5, EDT+6, EDT+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	BDT!, EDT, END+1!
%DT("A"	BDT*
%DT("B"	BDT*
>> %ZIS	EDT+5*
DIC	ASK+5*!
DIC(0	ASK+5*
DPTNOFZY	ASK+4~*
DT	EDT, EDT+1
DTIME	IBOMTP+3*, EDT
IBBDT	BDT*, EDT+2, END+1!
IBDFN	ASK+5*, END+1!
IBEDT	EDT+1*, END+1!
IO	EDT+9
IO("Q"	EDT+6!
>> POP	EDT+5
X	EDT, EDT+1, END+1!
Y	ASK+5, BDT, EDT*, EDT+1, EDT+2, END+1!
>> ZTDESC	EDT+7*
>> ZTRTN	EDT+7*
>> ZTSAVE("IBBDT"	EDT+8*
>> ZTSAVE("IBDFN"	EDT+8*
>> ZTSAVE("IBEDT"	EDT+8*
ZTSK	END+1!