Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBECEA3

Package: Integrated Billing

Routine: IBECEA3


Information

IBECEA3 ;ALB/CPM - Cancel/Edit/Add... Add a Charge ;30-MAR-93

Source Information

Source file <IBECEA3.m>

Entry Points

Name Comments DBIA/ICR reference
ADD ; Add a Charge protocol
FR ; - ask 'bill from' date
UCPAY ;IB*2.0*646 Added to allow for skip of clock checks - required for Urgent Care Copays
; - perform outpatient edits
TO ; - ask 'bill to' date
EV ; - find event record, or select admission for linkage
PROC ; - okay to proceed?
ADDQ ; - display error, rebuild list, and quit
; IB*2.0*682 skip list rebuild and killing of some variables if we're coming from ^IBECEA4 - it's done in 'Cancel charge' code
ADDQ1
TYP() ; Return descriptive admission type.
TYPQ
VSTCHK()

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," ** Active Billing Clock ** # Inpt Days: ",IBCLDAY," ",$$INPT^IBECEAU(IBCLDAY)," 90 days: $",+IBCLDOL,!
  • Line Location: ADD+37
Function Call: WRITE
  • Prompt: !!," ** Patient is currently Catastrophically Disabled",!
  • Line Location: ADD+40
Function Call: WRITE
  • Prompt: !,"The patient has GMT Copayment Status."
  • Line Location: FR+13
Function Call: WRITE
  • Prompt: !,"Medicare Deductible reduced due to GMT Copayment Status ($",$J(IBMED,"",2),")."
  • Line Location: FR+17
Function Call: WRITE
  • Prompt: !,"Patient is LTC non-institutional exempt, Catastrophically Disabled"
  • Line Location: FR+20
Function Call: WRITE
  • Prompt: *7," ($",IBCHG,"/day)"
  • Line Location: FR+26
Function Call: WRITE
  • Prompt: " GMT Rate"
  • Condition for execution: IBGMTR
  • Line Location: FR+26
Function Call: WRITE
  • Prompt: !!,"This patient is 'Exempt' from Outpatient Visit charges on that date of service.",!
  • Line Location: UCPAY+8
Function Call: WRITE
  • Prompt: !!,"This day is already marked as a Free Day."
  • Line Location: UCPAY+45
Function Call: WRITE
  • Prompt: !!,"Unable to determine the per diem rate. Please check your rate table."
  • Line Location: UCPAY+50
Function Call: WRITE
  • Prompt: !!,"The patient's GMT Copayment status changed within the specified period!",!
  • Line Location: TO+7
Function Call: WRITE
  • Prompt: !!,"One or more of the days in this period is marked as a Free Day."
  • Line Location: TO+11
Function Call: WRITE
  • Prompt: !!," LTC Copayment charges cannot go from one month to another."
  • Line Location: TO+15
Function Call: WRITE
  • Prompt: !!,"Linked charge to ",$$TYP(),"admission on ",$$DAT1^IBOUTL($P(IBEVDA,"^",2))," ("
  • Line Location: EV+4
Function Call: WRITE
  • Prompt: $S($P(IBEVDA,"^",3)=9999999:"Still admitted)",1:"Discharged on "_$$DAT1^IBOUTL($P(IBEVDA,"^",3))_$S($P(IBEVDA,"^",3)>DT:" [pseudo])",1:")"))," ..."
  • Line Location: EV+5
Function Call: WRITE
  • Prompt: !!,"Building the new transaction... "
  • Line Location: PROC+15
Function Call: WRITE
  • Prompt: " done."
  • Line Location: PROC+16
Function Call: WRITE
  • Prompt: !,"Passing the charge directly to Accounts Receivable... "
  • Line Location: PROC+19
Function Call: WRITE
  • Prompt: !,"Rebuilding list of charges..."
  • Line Location: ADDQ+4
Function Call: WRITE
  • Prompt: !
  • Line Location: VSTCHK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: VSTCHK+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] GET1^DIQ
^IBE(350.9 - [#350.9] GET1^DIQ
^IBE(351 - [#351] GET1^DIQ
^IBE(352.5 - [#352.5] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call