Routine: IBCREQ

Package	Total	Call Graph
Integrated Billing	5	($$ADDBI,$$ADDCI,EDITCI)^IBCREF $$GETDT^IBCRU1 $$CSN^IBCRU3 $$FINDCI^IBCRU4 ENR^IBEMTO
VA FileMan	2	^DIC ^DIR
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Integrated Billing	1	IBCR FAST ENTER BILLING RATES

Entry Points

Name	Comments	DBIA/ICR reference
ENTER	; OPTION: fast enter Tort or Interagency rates - this option requires charge sets defined as released, ; name not changed and a standard set of charges
TORT(IBRATE,EFDT,ARR,IBRVCD)	; find the standard charge sets for Tort rates
TORTQ
IA(IBRATE,EFDT,ARR)	; find the standard charge sets for Interagency rates
IAQ
CS(IBRATE,IBCSN,TYPE,ITEM,RVCD,DESC,ARR)	; accumulate standard charge sets for a rate ; check the billing rate is correct and return all relevant info ; Output: ARR(event type) = event type name ; ARR(event type, X) = CS name ^ CS IFN ^ default rev code ^ rev code to store ^ description of charge
SET(IBRATE,ARR)	; add/edit charges: for each type of charge and each item, displays rev code and description ; then askes the user for bedsection and charge
NPFRC()	; get the default revenue codes for non-professional inpatient services
NPFRCQ
DISP(IBRATE,ARR)	;
GETBS(COL,PROMPT,TYPE)	; ask and return billable bedsection (399.1): (-1 if ^, 0 if none) IFN^.01 ; if type is inpatient then not PRESCRIPTION or OUTPATIENT bedsections can be selected ; if type is not inpatient then default bedsections are provided
MT()	; do the new mt rate format (misc type) eff 12/6/01 ib2167

External References

Name	Field # of Occurrence
^DIC	NPFRC+5, NPFRC+9, GETBS+8
^DIR	ENTER+5, SET+18, DISP+16, MT+13
$$ADDBI^IBCREF	MT+8
$$ADDCI^IBCREF	SET+19, MT+14
EDITCI^IBCREF	SET+20, MT+15
$$GETDT^IBCRU1	ENTER+8
$$CSN^IBCRU3	MT+2
$$FINDCI^IBCRU4	SET+16, MT+11
ENR^IBEMTO	ENTER+16
$$FMTE^XLFDT	SET+7, DISP+2, MT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ENTER+3
Function Call: WRITE	Prompt: !!,?10,"Fast Enter of Tortiously Liable and Interagency Rates",!! Line Location: ENTER+3
Function Call: WRITE	Prompt: !!,"The Fast Enter of rates expects to find the standard rates and sets released",!,"nationally, if these are not found this option can not be used." Line Location: TORTQ+0
Function Call: WRITE	Prompt: !!,"The Fast Enter of rates expects to find the standard rates and sets released",!,"nationally, if these are not found this option can not be used." Line Location: IAQ+0
Function Call: WRITE	Prompt: !!!,IBERROR,!," Can not continue!" Line Location: CS+10
Function Call: WRITE	Prompt: !!,"--------------------------------------------------------------------------------" Line Location: SET+6
Function Call: WRITE	Prompt: !,"Enter ",$P(ARR(IBTYP),U,1)," ",$P(IBRATE,U,2)," charges effective ",$$FMTE^XLFDT(IBEFDT),":" Line Location: SET+7
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------" Line Location: SET+8
Function Call: WRITE	Prompt: ! Line Location: SET+10
Function Call: WRITE	Prompt: ?74,"added" Line Location: SET+19
Function Call: WRITE	Prompt: ?74,"edited" Line Location: SET+20
Function Call: WRITE	Prompt: !!,"Enter the Revenue Code to use for all non-professional inpatient services:",! Line Location: NPFRC+3
Function Call: WRITE	Prompt: !!,"Both of these revenue codes are required for the Inpatient Non-Professional",!,"charges to be added to bills. Can Not Continue!",! Line Location: NPFRCQ+0
Function Call: WRITE	Prompt: @IOF,!,$P(IBRATE,U,2)," charges effective ",$$FMTE^XLFDT(ARR)," will be added as follows:" Line Location: DISP+2
Function Call: WRITE	Prompt: !,"Charge Type",?30,"Charge Set",?55,"Rev Code",!,"--------------------------------------------------------------------------------",! Line Location: DISP+3
Function Call: WRITE	Prompt: $P(ARR(IBTYP),U,1) Line Location: DISP+5
Function Call: WRITE	Prompt: ?30,$P(IBLN,U,1),?55,$P($G(^DGCR(399.2,+$P(IBLN,U,3),0)),U,1),?65,$P(IBLN,U,5),! Line Location: DISP+8
Function Call: WRITE	Prompt: !,"If any of the revenue codes are incorrect then change the Default Revenue for",!,"the Charge set." Line Location: DISP+9
Function Call: WRITE	Prompt: " (except the non-prof inpt rev codes entered above)" Condition for execution: +IBRATE=1 Line Location: DISP+9
Function Call: WRITE	Prompt: !!,"If any of the Charge Sets are incorrect DO NOT USE this option." Line Location: DISP+10
Function Call: WRITE	Prompt: !,"This option may NOT be used to delete rates or add zero charges." Line Location: DISP+11
Function Call: WRITE	Prompt: !!,"The charges will be asked in sections based on the Charge Types listed above." Line Location: DISP+12
Function Call: WRITE	Prompt: !,"The first section is INPATIENT, enter all Inpatient Bedsections and their" Line Location: DISP+13
Function Call: WRITE	Prompt: !,"charges, then press return at the Select Bedsection prompt to move to the" Line Location: DISP+14
Function Call: WRITE	Prompt: !,"OUTPATIENT VISIT section and enter the Outpatient Visit Bedsection and charge..." Line Location: DISP+15
Function Call: WRITE	Prompt: ! Line Location: DISP+16
Function Call: WRITE	Prompt: !,"*** Error: Charge set TL-MT OPT COPAY not found" Line Location: MT+3
Function Call: WRITE	Prompt: !!,"--------------------------------------------------------------------------------" Line Location: MT+4
Function Call: WRITE	Prompt: !,"Enter MT OUTPATIENT COPAYMENT charges effective ",$$FMTE^XLFDT(IBEFDT),":" Line Location: MT+5
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------" Line Location: MT+6
Function Call: WRITE	Prompt: ?74,"added" Line Location: MT+14
Function Call: WRITE	Prompt: ?74,"edited" Line Location: MT+15
Function Call: WRITE	Prompt: !,IBERROR Line Location: MT+16
Routine Call	DIC Line Location: NPFRC+5 NPFRC+9 GETBS+8
Routine Call	DIR Line Location: ENTER+5 SET+18 DISP+16 MT+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGCR(399.1 - [#399.1]	Classic Fileman Calls
^DGCR(399.2 - [#399.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399.2 - [#399.2]	SET+15, DISP+8
^IBA(363.2 - [#363.2]	SET+17, MT+12
^IBE(363.1 - [#363.1]	CS+5, CS+6

Label References

Name	Line Occurrences
$$CS	TORT+4, TORT+5, TORT+6, TORT+7, TORT+8, TORT+9, TORT+10, IA+4, IA+5, IA+6 , IA+7
$$GETBS	SET+10
$$IA	ENTER+10
$$MT	ENTER+14
$$NPFRC	ENTER+9
$$TORT	ENTER+9
DISP	ENTER+12
IAQ	IA+4, IA+5, IA+6, IA+7
NPFRCQ	NPFRC+5, NPFRC+9
SET	ENTER+13, ENTER+14
TORTQ	TORT+4, TORT+5, TORT+6, TORT+7, TORT+8, TORT+9, TORT+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARR	TORT~, TORT+1!, TORT+4, TORT+5, TORT+6, TORT+7, TORT+8, TORT+9, TORT+10, IA~ , IA+1!, IA+4, IA+5, IA+6, IA+7, CS~, SET~, SET+4, DISP~, DISP+2
ARR(	CS+8*, SET+5, SET+7, SET+10, SET+11, SET+12, DISP+4, DISP+5, DISP+6, DISP+7
ARR(1	TORT+2, IA+2, IA+3*
ARR(2	TORT+2, IA+2, IA+3*
ARR(3	TORT+2, IA+2, IA+3*
ARR(4	TORT+3, IA+2, IA+3*
COL	GETBS~, GETBS+7
DA	GETBS+3~
DESC	CS~, CS+8
DIC	NPFRC+2~, NPFRC+5, NPFRC+9, GETBS+3~, GETBS+8*!
DIC("A"	NPFRC+4, NPFRC+8, GETBS+7*
DIC("B"	NPFRC+4, NPFRC+8, GETBS+6*
DIC("S"	NPFRC+4, NPFRC+8, GETBS+4, GETBS+5
DIC(0	NPFRC+5, NPFRC+9, GETBS+8*
DIE	GETBS+3~
DIR	ENTER+2~, ENTER+5!, SET+3~, SET+18!, DISP+16!, MT+1~, MT+13!
DIR("A"	ENTER+5, SET+18, MT+13*
DIR("B"	SET+17, MT+12
DIR(0	ENTER+5, SET+18, DISP+16, MT+13
DIRUT	ENTER+2~, ENTER+12, SET+3~
DR	GETBS+3~
DTOUT	ENTER+2~, SET+3~, NPFRC+2~, GETBS+3~, GETBS+9
DUOUT	ENTER+2~, SET+3~, SET+11, NPFRC+2~, GETBS+3~, GETBS+9
EFDT	TORT~, TORT+1, IA~, IA+1
IBARR	ENTER+2~, ENTER+9, ENTER+10, ENTER+12, ENTER+13, ENTER+14
IBBS	SET+3~, SET+5, SET+10*, SET+13, SET+16, SET+19
IBCHG	SET+3~, SET+18, SET+19, SET+20, MT+1~, MT+13, MT+14, MT+15
IBCI	SET+3~, SET+16, SET+17, SET+19, SET+20, MT+1~, MT+11, MT+12, MT+14, MT+15
IBCS	CS+4~, CS+5, CS+6, CS+8, SET+3~, SET+12, SET+16, SET+19, MT+1~, MT+2* , MT+3, MT+11, MT+14
IBCSN	TORT+1~, TORT+4, TORT+5, TORT+6, TORT+7, TORT+8, TORT+9, TORT+10, IA+1~, IA+4 , IA+5, IA+6, IA+7*, CS~, CS+5, CS+7, CS+8, CS+9
IBDFTY	SET+3~, SET+9, SET+10
IBEFDT	ENTER+2~, ENTER+8, ENTER+9, ENTER+10, SET+3~, SET+4, SET+7, SET+16, SET+19, MT+5 , MT+11, MT+14
IBERROR	CS+4~, CS+7, CS+9, CS+10, MT+1~, MT+2, MT+7, MT+9*, MT+16, MT+17
IBI	DISP+1~, DISP+6*, DISP+7
IBIT	SET+3~, SET+11*, SET+12
IBITEM	MT+1~, MT+8*, MT+9, MT+11, MT+14
IBJ	SET+3~, SET+10*
IBLN	CS+4~, CS+6, CS+7, CS+8, SET+3~, SET+12, SET+14, SET+15, DISP+1~, DISP+7* , DISP+8
IBOCHG	SET+3~, SET+12, SET+17, SET+18, MT+1~, MT+2, MT+12, MT+13
IBRATE	ENTER+2~, ENTER+6*, ENTER+9, ENTER+10, ENTER+12, ENTER+13, ENTER+14, ENTER+16, TORT~, TORT+4 , TORT+5, TORT+6, TORT+7, TORT+8, TORT+9, TORT+10, IA~, IA+4, IA+5, IA+6 , IA+7, CS~, CS+7, SET~, SET+7, DISP~, DISP+2, DISP+9
IBRUN	ENTER+16!
IBRVCD	ENTER+2~, ENTER+9, TORT~, TORT+1, TORT+5, TORT+6, SET+3~, SET+12*, SET+16, SET+19
IBTYP	SET+3~, SET+5, SET+7, SET+9, SET+10, SET+11, SET+12, DISP+1~, DISP+4, DISP+5 , DISP+6, DISP+7
IBTYPE	MT+1~, MT+7*, MT+8, MT+9, MT+10
IBX	TORT+1~, TORT+12, TORTQ, TORTQ+1, IA+1~, IA+8, IAQ, IAQ+1, CS+4~, CS+8 , CS+9, CS+11, SET+3~, SET+13, SET+14, SET+15, SET+18, NPFRC+2~, NPFRC+10, NPFRCQ , NPFRCQ+1, GETBS+3~, GETBS+9, GETBS+10, GETBS+11, MT+1~, MT+10*, MT+13
IBY	NPFRC+2~, NPFRC+6*, NPFRC+10
IOF	ENTER+3, DISP+2
ITEM	CS~, CS+8
PROMPT	GETBS~, GETBS+7
RVCD	CS~, CS+8
TYPE	CS~, CS+8, GETBS~, GETBS+5, GETBS+6
U	TORT+5, TORT+6, CS+7, CS+8, SET+7, SET+10, SET+12, SET+13, SET+14, SET+15 , SET+17, NPFRC+10, DISP+2, DISP+5, DISP+8, MT+12
X	ENTER+2~, SET+3~, NPFRC+2~, GETBS+3~, MT+1~
Y	ENTER+2~, ENTER+6, SET+3~, SET+18, NPFRC+2~, NPFRC+5, NPFRC+6, NPFRC+9, NPFRC+10, GETBS+3~ , GETBS+10, MT+1~, MT+13

Customize PDF page

Package: Integrated Billing

Routine: IBCREQ

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: