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

Package: Integrated Billing

Global: ^IBT(356.93


Information

FileMan FileNo FileMan Filename Package
356.93 INPATIENT INTERIM DRG Integrated Billing

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Integrated Billing 5 ^IBT(356.93    IBTOBI4    IBTRKR    IBTRV2    IBTRVD    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Integrated Billing 1 IBTRV2    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
DRG Grouper 1 DRG(#80.2)[.01]    
Registration 1 PATIENT MOVEMENT(#405)[.02]    

Fields, Total: 5

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

  • INPUT TRANSFORM:  S DIC("S")="I $$DRGACT^IBACSV(+Y,$P(+$G(^DGPM(+$P($G(^IBT(356.93,+$G(DA),0)),U,2),0)),"".""))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  JUN 01, 2003
  • DESCRIPTION:  
    Enter the DRG that best describes this inpatient case.
  • SCREEN:  S DIC("S")="I $$DRGACT^IBACSV(+Y,$P(+$G(^DGPM(+$P($G(^IBT(356.93,+$G(DA),0)),U,2),0)),"".""))"
  • EXPLANATION:  Only codes active for the admission date may be selected.
  • CROSS-REFERENCE:  356.93^B
    1)= S ^IBT(356.93,"B",$E(X,1,30),DA)=""
    2)= K ^IBT(356.93,"B",$E(X,1,30),DA)
.02 ADMISSION MOVEMENT 0;2 POINTER TO PATIENT MOVEMENT FILE (#405) PATIENT MOVEMENT(#405)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 30, 1993
  • DESCRIPTION:  
    This field should point to the admission movement of the inpatient episode that this interim DRG is for.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=1"
  • EXPLANATION:  Must be an admission movement.
  • CROSS-REFERENCE:  356.93^AMVD^MUMPS
    1)= S:$P(^IBT(356.93,DA,0),U,3) ^IBT(356.93,"AMVD",X,+$P(^(0),U,3),DA)=""
    2)= K ^IBT(356.93,"AMVD",X,+$P(^IBT(356.93,DA,0),U,3),DA)
    Cross reference of drgs by admission movement and drg date.
.03 DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 30, 1993
  • HELP-PROMPT:  This is the date that the INTERIM DRG was computed.
  • DESCRIPTION:  
    Enter the date that this DRG was computed.
  • CROSS-REFERENCE:  356.93^AMVD1^MUMPS
    1)= S:$P(^IBT(356.93,DA,0),U,2) ^IBT(356.93,"AMVD",+$P(^(0),U,2),X,DA)=""
    2)= K ^IBT(356.93,"AMVD",+$P(^IBT(356.93,DA,0),U,2),X,DA)
    Cross reference of drgs by admission movement and drg date.
.04 ESTIMATED LENGTH OF STAY 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  DEC 15, 1993
  • HELP-PROMPT:  Type a Number between 0 and 99999, 1 Decimal Digit
  • DESCRIPTION:  This is the estimated length of stay in the medical center for UR or Insurance purposes. This is not related to the average length of stays for PTF. It is the estimated LOS for this admission for this patient for this
    DRG.  It is used to help determine if for billing purposes that this patient has exceeded his length of stay.
  • CROSS-REFERENCE:  356.93^AC^MUMPS
    1)= Q
    2)= Q
    Cross-reference to cause filing of data.  Field Days Remaining utilizes value in input transform and may not be filed without this x-ref.
.05 DAYS REMAINING 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N)!(X>$P($G(^IBT(356.93,DA,0)),"^",4)) X
  • LAST EDITED:  DEC 01, 1993
  • HELP-PROMPT:  The Days Remaining can not exceed the Estimated Length of Stay. Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the days remaining that this patient has for this DRG.  It is the ELOS minus the number of days the patient has already been treated for this episode.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

External References

Name Field # of Occurrence
^%DT .03+1
^DIC .01+1, .02+1
Y^DIQ ID.02+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(405 ID.02+1
^DGPM - [#405] ID.02+1, IDWRITE+1
^DPT - [#2] IDWRITE+1
^IBT(356.93 - [#356.93] .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .05+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .03+1*
%I ID.02+1*!
>> C ID.02+1*
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .05+1
DIC ID.02+1, .01+1!*, .02+1!*
DIC("S" .01+1*, .01SCR+1*, .02+1*, .02SCR+1*
>> DIE .01+1, .02+1
U ID.02+1, ID.03+1, IDWRITE+1, .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .02+1*!, .02(XREF 1S), .02(XREF 1K), .03+1*!, .03(XREF 1S), .03(XREF 1K), .04+1!
, .05+1!
Y ID.02+1*, IDWRITE+1~*, .01+1, .02+1, .03+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All