Routine: IBEMTBC

Information

IBEMTBC ;ALB/RLW - IB MEANS TEST BILLING CLOCK FILE UPDATE ; 15-JAN-92

Package	Total	Call Graph
VA FileMan	7	NOW^%DTC FILE^DICN DT^DICRW ^DIE (,IX1)^DIK ($$GET1,EN)^DIQ ^DIR
Integrated Billing	4	$$ICN^IBARXMU SITE^IBAUTL EDTCLCK^IBECECQ1 EN^IBECECU1
Kernel	1	HOME^%ZIS
Registration	1	$$BILST^DGMTUB

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 CLOCK MAINTENANCE

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point for Clock Maintenance
ENQ
ADJUST	; - show current active clock; inactivate and add a new one
ADDNEW	; - add a new clock and allow updating
CLNCLK	;Clean up old clock
ERR	; - display error messages
CLEANUP
ERRMSG	; - possible error messages

External References

Name	Field # of Occurrence
NOW^%DTC	EN+5
HOME^%ZIS	EN+5
$$BILST^DGMTUB	EN+8
FILE^DICN	ADDNEW+9, CLNCLK+8
DT^DICRW	EN+5
^DIE	ADDNEW+12, ADDNEW+23, ADDNEW+33
^DIK	ADDNEW+15, ADDNEW+21, ADDNEW+26, ADDNEW+46, ADDNEW+52
IX1^DIK	ADDNEW+11, CLNCLK+9
$$GET1^DIQ	ADJUST+7, ADJUST+18, ADDNEW+12, ADDNEW+14, ADDNEW+19, ADDNEW+23, ADDNEW+24, ADDNEW+32, ADDNEW+53
EN^DIQ	ADJUST+4, ADJUST+11, ADDNEW+17, ADDNEW+29
^DIR	EN+7, ADJUST+5, ADJUST+12, ADDNEW+4, ADDNEW+18, ADDNEW+30
$$ICN^IBARXMU	ADJUST+7
SITE^IBAUTL	ADDNEW+6
EDTCLCK^IBECECQ1	ADJUST+8, ADDNEW+12, ADDNEW+24
EN^IBECECU1	ADJUST+17, ADDNEW+31, ADDNEW+53

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ENQ+0
Function Call: WRITE	Prompt: @IOF Line Location: ADJUST+2
Function Call: WRITE	Prompt: !! Line Location: ADJUST+4
Function Call: WRITE	Prompt: !,"Queried billing clock found and local clock has been updated." Line Location: ADJUST+9
Function Call: WRITE	Prompt: !! Line Location: ADJUST+11
Function Call: WRITE	Prompt: !!,"No queried clocks found.",! Line Location: ADJUST+14
Function Call: WRITE	Prompt: ! Line Location: ADDNEW+1
Function Call: WRITE	Prompt: !!! Line Location: ADDNEW+16
Function Call: WRITE	Prompt: !! Line Location: ADDNEW+17
Function Call: WRITE	Prompt: !!,"No queried clocks found.",! Line Location: ADDNEW+22
Function Call: WRITE	Prompt: !!,"Billing Clock start date change requires new Query, please wait." Line Location: ADDNEW+24
Function Call: WRITE	Prompt: ! Line Location: ADDNEW+28
Function Call: WRITE	Prompt: !! Line Location: ADDNEW+29
Function Call: WRITE	Prompt: !!,"No queried clocks found.",! Line Location: ADDNEW+32
Function Call: WRITE	Prompt: !,"(but I'll save the update reason)..." Line Location: ADDNEW+44
Function Call: WRITE	Prompt: !?5,$P($T(ERRMSG+J),";;",2) Line Location: ERR+1
Routine Call	DIE Line Location: ADDNEW+12 ADDNEW+23 ADDNEW+33
Routine Call	DIR Line Location: EN+7 ADJUST+5 ADJUST+12 ADDNEW+4 ADDNEW+18 ADDNEW+30
Routine Call	%ZIS Line Location: EN+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBE(351 - [#351]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBE(351 - [#351]	EN+9, ADJUST+3, ADJUST+15!, ADJUST+16, ADJUST+18, ADJUST+19, ADDNEW+7, ADDNEW+9, ADDNEW+10, ADDNEW+11 , ADDNEW+23, ADDNEW+24, ADDNEW+33, ADDNEW+34, ADDNEW+39, ADDNEW+40, ADDNEW+41, ADDNEW+42, ADDNEW+44, ADDNEW+45 , ADDNEW+50, ADDNEW+53, CLNCLK+2!, CLNCLK+3, CLNCLK+4, CLNCLK+5, CLNCLK+6, CLNCLK+8, CLNCLK+9, CLNCLK+10

Label References

Name	Line Occurrences
ADDNEW	EN+10
ADJUST	EN+9
CLEANUP	EN+9, EN+10
CLNCLK	ADDNEW+24
EN	EN+8, ENQ
ENQ	EN+7, EN+9
ERR	EN+8, ADDNEW+6, ADDNEW+7, CLNCLK+6

Naked Globals

Name	Field # of Occurrence
^(0	ADDNEW+7, CLNCLK+6
^(1	ADJUST+16, CLNCLK+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+5!
DA	ADJUST+4!, ADJUST+11!, ADDNEW+11, ADDNEW+12, ADDNEW+15!, ADDNEW+17!, ADDNEW+21!, ADDNEW+23, ADDNEW+26!, ADDNEW+29! , ADDNEW+33!, ADDNEW+46!, ADDNEW+52!, CLNCLK+9
DD	ADDNEW+8!, CLNCLK+7!
DFN	EN+7*, EN+8, EN+9, ENQ+1!, ADJUST+3, ADJUST+7, ADJUST+8, ADJUST+15, ADJUST+17, ADDNEW+8 , ADDNEW+12, ADDNEW+24, ADDNEW+31, ADDNEW+53, CLNCLK+2, CLNCLK+7
DIC	ENQ+1!, ADJUST+4!, ADJUST+11!, ADDNEW+8!, ADDNEW+9!, ADDNEW+17!, ADDNEW+29!, CLNCLK+7!, CLNCLK+8!
DIC("DR"	ADDNEW+8, CLNCLK+7
DIC(0	ADDNEW+8, CLNCLK+7
DIE	ADDNEW+12, ADDNEW+23, ADDNEW+33*!
DIK	ADDNEW+11!, ADDNEW+15!, ADDNEW+21!, ADDNEW+26!, ADDNEW+46!, ADDNEW+52!, CLNCLK+9*!
>> DILOCKTM	ADJUST+15, ADDNEW+23, ADDNEW+33, CLNCLK+2
>> DINUM	ADDNEW+9, CLNCLK+8
DIR	EN+7!, ADJUST+5!, ADJUST+12!, ADDNEW+4!, ADDNEW+18!, ADDNEW+30!
DIR("A"	ADJUST+5, ADJUST+12, ADDNEW+3, ADDNEW+18, ADDNEW+30*
DIR(0	EN+7, ADJUST+5, ADJUST+12, ADDNEW+3, ADDNEW+18, ADDNEW+30
DIRUT	EN+7, ENQ, ENQ+1!, ADDNEW+4!
DLAYGO	ADDNEW+8, CLNCLK+7, CLEANUP!
DO	ADDNEW+8!, CLNCLK+7!
DPTNOFZY	EN+6~*
DR	ADDNEW+8!, ADDNEW+9!, ADDNEW+12, ADDNEW+16!, ADDNEW+23, ADDNEW+28!, ADDNEW+33*!, CLNCLK+7!, CLNCLK+8!, CLEANUP!
DT	EN+5, ADJUST+8
DTOUT	ADDNEW+4!
DUOUT	ADDNEW+4!
DUZ	ADJUST+16, ADDNEW+8, CLNCLK+3, CLNCLK+7
>> I	ADDNEW+7, ADDNEW+9, CLNCLK+6, CLNCLK+8
IBCL	ADDNEW+9, ADDNEW+10, ADDNEW+11, ADDNEW+12, ADDNEW+14, ADDNEW+15, ADDNEW+17, ADDNEW+19, ADDNEW+21, ADDNEW+23 , ADDNEW+24, ADDNEW+26, ADDNEW+27, ADDNEW+29, ADDNEW+31, ADDNEW+32, ADDNEW+33, ADDNEW+34, ADDNEW+39, ADDNEW+41 , ADDNEW+42, ADDNEW+44, ADDNEW+46, ADDNEW+50, ADDNEW+52, ADDNEW+53, ADDNEW+54!, CLNCLK+1, CLNCLK+8, CLNCLK+9 , CLNCLK+10
IBCLDA	CLEANUP!
IBCLDAY	CLEANUP!
IBCLDOL	CLEANUP!
IBCLDT	CLEANUP!
IBCLSTDT	ADJUST+18, ADDNEW+14, ADDNEW+23, ADDNEW+32, CLEANUP!
IBDATA	ENQ+1!, ADJUST+16, ADDNEW+11, ADDNEW+50, CLNCLK+3*, CLNCLK+9
IBDR	EN+9, EN+10, ENQ+1!, ADDNEW+33
IBDT	EN+5*, ENQ+1!, ADJUST+16, ADDNEW+8, CLNCLK+3, CLNCLK+7
IBDTK	CLEANUP!
IBECDA	ADJUST+9, ADDNEW+14, ADDNEW+27, CLEANUP!
IBEL	ENQ+1!
IBFAC	ENQ+1!
IBFLAG1	ADJUST+9, ADJUST+12, ADJUST+14, ADDNEW+12, ADDNEW+24, ADDNEW+32, CLEANUP!
IBIEN	ENQ+1!, ADJUST+3, ADJUST+4, ADJUST+7, ADJUST+9, ADJUST+11, ADJUST+15, ADJUST+16, ADJUST+17, ADJUST+18 , ADJUST+19, ADDNEW+14, ADDNEW+15, ADDNEW+39, ADDNEW+40, ADDNEW+42, ADDNEW+44, ADDNEW+45, CLNCLK+1, CLNCLK+2 , CLNCLK+3, CLNCLK+4, CLNCLK+5
IBMED	CLEANUP!
IBQRY	ENQ+1!, ADJUST+18, ADDNEW+11, CLNCLK+4, CLNCLK+9
IBQRYRN	ADJUST+1~, ADJUST+8*, ADJUST+14, ADDNEW+24
IBQUIT	ADDNEW+12, ADDNEW+18, ADDNEW+30, ADDNEW+31, CLEANUP!
IBSELECT	EN+9, EN+10, ENQ+1!, ADJUST+14, ADDNEW+1, ADDNEW+11, ADDNEW+12, ADDNEW+14*, ADDNEW+22, ADDNEW+23 , ADDNEW+24, ADDNEW+32, ADDNEW+38, ADDNEW+50, CLEANUP!
IBSITE	ENQ+1!, ADDNEW+6, ADDNEW+9, CLNCLK+8
IOF	ADJUST+2
J	EN+8, ENQ+1!, ADDNEW+6, ADDNEW+7, CLNCLK+6
X	ADDNEW+9, CLNCLK+8, CLEANUP!
>> Y	EN+7, ADJUST+5, ADJUST+12, ADDNEW+1, ADDNEW+9, ADDNEW+18, ADDNEW+30, CLNCLK+8

Marked Items

Name	Field # of Occurrence
$T(ERRMSG+J	ERR+1

Customize PDF page

Package: Integrated Billing