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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 6 $$REDUCE^IBAGMT  (CLOCK,DED)^IBAUTL3  ($$CONT,$$DIEM)^IBAUTL5  $$PT^IBEFUNC  (,COHDR)^IBOMTE2  ($$DAT1,PAUSE)^IBOUTL  
Kernel 1 ^%ZISC  
Registration 1 $$BILST^DGMTUB  
VA FileMan 1 (,COMMA,H,YMD)^%DTC  

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

Package Total Caller Graph
Integrated Billing 2 IBOMTE  IBOMTE2  

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.

External References

Name Field # of Occurrence
^%DTC IBOMTE1+20, IBOMTE1+28, PER+5
COMMA^%DTC PER+12, TOT+1
H^%DTC IBOMTE1+29, IBOMTE1+30
YMD^%DTC PER+3
^%ZISC END+5
$$BILST^DGMTUB IBOMTE1+10
$$REDUCE^IBAGMT IBOMTE1+24, PER+8
CLOCK^IBAUTL3 IBOMTE1+18
DED^IBAUTL3 IBOMTE1+23
$$CONT^IBAUTL5 IBOMTE1+34
$$DIEM^IBAUTL5 PER+3
$$PT^IBEFUNC IBOMTE1+7
^IBOMTE2 IBOMTE1+37
COHDR^IBOMTE2 IBOMTE1+34
$$DAT1^IBOUTL IBOMTE1+14, IBOMTE1+21, PER+11, HDR+6
PAUSE^IBOUTL PER+1, TOT+2

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399.1 - [#399.1] IBOMTE1+31

Label References

Name Line Occurrences
END IBOMTE1+37, PER+1
HDR IBOMTE1+7, PER+1
NOCOP IBOMTE1+34
NOPD PER+4, PER+6
PER IBOMTE1+34
TOT PER+4, PER+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H IBOMTE1+29, IBOMTE1+30, PER+3*, END+4!
>> DFN IBOMTE1+7*, IBOMTE1+10, IBOMTE1+34
DT IBOMTE1+11, IBOMTE1+13
IBA IBOMTE1+27!
IBATYP END+4!
IBBDH IBOMTE1+29*, END+4!
>> IBBDT IBOMTE1+11, IBOMTE1+13, IBOMTE1+20, IBOMTE1+23, IBOMTE1+28, IBOMTE1+29, PER+3, PER+5*, PER+11, HDR+6
, HDR+7
>> IBBS IBOMTE1+31
IBCHARG END+4!
IBCHG PER+9*, PER+10, PER+12, END+4!
IBCHGT IBOMTE1+27*, END+4!
IBCLCT IBOMTE1+20*, IBOMTE1+23*, END+4!
IBCLDA IBOMTE1+19, IBOMTE1+20*, IBOMTE1+23, END+4!
IBCLDAY IBOMTE1+21, IBOMTE1+23*, END+4!
IBCLDOL IBOMTE1+22, IBOMTE1+23*, END+4!
IBCLDT IBOMTE1+20, IBOMTE1+21, IBOMTE1+23*, END+4!
IBDESC END+4!
>> IBDFN IBOMTE1+7
IBDIEM PER+3*, PER+4, PER+5, END+4!
IBDT END+4!
IBEDH IBOMTE1+30*, PER+3, END+4!
>> IBEDT IBOMTE1+28, IBOMTE1+30, IBOMTE1+34, PER+3*, PER+4, PER+5, PER+11, HDR+6, HDR+7
>> IBEVDA IBOMTE1+28, HDR+4, HDR+7
IBFCTR IBOMTE1+29*, END+4!
IBGMT IBOMTE1+24, PER+8, PER+11, TOT+1, END+4!, HDR+1, HDR+5
IBH END+4!, HDR+1*, HDR+3
IBI END+4!
IBJ END+4!
IBLASTC IBOMTE1+10*, IBOMTE1+11, IBOMTE1+12, IBOMTE1+14, END+4!
IBLINE IBOMTE1+6*, PER+2, END+4!
IBLOS IBOMTE1+28*, PER+5*, PER+6, PER+9, PER+11, END+4!
IBMAX END+4!
IBMED IBOMTE1+24*, END+4!
IBNH IBOMTE1+31*, PER+2, PER+7, END+4!
IBPAG IBOMTE1+6*, END+4!, HDR+1*, HDR+2
IBPT IBOMTE1+7*, END+4!, HDR+1
IBQUIT IBOMTE1+6*, IBOMTE1+37, PER+1, END+4!
IBRATE PER+7*, PER+8*, PER+9, PER+11, END+4!
IBTOT IBOMTE1+27*, PER+10*, TOT+1, END+4!
IOF HDR+2
IOM IBOMTE1+6, HDR+3
IOSL PER+1
IOST HDR+2
>> X IBOMTE1+20, IBOMTE1+28, IBOMTE1+29*, IBOMTE1+30*, PER+3*, PER+5, PER+12*, TOT+1*
>> X1 IBOMTE1+20*, IBOMTE1+28*, PER+5*
>> X2 IBOMTE1+20*, IBOMTE1+28*, PER+5*, PER+12*, TOT+1*
>> X3 PER+12*, TOT+1*
>> ZTQUEUED END+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All