Routine: IBCEU5

Package	Total	Call Graph
Integrated Billing	3	($$FT,$$INPAT)^IBCEF ($$CKPROV,$$CRED,$$PRVOK,GETPRV)^IBCEU $$EXPAND^IBTRE
VA FileMan	3	FILE^DIE FDA^DILF ^DIR
Kernel	1	HOME^%ZIS

Package	Total	Caller Graph
Integrated Billing	24	IBCCC2 IBCCCB0 IBCEF7 IBCSCH2 IBNCPDP5 IBXS3 IBXS6 IBXS63 IBXS7 IBXS74 IBXSA21 IBXSAH1 IBXSC3 IBXSC61 IBXSC68 IBXSC712 IBXSC74 IBXSC79 IBXSC821 IBXSC8H1 IBXX21 IBXX35 LINE PROVIDER PROVIDER

Entry Points

Name	Comments	DBIA/ICR reference
EXTCR(IBPRV)	; Called by trigger on field .02 of file 399.0222 ; Also called by trigger on field .02 of file 399.0404 (DEM;432). ; Function returns the first 3 digits of the provider's degree if ; a VA provider or the credentials in file 355.9 if non-VA provider ; IBPRV = vp to file 200 or 355.93
FTPRV(IBIFN,NOASK)	; If form type changes from UB-04 to CMS-1500 or vice ; versa, ask to change provider function to appropriate function for ; form type (ATTENDING = UB-04, RENDERING = CMS-1500) ; IBIFN = ien of bill in file 399 ; NOASK (flag) = 1 if change should happen without asking first
TXFERPRV(IBIFN,FT)	; Ask to change the function of the main provider on ; bill IBIFN to the function appropriate to the form type FT ;
PRVCHG(IBIFN,IBFT)	; Change provider type to type consistent with current ; data on bill
CLEANUP(IBIFN,FT)
PRVHELP	; Text for the provider function help
SPECIFIC(IBIFN)	; Display specific provider requirements for the bill IBIFN
HLPTXT	; Helptext for provider function
LINKRX(IBIFN,IBREV)	; Ask for revenue code's RX if not already there
LINKCPT(IBIFN,IBREV)	; Ask for revenue code's CPT
UPDPTR(IBIFN,IBREV,Y)	;
INSFT(IBIFN)	; Returns 1 if form type is UB-04, 0 if CMS-1500 or J430D

External References

Name	Field # of Occurrence
HOME^%ZIS	PRVHELP+5
FILE^DIE	PRVCHG+9, CLEANUP+19, LINKRX+12, UPDPTR+4
FDA^DILF	PRVCHG+8, CLEANUP+10, CLEANUP+17, LINKRX+11, UPDPTR+3
^DIR	TXFERPRV+7, PRVHELP+8, PRVHELP+12, PRVHELP+15, LINKRX+8, LINKCPT+10, LINKCPT+14, LINKCPT+24
$$FT^IBCEF	FTPRV+6, PRVHELP+9, SPECIFIC+2, INSFT+1
$$INPAT^IBCEF	SPECIFIC+5
$$CKPROV^IBCEU	FTPRV+7, FTPRV+8, SPECIFIC+9
$$CRED^IBCEU	EXTCR+5
$$PRVOK^IBCEU	SPECIFIC+8
GETPRV^IBCEU	SPECIFIC+3
$$EXPAND^IBTRE	SPECIFIC+15, LINKCPT+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: TXFERPRV+5
Function Call: WRITE	Prompt: @IOF Line Location: PRVHELP+8
Function Call: WRITE	Prompt: !,$P($T(HLPTXT+IBZ),";;",2) Line Location: PRVHELP+13
Function Call: WRITE	Prompt: @IOF Line Location: PRVHELP+16
Function Call: WRITE	Prompt: !,"This bill is ",$S(IBFT=7:"J430D",IBFT=3:"UB-04",1:"CMS-1500"),"/",$S($$INPAT^IBCEF(IBIFN):"Inpatient",1:"Outpatient") Line Location: SPECIFIC+5
Function Call: WRITE	Prompt: !!,"The valid provider functions for this bill are:" Line Location: SPECIFIC+6
Function Call: WRITE	Prompt: ! Line Location: SPECIFIC+16
Function Call: WRITE	Prompt: !,"PROCEDURE #"_$P(IBRC,U,11)_" HAS BEEN ASSOCIATED WITH THIS MANUAL CHARGE" Line Location: LINKCPT+5
Function Call: WRITE	Prompt: ! Line Location: LINKCPT+10
Function Call: WRITE	Prompt: ! Line Location: LINKCPT+10
Function Call: WRITE	Prompt: ! Line Location: LINKCPT+14
Function Call: WRITE	Prompt: ! Line Location: LINKCPT+24
Routine Call	%ZIS Line Location: PRVHELP+5
Routine Call	DIE Line Location: PRVCHG+9 CLEANUP+19 LINKRX+12 UPDPTR+4
Routine Call	DIR Line Location: TXFERPRV+7 PRVHELP+8 PRVHELP+12 PRVHELP+15 LINKRX+8 LINKCPT+10 LINKCPT+14 LINKCPT+24

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
399.0222	FDA^DILF
399.042	FDA^DILF

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	PRVCHG+5, CLEANUP+8, CLEANUP+9, CLEANUP+15, CLEANUP+16, LINKRX+2, LINKRX+3, LINKCPT+2, LINKCPT+16, LINKCPT+20 , LINKCPT+21

Label References

Name	Line Occurrences
CLEANUP	FTPRV+13
PRVCHG	FTPRV+12, TXFERPRV+9
SPECIFIC	PRVHELP+7
TXFERPRV	FTPRV+11
UPDPTR	LINKCPT+15, LINKCPT+25

Naked Globals

Name	Field # of Occurrence
^(	LINKRX+3, LINKCPT+16
^(0	LINKRX+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ATT	FTPRV+5~, FTPRV+8*, FTPRV+10
CLEAN	CLEANUP+1~, CLEANUP+19
CLEAN(399	CLEANUP+4*
>> D0	PRVHELP+7, PRVHELP+9
DA	TXFERPRV+3~, PRVCHG+2~, PRVCHG+7, PRVCHG+8, CLEANUP+1~, CLEANUP+10, CLEANUP+17, LINKRX+1~, LINKRX+10, LINKRX+11 , LINKCPT+1~, UPDPTR+1~, UPDPTR+2*, UPDPTR+3
DA(1	PRVCHG+7, CLEANUP+10, CLEANUP+17, LINKRX+10, LINKCPT+23, UPDPTR+2
DIE	TXFERPRV+3~, PRVCHG+2~, CLEANUP+1~
DIR	TXFERPRV+3~, TXFERPRV+7!, PRVHELP+2~, PRVHELP+8~!, PRVHELP+12~!, PRVHELP+15~!, LINKRX+1~, LINKRX+8!, LINKCPT+1~, LINKCPT+10! , LINKCPT+14!, LINKCPT+24!
DIR("?"	TXFERPRV+6, LINKRX+6, LINKRX+7, LINKCPT+7, LINKCPT+8, LINKCPT+9, LINKCPT+13, LINKCPT+22
DIR("A"	TXFERPRV+5, LINKRX+5, LINKCPT+10, LINKCPT+14, LINKCPT+21*
DIR("B"	TXFERPRV+6, LINKCPT+10, LINKCPT+14*
DIR("S"	LINKRX+4, LINKCPT+20
DIR(0	TXFERPRV+6, PRVHELP+8, PRVHELP+12, PRVHELP+15, LINKRX+4, LINKCPT+10, LINKCPT+14, LINKCPT+20
DR	TXFERPRV+3~
FT	FTPRV+5~, FTPRV+6*, FTPRV+10, FTPRV+11, FTPRV+12, FTPRV+13, TXFERPRV~, TXFERPRV+5, TXFERPRV+9, CLEANUP~ , CLEANUP+4, CLEANUP+7, CLEANUP+14
HAVE	TXFERPRV+3~, PRVCHG+2~, PRVCHG+3*, PRVCHG+5
IB	PRVHELP+2~, PRVHELP+10, PRVHELP+12
IB1	PRVHELP+2~, PRVHELP+10, PRVHELP+11, PRVHELP+12*, PRVHELP+14
IBCP	LINKCPT+1~
IBCP(	LINKCPT+18, LINKCPT+19
IBFT	PRVCHG~, PRVCHG+3, PRVCHG+4, SPECIFIC+1~, SPECIFIC+2*, SPECIFIC+5, SPECIFIC+12
IBIFN	FTPRV~, FTPRV+6, FTPRV+7, FTPRV+8, FTPRV+11, FTPRV+12, FTPRV+13, TXFERPRV~, TXFERPRV+9, PRVCHG~ , PRVCHG+5, PRVCHG+7, CLEANUP~, CLEANUP+4, CLEANUP+8, CLEANUP+9, CLEANUP+10, CLEANUP+15, CLEANUP+16, CLEANUP+17 , SPECIFIC~, SPECIFIC+2, SPECIFIC+3, SPECIFIC+5, SPECIFIC+8, SPECIFIC+9, LINKRX~, LINKRX+2, LINKRX+3, LINKRX+10 , LINKCPT~, LINKCPT+2, LINKCPT+15, LINKCPT+16, LINKCPT+20, LINKCPT+21, LINKCPT+23, LINKCPT+25, UPDPTR~, UPDPTR+2 , INSFT~, INSFT+1
IBP	LINKCPT+1~, LINKCPT+4*, LINKCPT+10
IBPRV	EXTCR~, EXTCR+5, SPECIFIC+1~, SPECIFIC+3
IBPRV(	SPECIFIC+10
IBQUIT	PRVHELP+2~, PRVHELP+3, PRVHELP+11, PRVHELP+12*
IBR	SPECIFIC+1~, SPECIFIC+10, SPECIFIC+12, SPECIFIC+15
IBRC	LINKCPT+1~, LINKCPT+2, LINKCPT+3, LINKCPT+4, LINKCPT+5, LINKCPT+6, LINKCPT+11, LINKCPT+12, LINKCPT+15*, LINKCPT+21
IBREV	LINKRX~, LINKRX+2, LINKRX+3, LINKRX+10, LINKCPT~, LINKCPT+2, LINKCPT+15, LINKCPT+16, LINKCPT+20, LINKCPT+25 , UPDPTR~, UPDPTR+2
IBRX	LINKRX+1~
IBRX(	LINKRX+3*
IBZ	TXFERPRV+3~, PRVCHG+2~, PRVHELP+2~, PRVHELP+11, SPECIFIC+1~, SPECIFIC+8, SPECIFIC+9, SPECIFIC+10, SPECIFIC+15, LINKRX+1~ , LINKRX+10, LINKCPT+1~, UPDPTR+1~, UPDPTR+2
IOF	PRVHELP+8, PRVHELP+16
IOSL	PRVHELP+5, PRVHELP+10, PRVHELP+12
IOST	PRVHELP+5, PRVHELP+6
NEED	TXFERPRV+3~, PRVCHG+2~, PRVCHG+4*, PRVCHG+8
NOASK	FTPRV~, FTPRV+11
ONBILL	SPECIFIC+1~, SPECIFIC+9*, SPECIFIC+15
PRV	CLEANUP+1~, CLEANUP+9, CLEANUP+10, CLEANUP+16, CLEANUP+17
REN	FTPRV+5~, FTPRV+7*, FTPRV+10
U	LINKRX+2, LINKRX+3, LINKCPT+3, LINKCPT+4, LINKCPT+5, LINKCPT+6, LINKCPT+12, LINKCPT+15, LINKCPT+16, LINKCPT+18 , LINKCPT+19, LINKCPT+20, LINKCPT+21
X	TXFERPRV+3~, PRVCHG+2~, CLEANUP+1~, CLEANUP+7, CLEANUP+8, CLEANUP+9, CLEANUP+14, CLEANUP+15, CLEANUP+16, PRVHELP+1 , PRVHELP+8~, PRVHELP+12~, PRVHELP+15~, LINKRX+1~, LINKCPT+1~
Y	TXFERPRV+3~, TXFERPRV+8, PRVCHG+2~, PRVHELP+8~, PRVHELP+12~, PRVHELP+15~, LINKRX+1~, LINKRX+9, LINKRX+11, LINKCPT+1~ , LINKCPT+11, LINKCPT+15, LINKCPT+25, UPDPTR~, UPDPTR+3
Z	TXFERPRV+3~, PRVCHG+2~, PRVCHG+5, PRVCHG+6, PRVCHG+7, PRVHELP+2~, PRVHELP+4, PRVHELP+9, SPECIFIC+1~, LINKRX+1~ , LINKRX+3, LINKCPT+1~, LINKCPT+16*
Z0	LINKRX+1~, LINKRX+3, LINKCPT+1~, LINKCPT+16, LINKCPT+18, LINKCPT+19
Z1	LINKCPT+1~

Marked Items

Name	Field # of Occurrence
$T(HLPTXT+IBZ	PRVHELP+11, PRVHELP+13

Customize PDF page

Package: Integrated Billing

Routine: IBCEU5

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 24

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items