Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBA(362.4 - [#362.4] Classic Fileman Calls
    ^PSDRUG - [#50] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call