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

Package: Integrated Billing

Routine: IBARXEC1


Information

IBARXEC1 ;ALB/AAS - RX CO-PAY EXEMPTION REPORT GENERATOR ; 04-JAN-93

Source Information

Source file <IBARXEC1.m>

Entry Points

Name Comments DBIA/ICR reference
START ; -- entry point for running conversion report from option
BDT ; -get beginning date
EDT ; -get ending date
DEV
REPORT ; -- run report for conversion
END
QUIC ; -- quick summary
QUICQ
ELAP ; -- calcualate elaplse running time

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?15,"Medication Copayment Charges Retroactively Canceled",!!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,"This report cannot be run until the conversion has completed."
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !
  • Line Location: BDT+4
Function Call: WRITE
  • Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE."
  • Line Location: EDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+3
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!,"Please wait while I compile the report by patient...."
  • Line Location: REPORT+4
Function Call: WRITE
  • Prompt: @IOF,?20,"Medication Copayment Exemption Conversion Status"
  • Line Location: QUIC+5
Function Call: WRITE
  • Prompt: !!,"Conversion has not been started"
  • Line Location: QUIC+6
Function Call: WRITE
  • Prompt: !!,"The conversion has been started ",$P(IBX,"^",3)," times"
  • Line Location: QUIC+7
Function Call: WRITE
  • Prompt: !!,"Conversion was started on: "
  • Line Location: QUIC+8
Function Call: WRITE
  • Prompt: !,"The conversion completed on: "
  • Line Location: QUIC+9
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: QUIC+9
Function Call: WRITE
  • Prompt: !!," Last Patient DFN Checked == ",$J(+$P(IBX,"^",4),10)
  • Line Location: QUIC+10
Function Call: WRITE
  • Prompt: !!," 1. Total Patients Checked == "
  • Line Location: QUIC+11
Function Call: WRITE
  • Prompt: X
  • Line Location: QUIC+11
Function Call: WRITE
  • Prompt: !," Exempt Patients == "
  • Line Location: QUIC+12
Function Call: WRITE
  • Prompt: X
  • Line Location: QUIC+12
Function Call: WRITE
  • Prompt: !," Non-Exempt Patients == "
  • Line Location: QUIC+13
Function Call: WRITE
  • Prompt: X
  • Line Location: QUIC+13
Function Call: WRITE
  • Prompt: !!," 2. Total Number of Rx Charges checked == "
  • Line Location: QUIC+14
Function Call: WRITE
  • Prompt: X
  • Line Location: QUIC+14
Function Call: WRITE
  • Prompt: !," Dollar Amount Checked == "
  • Line Location: QUIC+15
Function Call: WRITE
  • Prompt: X
  • Line Location: QUIC+15
Function Call: WRITE
  • Prompt: !," No. of Exempt Rx Charges Checked == "
  • Line Location: QUIC+16
Function Call: WRITE
  • Prompt: X
  • Line Location: QUIC+16
Function Call: WRITE
  • Prompt: !," Exempt Dollar amount == "
  • Line Location: QUIC+17
Function Call: WRITE
  • Prompt: X
  • Line Location: QUIC+17
Function Call: WRITE
  • Prompt: !," No. of Non-Exempt Rx Charges Checked == "
  • Line Location: QUIC+18
Function Call: WRITE
  • Prompt: X
  • Line Location: QUIC+18
Function Call: WRITE
  • Prompt: !," Non-exempt Dollar amount == "
  • Line Location: QUIC+19
Function Call: WRITE
  • Prompt: X
  • Line Location: QUIC+19
Function Call: WRITE
  • Prompt: !!," 3. Total Rx Charges Actually canceled == "
  • Line Location: QUIC+20
Function Call: WRITE
  • Prompt: X
  • Line Location: QUIC+20
Function Call: WRITE
  • Prompt: !," Amount Actually canceled == "
  • Line Location: QUIC+21
Function Call: WRITE
  • Prompt: X
  • Line Location: QUIC+21
Info |  Source |  Entry Points |  Interaction Calls