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 |  All
Print Page as PDF
Global: ^AUTTRIJ

Package: Utility Tables

Global: ^AUTTRIJ


Information

FileMan FileNo FileMan Filename Package
9999999.12 RECODE INJURY Utility Tables

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Patient Care Component 1 APCDEAPC    
Patient Care Component Data Transmission 1 APCPAPOV    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Patient Care Component 1 APCDEAPC    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
DRG Grouper 1 ICD DIAGNOSIS(#80)[.02]    

Fields, Total: 5

Field # Name Loc Type Details
.01 RECODE 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X
  • HELP-PROMPT:  Enter the two digit recode number
  • DELETE TEST:  .01,0)= I 1
  • CROSS-REFERENCE:  9999999.12^B
    1)= S ^AUTTRIJ("B",$E(X,1,30),DA)=""
    2)= K ^AUTTRIJ("B",$E(X,1,30),DA)
.02 ICD DIAGNOSIS POINTER 0;2 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  MAY 22, 1996
  • DESCRIPTION:  
    Pointer to associated E code in ICD Diagnosis.
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.12^.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTRIJ(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9999999.12,.02,1,1,1.1) X ^DD(9999999.12,.02,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ICD9(+D0,0)) D0=-1 S Y(101)=$S($D(^ICD9(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^AUTTRIJ(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9999999.12,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTRIJ(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9999999.12,.02,1,1,2.1) X ^DD(9999999.12,.02,1,1,2.4)
    2.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUTTRIJ(D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^ICD9(+D0,0)) D0=-1 S Y(101)=$S($D(^ICD9(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^AUTTRIJ(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9999999.12,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= #.02:#.01
    DELETE VALUE)= #.02:#.01
    FIELD)= #.03
.03 ICD DIAGNOSIS CODE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<2) X
  • LAST EDITED:  MAY 22, 1996
  • HELP-PROMPT:  Answer must be 2-8 characters in length.
  • DESCRIPTION:  
    Associated ICD Diagnosis E code.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the ICD DIAGNOSIS POINTER field of the RECODE INJURY File
.04 NARRATIVE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  MAY 22, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • CROSS-REFERENCE:  9999999.12^C
    1)= S ^AUTTRIJ("C",$E(X,1,30),DA)=""
    2)= K ^AUTTRIJ("C",$E(X,1,30),DA)
1101 RANGE 11;0 Multiple #9999999.121101 9999999.121101
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All