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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^IBE(350.2

Package: Integrated Billing

Global: ^IBE(350.2


Information

FileMan FileNo FileMan Filename Package
350.2 IB ACTION CHARGE Integrated Billing

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
Integrated Billing 12 IB20PT31    IB20PT5    IBACVA1    IBAUTL    IBAUTL1    IBAUTL2    IBAUTL3    IBEBR
IBEBRH    IBEFUNC1    ^IBE(350.2    IBORAT1A    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Integrated Billing 2 IB20PT31    IBEBR    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Integrated Billing 1 IB ACTION TYPE(#350.1)[.03]    

Fields, Total: 7

Field # Name Loc Type Details
.01 KEY 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DESCRIPTION:  
    This is a description unique name for this entry that identifies it.  It is not used in the calculation of the charge but rather for editing purposes.
  • CROSS-REFERENCE:  350.2^B
    1)= S ^IBE(350.2,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(350.2,"B",$E(X,1,30),DA)
.02 EFFECTIVE DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 06, 1991
  • DESCRIPTION:  
    This is the date the charge rate for this entry became effective.
  • CROSS-REFERENCE:  350.2^C
    1)= S ^IBE(350.2,"C",$E(X,1,30),DA)=""
    2)= K ^IBE(350.2,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  350.2^AIVDT^MUMPS
    1)= I $P(^IBE(350.2,DA,0),U,3) S ^IBE(350.2,"AIVDT",$P(^(0),U,3),-X,DA)=""
    2)= I $P(^IBE(350.2,DA,0),U,3) K ^IBE(350.2,"AIVDT",$P(^(0),U,3),-X,DA)
.03 IB TRANSACTION TYPE 0;3 POINTER TO IB ACTION TYPE FILE (#350.1) IB ACTION TYPE(#350.1)

  • LAST EDITED:  FEB 06, 1991
  • DESCRIPTION:  
    This is the IB TRANSACTION TYPE that this rate is for.
  • CROSS-REFERENCE:  350.2^AIVDT1^MUMPS
    1)= I $P(^IBE(350.2,DA,0),U,2) S ^IBE(350.2,"AIVDT",X,-$P(^(0),U,2),DA)=""
    2)= I $P(^IBE(350.2,DA,0),U,2) K ^IBE(350.2,"AIVDT",X,-$P(^(0),U,2),DA)
.04 UNIT CHARGE, FIXED 0;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    If this charge is a fixed amount, this field contains the fixed amount.
.05 INACTIVATION DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  If this charge is inactive put in the inactive date. If the charge is not to be used the inactive date should equal the active date. If the charge was effective for a time period but that charge no longer is valid then
    enter the date that this is inactive.  No entry is necessary in this field if a more recent active date is added for an IB ACTION TYPE.
.06 ADDITIONAL AMOUNT 0;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  SEP 13, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  This is a fixed additional dollar amount that will be added to the basic charge after it has been computed. An example of this would be the additional charge of $200 added to HCFA Ambulatory Surgery rate groups for
    inter-ocular lens implants.
10 UNIT CHARGE LOGIC 10;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • HELP-PROMPT:  This is Standard MUMPS code.
  • DESCRIPTION:  
    If this charge is not fixed (ie an exact cost) the field contains the logic to calculate the cost per unit.  It may need to use the logic in the IB transaction type file to find this cost.

External References

Name Field # of Occurrence
^%DT .02+1, .05+1
^DIM 10+1

Global Variables Directly Accessed

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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