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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBOMTE

Package: Integrated Billing

Routine: IBOMTE


Information

IBOMTE ;ALB/CPM-ESTIMATE MEANS TEST CHARGES ;17-DEC-91

Source Information

Source file <IBOMTE.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Integrated Billing 6 $$ISGMTPT^IBAGMT  SERV^IBAUTL2  EVFIND^IBAUTL3  $$SECT^IBAUTL5  ^IBOMTE1  $$DAT1^IBOUTL  
VA FileMan 3 ^%DT  C^%DTC  ^DIC  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
Registration 1 IN5^VADPT  

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

Package Total Caller Graph
Integrated Billing 1 IB MT ESTIMATOR  

Entry Points

Name Comments DBIA/ICR reference
START ;
BDT
EDT
BED
END

External References

Name Field # of Occurrence
^%DT BDT, EDT+1
C^%DTC START+19
^%ZIS BED+5
HOME^%ZIS IBOMTE+3, BED+6
^%ZTLOAD BED+6
^DIC START+10, EDT+10
$$ISGMTPT^IBAGMT START+12
SERV^IBAUTL2 START+4
EVFIND^IBAUTL3 START+15
$$SECT^IBAUTL5 BED
^IBOMTE1 BED+10
$$DAT1^IBOUTL START+17, START+18
IN5^VADPT EDT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Medical Administration Service is not defined in your IB Site Parameter File."
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"Please contact your System Manager, as this impacts on all aspects of",!,"Means Test billing.",!!
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !!,"The patient has Geographic Means Test Copayment Status.",!
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !!,"Please note that this patient was admitted on ",$$DAT1^IBOUTL(IBEVDT)," and Means Test charges"
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !,"have been calculated through ",$$DAT1^IBOUTL(IBEVCAL),".",!
  • Line Location: START+18
Function Call: WRITE
  • Prompt: !!,"Past admissions cannot be accurately estimated.",!
  • Line Location: BDT+1
Function Call: READ
  • Formatting: !
  • Prompt: "Proposed DISCHARGE Date: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: EDT+0
Function Call: WRITE
  • Prompt: *7," ??",!,"The DISCHARGE Date must follow the ADMISSION Date."
  • Line Location: EDT+2
Function Call: WRITE
  • Prompt: !!,"A 'billable' bedsection is not associated with this ",$S(IBEVDA:"Admission",1:"Treating Specialty"),"."
  • Line Location: BED+1
Function Call: WRITE
  • Prompt: !,"Means Test charges ",$S(IBEVDA:"are not being",1:"would not be")," billed for this admission.",!
  • Line Location: BED+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BED+6
Function Call: WRITE
  • Prompt: !
  • Line Location: BED+11
Routine Call
  • DIC
  • Line Location:
    • START+10
    • EDT+10
Routine Call
  • %ZIS
  • Line Location:
    • BED+5
Routine Call
  • %ZIS
  • Line Location:
    • IBOMTE+3
    • BED+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DIC(45.7 - [#45.7] Classic Fileman Calls

Label References

Name Line Occurrences
BDT BDT+1, EDT+2
BED EDT+7
EDT START+16, EDT+1, EDT+2
END START+4, START+10, BDT, EDT+1, EDT+10, BED, BED+5, BED+6, BED+11
START BED+6, BED+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BDT*!, EDT*, END!
%DT("A" BDT*
>> %ZIS BED+5*
DFN START+10*, START+12, END!
DIC START+10*!, EDT+9*, EDT+10!
DIC("A" EDT+9*
DIC(0 START+10*, EDT+9*
DPTNOFZY START+9*, START+11!
DT START+12, BDT+1
DTIME IBOMTE+3*, EDT
IBADMDT START+15*, END!
IBBDT START+19*, BDT*, BDT+1, EDT, EDT+2, END!
IBBS BED*, END!
IBDFN START+10*, END!
IBEDT EDT+1*, END!
IBEVCAL START+18, START+19, EDT+7, END!
IBEVDA START+16, EDT+2, EDT+7, BED+1, BED+2, END!
IBEVDT START+17, END!
IBGMT START+12*, START+13, END!
IBRATE END!
IBSERV END!
IBY START+4*, END!
IO BED+7
IO("Q" BED+6!
>> POP BED+5
VAERR END!
VAIP END!
VAIP("D" EDT+7*
VAIP(8 EDT+7
X START+19, EDT*, EDT+1, END!
X1 START+19*, END!
X2 START+19*, END!
X3 END!
Y START+10, BDT, EDT+1, EDT+2, EDT+7*, EDT+10, BED, END!
>> ZTDESC BED+6*
>> ZTRTN BED+6*
>> ZTSAVE("IB*" BED+6*
ZTSK END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All