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
Print Page as PDF
Routine: IBOTR4

Package: Integrated Billing

Routine: IBOTR4


Information

IBOTR4 ;ALB/CPM - INSURANCE PAYMENT TREND REPORT - OUTPUT (CON'T.) ; 31-DEC-91

Source Information

Source file <IBOTR4.m>

Entry Points

Name Comments DBIA/ICR reference
ADDFLD ; - Build descriptive title for BILL/CLAIMS field.
SUBTOT ; - Calculate and write sub-totals for each insurance company.
GTOT ; - Calculate and write grand totals for report.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?79,"----------- ---------- ----------- ----------- ------"
  • Line Location: SUBTOT+2
Function Call: WRITE
  • Prompt: !,"TOTAL NUMBER OF BILLS",$S(IBPRNT="M":" (AVG # DAYS)",1:""),": "
  • Line Location: SUBTOT+3
Function Call: WRITE
  • Prompt: +IBTI,$S(IBPRNT="M":" ("_$J($S(+IBTI:IBDS/+IBTI,1:0),0,1)_")",1:"")
  • Line Location: SUBTOT+4
Function Call: WRITE
  • Prompt: ?79,$J($P(IBTI,U,2),11,2),?91,$J($P(IBTI,U,3),10,2),$S(IBSORT="P":"*",1:"")
  • Line Location: SUBTOT+5
Function Call: WRITE
  • Prompt: ?102,$J($P(IBTI,U,2)-$P(IBTI,U,3),11,2),$S(IBSORT="O":"*",1:"")
  • Line Location: SUBTOT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: GTOT+2
Function Call: WRITE
  • Prompt: !?40,"GRAND TOTAL NUMBER OF BILLS:",?80,$J(+IBTT,11)
  • Line Location: GTOT+3
Function Call: WRITE
  • Prompt: !?40,"GRAND TOTAL AMOUNT BILLED:",?80,$J($P(IBTT,U,2),11,2)
  • Line Location: GTOT+4
Function Call: WRITE
  • Prompt: !?40,"GRAND TOTAL AMOUNT BILLED-UNDER 65:",?80,$J($P(IBTT,U,3),11,2)
  • Line Location: GTOT+5
Function Call: WRITE
  • Prompt: !?40,"GRAND TOTAL AMOUNT BILLED-65 & OVER:",?80,$J($P(IBTT,U,4),11,2)
  • Line Location: GTOT+6
Function Call: WRITE
  • Prompt: !?40,"GRAND TOTAL AMOUNT COLLECTED:",?80,$J($P(IBTT,U,5),11,2)
  • Line Location: GTOT+7
Function Call: WRITE
  • Prompt: !?40,"GRAND TOTAL AMOUNT COLLECTED-UNDER 65:",?80,$J($P(IBTT,U,6),11,2)
  • Line Location: GTOT+8
Function Call: WRITE
  • Prompt: !?40,"GRAND TOTAL AMOUNT COLLECTED-65 & OVER:",?80,$J($P(IBTT,U,7),11,2)
  • Line Location: GTOT+9
Function Call: WRITE
  • Prompt: !?40,"GRAND TOTAL AMOUNT UNPAID:",?80,$J($P(IBTT,U,2)-$P(IBTT,U,5),11,2)
  • Line Location: GTOT+10
Function Call: WRITE
  • Prompt: !?40,"GRAND TOTAL AMOUNT PENDING:",?80,$J($P(IBTT,U,8),11,2)
  • Line Location: GTOT+11
Info |  Source |  Entry Points |  Interaction Calls