Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^IBA(363.2

Package: Integrated Billing

Global: ^IBA(363.2


Information

FileMan FileNo FileMan Filename Package
363.2 CHARGE ITEM Integrated Billing

Description

Directly Accessed By Routines, Total: 85

Package Total Routines
Integrated Billing 85 IB20P139    IB20P418    IB20P539    IB20P555    IB20P561    IB20P570    IB20P572    IB20P580
IB20P603    IB20P625    IB20P655    IB20P679    IB20P708    IB20P738    IB20P773    IBCRCC
IBCRCI    IBCRCU1    IBCREC    IBCRED    IBCREE    IBCREE1    IBCREF    IBCREQ
IBCRETP    IBCREU1    IBCRHBRA    IBCRHBRV    IBCRHRS    IBCRLI    IBCROE    IBCROI1
IBCRU4    IBCRU5    IBCU73    IBYP412    IBYP427    IBYP439    IBYP445    IBYP462
IBYP468    IBYP484    IBYP491    IBYP508    IBYP513    IBYP520    IBYP536    IBYP542
IBYP556    IBYP559    IBYP573    IBYP584    IBYP600    IBYP612    IBYP628    IBYP634
IBYP658    IBYP667    IBYP683    IBYP693    IBYP719    IBYP724    IBYP744    IBYP755
IBYP783    IBYPPC1    IBYPPL    IBYPPM    IBYPSA2    IBYPSB    IBYPSD    IBYPSE
IBYPSF    IBYPSG    IBYPSJ    IBYPSL    IBYPSM    ^IBA(363.2    ^IBA(363.21    ^IBE(399.6
IBYPSH    IBYPSI    IBYPSN    IBYPSO    ^IBE(363.1    

Accessed By FileMan Db Calls, Total: 67

Package Total Routines
Integrated Billing 67 IB20P139    IB20P418    IB20P539    IB20P555    IB20P561    IB20P570    IB20P572    IB20P580
IB20P603    IB20P625    IB20P655    IB20P679    IB20P708    IB20P738    IB20P773    IBCRED
IBCREE1    IBCREF    IBCRETP    IBCRHBRA    IBCRHRS    IBYP412    IBYP427    IBYP439
IBYP445    IBYP462    IBYP468    IBYP484    IBYP491    IBYP508    IBYP513    IBYP520
IBYP536    IBYP542    IBYP556    IBYP559    IBYP573    IBYP584    IBYP600    IBYP612
IBYP628    IBYP634    IBYP658    IBYP667    IBYP683    IBYP693    IBYP719    IBYP724
IBYP744    IBYP755    IBYP783    IBYPPC1    IBYPPL    IBYPPM    IBYPSA2    IBYPSB
IBYPSD    IBYPSE    IBYPSF    IBYPSG    IBYPSH    IBYPSI    IBYPSJ    IBYPSL
IBYPSM    IBYPSN    IBYPSO    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Integrated Billing 4 MCCR UTILITY(#399.1)[.01]    REVENUE CODE(#399.2)[.06]    BILLING ITEMS(#363.21)[.01]    CHARGE SET(#363.1)[.02]    
CPT HCPCS Codes 2 CPT MODIFIER(#81.3)[.07]    CPT(#81)[.01]    
DRG Grouper 1 DRG(#80.2)[.01]    

Fields, Total: 8

Field # Name Loc Type Details
.01 NAME 0;1 VARIABLE POINTER
************************REQUIRED FIELD************************
MCCR UTILITY(#399.1)  CPT(#81)  BILLING ITEMS(#363.21)  DRG(#80.2)  BILLING ITEMS(#363.21)  

  • EXPLANATION:  Billable Bedsections Only!
    SCREEN ON FILE 81: S DIC("S")="I '$P(^(0),U,4)"
  • EXPLANATION:  Active CPTs Only!
    SCREEN ON FILE 363.21: S DIC("S")="I $P(^(0),U,2)=1"
  • EXPLANATION:  NDC #'s Only!
    SCREEN ON FILE 363.21: S DIC("S")="I $P(^(0),U,2)=9"
  • EXPLANATION:  Miscellaneous items only!
  • LAST EDITED:  JUL 02, 1996
  • HELP-PROMPT:  Enter the Item that is billable.
  • DESCRIPTION:  
    The billable Item that may be charged on a bill.
  • CROSS-REFERENCE:  363.2^B
    1)= S ^IBA(363.2,"B",$E(X,1,30),DA)=""
    2)= K ^IBA(363.2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  363.2^AIVDTS^MUMPS
    1)= I +$P($G(^IBA(363.2,DA,0)),U,2),+$P(^(0),U,3) S ^IBA(363.2,"AIVDTS"_+$P(^(0),U,2),+X,-$P(^(0),U,3),DA)=""
    2)= I +$P($G(^IBA(363.2,DA,0)),U,2),+$P(^(0),U,3) K ^IBA(363.2,"AIVDTS"_+$P(^(0),U,2),+X,-$P(^(0),U,3),DA)
    Cross reference by Set, Item, and Effective Date for lookup.
.02 CHARGE SET 0;2 POINTER TO CHARGE SET FILE (#363.1)
************************REQUIRED FIELD************************
CHARGE SET(#363.1)

  • LAST EDITED:  JUL 02, 1996
  • HELP-PROMPT:  Enter the Charge Set this item/charge applies to.
  • DESCRIPTION:  
    This is the Charge Set that defines this item and the rate the charge is apart of.
  • CROSS-REFERENCE:  363.2^AIVDTS1^MUMPS
    1)= I +X,+$G(^IBA(363.2,DA,0)),+$P(^(0),U,3) S ^IBA(363.2,"AIVDTS"_+X,+$P(^(0),U,1),-$P(^(0),U,3),DA)=""
    2)= I +X,+$G(^IBA(363.2,DA,0)),+$P(^(0),U,3) K ^IBA(363.2,"AIVDTS"_+X,+$P(^(0),U,1),-$P(^(0),U,3),DA)
    Cross reference by Set, Item, and Effective Date for quick lookup.
.03 EFFECTIVE DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 02, 1996
  • HELP-PROMPT:  The first date this charge amount should be billed to a payer for the item.
  • DESCRIPTION:  The first date this charge amount should be applied to this item for this Charge Set.
    This item charge will override any other Charge Item with a previous effective date.
    The Charge Item with the most recent effective date will be used as the charge for the item and will be used as the implied inactive date for any previous charges for the item.
  • CROSS-REFERENCE:  363.2^AIVDTS2^MUMPS
    1)= I +X,+$G(^IBA(363.2,DA,0)),+$P(^(0),U,2) S ^IBA(363.2,"AIVDTS"_+$P(^(0),U,2),+^(0),-X,DA)=""
    2)= I +X,+$G(^IBA(363.2,DA,0)),+$P(^(0),U,2) K ^IBA(363.2,"AIVDTS"_+$P(^(0),U,2),+^(0),-X,DA)
    Cross reference by Set, Item, and Effective Date for quick lookup.
.04 INACTIVE DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 01, 1996
  • HELP-PROMPT:  Enter the last date this item is billable.
  • DESCRIPTION:  This is the last date this item is billable for this Charge Set. If the item is still billable but for a different amount add a new Charge Item entry for the item with the correct amount and effective date, it is not
    necessary to inactivate the old amount.
    The Charge Item with the most recent effective date will be used as the charge for the item and will be used as the implied inactive date for any previous charges for the item.
.05 UNIT CHARGE 0;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  JUL 01, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits. Enter the charge per unit for this item.
  • DESCRIPTION:  
    The dollar amount to be added to a bill for each of this item on the bill.
.06 REVENUE CODE 0;6 POINTER TO REVENUE CODE FILE (#399.2) REVENUE CODE(#399.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 01, 1996
  • HELP-PROMPT:  Enter the revenue code to be added to the bills for this charge.
  • DESCRIPTION:  
    This is the revenue code that will be added to a bill for the charge of this item. If no revenue code is entered the Charge Set's Default Revenue Code will be used.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=1"
  • EXPLANATION:  Active Revenue Codes Only!
.07 CPT MODIFIER 0;7 POINTER TO CPT MODIFIER FILE (#81.3) CPT MODIFIER(#81.3)

  • INPUT TRANSFORM:  S DIC("S")="N IBXZ S IBXZ=$G(^IBA(363.2,+$G(DA),0)) I $$MODP^ICPTMOD(+IBXZ,+Y,""I"",+$P(IBXZ,U,3))>0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 14, 1999
  • HELP-PROMPT:  Enter the modifier for this CPT that fully defines the charge.
  • DESCRIPTION:  A CPT charge may be broken into multiple charges by using the modifier.
    If a modifier is added this charge will only be added to bills that have both the CPT and modifier combination on the bill.
    If no modifier is added then the charge will only be added to bills that have the CPT but no modifier.
  • SCREEN:  S DIC("S")="N IBXZ S IBXZ=$G(^IBA(363.2,+$G(DA),0)) I $$MODP^ICPTMOD(+IBXZ,+Y,""I"",+$P(IBXZ,U,3))>0"
  • EXPLANATION:  Certain modifiers may only be used with certain CPT codes. Only a modifier assignable to this CPT may be used.
.08 BASE CHARGE 0;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  DEC 03, 2003
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
  • DESCRIPTION:  Enter the Base Charge associated with the item. This amount will be added once for the item on the bill, instead of once for each unit of the item. Base Charge is appropriate for only specific types of charges where the
    total charge for the item is an incremental Unit charge plus a single Base charge, such as Minutes and Hours.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #4700
  • E Claims Management Engine
  • NAME (.01).
    Access: Pointed to

    External References

    Name Field # of Occurrence
    ^%DT .03+1, .04+1
    ^DIC .06+1, .07+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^IBA(363.2 - [#363.2] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .03+1*, .04+1*
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
    DIC .06+1!*, .07+1!*
    DIC("S" .01VPSCR1+1*, .01VPSCR2+1*, .01VPSCR3+1*, .01VPSCR5+1*, .06+1*, .06SCR+1*, .07+1*, .07SCR+1*
    >> DIE .06+1, .07+1
    U .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
    X .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03+1*!, .03(XREF 1S), .03(XREF 1K), .04+1*!
    , .05+1*!, .06+1*!, .07+1*!, .08+1*!
    >> Y .03+1, .04+1, .06+1, .07+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All