Routine: IBCREE

Package	Total	Call Graph
VA FileMan	4	^DIC ^DIE ^DIK ^DIR
Integrated Billing	2	RESETDV^IBCREE2 ($$CHKBR,$$CHKCS,$$RQCS)^IBCREU1

Package	Total	Caller Graph
Integrated Billing	2	IBCR ADJUSTMENT ENTER/EDIT IBCRLA1

Name	Comments	DBIA/ICR reference
EDITRT	; ACTION enter/edit rate types (399.3)
EDITRS	; ACTION enter/edit rate schedules (363)
EDITRSA	; OPTION enter/edit Rate Schedule Adjustment field (363,10) if DUZ="@"
ERSA1
ERSA1Q
EDITRG	; enter/edit billing regions (363.31)
EDITBR	; enter/edit billing rates (363.3)
EDITCS	; enter/edit Charge Sets (363.1)
REDTCS
EDITBI	; enter/edit billing items - NDC #, MISC (363.21)
EBI1
DELBI(DA)	;

Name	Field # of Occurrence
^DIC	EDITRT+7, EDITRS+8, EDITRSA+4, EDITRG+4, EDITBR+5, EDITCS+5, EBI1+3
^DIE	EDITRT+11, EDITRS+13, ERSA1+4, ERSA1+18, ERSA1+26, EDITRG+9, EDITRG+12, EDITBR+19, REDTCS
^DIK	ERSA1+19, DELBI+1
^DIR	ERSA1+15, EDITBI+5, EBI1+13
RESETDV^IBCREE2	EDITRG+6, EDITCS+8
$$CHKBR^IBCREU1	EDITBR+12
$$CHKCS^IBCREU1	EDITCS+11
$$RQCS^IBCREU1	REDTCS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"CAUTION: This is a standard file with entries released nationally, do not add or" Line Location: EDITRT+2
Function Call: WRITE	Prompt: !," modify unless necessary. Changing the Name or AR Category or if it is" Line Location: EDITRT+3
Function Call: WRITE	Prompt: !," a Third Party rate type will effect processing of claims." Line Location: EDITRT+4
Function Call: WRITE	Prompt: !!,"Enter/Edit a Rate Type:" Line Location: EDITRT+5
Function Call: WRITE	Prompt: !!,"The Rate Schedule Adjustment is an M code field, it therefore requires" Line Location: EDITRS+2
Function Call: WRITE	Prompt: !,"programmer access to enter or edit (using Charge Master IRM Enter/Edit" Line Location: EDITRS+3
Function Call: WRITE	Prompt: !,"[IBCR CHARGE MASTER IRM] option. Contact IRM if this field needs to be modified." Line Location: EDITRS+4
Function Call: WRITE	Prompt: !!,"Enter/Edit a Rate Schedule:" Line Location: EDITRS+5
Function Call: WRITE	Prompt: !,"This option requires programmer access (DUZ(0)=@).",! Line Location: EDITRSA+2
Function Call: WRITE	Prompt: ! Line Location: ERSA1+0
Function Call: WRITE	Prompt: !,?7,"The base unit charges are not currently Adjusted.",! Line Location: ERSA1+2
Function Call: WRITE	Prompt: !,?7,"If the base unit charge is $100,",!,?7,"this Adjustment will result in a charge of: $",$J(X,10,2),!! Line Location: ERSA1+3
Function Call: WRITE	Prompt: " ... no change" Line Location: ERSA1+6
Function Call: WRITE	Prompt: !!,?7,"The base unit charges will not be modified." Line Location: ERSA1+7
Function Call: WRITE	Prompt: !!,?7,"If the base unit charge is $100,",!,?7,"this Adjustment will result in a charge of: $",$J(X,10,2),! Line Location: ERSA1+8
Function Call: WRITE	Prompt: !,"Please note: using '^' to exit the option will not change the adjustment." Line Location: ERSA1+14
Function Call: WRITE	Prompt: !,"The adjustment you entered may have included a dispensing fee or administrative" Line Location: ERSA1+23
Function Call: WRITE	Prompt: !,"fee. If that is the case, please record the amount of the respective fee(s)" Line Location: ERSA1+24
Function Call: WRITE	Prompt: !,"used in the adjustment calculation above." Line Location: ERSA1+25
Function Call: WRITE	Prompt: !!,"Enter/Edit a Rate's Billing Regions:" Line Location: EDITRG+2
Function Call: WRITE	Prompt: !!,"Enter/Edit a Billing Rate: " Line Location: EDITBR+2
Function Call: WRITE	Prompt: !! Line Location: EDITBR+12
Function Call: WRITE	Prompt: !!,"Only the Abbreviation may be edited, the Billing Rate Definition can not change:" Line Location: EDITBR+13
Function Call: WRITE	Prompt: !," - this Billing Rate definition was exported Nationally" Line Location: EDITBR+14
Function Call: WRITE	Prompt: !," - there are Charge Sets defined for this Billing Rate" Line Location: EDITBR+15
Function Call: WRITE	Prompt: !," - there are Charge Items defined for a Charge Set with this Billing Rate" Line Location: EDITBR+16
Function Call: WRITE	Prompt: !,"This Billing Rate does not have any Charge Sets assigned.",! Line Location: EDITBR+17
Function Call: WRITE	Prompt: !!,"Enter/Edit a Charge Set:" Line Location: EDITCS+2
Function Call: WRITE	Prompt: !! Line Location: EDITCS+11
Function Call: WRITE	Prompt: !!,"Not all elements of this Charge Set may be edited:" Line Location: EDITCS+12
Function Call: WRITE	Prompt: !," - the Set name, Rate, and Billable Event may not be modified since this",!," Charge Set definition was exported nationally." Line Location: EDITCS+14
Function Call: WRITE	Prompt: !," - the Billing Rate may not change since the Charge Set has Charge Items." Line Location: EDITCS+16
Function Call: WRITE	Prompt: ! Line Location: REDTCS+2
Function Call: WRITE	Prompt: !,"The Charge Set requires a Billing Rate.",! Line Location: REDTCS+3
Function Call: WRITE	Prompt: !,"The Charge Set requires a Billable Event.",! Line Location: REDTCS+4
Function Call: WRITE	Prompt: !,"This Charge Set requires a default Revenue Code:" Line Location: REDTCS+6
Function Call: WRITE	Prompt: !," - A VA Cost Charge Set requires a default Rev Code since there are no" Line Location: REDTCS+7
Function Call: WRITE	Prompt: !," Items to assign the rev code to",! Line Location: REDTCS+8
Function Call: WRITE	Prompt: !,"This Charge Set requires a default bedsection:" Line Location: REDTCS+10
Function Call: WRITE	Prompt: !," - a bedsection is required before a charge can be added to a bill" Line Location: REDTCS+11
Function Call: WRITE	Prompt: !," therefore a default bedsection is required for every Charge Set whose" Line Location: REDTCS+12
Function Call: WRITE	Prompt: !," charge item is not bedsection",! Line Location: REDTCS+13
Function Call: WRITE	Prompt: !!,"These are items that are billable but not found in other DHCP source files." Line Location: EDITBI+2
Function Call: WRITE	Prompt: !,"Items entered that already exist and have no associated charge, can be deleted.",! Line Location: EDITBI+3
Function Call: WRITE	Prompt: ! Line Location: EBI1+0
Function Call: WRITE	Prompt: !," ... not added, invalid format (n-n-n)" Line Location: EBI1+7
Function Call: WRITE	Prompt: " ... added" Line Location: EBI1+9
Function Call: WRITE	Prompt: " ... already exists" Line Location: EBI1+11
Function Call: WRITE	Prompt: " => can not delete, has Charge Items" Line Location: EBI1+12
Function Call: WRITE	Prompt: ?50," ... no change" Line Location: EBI1+13
Function Call: WRITE	Prompt: ?50," ... deleted" Line Location: EBI1+14
Routine Call	DIC Line Location: EDITRT+7 EDITRS+8 EDITRSA+4 EDITRG+4 EDITBR+5 EDITCS+5 EBI1+3
Routine Call	DIE Line Location: EDITRT+11 EDITRS+13 ERSA1+4 ERSA1+18 ERSA1+26 EDITRG+9 EDITRG+12 EDITBR+19 REDTCS
Routine Call	DIR Line Location: ERSA1+15 EDITBI+5 EBI1+13

FileNo	Call Tags
^IBE(363 - [#363]	Classic Fileman Calls
^IBE(363.1 - [#363.1]	Classic Fileman Calls
^IBA(363.21 - [#363.21]	Classic Fileman Calls
^IBE(363.3 - [#363.3]	Classic Fileman Calls
^IBE(363.31 - [#363.31]	Classic Fileman Calls
^DGCR(399.3 - [#399.3]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399.1 - [#399.1]	ERSA1+22
^IBA(363.2 - [#363.2]	EBI1+12
^IBA(363.21 - [#363.21]	DELBI+1
^IBE(363 - [#363]	EDITRS+7, EDITRSA+5, ERSA1+1, ERSA1+5, ERSA1+22
^IBE(363.1 - [#363.1]	EDITRG+11, EDITRG+12, EDITCS+4
^IBE(363.3 - [#363.3]	EDITBR+4
^IBE(363.31 - [#363.31]	EDITRG+9

Name	Line Occurrences
$$DELBI	EBI1+7, EBI1+14
EBI1	EBI1+6, EBI1+9, EBI1+11, EBI1+15
ERSA1	ERSA1+20
ERSA1Q	EDITRSA+2, ERSA1+17
REDTCS	REDTCS+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EDITRT+1~, EDITRT+11!, EDITRS+1~, EDITRS+13!, EDITRSA+1~, ERSA1+4!, ERSA1+18!, ERSA1+19!, ERSA1+26, EDITRG+1~ , EDITRG+9, EDITRG+11, EDITRG+12!, EDITBR+1~, EDITBR+19!, EDITCS+1~, REDTCS, REDTCS+2, EDITBI+1~, EBI1+3! , DELBI~, DELBI+1!
DA(1	ERSA1+19*
DIC	EDITRT+1~, EDITRT+7!, EDITRS+1~, EDITRS+8!, EDITRSA+1~, EDITRSA+4!, EDITRG+1~, EDITRG+4!, EDITBR+1~, EDITBR+5! , EDITCS+1~, EDITCS+5!, EDITBI+1~, EBI1+2*, EBI1+3!
DIC("A"	EBI1+2*
DIC("DR"	EBI1+2*
DIC("S"	EBI1+3*
DIC(0	EDITRT+7, EDITRS+8, EDITRSA+4, EDITRG+4, EDITBR+5, EDITCS+5, EBI1+2*
DIDEL	EDITRS+13!, EDITRG+9!, EDITBR+19!, REDTCS!
DIE	EDITRT+1~, EDITRT+11!, EDITRS+1~, EDITRS+13!, EDITRSA+1~, ERSA1+4!, ERSA1+18!, ERSA1+26, EDITRG+1~, EDITRG+9! , EDITRG+12!, EDITBR+1~, EDITBR+19!, EDITCS+1~, REDTCS*!, EDITBI+1~, EBI1+3!
DIE("NO^"	EDITRS+12, EDITBR+9
DIK	ERSA1+19!, DELBI+1~!
DINUM	EDITRS+1~, EDITRS+7, EDITRS+8!, EDITBR+1~, EDITBR+4, EDITBR+5!, EDITCS+1~, EDITCS+4*, EDITCS+5!
DIR	EDITRSA+1~, ERSA1+15!, EDITBI+1~, EDITBI+5!, EBI1+13!
DIR("?"	ERSA1+9, ERSA1+10, ERSA1+11, ERSA1+12
DIR("A"	ERSA1+15, EDITBI+5, EBI1+13*
DIR(0	ERSA1+15, EDITBI+5, EBI1+13*
>> DIRUT	ERSA1+17
DLAYGO	EDITRS+1~, EDITRS+8!, EDITRG+1~, EDITRG+4!, EDITBR+1~, EDITBR+5!, EDITCS+1~, EDITCS+5!, EDITBI+1~, EBI1+2* , EBI1+3!
DR	EDITRT+1~, EDITRT+11!, EDITRS+1~, EDITRS+13!, EDITRSA+1~, ERSA1+4!, ERSA1+18!, ERSA1+26, EDITRG+1~, EDITRG+9! , EDITRG+12!, EDITBR+1~, EDITBR+10, EDITBR+12, EDITBR+19!, EDITCS+1~, EDITCS+10, EDITCS+11, EDITCS+15, REDTCS! , REDTCS+2, REDTCS+3, REDTCS+4, REDTCS+5, REDTCS+9*, EDITBI+1~, EBI1+3!
DUZ(0	EDITRSA+2
IBBIN	EDITBI+1~, EBI1+4*, EBI1+6, EBI1+7, EBI1+9, EBI1+11, EBI1+12, EBI1+13, EBI1+14
IBBRFN	EDITBR+1~, EDITBR+7*, EDITBR+19
IBCSFN	EDITCS+1~, EDITCS+7*, EDITCS+8, REDTCS, REDTCS+2
>> IBCSFNX	EDITCS+7*
IBI	EDITRG+1~, EDITRG+11*, EDITRG+12
IBRGFN	EDITRG+1~, EDITRG+6*, EDITRG+9, EDITRG+11, EDITRG+12
IBRS10	EDITRSA+1~, ERSA1+1*, ERSA1+2, ERSA1+3, ERSA1+6
IBRS10A	EDITRSA+1~, ERSA1+5*, ERSA1+6, ERSA1+7, ERSA1+8, ERSA1+22
IBRS10B	EDITRSA+1~, EDITRSA+5*, ERSA1+18
IBRSFN	EDITRS+1~, EDITRS+10, EDITRS+13, EDITRSA+1~, EDITRSA+4, EDITRSA+5, ERSA1+1, ERSA1+4, ERSA1+5, ERSA1+18 , ERSA1+19, ERSA1+22, ERSA1+26
>> IBRSFNX	EDITRS+10*
IBRTFN	EDITRT+1~, EDITRT+9*, EDITRT+11
>> IBRTFNX	EDITRT+9*
IBTYPE	EDITBI+1~, EDITBI+6*, EBI1+2, EBI1+3, EBI1+6, EBI1+13
IBX	EDITBR+1~, EDITBR+12, EDITBR+14, EDITBR+15, EDITBR+16, EDITBR+17, EDITCS+1~, EDITCS+11, EDITCS+13, EDITCS+15 , REDTCS+2, REDTCS+3, REDTCS+4, REDTCS+5, REDTCS+9, EDITBI+1~, EBI1+12, DELBI+1~*, DELBI+2
U	EDITRG+6, EDITRG+12, EDITBR+14, EDITBR+15, EDITBR+16, EDITBR+17, EDITCS+8, EDITCS+13, EDITCS+15, REDTCS+3 , REDTCS+4, REDTCS+5, REDTCS+9, EDITBI+6, EBI1+2, EBI1+6, EBI1+9, EBI1+11, EBI1+13
X	EDITRT+1~, EDITRT+7!, EDITRT+11!, EDITRS+1~, EDITRS+8!, EDITRS+13!, EDITRSA+1~, EDITRSA+4!, ERSA1+3, ERSA1+4! , ERSA1+8, ERSA1+18!, EDITRG+1~, EDITRG+4!, EDITRG+9!, EDITRG+12!, EDITBR+1~, EDITBR+5!, EDITBR+19!, EDITCS+1~ , EDITCS+5!, REDTCS!, EDITBI+1~, EBI1+3!
Y	EDITRT+1~, EDITRT+7!, EDITRT+9, EDITRT+11!, EDITRS+1~, EDITRS+8!, EDITRS+10, EDITRS+13!, EDITRSA+1~, EDITRSA+4! , ERSA1+4!, ERSA1+18!, ERSA1+20, EDITRG+1~, EDITRG+4!, EDITRG+6, EDITRG+9!, EDITRG+12!, EDITBR+1~, EDITBR+5! , EDITBR+7, EDITBR+12, EDITBR+19!, EDITCS+1~, EDITCS+5!, EDITCS+7, EDITCS+8, EDITCS+11, REDTCS+2, EDITBI+1~ , EDITBI+5, EDITBI+6, EBI1+3!, EBI1+4, EBI1+13, EBI1+14
Y(0	EDITBI+6

Customize PDF page

Package: Integrated Billing

Routine: IBCREE

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: