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
Print Page as PDF
Routine: IBECEA21

Package: Integrated Billing

Routine: IBECEA21


Information

IBECEA21 ;ALB/CPM-Cancel/Edit/Add... Edit Prompts;19-APR-93

Source Information

Source file <IBECEA21.m>

Entry Points

Name Comments DBIA/ICR reference
FR
TO
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " $",IBCHG
  • Line Location: IBECEA21+20
Function Call: WRITE
  • Prompt: !,"This equals the billed amount - this charge cannot be edited."
  • Line Location: IBECEA21+21
Function Call: WRITE
  • Prompt: !,"This charge is ready to be billed."
  • Line Location: IBECEA21+22
Function Call: WRITE
  • Prompt: !!,"No change was made!"
  • Line Location: IBECEA21+38
Function Call: WRITE
  • Prompt: !!,"I cannot find a billing clock that was effective on ",$$DAT1^IBOUTL(IBFRP),"!",!,"Please adjust this patient's billing clocks before editing this charge."
  • Line Location: IBECEA21+46
Function Call: WRITE
  • Prompt: !,"Medicare Deductible reduced due to GMT Copayment Status."
  • Line Location: IBECEA21+49
Function Call: WRITE
  • Prompt: !!," ** ",$S($P(IBCLST,"^",4)=1:"Active",1:"Closed")," Billing Clock **"
  • Line Location: IBECEA21+53
Function Call: WRITE
  • Prompt: !?2,"Begin Date: ",$$DAT1^IBOUTL(IBCLDT)," # Inpt Days: ",IBCLDAY," ",$$INPT^IBECEAU(IBCLDAY)," 90 days: $",IBCLDOL,!
  • Line Location: IBECEA21+54
Function Call: WRITE
  • Prompt: !!,"The 'Bill From' date cannot preceed the Billing Clock Begin Date.",!
  • Line Location: FR+2
Function Call: WRITE
  • Prompt: !!,"Unable to determine the per diem rate. Please check your rate table."
  • Line Location: FR+4
Function Call: WRITE
  • Prompt: *7," ($",IBCHG,"/day)"
  • Line Location: FR+5
Function Call: WRITE
  • Prompt: " GMT Rate"
  • Condition for execution: IBGMTR
  • Line Location: FR+5
Function Call: WRITE
  • Prompt: !!,"No change was made!"
  • Line Location: FR+6
Function Call: WRITE
  • Prompt: !!,"The 'Bill To' date cannot exceed the Billing Clock End Date (",$$DAT1^IBOUTL($P(IBCLST,"^",10)),")."
  • Line Location: TO+2
Function Call: WRITE
  • Prompt: !!,"The patient changed GMT Copayment status during the specified period!",!
  • Line Location: TO+5
Function Call: WRITE
  • Prompt: !!,"No change was made!"
  • Line Location: TO+8
Function Call: WRITE
  • Prompt: !!,"New charge to be billed"
  • Line Location: TO+10
Function Call: WRITE
  • Prompt: "(GMT Rate)"
  • Condition for execution: IBGMTR
  • Line Location: TO+10
Function Call: WRITE
  • Prompt: ": $",$J(IBCHG,"",2),!
  • Line Location: TO+10
Function Call: WRITE
  • Prompt: !,"The patient has GMT Copayment Status! GMT rate must be applied.",!
  • Line Location: TO+15
Function Call: WRITE
  • Prompt: !!,"No change was made!"
  • Line Location: TO+17
Info |  Source |  Entry Points |  Interaction Calls