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

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Integrated Billing 4 END^IBARXEC  BUILD^IBARXEC4  PRINT^IBARXEC5  $$STDATE^IBARXEU  
VA FileMan 4 ^%DT  (COMMA,H)^%DTC  (D,DT)^DIQ  ^DIR  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  

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

Package Total Caller Graph
Integrated Billing 3 IB RX PRINT RETRO CHARGES  IBARXEC2  IBARXEC3  

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

External References

Name Field # of Occurrence
^%DT BDT+3, EDT+2
COMMA^%DTC QUIC+11, QUIC+12, QUIC+13, QUIC+14, QUIC+15, QUIC+16, QUIC+17, QUIC+18, QUIC+19, QUIC+20
, QUIC+21
H^%DTC ELAP+2, ELAP+3
^%ZIS DEV+1
HOME^%ZIS START+1, DEV+2, QUIC+1
^%ZTLOAD DEV+2
D^DIQ BDT+2, EDT+1
DT^DIQ QUIC+8, QUIC+9
^DIR EDT+5
END^IBARXEC END+3
BUILD^IBARXEC4 REPORT+15
PRINT^IBARXEC5 REPORT+16
$$STDATE^IBARXEU BDT+2, REPORT+6

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
Routine Call
  • DIR
  • Line Location:
    • EDT+5
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • START+1
    • DEV+2
    • QUIC+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(350.9 - [#350.9] START+3, EDT+1, REPORT+7, REPORT+11, QUIC+3
^TMP("IBCONV" END!

Label References

Name Line Occurrences
BDT EDT+2
ELAP QUIC+9
END START+3, BDT+3, EDT+2, EDT+5, DEV+1, DEV+2
QUIC REPORT+2, REPORT+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BDT+3*!, BDT+4!, EDT+2*, EDT+3!
%DT("A" BDT+3*, EDT+2*
%DT("B" BDT+2*, EDT+1*
>> %H ELAP+2, ELAP+3
>> %T ELAP+2, ELAP+3
>> %ZIS DEV+1*
DFN END+2!
DIR EDT+5!
DIR("A" EDT+5*
DIR("B" EDT+5*
DIR(0 EDT+5*
>> DIRUT EDT+5
IBAMT END+2!
IBBCNT END+2!
IBBDT BDT+1*, BDT+3*, EDT+2, REPORT+6*, END+2!, ELAP+1~, ELAP+2*, ELAP+4
IBCNT END+2!
>> IBCONVER REPORT+1
IBDAY ELAP+1~, ELAP+4*
IBDT END+2!
IBEDT BDT+1*, EDT+2*, REPORT+7*, END+2!, ELAP+1~, ELAP+3*, ELAP+4
IBJ END+2!
IBN END+2!
IBNAM END+2!
IBOK END+2!
IBP END+2!
IBPAG END+2!
IBPCNT END+2!
IBPDAT END+2!
IBQUIC EDT+5*, REPORT+14, END+2!
>> IBQUIT REPORT+13*
IBTAMT END+2!
IBTCNT END+2!
IBX END+2!, QUIC+2~, QUIC+3*, QUIC+6, QUIC+7, QUIC+8, QUIC+9, QUIC+10, QUIC+11, QUIC+12
, QUIC+13, QUIC+14, QUIC+15, QUIC+16, QUIC+17, QUIC+18, QUIC+19, QUIC+20, QUIC+21, ELAP+2
, ELAP+3
IO REPORT+3, REPORT+10
IO("Q" DEV+2
IO(0 REPORT+3
IOF START+1, QUIC+1, QUIC+5
N END+2!
N1 END+2!
O END+2!
O1 END+2!
>> POP DEV+1
X END+2!, QUIC+2~, QUIC+11*, QUIC+12*, QUIC+13*, QUIC+14*, QUIC+15*, QUIC+16*, QUIC+17*, QUIC+18*
, QUIC+19*, QUIC+20*, QUIC+21*, ELAP+1~, ELAP+2*, ELAP+3*, ELAP+4*
X1 END+2!, QUIC+2~
X2 END+2!, QUIC+2~, QUIC+11*, QUIC+12*, QUIC+13*, QUIC+14*, QUIC+15*, QUIC+16*, QUIC+17*, QUIC+18*
, QUIC+19*, QUIC+20*, QUIC+21*
X3 QUIC+2~, QUIC+3*
Y BDT+2*, BDT+3, EDT+1*, EDT+2, EDT+5, END+2!, QUIC+2~, QUIC+8*, QUIC+9*, ELAP+4*
>> ZTDESC DEV+2*
>> ZTQUEUED REPORT+4, END+1
>> ZTREQ END+1*
>> ZTRTN DEV+2*
>> ZTSAVE("IB*" DEV+2*
ZTSK DEV+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All