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

Package: Integrated Billing

Routine: IBCSC5B


Information

IBCSC5B ;ALB/ARH - ADD/ENTER PROSTHETIC ITEMS ; 12/28/93

Source Information

Source file <IBCSC5B.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 FILE^DICN  ^DIE  ^DIR  
IFCAP 1 $$DESCR^PRCPUX1  
Integrated Billing 1 $$EXSET^IBEFUNC  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IBCF331  IBCF4  IBCSC5  IBCSCE  

Entry Points

Name Comments DBIA/ICR reference
EN ;add/edit prosthetic items for a bill, IBIFN required
PIDISP(DFN,DT1,DT2,ARRAY,PDARR) ; display all prosthetic items (660) for a patient and date range
HELP(IFN) ;called for help from prosthetics enter to display existing devices, displays devices from 660 and 399
DATE(X) ;
EDIT(PIFN) ;
DISP(PDARR) ;screen display of existing prosthetic devices for a bill,
ASKPD(PD) ;
EXIT
ASKDT(IBDT1,IBDT2,IBDT) ;
BILL(IBIFN) ; display all existing prescription refills (52) for a patient and date range
ADD(IBDT,IFN,IBPD,PIFN) ;
SET(IFN,PDARR) ;setup array of all prosthetic devices for bill, array name should be passed by reference
  • ICR #3810
    • Status: Active
    • Usage: Private
    PIN(PITEM) ;given the pros item IFN (661 ptr) returns name for printing (661,.01^441,.05)
  • ICR #3810
    • Status: Active
    • Usage: Private
    E1

    External References

    Name Field # of Occurrence
    FILE^DICN ADD+1
    ^DIE ADD+2, EDIT+1
    ^DIR ASKDT+2, ASKPD+2
    $$EXSET^IBEFUNC PIDISP+12
    $$DESCR^PRCPUX1 PIN+1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: " ??"
    • Line Location: E1+2
    Function Call: WRITE
    • Prompt: !,"This prosthetic item does not exist in this patients prosthetics record.",!
    • Line Location: E1+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: E1+4
    Function Call: WRITE
    • Prompt: "... ADDED"
    • Line Location: ADD+2
    Function Call: WRITE
    • Prompt: !,$$DATE(IBX),?12,$P(IBZ,U,1),?20,$P(IBZ,U,2)
    • Line Location: DISP+5
    Function Call: WRITE
    • Prompt: !,$S($D(PDARR(+DDT,PI)):"*",1:"")
    • Line Location: PIDISP+11
    Function Call: WRITE
    • Prompt: ?2,$$DATE(DDT),?12,$P(PNAME,U,1),?20,$E($P(PNAME,U,2),1,30),?55,$E($$EXSET^IBEFUNC($P(IBX,U,14),660,12),1,4),?62,$$EXSET^IBEFUNC($P(IBY,U,3),660,62),?70,$J(+$P(IBX,U,16),9,2)
    • Line Location: PIDISP+12
    Routine Call
    • DIE
    • Line Location:
      • ADD+2
      • EDIT+1
    Routine Call
    • DIR
    • Line Location:
      • ASKDT+2
      • ASKPD+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBA(362.5 - [#362.5] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] BILL+2, BILL+3
    ^IBA(362.5 - [#362.5] SET+3, SET+4
    ^RMPR(660 PIDISP+4, PIDISP+5, PIDISP+10
    ^RMPR(661 ASKPD+2, PIN+1

    Label References

    Name Line Occurrences
    $$ADD E1+2
    $$ASKDT E1
    $$ASKPD E1+1
    $$BILL EN+1, HELP+1
    $$DATE DISP+5, PIDISP+12
    $$PIN DISP+5, PIDISP+10
    DISP EN+2, HELP+1
    E1 E1+1, E1+2, E1+4
    EDIT E1+4
    EXIT E1
    PIDISP EN+2, HELP+1
    SET EN+2, E1+4, HELP+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ARRAY PIDISP~, PIDISP+3!
    ARRAY( PIDISP+6*, PIDISP+9, PIDISP+10
    CNT SET+2~, SET+3*, SET+4*, SET+5
    DA ADD+1!, ADD+2*!, EDIT+1*!
    DDT PIDISP+3~, PIDISP+5*, PIDISP+6, PIDISP+9*, PIDISP+10, PIDISP+11, PIDISP+12
    DFN EN+1*, EN+2, PIDISP~, PIDISP+3, PIDISP+4
    DIC ADD+1*, ADD+2!, EDIT+1!
    DIC(0 ADD+1*
    DIDEL EDIT+1*!
    DIE ADD+2*!, EDIT+1*!
    DIR ASKDT+2!, ASKPD+2!
    DIR("?" ASKDT+1*
    DIR("??" ASKDT+1*
    DIR("A" ASKDT+2*, ASKPD+2*
    DIR("B" ASKPD+2*
    DIR(0 ASKDT+2*, ASKPD+2*
    DIRUT ASKDT+2!, ASKPD+2!
    DO ADD+1!
    DR ADD+2*!, EDIT+1*!
    DT1 PIDISP~, PIDISP+3*, PIDISP+5
    DT2 PIDISP~, PIDISP+3*, PIDISP+5
    DTOUT ASKDT+2!
    IBC SET+2~*, SET+3
    IBDT E1*, E1+1, E1+2, E1+3, EXIT!, ASKDT~, ADD~, ADD+1
    IBDT1 EN+1*, EN+2, E1, EXIT!, ASKDT~, ASKDT+2
    IBDT2 EN+1*, EN+2, E1, EXIT!, ASKDT~, ASKDT+2
    IBIFN EN+1, EN+2, E1+2, E1+4, ASKDT+1, BILL~, BILL+2, BILL+3
    IBPD E1+1*, E1+2, E1+3, EXIT!, ADD~, ADD+2
    IBPDA EN+2, E1+4, EXIT!, HELP+1~
    IBPDA( E1+1, E1+2
    IBPDE EN+2, EXIT!
    IBPDE( E1+1, E1+2, E1+3
    IBPIFN E1*, E1+2*, E1+4, EXIT!
    IBX EN+1*, EXIT!, ADD+1~*, ADD+2*, ADD+3, SET+2~, SET+3*, DISP+2~, DISP+4*, DISP+5
    , HELP+1~*, PIDISP+3~, PIDISP+5*, PIDISP+6, PIDISP+10*, PIDISP+12, PIN+1~*, BILL+2~*, BILL+3*
    IBY SET+2~, SET+4*, DISP+2~, DISP+4*, DISP+5, PIDISP+3~, PIDISP+10*, PIDISP+12, PIN+1~*, PIN+2
    , BILL+2~*, BILL+3*, BILL+4
    IBZ DISP+2~, DISP+5*
    IFN ADD~, ADD+2, SET~, SET+2, SET+5, HELP~, HELP+1
    IOF PIDISP+8
    PD ASKPD~, ASKPD+2
    PDARR SET~, SET+2!, SET+5*, DISP~, PIDISP~
    PDARR( SET+4*, DISP+4, PIDISP+11
    PI PIDISP+3~, PIDISP+9*, PIDISP+10, PIDISP+11
    PIFN ADD~, ADD+2, EDIT~, EDIT+1, SET+2~, SET+3*, SET+4, PIDISP+3~, PIDISP+4*, PIDISP+5
    , PIDISP+6, PIDISP+10*
    PITEM PIN~, PIN+1
    PNAME PIDISP+3~, PIDISP+10*, PIDISP+12
    U EN+1, SET+4, DISP+5, HELP+1, PIDISP+5, PIDISP+6, PIDISP+12, PIN+1, BILL+2, BILL+3
    X ASKPD+1~, ADD+1*!, DATE~, DATE+1
    Y ASKDT+3, ASKPD+1~, ASKPD+2*, ASKPD+3, ADD+2
    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