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: IBOMTE1

Package: Integrated Billing

Routine: IBOMTE1


Information

IBOMTE1 ;ALB/CPM - ESTIMATE MEANS TEST CHARGES (PRINT);17-DEC-91

Source Information

Source file <IBOMTE1.m>

Entry Points

Name Comments DBIA/ICR reference
PER ; Calculate the total per diem charge and print total.
TOT
END ; Close device and quit
HDR ; Print header.
NOCOP ; Print 'No Copay' message.
NOPD ; Print 'No Per Diem' message.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "** Please note that this patient has never been Means Test billable. **",!
  • Line Location: IBOMTE1+12
Function Call: WRITE
  • Prompt: !,"Last date as MT billable: ",$$DAT1^IBOUTL(IBLASTC),!
  • Line Location: IBOMTE1+14
Function Call: WRITE
  • Prompt: "** THIS PATIENT HAS AN ACTIVE BILLING CLOCK **",!?6,"Clock date: ",$$DAT1^IBOUTL(IBCLDT)," Days of inpatient care within clock: ",$J(+IBCLDAY,2)
  • Line Location: IBOMTE1+21
Function Call: WRITE
  • Prompt: !?6,"Copayments made for current 90 days of inpatient care: ",$J("$"_$J(IBCLDOL,0,2),7),!
  • Line Location: IBOMTE1+22
Function Call: WRITE
  • Prompt: ?3,"(PATIENT IS CONTINUOUS SINCE 7/1/86)",!
  • Line Location: IBOMTE1+34
Function Call: WRITE
  • Prompt: !,"PER DIEM CHARGES for ",$S(IBNH:"NURSING HOME",1:"HOSPITAL")," CARE",!,IBLINE
  • Line Location: PER+2
Function Call: WRITE
  • Prompt: !,$$DAT1^IBOUTL(IBBDT),?12,$$DAT1^IBOUTL(IBEDT),?26,IBLOS," day",$E("s",IBLOS>1)," @ $",$J(IBRATE,"",2),"/day"
  • Line Location: PER+11
Function Call: WRITE
  • Prompt: " (GMT rate)"
  • Condition for execution: IBGMT
  • Line Location: PER+11
Function Call: WRITE
  • Prompt: ?61,X
  • Line Location: PER+12
Function Call: WRITE
  • Prompt: !?62,"----------",!
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: ?$S(IBGMT>1:23,1:35),"Total Estimated Charges"
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: " (GMT Rates)"
  • Condition for execution: IBGMT>1
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: ":"
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: ":"
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?IOM-$L(IBH)\2,IBH,!!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "Please note that this patient is a current inpatient.",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "The patient has GMT Copayment Status.",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "Charges will be estimated from ",$$DAT1^IBOUTL(IBBDT)," through ",$$DAT1^IBOUTL(IBEDT),"."
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: " (ONE-DAY ADMISSION)"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"** NO COPAYMENT CHARGES WILL BE APPLIED **",?67,"$0.00",!
  • Line Location: NOCOP+1
Function Call: WRITE
  • Prompt: !,"** NO PER DIEM CHARGES WILL BE APPLIED **",?67,"$0.00"
  • Line Location: NOPD+1
Info |  Source |  Entry Points |  Interaction Calls