Routine: IBEMTBC

Information

IBEMTBC ;ALB/RLW - IB MEANS TEST BILLING CLOCK FILE UPDATE ; 10/16/23 2:32pm

Package	Total	Call Graph
VA FileMan	7	NOW^%DTC FILE^DICN DT^DICRW ^DIE (,IX1)^DIK ($$GET1,EN,GETS)^DIQ ^DIR
Integrated Billing	4	$$ICN^IBARXMU SITE^IBAUTL EN^IBECECU1 (EDTCLCK,WRAP)^IBECECX1
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+6
HOME^%ZIS	EN+6
$$BILST^DGMTUB	EN+9
FILE^DICN	ADDNEW+10, CLNCLK+8
DT^DICRW	EN+6
^DIE	ADJUST+20, ADDNEW+13, ADDNEW+45, ADDNEW+56, ADDNEW+91
^DIK	ADDNEW+34, ADDNEW+44, ADDNEW+48, ADDNEW+52, ADDNEW+57, ADDNEW+63, ADDNEW+83, ADDNEW+90, ADDNEW+104, ADDNEW+111
IX1^DIK	ADDNEW+12, CLNCLK+9
$$GET1^DIQ	ADJUST+5, ADJUST+21, ADJUST+22, ADJUST+30, ADJUST+44, ADDNEW+13, ADDNEW+14, ADDNEW+17, ADDNEW+21, ADDNEW+33 , ADDNEW+37, ADDNEW+46, ADDNEW+49, ADDNEW+52, ADDNEW+57, ADDNEW+60, ADDNEW+61, ADDNEW+67, ADDNEW+78, ADDNEW+84 , ADDNEW+85, ADDNEW+105, ADDNEW+112, CLNCLK+4
EN^DIQ	ADJUST+4, ADJUST+25, ADJUST+34, ADDNEW+16, ADDNEW+25, ADDNEW+36, ADDNEW+70, ADDNEW+77
GETS^DIQ	ADJUST+8
^DIR	EN+8, ADJUST+18, ADJUST+26, ADJUST+37, ADJUST+41, ADDNEW+5, ADDNEW+28, ADDNEW+32, ADDNEW+40, ADDNEW+51 , ADDNEW+73, ADDNEW+79, ADDNEW+86
$$ICN^IBARXMU	ADJUST+21
SITE^IBAUTL	ADDNEW+7
EN^IBECECU1	ADJUST+26, ADDNEW+84, ADDNEW+105, ADDNEW+112
EDTCLCK^IBECECX1	ADJUST+22, ADDNEW+13, ADDNEW+61
WRAP^IBECECX1	ADJUST+28, ADDNEW+18, ADDNEW+64

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: !," ***This clock is currently out of sync.****" Line Location: ADJUST+5
Function Call: WRITE	Prompt: !,IBVRNST Line Location: ADJUST+16
Function Call: WRITE	Prompt: !!,"Billing clock query successful and clock has been updated if applicable." Line Location: ADJUST+23
Function Call: WRITE	Prompt: !! Line Location: ADJUST+25
Function Call: WRITE	Prompt: !,IBTEXT(IBX) Line Location: ADJUST+29
Function Call: WRITE	Prompt: !,IBVRNST Line Location: ADJUST+32
Function Call: WRITE	Prompt: !!,"Billing Clock Query was not returned from VDIF and clock could not be synced",!,"with other potential clocks.",! Line Location: ADJUST+39
Function Call: WRITE	Prompt: ! Line Location: ADDNEW+2
Function Call: WRITE	Prompt: !!,"Billing clock query successful and clock has been updated if applicable.",! Line Location: ADDNEW+14
Function Call: WRITE	Prompt: !! Line Location: ADDNEW+16
Function Call: WRITE	Prompt: !!,"Query returned successfully with no billing clocks." Line Location: ADDNEW+17
Function Call: WRITE	Prompt: !,IBTEXT(IBX) Line Location: ADDNEW+19
Function Call: WRITE	Prompt: !!! Line Location: ADDNEW+35
Function Call: WRITE	Prompt: !! Line Location: ADDNEW+36
Function Call: WRITE	Prompt: !," ***This clock is currently out of sync.****" Line Location: ADDNEW+37
Function Call: WRITE	Prompt: !!,"Billing clock is in a closed status and cannot be edited.",! Line Location: ADDNEW+49
Function Call: WRITE	Prompt: !!,"Billing Clock start date change requires new Query, please wait." Line Location: ADDNEW+61
Function Call: WRITE	Prompt: !!!,"Billing clock query successful and clock has been updated if applicable",! Line Location: ADDNEW+62
Function Call: WRITE	Prompt: !,IBTEXT(IBX) Line Location: ADDNEW+65
Function Call: WRITE	Prompt: ! Line Location: ADDNEW+76
Function Call: WRITE	Prompt: !! Line Location: ADDNEW+77
Function Call: WRITE	Prompt: !!,"***This clock is currently out of sync.****" Line Location: ADDNEW+78
Function Call: WRITE	Prompt: !!,"Billing Clock Query not returned.",! Line Location: ADDNEW+85
Function Call: WRITE	Prompt: !,"(but I'll save the update reason)..." Line Location: ADDNEW+102
Function Call: WRITE	Prompt: !?5,$P($T(ERRMSG+J),";;",2) Line Location: ERR+1
Routine Call	DIE Line Location: ADJUST+20 ADDNEW+13 ADDNEW+45 ADDNEW+56 ADDNEW+91
Routine Call	DIR Line Location: EN+8 ADJUST+18 ADJUST+26 ADJUST+37 ADJUST+41 ADDNEW+5 ADDNEW+28 ADDNEW+32 ADDNEW+40 ADDNEW+51 ADDNEW+73 ADDNEW+79 ADDNEW+86
Routine Call	%ZIS Line Location: EN+6

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBE(351 - [#351]	EN+10, ADJUST+3, ADJUST+42!, ADJUST+43, ADJUST+44, ADJUST+45, ADDNEW+8, ADDNEW+10, ADDNEW+11, ADDNEW+12 , ADDNEW+29, ADDNEW+42, ADDNEW+56, ADDNEW+60, ADDNEW+61, ADDNEW+75, ADDNEW+81, ADDNEW+88, ADDNEW+91, ADDNEW+92 , ADDNEW+97, ADDNEW+98, ADDNEW+99, ADDNEW+100, ADDNEW+102, ADDNEW+103, ADDNEW+105, ADDNEW+109, ADDNEW+112, CLNCLK+2! , CLNCLK+3, CLNCLK+4, CLNCLK+5, CLNCLK+6, CLNCLK+8, CLNCLK+9, CLNCLK+10
^IBE(351.3 - [#351.3]	ADJUST+7

Name

Line Occurrences (* Changed, ! Killed)

^IBE(351 - [#351]

EN+10, ADJUST+3, ADJUST+42!, ADJUST+43*, ADJUST+44, ADJUST+45, ADDNEW+8, ADDNEW+10, ADDNEW+11, ADDNEW+12*
, ADDNEW+29, ADDNEW+42, ADDNEW+56, ADDNEW+60*, ADDNEW+61, ADDNEW+75*, ADDNEW+81, ADDNEW+88, ADDNEW+91, ADDNEW+92
, ADDNEW+97, ADDNEW+98*, ADDNEW+99*, ADDNEW+100, ADDNEW+102*, ADDNEW+103*, ADDNEW+105, ADDNEW+109, ADDNEW+112, CLNCLK+2!
, CLNCLK+3*, CLNCLK+4, CLNCLK+5, CLNCLK+6, CLNCLK+8, CLNCLK+9*, CLNCLK+10

^IBE(351.3 - [#351.3]

ADJUST+7

Label References

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

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+6!
DA	ADJUST+4!, ADJUST+20, ADJUST+25!, ADJUST+34!, ADDNEW+12, ADDNEW+13, ADDNEW+16!, ADDNEW+25!, ADDNEW+34!, ADDNEW+36! , ADDNEW+44!, ADDNEW+45, ADDNEW+48!, ADDNEW+52!, ADDNEW+56, ADDNEW+57!, ADDNEW+63!, ADDNEW+70!, ADDNEW+77!, ADDNEW+83! , ADDNEW+90!, ADDNEW+91!, ADDNEW+104!, ADDNEW+111!, CLNCLK+9*
DD	ADDNEW+9!, CLNCLK+7!
DFN	EN+8*, EN+9, EN+10, ENQ+1!, ADJUST+3, ADJUST+21, ADJUST+22, ADJUST+26, ADJUST+42, ADDNEW+9 , ADDNEW+13, ADDNEW+61, ADDNEW+84, ADDNEW+105, ADDNEW+112, CLNCLK+2, CLNCLK+7
DIC	ENQ+1!, ADJUST+4!, ADJUST+25!, ADJUST+34!, ADDNEW+9!, ADDNEW+10!, ADDNEW+16!, ADDNEW+25!, ADDNEW+36!, ADDNEW+70! , ADDNEW+77!, CLNCLK+7!, CLNCLK+8!
DIC("B"	ADDNEW+51*
DIC("DR"	ADDNEW+9, CLNCLK+7
DIC(0	ADDNEW+9, CLNCLK+7
DIE	ADJUST+20, ADDNEW+13, ADDNEW+45, ADDNEW+56, ADDNEW+91*!
DIK	ADDNEW+12!, ADDNEW+34!, ADDNEW+44!, ADDNEW+48!, ADDNEW+52!, ADDNEW+57!, ADDNEW+63!, ADDNEW+83!, ADDNEW+90!, ADDNEW+104! , ADDNEW+111!, CLNCLK+9!
>> DILOCKTM	ADJUST+42, ADDNEW+56, ADDNEW+91, CLNCLK+2
>> DINUM	ADDNEW+10, CLNCLK+8
DIR	EN+8!, ADJUST+18!, ADJUST+26!, ADJUST+37!, ADJUST+41!, ADDNEW+5!, ADDNEW+28!, ADDNEW+32!, ADDNEW+40!, ADDNEW+51! , ADDNEW+73!, ADDNEW+79!, ADDNEW+86!
DIR("A"	ADJUST+18, ADJUST+26, ADJUST+37, ADJUST+41, ADDNEW+4, ADDNEW+28, ADDNEW+32, ADDNEW+40, ADDNEW+51, ADDNEW+73 , ADDNEW+79, ADDNEW+86
DIR("B"	ADJUST+26, ADJUST+37, ADJUST+41, ADDNEW+28, ADDNEW+79*
DIR(0	EN+8, ADJUST+18, ADJUST+26, ADJUST+37, ADJUST+41, ADDNEW+4, ADDNEW+28, ADDNEW+32, ADDNEW+40, ADDNEW+51 , ADDNEW+73, ADDNEW+79, ADDNEW+86*
DIRUT	EN+8, ENQ, ENQ+1!, ADDNEW+5!
DLAYGO	ADDNEW+9, CLNCLK+7, CLEANUP!
DO	ADDNEW+9!, CLNCLK+7!
DPTNOFZY	EN+7~*
DR	ADJUST+20, ADJUST+24!, ADJUST+34!, ADDNEW+9!, ADDNEW+10!, ADDNEW+13, ADDNEW+15!, ADDNEW+25!, ADDNEW+35!, ADDNEW+45* , ADDNEW+56, ADDNEW+70!, ADDNEW+76!, ADDNEW+91!, CLNCLK+7!, CLNCLK+8!, CLEANUP!
DT	EN+6
DTOUT	ADDNEW+5!, ADDNEW+13
DUOUT	ADDNEW+5!
DUZ	ADJUST+43, ADDNEW+9, CLNCLK+3, CLNCLK+7
>> I	ADDNEW+8, ADDNEW+10, CLNCLK+6, CLNCLK+8
IB351IEN	CLEANUP!
IBCL	ADDNEW+10, ADDNEW+11, ADDNEW+12, ADDNEW+13, ADDNEW+14, ADDNEW+16, ADDNEW+17, ADDNEW+21, ADDNEW+25, ADDNEW+29 , ADDNEW+33, ADDNEW+34, ADDNEW+36, ADDNEW+42, ADDNEW+44, ADDNEW+46, ADDNEW+48, ADDNEW+49, ADDNEW+52, ADDNEW+56 , ADDNEW+57, ADDNEW+60, ADDNEW+61, ADDNEW+63, ADDNEW+67, ADDNEW+70, ADDNEW+75, ADDNEW+77, ADDNEW+78, ADDNEW+81 , ADDNEW+83, ADDNEW+84, ADDNEW+85, ADDNEW+88, ADDNEW+90, ADDNEW+91, ADDNEW+92, ADDNEW+97, ADDNEW+99, ADDNEW+100 , ADDNEW+102, ADDNEW+104, ADDNEW+109, ADDNEW+111, ADDNEW+112, ADDNEW+113!, CLNCLK+1, CLNCLK+8, CLNCLK+9, CLNCLK+10
IBCLDA	CLEANUP!
IBCLDAY	CLEANUP!
IBCLDOL	CLEANUP!
IBCLDT	CLEANUP!
IBCLKCHG	ADJUST+1~, ADDNEW+60*, ADDNEW+61
IBCLSTDT	ADJUST+44, ADDNEW+33, ADDNEW+60, ADDNEW+85, CLEANUP!
IBCORRECT	EN+5*, ENQ+1!
IBDATA	ENQ+1!, ADJUST+43, ADDNEW+12, ADDNEW+29, ADDNEW+42, ADDNEW+81, ADDNEW+88, ADDNEW+109, CLNCLK+3*, CLNCLK+9
IBDEL	ADDNEW+80, ADDNEW+81, ADDNEW+84, CLEANUP!
IBDR	EN+10, EN+11, ENQ+1!, ADDNEW+33*, ADDNEW+91
IBDT	EN+6*, ENQ+1!, ADJUST+43, ADDNEW+9, CLNCLK+3, CLNCLK+7
IBDTK	CLEANUP!
IBECARY	ADJUST+1~
IBECARY(	ADJUST+11*, ADJUST+16, ADJUST+32, ADDNEW+23, ADDNEW+69
IBECDA	ADJUST+1~, ADJUST+23, ADDNEW+33, ADDNEW+63, CLEANUP!
IBECENT	ADJUST+1~, ADJUST+9*, ADJUST+10
IBECERR	ADJUST+1~
IBECREF	ADJUST+1~, ADJUST+7*
IBECREFS	ADJUST+1~, ADJUST+7*, ADJUST+8
IBECSITE	ADJUST+1~, ADJUST+10*, ADJUST+11
IBECTFL	ADJUST+1~
IBECTFL(	ADJUST+9, ADJUST+10
IBECVERN	ADJUST+1~, ADJUST+10*, ADJUST+11
IBEL	ENQ+1!
IBERRMSG	ENQ+1!, ADJUST+23, ADJUST+26, ADJUST+28, ADDNEW+14, ADDNEW+17, ADDNEW+18, ADDNEW+32, ADDNEW+62, ADDNEW+64
IBFAC	ENQ+1!
IBFLAG1	ADJUST+23, ADJUST+26, ADJUST+28, ADJUST+39, ADDNEW+13, ADDNEW+50, ADDNEW+61, ADDNEW+85, CLEANUP!
IBIEN	ENQ+1!, ADJUST+3, ADJUST+4, ADJUST+5, ADJUST+7, ADJUST+20, ADJUST+21, ADJUST+22, ADJUST+23, ADJUST+25 , ADJUST+26, ADJUST+30, ADJUST+34, ADJUST+42, ADJUST+43, ADJUST+44, ADJUST+45, ADDNEW+33, ADDNEW+34, ADDNEW+37 , ADDNEW+45, ADDNEW+97, ADDNEW+98, ADDNEW+100, ADDNEW+102, ADDNEW+103, ADDNEW+105, CLNCLK+1, CLNCLK+2, CLNCLK+3 , CLNCLK+4, CLNCLK+5
IBMED	CLEANUP!
IBNCLCK	ADDNEW+1~, ADDNEW+33*, ADDNEW+109
IBNOCL	ADDNEW+1~, ADDNEW+17*, ADDNEW+32
IBOOSYNC	ADJUST+1~, ADJUST+6*, ADJUST+21, ADDNEW+60, ADDNEW+61, ADDNEW+85
IBQRY	ENQ+1!, ADJUST+44, ADDNEW+12, CLNCLK+4, CLNCLK+9
IBQRYRN	ADJUST+1~, ADJUST+22, ADJUST+39, ADDNEW+60, ADDNEW+61
IBQUIT	ADJUST+34, ADJUST+37, ADJUST+38, ADJUST+41, ADDNEW+13, ADDNEW+25, ADDNEW+28, ADDNEW+31, ADDNEW+32, ADDNEW+40* , ADDNEW+41, ADDNEW+54, ADDNEW+55, ADDNEW+57, ADDNEW+59, ADDNEW+70, ADDNEW+73, ADDNEW+74, ADDNEW+79, ADDNEW+80 , ADDNEW+86, ADDNEW+87, CLEANUP!
IBSELECT	EN+10, EN+11, ENQ+1!, ADJUST+39, ADDNEW+2, ADDNEW+12, ADDNEW+13, ADDNEW+33*, ADDNEW+50, ADDNEW+56 , ADDNEW+61, ADDNEW+85, ADDNEW+96, ADDNEW+109, CLEANUP!
IBSITE	ENQ+1!, ADDNEW+7, ADDNEW+10, CLNCLK+8
>> IBTEXT	ADJUST+28, ADDNEW+18, ADDNEW+64*
>> IBTEXT(	ADJUST+29, ADDNEW+19, ADDNEW+65
IBVRNST	ADJUST+1~, ADJUST+16, ADJUST+32, ADDNEW+23, ADDNEW+69
IBVRSN	ADJUST+1~, ADJUST+44, ADDNEW+12, CLNCLK+4, CLNCLK+9
IBX	ENQ+1!, ADJUST+29, ADDNEW+19, ADDNEW+65*
IOF	ADJUST+2
J	EN+9, ENQ+1!, ADDNEW+7, ADDNEW+8, CLNCLK+6
X	ADDNEW+10, ADDNEW+13, ADDNEW+56, CLNCLK+8, CLEANUP!
>> Y	EN+8, ADJUST+18, ADJUST+26, ADJUST+37, ADJUST+41, ADDNEW+2, ADDNEW+10, ADDNEW+28, ADDNEW+32, ADDNEW+40 , ADDNEW+51, ADDNEW+73, ADDNEW+79, ADDNEW+86, CLNCLK+8

Marked Items

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

Customize PDF page

Package: Integrated Billing