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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBACUS

Package: Integrated Billing

Routine: IBACUS


Information

IBACUS ;ALB/CPM - TRICARE BILLING UTILITIES ; 02-AUG-96

Source Information

Source file <IBACUS.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Integrated Billing 4 (BILL,CANC)^IBACUS1  (BILL,CANC)^IBACUS2  ALL^IBCNS1  POL^IBCNSU41  
Outpatient Pharmacy 1 ($$CHK,LABEL)^PSOCPTRI  
VA FileMan 1 DT^DICRW  

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

Package Total Caller Graph
Integrated Billing 4 IBACUS2  IBECEA35  IBECUS2  IBECUS3  
Outpatient Pharmacy 2 PSOBBC  PSORXL  

Entry Points

Name Comments DBIA/ICR reference
CUS(DFN,IBDT) ; Does the patient have TRICARE coverage?
; Input: DFN -- Pointer to the patient in file #2
; DATE -- Date on which coverage is to be determined
; Output: IBCOV -- 0, if the vet has no billable TRICARE coverage
; >0 => pointer to such coverage in file #2.312
CUSQ
TRI() ; Is the Tricare Billing engine up and running?
; Input: none
; Output: 0 - No 1 - Yes
  • ICR #2030
    • Status: Active
    • Usage: Private
    CHPUS(DFN,DATE,IBRX,IBREF,IBLAB,IBRSITE,IBDUZ) ; Bill this patient for TRICARE?
    ; Input: DFN -- Pointer to the patient in file #2
    ; DATE -- Date on which coverage is to be determined
    ; IBRX -- Pointer to the prescription in file #52
    ; IBREF -- Pointer to the refill in file #52.1, or
    ; 0 if billing the original prescription
    ; IBLAB -- Pharmacy label printing device
    ; IBRSITE -- Pointer to the Pharmacy in file #59
    ; IBDUZ -- Pointer to the Pharmacy user in file #200
    ; Output: IBCHK -- 0 => can't bill rx || 1 => bill rx
  • ICR #2030
    • Status: Active
    • Usage: Private
    CHPUSQ
    RXLAB ; Queued entry point to print the TRICARE Rx label.
    RXLABQ
    RXBIL ; Queued entry point to create TRICARE Rx Billing charges.
    RXBILQ
    RXCAN ; Queued entry point to cancel TRICARE Rx Billing charges.
    RXCANQ
    RXSET() ; Establish the session.
    RXSETQ

    External References

    Name Field # of Occurrence
    DT^DICRW RXSET+10
    BILL^IBACUS1 RXBIL+6
    CANC^IBACUS1 RXCAN+6
    BILL^IBACUS2 RXBIL+9
    CANC^IBACUS2 RXCAN+9
    ALL^IBCNS1 CUS+12
    POL^IBCNSU41 CHPUS+13
    $$CHK^PSOCPTRI CHPUS+25
    LABEL^PSOCPTRI RXLAB+4

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^IBA(351.5 - [#351.5] CHPUS+29*, RXLAB+2, RXLAB+4, RXSET+5
    ^IBE(350.9 - [#350.9] TRI+4
    ^IBE(355.1 - [#355.1] CUS+15
    ^VA(200 - [#200] RXSET+8

    Label References

    Name Line Occurrences
    $$CUS CHPUS+17
    $$RXSET RXBIL+3, RXCAN+3
    $$TRI CHPUS+16
    CHPUSQ CHPUS+12, CHPUS+16, CHPUS+17, CHPUS+20, CHPUS+21, CHPUS+22, CHPUS+25
    CUSQ CUS+8
    RXBILQ RXBIL+3
    RXCANQ RXCAN+3
    RXLABQ RXLAB+1, RXLAB+3
    RXSETQ RXSET+4, RXSET+6, RXSET+8

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DATE CHPUS~, CHPUS+17
    DFN CUS~, CUS+8, CUS+12, CHPUS~, CHPUS+12, CHPUS+13, CHPUS+17
    DIQUIET RXSET+10~*
    DT CUS+9
    DUZ RXSET+7*, RXSET+8
    IBCHK CHPUS+11~*, CHPUS+28*, CHPUSQ
    >> IBCHTRN RXLAB+2, RXLAB+4, RXBIL+6, RXBIL+9, RXCAN+6, RXCAN+9, RXSET+4, RXSET+5
    IBCOP RXLAB+2*, RXLAB+3, RXLAB+4, RXLABQ!
    IBCOV CUS+6~, CUS+7*, CUS+13, CUS+15*, CUSQ
    IBDT CUS~, CUS+9*, CUS+12
    IBDUZ CHPUS~, CHPUS+22, CHPUS+29
    IBI CUS+6~, CUS+13*, CUS+14, CUS+15
    IBKEY CHPUS+11~, CHPUS+28*, CHPUS+29, RXBIL+6, RXBIL+9, RXSET+5*, RXSET+6
    >> IBKEYD RXLAB+1, RXLAB+4, RXSET+7
    IBLAB CHPUS~, CHPUS+22, CHPUS+29
    IBOK RXSET+1~*, RXSET+11*, RXSETQ
    IBPOL CUS+6~
    IBPOL( CUS+13, CUS+14, CUS+15
    IBREF CHPUS~, CHPUS+21, CHPUS+25, CHPUS+28
    IBRSITE CHPUS~, CHPUS+22, CHPUS+29
    IBRX CHPUS~, CHPUS+20, CHPUS+25, CHPUS+28
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All