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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBCSC5A

Package: Integrated Billing

Routine: IBCSC5A


Information

IBCSC5A ;ALB/ARH - ADD/ENTER PRESCRIPTION REFILLS ; 12/27/93

Source Information

Source file <IBCSC5A.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 ^DIC  FILE^DICN  ^DIE  ^DIR  
Integrated Billing 2 (ADDNEW,DEFAULT,NEWRX,RXDISP)^IBCSC5C  $$RXDUP^IBCU3  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IBCF331  IBCSC5C  IBCSCE  IBCU6  

Entry Points

Name Comments DBIA/ICR reference
EN ;add/edit prescription refills for a bill, IBIFN required
ASKRX(IBRXAP,IBPRO) ;
DRUG(IBD) ; get drug
SET(IFN,RXARR,RXARRP) ;setup array of all rx refills for bill, array name should be passed by reference
  • ICR #3811
    • Status: Active
    • Usage: Private
    HELP(IFN) ;called for help from rx enter to display existing rx, displays rx' from 52 and 399
    EDIT(PIFN) ;
    ARX1E
    ADDE
    EXIT
    ASKDT(IBDT1,IBDT2,IBDT) ;
    DISP(RXARR,RXARRP) ;screen display of existing refills for a bill,
    BILL(IBIFN) ; display all existing prescription refills (52) for a patient and date range
    E1
    ADD(RX,IFN,IBDT,DRUG,PIFN,OTHER) ;

    External References

    Name Field # of Occurrence
    ^DIC DRUG+1
    FILE^DICN ADD+2
    ^DIE ADD+3, EDIT+1
    ^DIR ASKRX+3, ASKRX+8, ASKDT+1
    ADDNEW^IBCSC5C EN+3
    DEFAULT^IBCSC5C EXIT
    NEWRX^IBCSC5C EN+3
    RXDISP^IBCSC5C EN+3, HELP+1
    $$RXDUP^IBCU3 E1+2
    $$FMTE^XLFDT ASKRX+7, ASKDT+1, DISP+6

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"This rx refill does not exist in Pharmacy for this patient!",!
    • Line Location: E1+3
    Function Call: WRITE
    • Prompt: " ??"
    • Line Location: E1+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASKRX+1
    Function Call: WRITE
    • Prompt: !,$J(IBI,2),")",?7,IBX,?20,$E(IBZ,1,38),?60,$$FMTE^XLFDT(IBY)
    • Line Location: DISP+6
    Routine Call
    • DIE
    • Line Location:
      • ADD+3
      • EDIT+1
    Routine Call
    • DIC
    • Line Location:
      • DRUG+1
    Routine Call
    • DIR
    • Line Location:
      • ASKRX+3
      • ASKRX+8
      • ASKDT+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBA(362.4 - [#362.4] Classic Fileman Calls
    ^PSDRUG - [#50] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] BILL+2, BILL+3
    ^IBA(362.4 - [#362.4] SET+3, SET+4
    ^PSDRUG - [#50] DISP+5, DRUG+1

    Label References

    Name Line Occurrences
    $$ADD E1+5
    $$ASKDT E1+1
    $$ASKRX E1
    $$BILL EN+1, HELP+1
    $$DRUG ADD+1
    ADDE ADD+1
    ARX1E ASKRX+3, ASKRX+4, ASKRX+6
    DISP EN+4, HELP+1
    E1 E1+1, E1+2, E1+5, E1+6
    EDIT E1+6
    EXIT E1
    SET EN+2, EN+4, E1+6, HELP+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CNT SET+2~, SET+3*, SET+4*, SET+5
    DA ADD+2!, ADD+3*!, EDIT+1*!
    >> DFN EN+1*, EN+3
    >> DGRVRCAL EN+3*, E1*
    DIC ADD+2*, ADD+3!, EDIT+1!, DRUG+1*!
    DIC(0 ADD+2*, DRUG+1*
    DIDEL EDIT+1*!
    DIE ADD+3*!, EDIT+1*!
    DIR ASKRX+3!, ASKRX+8!, ASKDT+1!
    DIR("?" ASKRX+2*
    DIR("??" ASKRX+2*
    DIR("A" ASKRX+3*, ASKRX+7*, ASKDT+1*
    DIR("B" ASKRX+7*, ASKDT+1*
    DIR(0 ASKRX+3*, ASKRX+7*, ASKDT+1*
    DIRUT ASKRX+3!, ASKRX+8, ASKDT+1!
    DO ADD+2!
    DR ADD+3*!, EDIT+1*!
    DRUG ADD~, ADD+1*, ADD+3
    DTOUT ASKDT+1!
    IBC SET+2~*, SET+3
    IBCNT SET+2~*, SET+6*
    IBD DRUG~, DRUG+1*, DRUG+2
    IBDRG E1+4*, EXIT+1!
    IBDT E1*, E1+1*, E1+2, E1+3, E1+4, E1+5, EXIT+1!, ASKDT~, ASKDT+1, ADD~
    , ADD+3
    IBDT1 EN+1*, EN+3, E1+1, EXIT+1!, ASKDT~, ASKDT+1
    IBDT2 EN+1*, EN+3, E1+1, EXIT+1!, ASKDT~, ASKDT+1
    >> IBI DISP+4*, DISP+6
    IBIFN EN+1, EN+2, EN+3, EN+4, E1+2, E1+5, E1+6, EXIT, ASKRX+2, BILL~
    , BILL+2, BILL+3
    IBLIST EN+3, EXIT+1!
    IBPIFN E1*, E1+4*, E1+5*, E1+6, EXIT+1!
    IBPR EN+3, EXIT+1!, HELP+1
    IBPR( E1+1, E1+3, E1+5
    IBPRO EN+3, EN+4, E1, E1+6, EXIT+1!, ASKRX~, ASKRX+4, HELP+1
    IBPRO( ASKRX+6
    IBRX E1*, E1+1, E1+2, E1+3, E1+4, E1+5, EXIT+1!
    IBRXA EN+2, EN+3, EN+4, E1+6, EXIT+1!, HELP+1~
    IBRXA( E1+1, E1+2, E1+4
    IBRXAP EN+4*, E1, E1+6*, EXIT+1!, ASKRX~, ASKRX+4, HELP+1*
    IBRXAP( ASKRX+6
    IBRXNEW EN+1*, EN+3*, E1+5*, EXIT, EXIT+1!
    IBRXOLD EN+2*, EXIT, EXIT+1!
    IBX EN+1*, E1+5*, EXIT+1!, ASKRX+1~*, ASKRX+4*, ASKRX+6, ASKRX+8*, ARX1E, ADD+1~*, ADD+3*
    , ADDE, SET+2~, SET+3*, SET+6*, DISP+2~, DISP+4*, DISP+5, DISP+6, HELP+1~*, BILL+2~*
    , BILL+3*
    IBY ASKRX+1~, ASKRX+6*, ASKRX+7, ASKRX+8, SET+2~, SET+4*, SET+6*, DISP+2~, DISP+4*, DISP+5
    , DISP+6, BILL+2~*, BILL+3*, BILL+4
    IBZ SET+2~, DISP+2~, DISP+5*, DISP+6
    IFN ADD~, ADD+3, SET~, SET+2, SET+5, HELP~, HELP+1
    OTHER ADD~, ADD+3
    PIFN ADD~, ADD+3, EDIT~, EDIT+1, SET+2~, SET+3*, SET+4
    RX ADD~, ADD+2
    RXARR SET~, SET+2!, SET+5*, DISP~
    RXARR( SET+4*, SET+6, DISP+4, DISP+5
    RXARRP SET~, SET+2!, DISP~
    RXARRP( SET+6*, DISP+4
    U EN+1, EN+2, EN+3, E1, E1+4, E1+5, ASKRX+7, ADD+3, SET+4, DISP+4
    , DISP+5, HELP+1, BILL+2, BILL+3
    X ASKRX+1~, ADD+2*!, DRUG+1~
    Y ASKRX+1~, ASKRX+3*, ASKRX+4, ASKRX+8, ASKDT+2, ADD+3, DRUG+1~
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All