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

Package: Integrated Billing

Routine: IBCSC5A


Information

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

Source Information

Source file <IBCSC5A.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 7 $$CHG^IBCF4  $$CPTNM^IBCRBH1  $$PERDIEM^IBCRU3  ($$DATE,$$HTEXT,ADDNEW,NEWRX,RXDISP)^IBCSC5C  $$RXSTAT^IBCU1  $$RXDUP^IBCU3  ($$FILE,ZERO)^IBRXUTL  
VA FileMan 4 FILE^DICN  ^DIE  ^DIK  ^DIR  
Kernel 1 $$FMTE^XLFDT  
Pharmacy Data Management 1 DIC^PSSDI  

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

Package Total Caller Graph
Integrated Billing 14 IBCD3  IBCEF11  IBCEF22  IBCF22  IBCF331  IBCF4  IBCRBC1  IBCSC5B  
IBCSC5C  IBCSCE  IBCU6  IBJTBA  IBRFN3  ^IBA(362.4  
Accounts Receivable 2 RCXFMSUF  RCXVUTIL  

Entry Points

Name Comments DBIA/ICR reference
EN ;add/edit prescription fills for a bill, IBIFN required
E1
EXIT ;
ASKRX(IBRXAP,IBPRO) ;
ARX1E
ASKDT(IBDT1,IBDT2,IBDT) ;
ADD(RX,IFN,IBDT,DRUG,PIFN,OTHER,IBRF) ;
ADDE
EDIT(PIFN,REVIEN) ;
SET(IFN,RXARR,RXARRP) ;setup array of all rx fills for bill, array name should be passed by reference
  • ICR #3811
    • Status: Active
    • Usage: Private
    DISP(RXARR,RXARRP) ;screen display of existing fills for a bill: input should be print order array returned by SET^IBCSC5A: RXARR(RX,DT)=RX IFN (362.4) ^ DRUG, passed by reference
    HELP(IFN) ;called for help from rx enter to display existing rx, displays rx' from 52 and 399
    BILL(IBIFN) ; return data on a bill 'patient ifn ^ from dt ^ to dt ^ true if add original rx'
    DRUG(IBD) ; get drug
    RCITEM(IBIFN,ARRAY,TYPE) ; Pull off all item charges from RC multiple
    ; for item TYPE on bill IBIFN, return array ARRAY
    ; If type = "ALL", pull off all types
    FINDREV(IBIFN,TYP,PTR) ; Finds the first revenue code that matches the
    ; same item type and item pointer
    NDCNUM(IBNDC) ; Returns the format of the NDC # IBNDC, if possible
    PRVNM(PIFN) ; return provider name for an rx, if one defined or null
    ORDT(IBORDT,Y) ;get ISSUE DATE from file 52 and stuff into ORDER DATE of file 362.4

    External References

    Name Field # of Occurrence
    FILE^DICN ADD+3
    ^DIE ADD+7, EDIT+7, ORDT+3
    ^DIK EDIT+9, EDIT+10
    ^DIR ASKRX+3, ASKRX+8, ASKDT+1
    $$CHG^IBCF4 SET+7
    $$CPTNM^IBCRBH1 DISP+12
    $$PERDIEM^IBCRU3 BILL+3
    $$DATE^IBCSC5C DISP+9
    $$HTEXT^IBCSC5C ASKRX+2
    ADDNEW^IBCSC5C EN+3
    NEWRX^IBCSC5C EN+3
    RXDISP^IBCSC5C EN+3, HELP+1
    $$RXSTAT^IBCU1 DISP+5
    $$RXDUP^IBCU3 E1+2, DISP+10
    $$FILE^IBRXUTL PRVNM+2
    ZERO^IBRXUTL DISP+6
    DIC^PSSDI DRUG+1
    $$FMTE^XLFDT ASKRX+7, ASKDT+1, EDIT+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"This rx fill does not exist in Pharmacy for this patient!",!
    • Line Location: E1+3
    Function Call: WRITE
    • Prompt: " ??"
    • Line Location: E1+6
    Function Call: WRITE
    • Prompt: " ... ADDED"
    • Line Location: E1+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASKRX+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASKRX+7
    Function Call: WRITE
    • Prompt: !!,?5,"----------------- Existing Prescriptions on Bill -----------------",!
    • Line Location: DISP+2
    Function Call: WRITE
    • Prompt: !,$J(IBI,2),")",?5,IBX,?19,$E(IBZ,1,25),?46,$$DATE^IBCSC5C(IBY),?56,$P(IBS,U,1),?61,$P(IBS,U,2),?69,$P(IBS,U,3)
    • Line Location: DISP+9
    Function Call: WRITE
    • Prompt: ?73,$P($G(^DGCR(399,+IBZ,0)),U,1)
    • Line Location: DISP+10
    Function Call: WRITE
    • Prompt: !,?5,$E(IBP,1,25),?35,"(Rx Procedure ",$S($P(IBZ,U,15):"#"_$P(IBZ,U,15)_" "_$$CPTNM^IBCRBH1(IBIFN,4,$P(IBZ,U,15)),1:"Missing")," Rev Code ",$S(IBZ:"#"_+$P(RXARR(IBX,IBY),U,7)_" "_$P($G(^DGCR(399.2,+IBZ,0)),U),1:"Missing"),")"
    • Line Location: DISP+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: DISP+13
    Routine Call
    • DIE
    • Line Location:
      • ADD+7
      • EDIT+7
      • ORDT+3
    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] EDIT+9, DISP+10, DISP+11, BILL+2, BILL+4, RCITEM+11, FINDREV+5
    ^DGCR(399.2 - [#399.2] DISP+12
    ^IBA(362.4 - [#362.4] EDIT+3, EDIT+8, SET+6, SET+7, DISP+5, PRVNM+2
    ^TMP($J DISP+7, DISP+8!
    ^VA(200 - [#200] PRVNM+2

    Label References

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

    Naked Globals

    Name Field # of Occurrence
    ^( RCITEM+11, FINDREV+5
    ^(0 EDIT+9

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ARRAY RCITEM~, RCITEM+11
    CNT SET+3~, SET+6*, SET+7*, SET+13
    DA ADD+1~, ADD+7*!, EDIT+1~, EDIT+7*, EDIT+9*, EDIT+10*, ORDT+2~, ORDT+3*
    DA(1 EDIT+9*, EDIT+10*
    DD ADD+1~
    >> DFN EN+1*, EN+3
    >> DGRVRCAL EN+3*, E1*, ADD+8*, EDIT+11*
    DIC ADD+1~, ADD+3*, ADD+7!, EDIT+1~, DRUG+1*!
    DIC(0 ADD+3*, DRUG+1*
    DIDEL EDIT+1~, EDIT+5*
    DIE ADD+7*!, EDIT+1~, EDIT+5*, ORDT+2~, ORDT+3*
    >> DIK EDIT+9*, EDIT+10*
    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!
    DLAYGO ADD+1~, ADD+3*
    DO ADD+1~
    DR ADD+7*!, EDIT+1~, EDIT+6*, ORDT+2~, ORDT+3*
    DRUG ADD~, ADD+2*, ADD+7
    DTOUT ASKDT+1!
    IBC SET+3~*, SET+6
    IBCHG EDIT+1~
    IBCNT SET+3~*, SET+14*
    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+7
    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+9
    IBIFN EN+1, EN+2, EN+3, EN+4, E1+2, E1+5, E1+8, ASKRX+2, EDIT+9, EDIT+10
    , DISP+1~, DISP+3*, DISP+10, DISP+11, DISP+12, BILL~, BILL+2, BILL+4, RCITEM~, RCITEM+11
    , FINDREV~, FINDREV+5
    IBLIST EN+3, EXIT+1!
    IBNDC NDCNUM~, NDCNUM+2, NDCNUM+3
    IBORDT EDIT+1~, EDIT+3*, EDIT+4, ORDT~, ORDT+1, ORDT+3
    IBP DISP+1~, DISP+7*, DISP+12
    IBPIFN E1*, E1+4*, E1+5*, E1+6, E1+8, EXIT+1!
    IBPR EN+3, EXIT+1!, HELP+1
    IBPR( E1+1, E1+3, E1+5
    IBPRO EN+3, EN+4, E1, E1+8, EXIT+1!, ASKRX~, ASKRX+4, HELP+1
    IBPRO( ASKRX+6
    IBPRV PRVNM+1~*, PRVNM+2*, PRVNM+3
    IBRC SET+3~, SET+7
    IBRF ADD~, ADD+7
    IBRX E1*, E1+1, E1+2, E1+3, E1+4, E1+5, EXIT+1!
    IBRXA EN+2, EN+3, EN+4, E1+8, EXIT+1!, HELP+1~
    IBRXA( E1+1, E1+2, E1+4
    IBRXALL EN+1*, EN+3, EXIT+1!
    IBRXAP EN+4*, E1, E1+8*, EXIT+1!, ASKRX~, ASKRX+4, HELP+1*
    IBRXAP( ASKRX+6
    IBRXIFN PRVNM+1~, PRVNM+2*
    IBS DISP+1~, DISP+5*, DISP+9
    IBX EN+1*, E1+5*, EXIT+1!, ASKRX+1~*, ASKRX+4*, ASKRX+6, ASKRX+8*, ARX1E, ADD+1~, ADD+2*
    , ADD+7*, ADDE, SET+3~, SET+6*, SET+14*, DISP+1~, DISP+4*, DISP+5, DISP+6, DISP+7
    , DISP+9, DISP+10, DISP+11, DISP+12, HELP+1~*, BILL+1~, BILL+2*, BILL+3, BILL+4*, PRVNM+1~
    , PRVNM+2*
    IBY ASKRX+1~, ASKRX+6*, ASKRX+7, ASKRX+8, SET+3~, SET+7*, SET+8, SET+9, SET+11, SET+14*
    , DISP+1~, DISP+4*, DISP+5, DISP+6, DISP+7, DISP+9, DISP+10, DISP+11, DISP+12, BILL+1~
    , BILL+2*, BILL+3*, BILL+4*, BILL+5
    IBZ SET+3~, DISP+1~, DISP+7*, DISP+9, DISP+10*, DISP+11*, DISP+12
    IFN ADD~, ADD+7, SET~, SET+3, SET+5, SET+8, SET+13, HELP~, HELP+1
    OTHER ADD~, ADD+6, ADD+7
    PIFN ADD~, ADD+7, EDIT~, EDIT+3, EDIT+7, EDIT+8, SET+3~, SET+6*, SET+7, SET+8
    , PRVNM~, PRVNM+2
    PTR FINDREV~, FINDREV+5
    REVIEN EDIT~, EDIT+8, EDIT+9, EDIT+10, FINDREV+3~, FINDREV+5*, FINDREV+6
    RX ADD~, ADD+3
    RXARR SET~, SET+3!, SET+13*, DISP~, DISP+3
    RXARR( SET+7*, SET+8*, SET+9*, SET+11*, SET+14, DISP+4, DISP+5, DISP+6, DISP+7, DISP+11
    , DISP+12
    RXARRP SET~, SET+3!, DISP~
    RXARRP( SET+14*, DISP+4
    TYP FINDREV~, FINDREV+5
    TYPE RCITEM~, RCITEM+11
    U EN+1, EN+3, E1, E1+4, E1+5, E1+8, ASKRX+7, ADD+6, ADD+7, EDIT+3
    , EDIT+9, SET+7, SET+8, SET+9, SET+11, SET+14, DISP+4, DISP+5, DISP+6, DISP+7
    , DISP+9, DISP+10, DISP+11, DISP+12, HELP+1, BILL+2, BILL+3, BILL+4, RCITEM+11, FINDREV+5
    , PRVNM+2
    X ASKRX+1~, ADD+1~, ADD+3*, DRUG+1~
    Y ASKRX+1~, ASKRX+3*, ASKRX+4, ASKRX+8, ASKDT+2, ADD+1~, ADD+4, ADD+6, ADD+7, DRUG+1~
    , ORDT~, ORDT+3
    Z RCITEM+9~, RCITEM+10*, RCITEM+11*, FINDREV+3~, FINDREV+4*, FINDREV+5*, NDCNUM+1~, NDCNUM+2*, NDCNUM+3
    Z0 RCITEM+9~, RCITEM+11*, FINDREV+3~, FINDREV+5*
    Z1 RCITEM+9~, RCITEM+11*
    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 |  Naked Globals |  Local Variables  | All