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

Package: Integrated Billing

Routine: IBARXEC5


Information

IBARXEC5 ;ALB/AAS - RX COPAY EXEMPTION CONVERSION REPORT PRINT ; 14-JAN-93

Source Information

Source file <IBARXEC5.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; -- Print report
ONE ; -- print one line
HDR ; -- print header
SUB ; -- write sub totals
SUM ; -- print final summary
ERR ; -- see if any errors

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Charges Canceled due to Income Exemption in date range."
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: $E(IBNAM,1,20),?22,$P(X2,"^",2)
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: ?36,ERR,!
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: ?36,$$DAT1^IBOUTL($P(O1,"^",2))
  • Line Location: ONE+8
Function Call: WRITE
  • Prompt: $J($P($P(O,"^",8),"-"),9),$S(+Y:"/"_Y,1:"")
  • Line Location: ONE+11
Function Call: WRITE
  • Prompt: ?57,$$DAT1^IBOUTL($P(N1,"^",2)),?68,+N,?81,$P(N,"^",11),?97,"$",$P(N,"^",7)
  • Line Location: ONE+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "Rx Copay Income Exemption Report",?(IOM-35)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $P(IBPDAT,"@")," ",$P(IBPDAT,"@",2)," Page ",IBPAG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Charges Canceled ",$S(IBBDT=IBEDT:"on "_$$DAT1^IBOUTL(IBBDT),1:"from "_$$DAT1^IBOUTL(IBBDT)_" to "_$$DAT1^IBOUTL(IBEDT))
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !," Cancel Cancel Original"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Name Pt. ID Rx Date Rx/Refill Date IB Number Bill No. Amount"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,?85,"--------------"
  • Line Location: SUB+1
Function Call: WRITE
  • Prompt: !,?85,"Count = ",$J(IBBCNT,4)
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: !,?85,"Amount = $",$J(IBAMT,4),!
  • Line Location: SUB+3
Function Call: WRITE
  • Prompt: !!?40,"======================================="
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !?40," Total Patient Count = ",$J(IBPCNT,7)
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: !?40," Total Rx Count = ",$J(IBTCNT,7)
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: !?40," Total Dollar amount = $",$J(IBTAMT,7)
  • Line Location: SUM+4
Info |  Source |  Entry Points |  Interaction Calls