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

Package	Total	Caller Graph
Integrated Billing	11	IBACUS2 IBCA3 IBCB1 IBCB2 IBCE837ACC 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+12, EN+13, EN+15, 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+30, EN+191
^DIR	EDIT+4
EDITS^IBCB2	EDIT+3
BP^IBCBB0	EN+77
ICD10V^IBCBB0	EN+74
PAYERADD^IBCBB0	EN+201
PAYTO^IBCBB0	EN+80
^IBCBB1	EN+202
WARN^IBCBB11	EN+65
$$COB^IBCEF	EN+66
$$COBN^IBCEF	EN+64, EN+147, EN+157, EN+167, EN+177, EN+216
$$FT^IBCEF	EN+55, EN+61
$$INSADDR^IBCEF	EN+139
$$INSDEM^IBCEF	EN+96
$$NOPUNCT^IBCEF	EN+115, EN+116, EN+129, EN+140, EN+145, EN+155, EN+165, EN+175, EN+195, EN+196 , EN+197, EN+198
$$POLICY^IBCEF	EN+113, EN+129, EN+135
$$PTADDR^IBCEF	EN+188, EN+195, EN+196, EN+197, EN+198
$$CURR^IBCEF2	EN+50, EN+66
$$TXMT^IBCEF4	EN+50, EN+210
$$NAME^IBCEFG1	EN+120
$$BPP^IBCNS2	EN+67
$$PTCOV^IBCNSU3	EN+58
$$ICD10S^IBCU4	EN+71
$$MCRWNR^IBEFUNC	EN+50, EN+66
$$REQMRA^IBEFUNC	EN+212
$$CATN^PRCAFN	EN+44

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+5
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+58, EN+64, EN+66, EN+94, EN+210, EN+213
^DGCR(399.1 - [#399.1]	TOB+2
^DGCR(399.3 - [#399.3]	EN+42, EN+43, EN+44
^DIC(36 - [#36]	EN+64
^DPT - [#2]	EN+10, EN+14
^TMP($J	GVAR+9!, EN+3!
^UTILITY("VADM"	EN+95!, EN+97!
^UTILITY("VAPA"	EN+95!, EN+97!, EN+185!, EN+199!

Label References

Name	Line Occurrences
$$DTCK	EN+12, EN+13, EN+16, 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+30, EN+38, EN+101
$$TOB	GVAR+8
ERR	EN+99, EN+103, EN+119, EN+124, EN+130, EN+136, EN+147, EN+149, EN+157, EN+159 , EN+167, EN+169, EN+177, EN+179
GVAR	EN+6

Naked Globals

Name	Field # of Occurrence
^(	EN+58
^(0	EN+43

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %Y	DTCK+3
CAS	EN+108~, EN+140*, EN+149, EN+159, EN+169, EN+179
CODE	EN+190~, EN+191*, EN+192
DATE	DTCK~, DTCK+1, DTCK+2
>> DFN	GVAR+2*, EN+9, EN+10, EN+12, EN+13, EN+14, EN+15, EN+58
DIR	EDIT+1~, EDIT+4!
DIR("A"	EDIT+4*
DIR(0	EDIT+4*
FN	EN+108~, EN+114, EN+116, EN+121*
>> I	GVAR+1*
>> IBACCRPC	EN+5
>> IBARTP	EN+44*, EN+46
>> IBAT	GVAR+4, EN+41, EN+42, EN+43, EN+44
>> IBAU	GVAR+7*
>> IBBNO	GVAR+2*
IBC	EN+1~, EN+188*, EN+189, EN+191
>> IBCL	GVAR+3*, EN+71
IBDISP	EDIT+1~, EDIT+2*
IBDX	EN+1~, EN+14*, EN+15
IBDX1	EN+1~, EN+15*, EN+16
>> IBER	EN+6, EN+9, EN+10, EN+12, EN+13, EN+16, 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+30, EN+35 , EN+36, EN+38, EN+41, EN+42, EN+43, EN+46, EN+49, EN+58, EN+61, EN+65 , EN+67, EN+68, EN+71, EN+101, EN+195, EN+196, EN+197, EN+198, EN+213, EN+219 , ERR+4, ERR+5*
IBERRNO	ERR+2~, ERR+3*, ERR+4, ERR+5
>> IBEU	GVAR+7*
>> IBEVDT	GVAR+2*, EN+35, EN+36, EN+38
>> IBFDT	GVAR+5*, EN+71
IBFL	EN+2~
IBFOR	EN+1~, EN+187, EN+192, EN+197, EN+198
>> IBFT	GVAR+4*
>> IBFY	GVAR+6*
>> IBFYC	GVAR+6*
IBIFN	GVAR+1, 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+30, EN+50, EN+55, EN+58, EN+61, EN+64, EN+66 , EN+67, EN+74, EN+77, EN+80, EN+94, EN+96, EN+113, EN+129, EN+135, EN+139 , EN+147, EN+157, EN+167, EN+177, EN+188, EN+195, EN+196, EN+197, EN+198, EN+201 , EN+210, EN+212, EN+213, EN+216, EDIT~
IBISEQ	EN+1~, EN+93*, EN+94, EN+96, EN+113, EN+129, EN+135, EN+139, EN+147, EN+157 , EN+167, EN+177, ERR+3
>> IBLOC	GVAR+3*
>> IBMRA	EN+50*, EN+59
IBND0	GVAR+2, GVAR+3, GVAR+4, GVAR+8, EN+6, TOB~, TOB+2
>> IBNDM	EN+68
>> IBNDMP	EN+67
>> 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+71
>> IBTF	GVAR+3*
>> IBTOB	GVAR+8*
>> IBTOB12	GVAR+8*
IBVIEW	EDIT+1~, EDIT+2*
>> IBWHO	GVAR+4*, EN+46, EN+49, EN+53, EN+68
IBXDATA	EN+1~
IBXERR	EN+1~
IBXSAVE	EN+1~
IBZ	EN+62~, EN+63, EN+64, EN+65
IBZPRC92	EN+1~
IDDATA	EN+1~, EN+96*, EN+99, EN+101, EN+103
INNAME	EN+108~, EN+113*, EN+114, EN+120
INSONBIL	EN+56~, EN+58!
INSONBIL(	EN+58*
LN	EN+108~, EN+114, EN+115, EN+119, EN+120, EN+121, EN+122, EN+124
LOOP	EN+56~, EN+58*
PTREL	EN+108~, EN+135*, EN+136, EN+147, EN+157, EN+167, EN+177
SFA	EN+108~, EN+139*, EN+140, EN+145, EN+155, EN+165, EN+175
SUBID	EN+108~, EN+129*, EN+130
U	EN+64, EN+67, EN+94, EN+99, EN+101, EN+103, EN+121, EN+122, EN+140, EN+145 , EN+155, EN+165, EN+175, EN+213, TOB+2
X	EDIT+1~, DTCK+2*
Y	EDIT+1~
Z	EN+62~, EN+64*, ERR~, ERR+3

Customize PDF page

Package: Integrated Billing