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.5

Package: Integrated Billing

Global: ^IBE(350.5


Information

FileMan FileNo FileMan Filename Package
350.5 BASC LOCALITY MODIFIER Integrated Billing

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Integrated Billing 6 IBXDIVD    ^IBE(399.6    IBAUTL1    IBECPTE    IBEFUNC1    ^IBE(350.5    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Integrated Billing 1 IBECPTE    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Registration 1 MEDICAL CENTER DIVISION(#40.8)[.02]    

Fields, Total: 6

Field # Name Loc Type Details
.01 EFFECTIVE DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 13, 1991
  • DESCRIPTION:  
    The date on which this entries data becomes effective. The data in this entry will override any other entry for this DIVISION that has a previous EFFECTIVE DATE.
  • CROSS-REFERENCE:  350.5^B
    1)= S ^IBE(350.5,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(350.5,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  350.5^AIVDT^MUMPS
    1)= I $P(^IBE(350.5,DA,0),"^",2) S ^IBE(350.5,"AIVDT",$P(^(0),"^",2),-X,DA)=""
    2)= I $P(^IBE(350.5,DA,0),"^",2) K ^IBE(350.5,"AIVDT",$P(^(0),"^",2),-X,DA)
    Used to find the appropriate entry for a division on any particular date.
.02 DIVISION 0;2 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)
************************REQUIRED FIELD************************
MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  JAN 21, 1992
  • DESCRIPTION:  
    The division that this data applies to.
  • CROSS-REFERENCE:  350.5^C
    1)= S ^IBE(350.5,"C",$E(X,1,30),DA)=""
    2)= K ^IBE(350.5,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  350.5^AIVDT1^MUMPS
    1)= I $P(^IBE(350.5,DA,0),"^") S ^IBE(350.5,"AIVDT",X,-$P(^(0),"^"),DA)=""
    2)= I $P(^IBE(350.5,DA,0),"^") K ^IBE(350.5,"AIVDT",X,-$P(^(0),"^"),DA)
    Used to find the correct entry for a division for a particular date.
.04 STATUS 0;4 SET
************************REQUIRED FIELD************************
  • '1' FOR ACTIVE;
  • '0' FOR INACTIVE;

  • LAST EDITED:  JAN 21, 1992
  • DESCRIPTION:  
    The status for this DIVISION on/after this EFFECTIVE DATE.
.05 WAGE PERCENTAGE 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>1)!(X<0)!(X?.E1"."9N.N) X
  • LAST EDITED:  JUN 10, 2004
  • HELP-PROMPT:  Type a number between 0 and 1, with up to 8 decimal digits. This is the wage component fraction of the Ambulatory Surgery charge.
  • DESCRIPTION:  
    This is the percentage of the rate group unit charge that is the wage component to be used in calculating the ambulatory surgery charge.
  • CROSS-REFERENCE:  ^^TRIGGER^350.5^.06
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=1-DIV S DIH=$G(^IBE(350.5,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=350.5,DIG=.06 D ^DICR
    2)= Q
    CREATE VALUE)= 1-WAGE PERCENTAGE
    DELETE VALUE)= NO EFFECT
    FIELD)= NON-WAGE PERCENTAGE
.06 NON-WAGE PERCENTAGE 0;6 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>1)!(X<0)!(X?.E1"."9N.N)!(X'=(1-$P(^IBE(350.5,DA,0),U,5))) X
  • LAST EDITED:  JAN 22, 1992
  • HELP-PROMPT:  Type a Number between 0 and 1, 8 Decimal Digits. Wage and non-wage percentage must total 1.
  • DESCRIPTION:  
    This is the percentage of the rate group unit charge that is the non-wage component to be used in calculating the ambulatory surgery charge.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the WAGE PERCENTAGE field of the BASC LOCALITY MODIFIER File
.07 LOCALITY RATE MODIFIER 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."9N.N) X
  • LAST EDITED:  JAN 21, 1992
  • HELP-PROMPT:  Type a Number between 0 and 99, 8 Decimal Digits
  • DESCRIPTION:  This is the Geographic Wage Index that is used to account for wage differences in different localities when calculating the ambulatory surgery charge. It is multiplied by the wage component to get the final geographic wage
    component of the charge.

External References

Name Field # of Occurrence
^%DT .01+1
^DICR .05(XREF 1S)
Y^DIQ ID.02+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(40.8 ID.02+1
^DG(40.8 - [#40.8] ID.02+1
^IBE(350.5 - [#350.5] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .05(XREF 1S), .06+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*
%I ID.02+1*!
>> C ID.02+1*
>> D0 .05(XREF 1S)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .05(XREF 1S), .06+1
>> DIC ID.02+1, ID.04+1
>> DIG .05(XREF 1S)
>> DIH .05(XREF 1S)
>> DIU .05(XREF 1S)
DIV .05(XREF 1S)
DIV(0 .05(XREF 1S)
U ID.02+1, ID.07+1, .05(XREF 1S), .06+1
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .05+1!
, .05(XREF 1S), .06+1!, .07+1!
Y ID.02+1*, .01+1, .05(XREF 1S)
Y(1 .05(XREF 1S)
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