Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBCREQ

Package: Integrated Billing

Routine: IBCREQ


Information

IBCREQ ;ALB/ARH-RATES: CM FAST ENTER/EDIT OPTION ;22-MAY-1996

Source Information

Source file <IBCREQ.m>

Call Graph

Call Graph

Call Graph Total: 8

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

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

Entry Points

Name Comments DBIA/ICR reference
NPFRCQ
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
TORTQ
IA(IBRATE,EFDT,ARR) ; find the standard charge sets for Interagency rates
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
DISP(IBRATE,ARR) ;
NPFRC() ; get the default revenue codes for non-professional inpatient services
TORT(IBRATE,EFDT,ARR,IBRVCD) ; find the standard charge sets for Tort rates
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
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
IAQ
MT() ; do the new mt rate format (misc type) eff 12/6/01 ib*2*167

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All