Routine: IBCBB

Information

IBCBB ;ALB/AAS - EDIT CHECK ROUTINE TO BE INVOKED BEFORE ALL BILL APPROVAL ACTIONS ;2-NOV-89

Package	Total	Call Graph
Integrated Billing	12	EDITS^IBCB2 (BP,ICD10V,PAYERADD,PAYTO)^IBCBB0 ^IBCBB1 WARN^IBCBB11 ($$COB,$$COBN,$$FT,$$INSADDR,$$INSDEM,$$NOPUNCT,$$POLICY,$$PTADDR)^IBCEF $$CURR^IBCEF2 $$TXMT^IBCEF4 $$NAME^IBCEFG1 $$BPP^IBCNS2 $$PTCOV^IBCNSU3 $$ICD10S^IBCU4 ($$MCRWNR,$$REQMRA)^IBEFUNC
VA FileMan	3	H^%DTC $$GET1^DIQ ^DIR
Accounts Receivable	1	$$CATN^PRCAFN

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

Package	Total	Caller Graph
Integrated Billing	10	IBACUS2 IBCA3 IBCB1 IBCB2 IBCEU IBCONS1 IBCSCH IBNCPDP2 IBNCPDP5 IBOA31

Entry Points

Name	Comments	DBIA/ICR reference
GVAR	;set up variables for mccr
EN	;Entry to check for errors
EDIT(IBIFN)	; Run edits from within the billing edit screens
TOB(IBND0)	; ; IBND0 = the 0-node of the bill (file 399)
ERR(Z)	; update IBER variable from the above insurance checks ; Z is the IB error code# for the primary insurance error
DTCK(DATE)	; IB2.0623 - check for valid date

External References

Name	Field # of Occurrence
H^%DTC	DTCK+2
$$GET1^DIQ	EN+11, EN+12, EN+14, EN+17, EN+18, EN+19, EN+20, EN+21, EN+22, EN+23 , EN+24, EN+25, EN+26, EN+27, EN+28, EN+29, EN+190
^DIR	EDIT+4
EDITS^IBCB2	EDIT+3
BP^IBCBB0	EN+76
ICD10V^IBCBB0	EN+73
PAYERADD^IBCBB0	EN+200
PAYTO^IBCBB0	EN+79
^IBCBB1	EN+201
WARN^IBCBB11	EN+64
$$COB^IBCEF	EN+65
$$COBN^IBCEF	EN+63, EN+146, EN+156, EN+166, EN+176, EN+215
$$FT^IBCEF	EN+54, EN+60
$$INSADDR^IBCEF	EN+138
$$INSDEM^IBCEF	EN+95
$$NOPUNCT^IBCEF	EN+114, EN+115, EN+128, EN+139, EN+144, EN+154, EN+164, EN+174, EN+194, EN+195 , EN+196, EN+197
$$POLICY^IBCEF	EN+112, EN+128, EN+134
$$PTADDR^IBCEF	EN+187, EN+194, EN+195, EN+196, EN+197
$$CURR^IBCEF2	EN+49, EN+65
$$TXMT^IBCEF4	EN+49, EN+209
$$NAME^IBCEFG1	EN+119
$$BPP^IBCNS2	EN+66
$$PTCOV^IBCNSU3	EN+57
$$ICD10S^IBCU4	EN+70
$$MCRWNR^IBEFUNC	EN+49, EN+65
$$REQMRA^IBEFUNC	EN+211
$$CATN^PRCAFN	EN+43

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+4
Function Call: WRITE	Prompt: ! Line Location: EDIT+4
Routine Call	DIR Line Location: EDIT+4

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
2.312	GET1^DIQ
^DGCR(399 - [#399]	GET1^DIQ
^HL(779.004 - [#779.004]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	GVAR+1, EN+57, EN+63, EN+65, EN+93, EN+209, EN+212
^DGCR(399.1 - [#399.1]	TOB+2
^DGCR(399.3 - [#399.3]	EN+41, EN+42, EN+43
^DIC(36 - [#36]	EN+63
^DPT - [#2]	EN+9, EN+13
^TMP($J	GVAR+9!, EN+3!
^UTILITY("VADM"	EN+94!, EN+96!
^UTILITY("VAPA"	EN+94!, EN+96!, EN+184!, EN+198!

Label References

Name	Line Occurrences
$$DTCK	EN+11, EN+12, EN+15, EN+17, EN+18, EN+19, EN+20, EN+21, EN+22, EN+23 , EN+24, EN+25, EN+26, EN+27, EN+28, EN+29, EN+37, EN+100
$$TOB	GVAR+8
ERR	EN+98, EN+102, EN+118, EN+123, EN+129, EN+135, EN+146, EN+148, EN+156, EN+158 , EN+166, EN+168, EN+176, EN+178
GVAR	EN+5

Naked Globals

Name	Field # of Occurrence
^(	EN+57
^(0	EN+42

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %Y	DTCK+3
CAS	EN+107~, EN+139*, EN+148, EN+158, EN+168, EN+178
CODE	EN+189~, EN+190*, EN+191
DATE	DTCK~, DTCK+1, DTCK+2
>> DFN	GVAR+2*, EN+8, EN+9, EN+11, EN+12, EN+13, EN+14, EN+57
DIR	EDIT+1~, EDIT+4!
DIR("A"	EDIT+4*
DIR(0	EDIT+4*
FN	EN+107~, EN+113, EN+115, EN+120*
>> I	GVAR+1*
>> IBARTP	EN+43*, EN+45
>> IBAT	GVAR+4, EN+40, EN+41, EN+42, EN+43
>> IBAU	GVAR+7*
>> IBBNO	GVAR+2*
IBC	EN+1~, EN+187*, EN+188, EN+190
>> IBCL	GVAR+3*, EN+70
IBDISP	EDIT+1~, EDIT+2*
IBDX	EN+1~, EN+13*, EN+14
IBDX1	EN+1~, EN+14*, EN+15
>> IBER	EN+5, EN+8, EN+9, EN+11, EN+12, EN+15, EN+17, EN+18, EN+19, EN+20 , EN+21, EN+22, EN+23, EN+24, EN+25, EN+26, EN+27, EN+28, EN+29, EN+34 , EN+35, EN+37, EN+40, EN+41, EN+42, EN+45, EN+48, EN+57, EN+60, EN+64 , EN+66, EN+67, EN+70, EN+100, EN+194, EN+195, EN+196, EN+197, EN+212, EN+218 , ERR+4, ERR+5*
IBERRNO	ERR+2~, ERR+3*, ERR+4, ERR+5
>> IBEU	GVAR+7*
>> IBEVDT	GVAR+2*, EN+34, EN+35, EN+37
>> IBFDT	GVAR+5*, EN+70
IBFL	EN+2~
IBFOR	EN+1~, EN+186, EN+191, EN+196, EN+197
>> IBFT	GVAR+4*
>> IBFY	GVAR+6*
>> IBFYC	GVAR+6*
IBIFN	GVAR+1, EN+17, EN+18, EN+19, EN+20, EN+21, EN+22, EN+23, EN+24, EN+25 , EN+26, EN+27, EN+28, EN+29, EN+49, EN+54, EN+57, EN+60, EN+63, EN+65 , EN+66, EN+73, EN+76, EN+79, EN+93, EN+95, EN+112, EN+128, EN+134, EN+138 , EN+146, EN+156, EN+166, EN+176, EN+187, EN+194, EN+195, EN+196, EN+197, EN+200 , EN+209, EN+211, EN+212, EN+215, EDIT~
IBISEQ	EN+1~, EN+92*, EN+93, EN+95, EN+112, EN+128, EN+134, EN+138, EN+146, EN+156 , EN+166, EN+176, ERR+3
>> IBLOC	GVAR+3*
>> IBMRA	EN+49*, EN+58
IBND0	GVAR+2, GVAR+3, GVAR+4, GVAR+8, EN+5, TOB~, TOB+2
>> IBNDM	EN+67
>> IBNDMP	EN+66
>> IBNDS	GVAR+7
>> IBNDU	GVAR+5
>> IBNDU1	GVAR+6
IBNOFIX	EDIT+1~, EDIT+2*
IBQ	EN+1~
IBQUIT	EN+1~
>> IBRU	GVAR+7*
>> IBST	GVAR+4*
>> IBTC	GVAR+6*
>> IBTDT	GVAR+5*, EN+70
>> IBTF	GVAR+3*
>> IBTOB	GVAR+8*
>> IBTOB12	GVAR+8*
IBVIEW	EDIT+1~, EDIT+2*
>> IBWHO	GVAR+4*, EN+45, EN+48, EN+52, EN+67
IBXDATA	EN+1~
IBXERR	EN+1~
IBXSAVE	EN+1~
IBZ	EN+61~, EN+62, EN+63, EN+64
IBZPRC92	EN+1~
IDDATA	EN+1~, EN+95*, EN+98, EN+100, EN+102
INNAME	EN+107~, EN+112*, EN+113, EN+119
INSONBIL	EN+55~, EN+57!
INSONBIL(	EN+57*
LN	EN+107~, EN+113, EN+114, EN+118, EN+119, EN+120, EN+121, EN+123
LOOP	EN+55~, EN+57*
PTREL	EN+107~, EN+134*, EN+135, EN+146, EN+156, EN+166, EN+176
SFA	EN+107~, EN+138*, EN+139, EN+144, EN+154, EN+164, EN+174
SUBID	EN+107~, EN+128*, EN+129
U	EN+63, EN+66, EN+93, EN+98, EN+100, EN+102, EN+120, EN+121, EN+139, EN+144 , EN+154, EN+164, EN+174, EN+212, TOB+2
X	EDIT+1~, DTCK+2*
Y	EDIT+1~
Z	EN+61~, EN+63*, ERR~, ERR+3

Customize PDF page

Package: Integrated Billing