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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBARX

Package: Integrated Billing

Routine: IBARX


Information

IBARX ;ALB/AAS - INTEGRATED BILLING, PHARMACY COPAY INTERFACE;8/30/17 3:42pm

Source Information

Source file <IBARX.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Integrated Billing 9 (,E3)^IBAERR  ^IBAFIL  (BDESC,CANRX,RX)^IBARX1  $$RXEXMT^IBARXEU0  ($$PARENT,QCAN)^IBARXMC  ($$ADD,$$CANCEL,TRACK)^IBARXMN  ($$SITE,EFDT)^IBARXMU  NEW^IBARXPFS  
(ARPARM,BILLNO,CHKX,COST)^IBAUTL  
Registration 1 (ELIG,INP)^VADPT  

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

Package Total Caller Graph
Outpatient Pharmacy 17 PSOCIDC3  PSOCP  PSOCP1  PSOCPA  PSOCPB  PSOCPBAK  PSOCPBK1  PSOCPBK4  
PSOCPC  PSOCPD  PSOCPIB  PSOCPIB5  PSOCPIBC  PSOHLNE3  PSOLBL  PSOLLLI  
PSOPTPST  
Integrated Billing 1 IBARXMI  

Entry Points

Name Comments DBIA/ICR reference
XTYPE ; - tag XTYPE - returns array of billable action types for service
; - see IBARXDOC for documentation
  • ICR #125
    • Status: Active
    • Usage: Private
    X1
    XTYPEQ
    DOM
    NEW ; - process new/renew/refill rx for charges
    ; - see IBARXDOC for documentation
  • ICR #125
    • Status: Active
    • Usage: Private
    N1
    NEWQ
    INSTAL
    CANCEL ; - cancel charges for a rx
    ; - see IBARXDOC for documentation
  • ICR #125
    • Status: Active
    • Usage: Private
    C1
    CANQ
    UPDATE ; - will cancel current open charge and create updated entry
    ; - see IBARXDOC for documentation
  • ICR #125
    • Status: Active
    • Usage: Private
    U1
    U2
    UPDQ
    END
    UCHPAR ; Check that IB action and its parent exist.
    UCHPARQ
    STATUS(X) ; returns the status of a transaction in 350
    ; - see IBARXDOC for documentation
  • ICR #125
    • Status: Active
    • Usage: Private
    CANIBAM ; used by pso to cancel a 354.71 transaction
    ; - see IBARXDOC for documentation
  • ICR #125
    • Status: Active
    • Usage: Private
    UPIBAM ; - will cancel current potential charge and create updated entry
    ; - see IBARXDOC for documentation
  • ICR #125
    • Status: Active
    • Usage: Private
    NFEECCRX(IBACTNM) ;Determine if the Action Type is a Non-Fee RX Action type for the co-payment indicator

    External References

    Name Field # of Occurrence
    ^IBAERR NEWQ, C1+8, CANQ, UPDQ
    E3^IBAERR X1+7
    ^IBAFIL N1+29, C1+7, U2+18
    BDESC^IBARX1 UPIBAM+18
    CANRX^IBARX1 C1+7
    RX^IBARX1 N1+25, U2+17
    $$RXEXMT^IBARXEU0 N1+10, U2+7
    $$PARENT^IBARXMC UPIBAM+19
    QCAN^IBARXMC CANQ+6, U2+24
    $$ADD^IBARXMN UPIBAM+19
    $$CANCEL^IBARXMN CANIBAM+9, UPIBAM+15
    TRACK^IBARXMN N1+19
    $$SITE^IBARXMU UPIBAM+19
    EFDT^IBARXMU U1+5
    NEW^IBARXPFS X1+13
    ARPARM^IBAUTL N1+5, C1+4, U2+3
    BILLNO^IBAUTL N1+22, U2+15
    CHKX^IBAUTL X1+3, N1+2, C1+1, U1+2, U2+2, UPIBAM+6
    COST^IBAUTL UPIBAM+18
    ELIG^VADPT X1+9
    INP^VADPT X1+9

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,*7,"WARNING: Pharmacy Copay not working,",!," Check IB SERVICE/SECTION in Pharmacy Site File.",!!
    • Line Location: X1+6

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(42 - [#42] DOM
    ^IB - [#350] UCHPAR+2, UCHPAR+3, UCHPAR+4, STATUS+3
    ^IB(0 INSTAL
    ^IBAM(354.71 - [#354.71] CANIBAM+6, UPIBAM+7
    ^IBE(350.1 - [#350.1] X1+5, X1+11, N1+24, U2+13, U2+16, STATUS+4, UPIBAM+18
    ^IBE(350.9 - [#350.9] INSTAL

    Label References

    Name Line Occurrences
    $$NFEECCRX X1+11
    CANCEL U1+7
    CANQ C1+1, C1+2, C1+4
    DOM X1+9
    END NEWQ+1, CANQ+3
    INSTAL X1, N1
    NEWQ N1+2, N1+3, N1+5, N1+11, N1+19, N1+22, N1+24, N1+26
    UCHPAR U2+17
    UCHPARQ UCHPAR+2
    UPDQ U1+2, U1+4, U2+2, U2+3, U2+8, U2+13, U2+15, U2+16
    XTYPEQ X1+3, X1+5

    Naked Globals

    Name Field # of Occurrence
    ^(0 DOM

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % END!
    %H END!
    %I END!
    DA X1+1~, X1+11*, N1+1~, C1~, U1~, UPIBAM+18*
    DFN X1+1~, X1+13, N1+1~, N1+10, N1+19, C1~, CANQ+6, U1~, U2+7, U2+24
    DT N1+10, U2+7
    I X1+1~, X1+11*, N1+1~, C1~, U1~
    IBA UPIBAM+3~, UPIBAM+5*, UPIBAM+6, UPIBAM+7, UPIBAM+10, UPIBAM+11, UPIBAM+12, UPIBAM+15, UPIBAM+18, UPIBAM+19
    , UPIBAM+20, UPIBAM+22
    IBACTNM NFEECCRX~, NFEECCRX+7, NFEECCRX+8, NFEECCRX+9, NFEECCRX+10
    IBAFY END!
    IBAM UPIBAM+3~, UPIBAM+19*, UPIBAM+20, UPIBAM+22
    IBAMP C1~, U1~
    IBARTYP END!
    IBATYP N1+24, U2+13*, U2+16, END!, UPIBAM+3~, UPIBAM+18*, UPIBAM+19
    IBCAP X1+1~, X1+11*, X1+13, C1~, CANQ+6, U1~, U2+24, CANIBAM+2~, UPIBAM+3~
    IBCHRG END!
    IBCRES END!
    IBDESC END!, UPIBAM+3~, UPIBAM+19
    IBDOM XTYPEQ!, DOM*
    IBDUZ END!, UPIBAM+3~
    IBEFDT N1+1~, U1~, U1+5, U2+17*
    IBEFDT( U2+17
    IBEXMP N1+1~, N1+10*, N1+11, N1+14, U1~, U2+7*, U2+8, U2+10, U2+20
    IBFAC END!
    IBFLG NFEECCRX+5~, NFEECCRX+6*, NFEECCRX+11
    IBI END!
    IBIL END!
    IBJ N1+12*, N1+14*, N1+24*, N1+25*, N1+31*, C1+6*, C1+7*, U2+10*, U2+17*, U2+20*
    , END!, UCHPAR+2, UCHPAR+4
    IBLAST END!
    >> IBM C1+8*
    IBN END!
    IBND C1+7, END!
    IBNOS U2+16*, END!
    IBNOW END!
    IBPARNT END!, UCHPAR+1*, UCHPAR+2, UCHPAR+3*, UCHPAR+4
    IBSAVX X1+1*, XTYPEQ!, N1!, N1+2*, N1+32, C1!, C1+1*, CANQ+1, U1!, U1+2*
    , U1+3, U2+2*, END!, UPIBAM+3~, UPIBAM+6*
    IBSAVX( N1+4*, N1+14, N1+25, C1+3*, C1+7
    IBSAVXMC C1~, CANQ+2*, CANQ+6, U1~, U2+24
    IBSAVXU U1+3*, U2+1, U2+21, UPDQ+1!
    IBSAVXU( U1+5*, U2+1, U2+10, U2+17
    IBSAVY END!
    IBSAVY( N1+31, U2+17, U2+20, UCHPAR+2*, UCHPAR+4*
    IBSEQNO N1+24*, U2+16*, END!
    IBSERV X1+5, X1+11, XTYPEQ!, END!, UPIBAM+3~
    IBSITE END!
    IBT C1+8*, CANQ, END!
    IBTAG X1+1*, XTYPEQ!, N1+2*, C1+1*, U1+2*, U2+2*, END!, UPIBAM+3~, UPIBAM+6*
    IBTCH UPIBAM+3~, UPIBAM+18*, UPIBAM+19
    IBTIER END!
    IBTOTL N1+21*, N1+24*, N1+29, N1+32, C1+6*, U2+16*, U2+21, END!
    IBTRAN END!
    IBUNIT END!
    IBUPDATE C1, CANQ+6, U1~, U1+1*
    IBWHER X1+1*, XTYPEQ!, N1+2*, C1+1*, U1+2*, END!, UPIBAM+3~, UPIBAM+6*
    IBX N1+25*, C1+7*, U2+17*, END!, UCHPAR+1, UPIBAM+3~, UPIBAM+15*, UPIBAM+18*
    IBXX CANIBAM+2~, CANIBAM+3*, CANIBAM+4*, CANIBAM+6, CANIBAM+7, CANIBAM+8, CANIBAM+9, CANIBAM+10, UPIBAM+3~, UPIBAM+4*
    IBXX( CANIBAM+4, CANIBAM+6, CANIBAM+9, UPIBAM+7, UPIBAM+15, UPIBAM+18, UPIBAM+19
    IBY C1+8*, END!, CANIBAM+5~, CANIBAM+9, CANIBAM+10, UPIBAM+3~
    IBY( C1+7*, C1+8
    IBYY CANIBAM+2~, CANIBAM+11, UPIBAM+3~
    IBYY( CANIBAM+7*, CANIBAM+8*, CANIBAM+10*
    IBZ CANIBAM+2~, CANIBAM+6*, CANIBAM+7, CANIBAM+8, CANIBAM+9*, CANIBAM+10, UPIBAM+3~, UPIBAM+7*, UPIBAM+10, UPIBAM+11
    , UPIBAM+12, UPIBAM+15, UPIBAM+19
    J X1+1~, N1+1~, N1+4*, C1~, C1+3*, U1~, U1+5*, U2+1*
    K END!
    U X1+11
    VA XTYPEQ!
    VAEL XTYPEQ!
    VAERR XTYPEQ!
    VAIN XTYPEQ!
    VAIN(4 DOM
    X X1+1, X1+9~, X1+11, N1+2, N1+3, N1+32*, C1+1, C1+2, CANQ+1*, U1+2
    , U1+4, U2!, U2+1*, U2+2, U2+21*, STATUS~, STATUS+3, CANIBAM+3, UPIBAM+4, UPIBAM+6
    X( N1+4, C1+3, U1+5*, U2+1*
    X("" UPIBAM+5
    X1 X1+1~, X1+11, XTYPEQ!, N1+1~, C1~, U1~, END!, UPIBAM+18
    X2 X1+1~, X1+11, XTYPEQ!, N1+1~, C1~, U1~, END!
    X3 END!
    Y X1!*, X1+1*, X1+3, X1+5*, X1+9*, N1!*, N1+2*, N1+3*, N1+5, N1+11*
    , N1+19, N1+22, N1+24*, N1+26, N1+32*, NEWQ, C1!, C1+1*, C1+2*, C1+4
    , C1+7, C1+8*, CANQ, CANQ+2, U1!, U1+2*, U1+4*, U2+2*, U2+3, U2+8*
    , U2+13*, U2+15, U2+16*, U2+20*, U2+21*, UPDQ, STATUS+3~*, STATUS+4, CANIBAM+11!*, UPIBAM+5*
    , UPIBAM+6*, UPIBAM+10*, UPIBAM+11*, UPIBAM+12*, UPIBAM+15, UPIBAM+20*, UPIBAM+22*
    Y( X1+11*, N1+14*, N1+31*, C1+8*, U2+10*, U2+20*, UPIBAM+6*, UPIBAM+10*, UPIBAM+11*, UPIBAM+12*
    , UPIBAM+15*, UPIBAM+20*, UPIBAM+22*
    >> ZTQUEUED X1+6
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All