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

Package: Integrated Billing

Routine: IBECEAU1


Information

IBECEAU1 ;ALB/CPM - Cancel/Edit/Add... Clock Utilities ; 12-MAR-93

Source Information

Source file <IBECEAU1.m>

Entry Points

Name Comments DBIA/ICR reference
CLSTR(DFN,DATE) ; Find the billing clock in effect on DATE.
; Input: DFN -- Pointer to the patient in file #2
; DATE -- The date which is covered by the clock
; Output: IBCLDA -- Pointer to the clock in file #351
; (or null if there is none)
; IBCLST -- Zeroth node of clock pointed to by
; IBCLDA [OPTIONAL]
CLSTRQ
CLDSP(X,NAM) ; Display Billing Clock data for NAM.
; Input: X -- Zeroth node of clock in file #351
; NAM -- Patient name^short id^long id
CLDSPQ
CLINP(BEG,DIF,IBCLDA) ; Update Billing Clock Inpatient Days
; Input: BEG -- Existing number of inpatient days
; DIF -- Days to add to clock (could be negative)
; IBCLDA -- Pointer to clock in file #351
CLINPQ
CLINPQ1
CLAMT(STR,AMT,IBCLDA) ; Update Billing Clock Medicare Deductible co-payments
; Input: STR -- Zeroth node of clock in file #351
; AMT -- Dollar Amt to add to clock (could be negative)
; IBCLDA -- Pointer to clock in file #351
CLAMTQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Means Test Billing Clock information for ",$P(NAM,"^")," (",$P(NAM,"^",3),")"
  • Line Location: CLDSP+4
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: CLDSP+5
Function Call: WRITE
  • Prompt: !?2,"Clock Start Date: ",$$DAT1^IBOUTL($P(X,"^",3)),?42,"Clock End Date: ",$S($P(X,"^",10):$$DAT1^IBOUTL($P(X,"^",10)),1:"N/A")
  • Line Location: CLDSP+6
Function Call: WRITE
  • Prompt: !?6,"Clock Status: ",$S($P(X,"^",4)=1:"CURRENT",$P(X,"^",4)=2:"CLOSED",1:"UNKNOWN"),?42,"Inpatient Days: ",+$P(X,"^",9)
  • Line Location: CLDSP+7
Function Call: WRITE
  • Prompt: !!?2,"Medicare Deductible Co-payments:"
  • Line Location: CLDSP+8
Function Call: WRITE
  • Prompt: !?15,"1st 90 days: $",+$P(X,"^",5),?45,"3rd 90 days: $",+$P(X,"^",7)
  • Line Location: CLDSP+9
Function Call: WRITE
  • Prompt: !?15,"2nd 90 days: $",+$P(X,"^",6),?45,"4th 90 days: $",+$P(X,"^",8)
  • Line Location: CLDSP+10
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: CLDSP+11
Function Call: WRITE
  • Prompt: !!,"Can't update the clock to reflect ",DAYS," inpatient days.",!,"Please review this patient's clock and use the Clock Maintenance option",!,"to make any changes, if necessary."
  • Line Location: CLINP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINP+8
Function Call: WRITE
  • Prompt: !,"The billing clock has not been updated."
  • Line Location: CLINP+9
Function Call: WRITE
  • Prompt: !,"The clock has been updated."
  • Line Location: CLINP+11
Function Call: WRITE
  • Prompt: !!,*7," ** Please review to see if this patient requires a new copay charge. **"
  • Line Location: CLINPQ+1
Function Call: WRITE
  • Prompt: !!,"Can't update the clock to reflect a copayment of -$",-NEWAMT,".",!,"Please review this patient's clock and use the Clock Maintenance option",!,"to make any changes, if necessary."
  • Line Location: CLAMT+9
Function Call: WRITE
  • Prompt: !!,"Note that the effective Medicare Deductible for this billing clock is $",IBMED,".",!,"Please note that $",NEWAMT," is beyond this limit."
  • Line Location: CLAMT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CLAMT+11
Function Call: WRITE
  • Prompt: !,"The billing clock has not been updated."
  • Line Location: CLAMT+12
Function Call: WRITE
  • Prompt: !,"The clock has been updated."
  • Line Location: CLAMT+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(351 - [#351] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call