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

Package: Integrated Billing

Global: ^IBE(350.4


Information

FileMan FileNo FileMan Filename Package
350.4 BILLABLE AMBULATORY SURGICAL CODE Integrated Billing

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Integrated Billing 6 IBECPTE    ^IBE(399.6    IBAUTL1    IBECPTT    IBEFUNC1    ^IBE(350.4    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Integrated Billing 2 IBECPTE    IBECPTT    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
CPT HCPCS Codes 1 CPT(#81)[.02]    
Integrated Billing 1 IB ACTION TYPE(#350.1)[.03]    

Fields, Total: 4

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:  AUG 29, 1991
  • HELP-PROMPT:  Enter the date that this new STATUS/RATE GROUP becomes effective.
  • DESCRIPTION:  
    This is the date when the new status or rate group for a procedure becomes effective.
  • CROSS-REFERENCE:  350.4^B
    1)= S ^IBE(350.4,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(350.4,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  350.4^AIVDT^MUMPS
    1)= I $P(^IBE(350.4,DA,0),"^",2) S ^IBE(350.4,"AIVDT",$P(^(0),"^",2),-X,DA)=""
    2)= I $P(^IBE(350.4,DA,0),"^",2) K ^IBE(350.4,"AIVDT",$P(^(0),"^",2),-X,DA)
    3)= DO NOT DELETE
    This cross reference is used to find the correct rate group for a procedure on a particular date.
.02 PROCEDURE 0;2 POINTER TO CPT FILE (#81) CPT(#81)

  • LAST EDITED:  MAY 14, 1997
  • DESCRIPTION:  
    The ambulatory surgery associated with this entry.
  • CROSS-REFERENCE:  350.4^C
    1)= S ^IBE(350.4,"C",$E(X,1,30),DA)=""
    2)= K ^IBE(350.4,"C",$E(X,1,30),DA)
    3)= DO NOT DELETE
  • CROSS-REFERENCE:  350.4^AIVDT1^MUMPS
    1)= I $P(^IBE(350.4,DA,0),"^") S ^IBE(350.4,"AIVDT",X,-$P(^(0),"^"),DA)=""
    2)= I $P(^IBE(350.4,DA,0),"^") K ^IBE(350.4,"AIVDT",X,-$P(^(0),"^"),DA)
    3)= DO NOT DELETE
    Used to find the correct rate group for a procedure on any particular date.
.03 RATE GROUP 0;3 POINTER TO IB ACTION TYPE FILE (#350.1)
************************REQUIRED FIELD************************
IB ACTION TYPE(#350.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,1)[""MEDICARE RATE""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 02, 1991
  • HELP-PROMPT:  May enter "Rate N" as abbrevation for Opt Medicare Rate N.
  • DESCRIPTION:  
    This is the HCFA rate group assigned to this procedure beginning with this entry's effective date.
  • SCREEN:  S DIC("S")="I $P(^(0),U,1)[""MEDICARE RATE"""
  • EXPLANATION:  Only Medicare Rate Action Type allowed.
  • NOTES:  TRIGGERED by the STATUS field of the BILLABLE AMBULATORY SURGICAL CODE File
.04 STATUS 0;4 SET
************************REQUIRED FIELD************************
  • '1' FOR ACTIVE;
  • '0' FOR INACTIVE;

  • LAST EDITED:  JUN 09, 2004
  • HELP-PROMPT:  Enter the appropriate STATUS for this procedure on and after the EFFECTIVE DATE.
  • DESCRIPTION:  
    The STATUS for this procedure beginning with the EFFECTIVE DATE.
  • CROSS-REFERENCE:  ^^TRIGGER^350.4^.03
    1)= X ^DD(350.4,.04,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBE(350.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^IBE(350.4,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=350.4,DIG=.03 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(350.4,.04,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="INACTIVE"
    2)= X ^DD(350.4,.04,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^IBE(350.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^IBE(350.4,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=350.4,DIG=.03 D ^DICR
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(350.4,.04,0)),U,3),Y(1)=$S($D(^IBE(350.4,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,4)_":",2),$C(59))="INACTIVE"
    CREATE CONDITION)= STATUS="INACTIVE"
    CREATE VALUE)= @
    DELETE CONDITION)= STATUS="INACTIVE"
    DELETE VALUE)= @
    FIELD)= RATE GROUP
    Removes the Rate Group from any procedure being inactivated.

External References

Name Field # of Occurrence
^%DT .01+1
^DIC .03+1
^DICR .04(XREF 1S), .04(XREF 1K)
Y^DIQ ID.02+1, ID.03+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(350.1 ID.03+1
^DD(350.4 .04(XREF 1S), .04(XREF 1n1.3), .04(XREF 1K), .04(XREF 1n2.3)
^DD(409.71 ID.02+1
^IBE(350.1 - [#350.1] ID.03+1
^IBE(350.4 - [#350.4] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .04(XREF 1S), .04(XREF 1K)
, .04(XREF 1n2.3)
^SD(409.71 ID.02+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*
%I ID.02+1*!, ID.03+1*!
>> C ID.02+1*, ID.03+1*
>> D0 .04(XREF 1S), .04(XREF 1n1.3), .04(XREF 1K), .04(XREF 1n2.3)
>> 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), .04(XREF 1n1.3), .04(XREF 1n2.3)
DIC ID.02+1, ID.03+1, .03+1!*
DIC("S" .03+1*, .03SCR+1*
>> DIE .03+1
>> DIG .04(XREF 1S), .04(XREF 1K)
>> DIH .04(XREF 1S), .04(XREF 1K)
>> DIU .04(XREF 1S), .04(XREF 1K)
DIV .04(XREF 1S), .04(XREF 1n1.3), .04(XREF 1K), .04(XREF 1n2.3)
DIV(0 .04(XREF 1S), .04(XREF 1n1.3), .04(XREF 1K), .04(XREF 1n2.3)
U ID.02+1, ID.03+1, .04(XREF 1S), .04(XREF 1n1.3), .04(XREF 1K), .04(XREF 1n2.3)
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), .03+1*!
, .04(XREF 1S), .04(XREF 1n1.3), .04(XREF 1K), .04(XREF 1n2.3)
Y ID.02+1*, ID.03+1*, .01+1, .03+1, .04(XREF 1S), .04(XREF 1K)
Y(0 .04(XREF 1n1.3), .04(XREF 1n2.3)
Y(1 .04(XREF 1S), .04(XREF 1n1.3), .04(XREF 1K), .04(XREF 1n2.3)
Y(2 .04(XREF 1n2.3)
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