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

Package: Integrated Billing

Global: ^IBT(356.9


Information

FileMan FileNo FileMan Filename Package
356.9 INPATIENT DIAGNOSIS Integrated Billing

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Integrated Billing 5 IBTRE6    IBTRED1    IBTRV2    ^IBT(356.9    IBTRE3    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Integrated Billing 1 IBTRE3    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Integrated Billing 1 CLAIMS TRACKING(#356)[.3]    

Pointer To FileMan Files, Total: 2

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

Fields, Total: 4

Field # Name Loc Type Details
.01 DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80)
************************REQUIRED FIELD************************
ICD DIAGNOSIS(#80)

  • LAST EDITED:  SEP 01, 1993
  • DESCRIPTION:  
    This is the diagnosis for this patient for this episode of care.
  • CROSS-REFERENCE:  356.9^B
    1)= S ^IBT(356.9,"B",$E(X,1,30),DA)=""
    2)= K ^IBT(356.9,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  356.9^ADG^MUMPS
    1)= S:$P(^IBT(356.9,DA,0),U,4)=3&($P(^(0),U,2)) ^IBT(356.9,"ADG",+$P(^(0),U,2),X,DA)=""
    2)= K ^IBT(356.9,"ADG",+$P(^IBT(356.9,DA,0),U,2),X,DA)
    Cross-reference of admitting diagnosis by admission movement.
  • CROSS-REFERENCE:  356.9^ADGPM^MUMPS
    1)= S:$P(^IBT(356.9,DA,0),U,2) ^IBT(356.9,"ADGPM",+$P(^(0),U,2),X,DA)=""
    2)= K ^IBT(356.9,"ADGPM",+$P(^IBT(356.9,DA,0),U,2),X,DA)
    Cross-reference of all diagnosis by admission movement
.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:  SEP 01, 1993
  • DESCRIPTION:  
    This field should point to the admission movement of the inpatient episode that this diagnosis is for.  For ASIH movements it should point to the admission in the acute setting.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=1"
  • EXPLANATION:  Must be an admission movement
  • CROSS-REFERENCE:  356.9^C
    1)= S ^IBT(356.9,"C",$E(X,1,30),DA)=""
    2)= K ^IBT(356.9,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  356.9^APD^MUMPS
    1)= S:$P(^IBT(356.9,DA,0),U,3) ^IBT(356.9,"APD",X,-$P(^(0),U,3),DA)=""
    2)= K ^IBT(356.9,"APD",X,-$P(^IBT(356.9,DA,0),U,3),DA)
    cross reference of all diagnoses by tracking id and inverse date
  • CROSS-REFERENCE:  356.9^ATP1^MUMPS
    1)= S:$P(^IBT(356.9,DA,0),U,4) ^IBT(356.9,"ATP",X,$P(^(0),U,4),DA)=""
    2)= K ^IBT(356.9,"ATP",X,+$P(^IBT(356.9,DA,0),U,4),DA)
    Cross reference of primary diagnosis for a tracking entry so only one diagnosis can be primary
  • CROSS-REFERENCE:  356.9^ADG1^MUMPS
    1)= S:$P(^IBT(356.9,DA,0),U,4)=3&(+^(0)) ^IBT(356.9,"ADG",X,+^(0),DA)=""
    2)= K ^IBT(356.9,"ADG",X,+^IBT(356.9,DA,0),DA)
    Cross-reference of admitting diagnosis by admission movement.
  • CROSS-REFERENCE:  356.9^ADGPM1^MUMPS
    1)= S:+^IBT(356.9,DA,0) ^IBT(356.9,"ADGPM",X,+^(0),DA)=""
    2)= K ^IBT(356.9,"ADGPM",X,+^IBT(356,DA,0),DA)
    Cross-reference of all diagnoses by admission movement.
.03 ONSET DATE THIS VISIT 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X K:$G(X)+.9<+$G(^DGPM(+$P(^IBT(356.9,DA,0),U,2),0)) X
  • LAST EDITED:  SEP 02, 1993
  • HELP-PROMPT:  Dates must be during the admission.
  • DESCRIPTION:  This is the date of the onset of this diagnosis for this episode of care. If the diagnosis is for an admission then the date of onset should be within the dates of admission and discharge. If the diagnosis is for an
    outpatient visit then the date of onset should be the visit date.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  356.9^D
    1)= S ^IBT(356.9,"D",$E(X,1,30),DA)=""
    2)= K ^IBT(356.9,"D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  356.9^APD1^MUMPS
    1)= S:$P(^IBT(356.9,DA,0),U,2) ^IBT(356.9,"APD",+$P(^(0),U,2),-X,DA)=""
    2)= K ^IBT(356,"APD",+$P(^IBT(356.9,DA,0),U,2),-X,DA)
    cross reference of all diagnoses by tracking id and inverse date.
.04 TYPE 0;4 SET
  • '1' FOR PRIMARY;
  • '2' FOR SECONDARY;
  • '3' FOR ADMITTING;

  • LAST EDITED:  SEP 01, 1993
  • DESCRIPTION:  
    Enter 'PRIMARY' if this is the primary diagnosis for this date, enter 'SECONDARY' if this is not the primary diagnosis for this date.  Enter "ADMITTING" if this is the admitting diagnosis.
  • SCREEN:  S DIC("S")="I $$DICS^IBTRED1(Y)"
  • EXPLANATION:  Only one diagnosis can be primary or admitting diagnosis for an admission.
  • CROSS-REFERENCE:  356.9^ATP^MUMPS
    1)= S:$P(^IBT(356.9,DA,0),U,2) ^IBT(356.9,"ATP",$P(^(0),U,2),X,DA)=""
    2)= K ^IBT(356.9,"ATP",+$P(^IBT(356.9,DA,0),U,2),X,DA)
    Cross reference of primary diagnosis for a tracking entry so only one diagnosis can be primary at a time.
  • CROSS-REFERENCE:  356.9^ADG2^MUMPS
    1)= S:X=3&($P(^IBT(356.9,DA,0),U,2))&(+^(0)) ^IBT(356.9,"ADG",+$P(^(0),U,2),+^(0),DA)=""
    2)= K ^IBT(356.9,"ADG",+$P(^IBT(356.9,DA,0),U,2),+^(0),DA)
    Cross-reference of admitting diagnosis by admission movement.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #1354
  • UTILIZATION MANAGEMENT ROLLUP
  • DIAGNOSIS (.01).
    Access: Direct Global Read & w/Fileman

    The 'ADG' x-ref is used to return the patientsdiagnosis.

    External References

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGPM - [#405] IDWRITE+1, .03+1
    ^DPT - [#2] IDWRITE+1
    ^IBT(356 - [#356] .02(XREF 5K), .03(XREF 2K)
    ^IBT(356.9 - [#356.9] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
    .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .02(XREF 5S), .02(XREF 5K), .03+1, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S)
    .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K)

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

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