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 |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^IBE(356.5

Package: Integrated Billing

Global: ^IBE(356.5


Information

FileMan FileNo FileMan Filename Package
356.5 CLAIMS TRACKING ALOS Integrated Billing

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Integrated Billing 2 ^IBE(356.5    IBTRV2    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
DRG Grouper 1 DRG(#80.2)[.01]    

Fields, Total: 3

Field # Name Loc Type Details
.01 DRG 0;1 POINTER TO DRG FILE (#80.2)
************************REQUIRED FIELD************************
DRG(#80.2)

  • LAST EDITED:  NOV 29, 1993
  • DESCRIPTION:  This is the DRG for which you wish to enter an average length of stay that will be reflected on the review screen. This ALOS is an alos that is used in practice by the insurance industry which is different than the ALOS
    generally found in DHCP files which are specific to VA care.
  • CROSS-REFERENCE:  356.5^B
    1)= S ^IBE(356.5,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(356.5,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  356.5^ADR^MUMPS
    1)= S:$P(^IBE(356.5,DA,0),U,2) ^IBE(356.5,"ADR",X,$P(^(0),U,2),DA)=""
    2)= K ^IBE(356.5,"ADR",X,+$P(^IBE(356.5,DA,0),U,2),DA)
    Cross-reference of drgs by year.
.02 YEAR 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X S:$D(X) X=$E(X,1,3)_"0000"
  • LAST EDITED:  JUL 23, 1993
  • HELP-PROMPT:  Enter the year for this ALOS for this DRG. If any date other than a year is entered, only the year will be stored.
  • DESCRIPTION:  
    This is the year for which you want to enter an average lenght of stay for this DRG.  If any date in a year is entered only the year will be stored.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  356.5^ADR1^MUMPS
    1)= S:$P(^IBE(356.5,DA,0),U) ^IBE(356.5,"ADR",$P(^(0),U),X,DA)=""
    2)= K ^IBE(356.5,"ADR",+$P(^IBE(356.5,DA,0),U),X,DA)
    Cross reference of all drgs by year so that the alos for that drg for the correct year can be found.
.03 ALOS FOR INS. PURPOSES 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUL 23, 1993
  • HELP-PROMPT:  Enter the ALOS for this DRG for this year. Type a Number between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  Enter the average length of stay (ALOS) that you wish to be used as a base for insurance purposes. This ALOS will be displayed on the expanded review screen for associated DRG's. Generally this information will be from
    HCFA or the insurance industry.

External References

Name Field # of Occurrence
^%DT .02+1

Global Variables Directly Accessed

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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