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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBOTR3

Package: Integrated Billing

Routine: IBOTR3


Information

IBOTR3 ;ALB/CPM - INSURANCE PAYMENT TREND REPORT - OUTPUT ;5-JUN-91

Source Information

Source file <IBOTR3.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 4 E^IBJDE  $$BILLREJ^IBJTU6  (ADDFLD,GTOT,SUBTOT)^IBOTR4  $$STOP^IBOUTL  
VA FileMan 3 ^%DTC  ($$GET1,D)^DIQ  ^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: 2

Package Total Caller Graph
Integrated Billing 2 IBOTR2  IBOTR4  

Entry Points

Name Comments DBIA/ICR reference
EN(IBDIV) ; - Entry point from IBOTR2.
IBX
END
EOR ; end of report
INS
BILLNO
LOOP
DETAIL
SUBTOT
GNDTOT
HDR
HDL
EXCHDR
EXHDL
EXOUT
DATE(IBX)
PAUSE
INSADD
INSADQ

External References

Name Field # of Occurrence
^%DTC DETAIL+13, EXOUT+7
$$GET1^DIQ LOOP+2, LOOP+4
D^DIQ EN+11
^DIR PAUSE+2
E^IBJDE EN+7, INS+10
$$BILLREJ^IBJTU6 DETAIL+8, EXOUT+3
ADDFLD^IBOTR4 EN+12
GTOT^IBOTR4 INS+12, LOOP+10
SUBTOT^IBOTR4 LOOP+9
$$STOP^IBOUTL HDL+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," NO INFORMATION MATCHES SELECTION CRITERIA."
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,IBLEN_"END OF REPORT"
  • Line Location: EOR+2
Function Call: WRITE
  • Prompt: !,IBRJFLAG,$P(IBBN,"@@",2),?13,$P(IBBN,"@@"),?35,$$DATE($P(IBD,U,2))
  • Line Location: DETAIL+9
Function Call: WRITE
  • Prompt: ?44,$$DATE($P(IBD,U,3)),?54,$$DATE($P(IBD,U,4))
  • Line Location: DETAIL+11
Function Call: WRITE
  • Prompt: ?64,$S($P(IBD,U,5):$$DATE($P(IBD,U,5)),1:$P(IBD,U,5))
  • Line Location: DETAIL+12
Function Call: WRITE
  • Prompt: ?74,$J(X,4),?79,$J($P(IBD,U,6),11,2),?91,$J($P(IBD,U,7),10,2)
  • Line Location: DETAIL+14
Function Call: WRITE
  • Prompt: ?102,$J($P(IBD,U,6)-$P(IBD,U,7),11,2),?114,$J(IBPEN,11,2)
  • Line Location: DETAIL+15
Function Call: WRITE
  • Prompt: ?126,$J($S(+$P(IBD,U,6)=0:0,1:$P(IBD,U,7)/$P(IBD,U,6)*100),6,2)
  • Line Location: DETAIL+16
Function Call: WRITE
  • Prompt: @IOF,IBRTN," PAYMENT TREND REPORT - "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $S(IBX="I":"INPATIENT",IBX="O":"OUTPATIENT",1:"COMBINED INPATIENT AND OUTPATIENT")," BILLING"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?109,IBTDT," PAGE ",$J(IBPAG,3),!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "For: ",$P($G(^DG(40.8,IBDIV,0)),U)," - "
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: IBDFN,": ",$$DATE(IBBDT)," - ",$$DATE(IBEDT)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?82,"Note: '*' after the Bill No. denotes a CLOSED bill"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"BILL",?13,"PATIENT",?55,"DATE",?64,"DATE BILL",?75,"#"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?83,"AMOUNT",?93,"AMOUNT",?106,"AMOUNT",?117,"AMOUNT",?127,"PERC"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"NUMBER",?13,"NAME (AGE)",?35,"BILL FROM - TO",?54,"PRINTED"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: ?65,"CLOSED",?74,"DAYS",?83,"BILLED",?92,"COLLECTED",?106,"UNPAID"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?117,"PENDING",?127,"COLL"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: HDL+0
Function Call: WRITE
  • Prompt: !?56,"M A I N R E P O R T"
  • Line Location: HDL+1
Function Call: WRITE
  • Prompt: !?55,"G R A N D T O T A L S",!
  • Line Location: HDL+2
Function Call: WRITE
  • Prompt: !?49,"S U M M A R Y S T A T I S T I C S"
  • Line Location: HDL+3
Function Call: READ
  • Prompt: T E D B Y A M O U N T "
  • Variable: $S(IBSORT="O"
  • Timeout: "O
  • Line Location: HDL+4
Function Call: WRITE
  • Prompt: !?30,"S O R T E D B Y A M O U N T ",$S(IBSORT="O":"O W E",1:"P A I")," D - H I G H E S T T O L O W E S T"
  • Line Location: HDL+4
Function Call: WRITE
  • Prompt: !,IBRTN," PAYMENT TREND REPORT"
  • Line Location: EXCHDR+1
Function Call: WRITE
  • Prompt: " - ",$S(IBX="I":"INPATIENT",IBX="O":"OUTPATIENT",1:"COMBINED INPATIENT AND OUTPATIENT")," BILLING"
  • Line Location: EXCHDR+3
Function Call: WRITE
  • Prompt: !,"For: ",$P($G(^DG(40.8,IBDIV,0)),U)
  • Line Location: EXCHDR+4
Function Call: WRITE
  • Prompt: !,IBDFN,": ",$$DATE(IBBDT)," - ",$$DATE(IBEDT)
  • Line Location: EXCHDR+5
Function Call: WRITE
  • Prompt: !,"Note: '*' after the Bill No. denotes a CLOSED bill"
  • Line Location: EXCHDR+6
Function Call: WRITE
  • Prompt: !,"M A I N R E P O R T"
  • Line Location: EXCHDR+7
Function Call: WRITE
  • Prompt: !,"G R A N D T O T A L S",!
  • Line Location: EXCHDR+8
Function Call: WRITE
  • Prompt: !,"S U M M A R Y S T A T I S T I C S"
  • Line Location: EXCHDR+9
Function Call: READ
  • Prompt: T E D B Y A M O U N T "
  • Variable: $S(IBSORT="O"
  • Timeout: "O
  • Line Location: EXCHDR+10
Function Call: WRITE
  • Prompt: !,"S O R T E D B Y A M O U N T ",$S(IBSORT="O":"O W E",1:"P A I")," D - H I G H E S T T O L O W E S T"
  • Line Location: EXCHDR+10
Function Call: WRITE
  • Prompt: !,"INSURANCE NAME^GROUP #^BILL NUMBER^PATIENT NAME (AGE)^BILL FROM^DATE BILL TO^DATE PRINTED^DATE BILL CLOSED^# DAYS^AMOUNT BILLED^AMOUNT COLLECTED^AMOUNT UNPAID^AMOUNT PENDING^PERC COLL"
  • Line Location: EXCHDR+12
Function Call: WRITE
  • Prompt: !,$P(INSC,"~~",1)_"/"_$P(INSC,"~~",2)_U_$G(IBGRPD)_U_IBRJFLAG_$P(IBBN,"@@",2)_U_$P(IBBN,"@@")_U_$$DATE($P(IBD,U,2))_U_$$DATE($P(IBD,U,3))_U_$$DATE($P(IBD,U,4))
  • Line Location: EXOUT+5
Function Call: WRITE
  • Prompt: U_$S($P(IBD,U,5):$$DATE($P(IBD,U,5)),1:$P(IBD,U,5))
  • Line Location: EXOUT+6
Function Call: WRITE
  • Prompt: U_$J(X,4)_U_$J($P(IBD,U,6),11,2)_U_$J($P(IBD,U,7),10,2)
  • Line Location: EXOUT+8
Function Call: WRITE
  • Prompt: U_$J($P(IBD,U,6)-$P(IBD,U,7),11,2)_U_$J(IBPEN,11,2)
  • Line Location: EXOUT+9
Function Call: WRITE
  • Prompt: U_$J($S(+$P(IBD,U,6)=0:0,1:$P(IBD,U,7)/$P(IBD,U,6)*100),6,2)
  • Line Location: EXOUT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !!?16,"INSURANCE CARRIER: ",IBINS1,"/",IBPTIN
  • Line Location: INSADD+7
Function Call: WRITE
  • Prompt: $P(D,U,4)
  • Line Location: INSADD+15
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $P(D,U,4)]""&($P(D,U,5)]"")
  • Line Location: INSADD+15
Function Call: WRITE
  • Prompt: $P($G(^DIC(5,+$P(D,U,5),0)),U)
  • Line Location: INSADD+16
Function Call: WRITE
  • Prompt: $P(D,U,6)
  • Line Location: INSADD+18
Function Call: WRITE
  • Prompt: $J("",8),"Phone: ",PH
  • Condition for execution: PH]""
  • Line Location: INSADD+18
Function Call: WRITE
  • Prompt: !
  • Line Location: INSADQ+0
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.3 - [#355.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] HDR+4, EXCHDR+4
^DIC(36 - [#36] INSADD+10
^DIC(5 - [#5] INSADD+16
^TMP($J EN+5, EN+14, IBX, INS+2, INS+4, LOOP+1, LOOP+6

Label References

Name Line Occurrences
$$DATE DETAIL+9, DETAIL+11, DETAIL+12, HDR+5, EXCHDR+5, EXOUT+5, EXOUT+6
BILLNO INS+2, INS+4
DETAIL LOOP+6
END EN+5, EN+14
EOR EN+5, EN+14, IBX+6
EXCHDR EN+18, IBX+2
EXHDL EXCHDR+11
EXOUT DETAIL+2
GNDTOT DETAIL+3
HDL HDR+7
HDR EN+19, IBX+3, BILLNO+3, DETAIL+4
IBX EN+9
INS IBX+4
INSADD BILLNO+4, BILLNO+5, DETAIL+4
INSADQ INSADD+9, INSADD+10
LOOP BILLNO+1, BILLNO+2
PAUSE EN+14, IBX+6, BILLNO+3, DETAIL+4
SUBTOT DETAIL+3

Naked Globals

Name Field # of Occurrence
^( LOOP+6, INSADD+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D INSADD+2~, INSADD+10*, INSADD+11, INSADD+12, INSADD+13, INSADD+14, INSADD+15, INSADD+16, INSADD+17, INSADD+18
DIR PAUSE+2!
DIR(0 PAUSE+2*
DIRUT PAUSE+3!
DT EN+11, DETAIL+13, EXOUT+7
DTOUT PAUSE+3!
DUOUT PAUSE+3!
>> IBAF EN+12, HDR+7, EXCHDR+11
IBAFT END!, HDR+7, EXCHDR+11
IBAMT END+1!, INS+4*
>> IBBDT HDR+5, EXCHDR+5
IBBLNO END+2!, DETAIL+7*, DETAIL+8, EXOUT+2*, EXOUT+3
IBBN END!, LOOP+6*, DETAIL+1, DETAIL+7, DETAIL+9, GNDTOT+2, EXOUT+2, EXOUT+5
>> IBBRN EN+15
>> IBBRT EN+15
IBCALC EN+14*, IBX+6*, END!, BILLNO+3*, DETAIL+4*, PAUSE+1
>> IBCANC GNDTOT+5
IBD END!, LOOP+6*, DETAIL+1, DETAIL+9, DETAIL+11, DETAIL+12, DETAIL+13, DETAIL+14, DETAIL+15, DETAIL+16
, SUBTOT+1, SUBTOT+2, GNDTOT+1, GNDTOT+2, GNDTOT+3, GNDTOT+4, GNDTOT+5, EXOUT+5, EXOUT+6, EXOUT+7
, EXOUT+8, EXOUT+9, EXOUT+10
>> IBDFN HDR+5, EXCHDR+5
IBDIV EN~, EN+5, EN+14, IBX, INS+2, INS+4, LOOP+1, LOOP+6, HDR+4, EXCHDR+4
IBDS END!, BILLNO+2*, BILLNO+4*, DETAIL+13*, EXOUT+7*
>> IBEDT HDR+5, EXCHDR+5
IBG IBX+1, END+1!, INS+12, BILLNO+5, LOOP+10
IBGRP END+1!, LOOP+1*, LOOP+2, LOOP+4, LOOP+6
IBGRPD END+2!, LOOP+2*, EXOUT+5
IBI END+1!, PAUSE+1*
IBINS END!, INS+2*, INS+4*, BILLNO+2, LOOP+1, LOOP+6, INSADD+5, INSADD+9
IBINS1 INSADD+2~, INSADD+5*, INSADD+6*, INSADD+7
IBLEN EOR+1~*, EOR+2
IBLINE EN+11*, END!, HDL
IBOUT EN+2*, EN+18, EN+19, IBX+2, IBX+3, END+1!, EOR+1, INS+12, BILLNO+2, LOOP+2
, LOOP+4, LOOP+7, LOOP+8, DETAIL+2
IBPAG EN+11*, END!, HDR+1*, HDR+3
IBPEN DETAIL+1~*, DETAIL+15, SUBTOT+2, GNDTOT+4, EXOUT+9
IBPERC END+1!
>> IBPRNT IBX+1, BILLNO+4, LOOP+4, LOOP+9, DETAIL+3, HDR+6, HDR+7, HDL+1, HDL+2, HDL+3
, EXCHDR+6, EXCHDR+7, EXCHDR+8, EXCHDR+9, EXCHDR+11
IBPTIN INSADD+2~, INSADD+6*, INSADD+7
>> IBQUIT IBX, IBX+3, IBX+6, INS+2, INS+4, INS+7, INS+12, BILLNO+3, LOOP+1, LOOP+6
, LOOP+8, DETAIL+4, HDL+5*, PAUSE+3*
IBRJFLAG END+2!, DETAIL+8*, DETAIL+9, EXOUT+3*, EXOUT+5
>> IBRTN HDR+1, EXCHDR+1
>> IBSORT INS+1, INS+3, HDL+4, EXCHDR+10
IBTDT EN+11*, END!, HDR+3
IBTI END!, BILLNO+4*, SUBTOT+1*, SUBTOT+2*
IBTT IBX+1*, END!, INS+8, INS+9, BILLNO+5*, GNDTOT+1*, GNDTOT+2*, GNDTOT+3*, GNDTOT+4*, GNDTOT+5*
IBTT( EN+6*, INS+9*
IBUNPD EN+6*, END+1!, INS+8*
IBX EN+15*, IBX*, END!, INS+2, INS+4, LOOP+1, LOOP+6, HDR+2, EXCHDR+3, DATE~*
>> IBXTRACT EN+5, EN+9, IBX+3, INS+7, BILLNO+1
IEN INSADD+2~, INSADD+9*, INSADD+10
INSC END+2!, BILLNO+2*, EXOUT+5
IOF HDR+1
IOM EN+11
IOSL BILLNO+3, DETAIL+4, PAUSE+1
IOST PAUSE
PH INSADD+2~, INSADD+10*, INSADD+18
STOP END+1!
U EN+2, INS+8, INS+9, DETAIL+1, DETAIL+9, DETAIL+11, DETAIL+12, DETAIL+13, DETAIL+14, DETAIL+15
, DETAIL+16, SUBTOT+1, SUBTOT+2, GNDTOT+1, GNDTOT+2, GNDTOT+3, GNDTOT+4, GNDTOT+5, HDR+4, EXCHDR+4
, EXOUT+5, EXOUT+6, EXOUT+7, EXOUT+8, EXOUT+9, EXOUT+10, INSADD+10, INSADD+11, INSADD+12, INSADD+13
, INSADD+14, INSADD+15, INSADD+16, INSADD+17, INSADD+18
X EN+6*, END+1!, INS+9*, DETAIL+13, DETAIL+14, EXOUT+7, EXOUT+8
X1 END+1!, DETAIL+13*, EXOUT+7*
X2 END+1!, DETAIL+13*, EXOUT+7*
>> Y EN+11*
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 |  Naked Globals |  Local Variables  | All