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

Package: Integrated Billing

Routine: IBECEAU1


Information

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

Source Information

Source file <IBECEAU1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 3 DED^IBAUTL3  $$INPT^IBECEAU  $$DAT1^IBOUTL  
VA FileMan 2 ^DIE  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Integrated Billing 6 IBAMTV32  IBECEA21  IBECEA33  IBECEA4  IBECEAU  IBECEAU6  

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

External References

Name Field # of Occurrence
^DIE CLINP+10, CLAMT+13
^DIR CLINP+8, CLAMT+11
DED^IBAUTL3 CLAMT+7
$$INPT^IBECEAU CLAMT+11
$$DAT1^IBOUTL CLDSP+6

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
Routine Call
  • DIE
  • Line Location:
    • CLINP+10
    • CLAMT+13
Routine Call
  • DIR
  • Line Location:
    • CLINP+8
    • CLAMT+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(351 - [#351] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(351 - [#351] CLSTR+10

Label References

Name Line Occurrences
CLAMTQ CLAMT+5, CLAMT+9, CLAMT+12
CLDSPQ CLDSP+3
CLINPQ CLINP+9
CLINPQ1 CLINP+5, CLINP+7
CLSTRQ CLSTR+9, CLSTR+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMT CLAMT~, CLAMT+5, CLAMT+8
BEG CLINP~, CLINP+5, CLINP+6, CLINP+8, CLINPQ
DA CLINP+4~, CLINP+10*, CLAMT+4~, CLAMT+13*
DATE CLSTR~, CLSTR+9, CLSTR+10
DAYS CLINP+4~, CLINP+6*, CLINP+7, CLINP+8, CLINP+10, CLINPQ, CLAMT+4~, CLAMT+6*, CLAMT+11
DFN CLSTR~, CLSTR+9, CLSTR+10
DIE CLINP+4~, CLINP+10*, CLAMT+4~, CLAMT+13*
DIF CLINP~, CLINP+5, CLINP+6
DIR CLINP+4~, CLAMT+4~
DIR("?" CLINP+8*, CLAMT+11*
DIR("A" CLINP+8*, CLAMT+11*
DIR(0 CLINP+8*, CLAMT+11*
DIRUT CLINP+4~, CLINP+9, CLAMT+4~, CLAMT+12
DR CLINP+4~, CLINP+10*, CLAMT+4~, CLAMT+13*
DTOUT CLINP+4~, CLAMT+4~
DUOUT CLINP+4~, CLINP+9, CLAMT+4~, CLAMT+12
DUZ CLINP+10, CLAMT+13
I CLINP+4~, CLINPQ*
IBCLDA CLSTR+8*, CLSTR+10*, CLINP~, CLINP+5, CLINP+10, CLAMT~, CLAMT+5, CLAMT+13
IBCLDT CLAMT+4~, CLAMT+7*
IBCLST CLSTR+8!, CLSTR+10*
IBF CLINP+4~, CLINPQ*, CLINPQ+1
IBMED CLAMT+4~, CLAMT+10
NAM CLDSP~, CLDSP+3, CLDSP+4
NEWAMT CLAMT+4~, CLAMT+8*, CLAMT+9, CLAMT+10, CLAMT+11, CLAMT+13
PTR CLAMT+4~, CLAMT+6*, CLAMT+8, CLAMT+11, CLAMT+13
STR CLAMT~, CLAMT+5, CLAMT+6, CLAMT+7, CLAMT+8, CLAMT+11
X CLSTR+7~, CLSTR+10*, CLDSP~, CLDSP+3, CLDSP+6, CLDSP+7, CLDSP+9, CLDSP+10
Y CLSTR+7~, CLSTR+10*, CLINP+9, CLAMT+12
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