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: ^AUTTRCD

Package: Utility Tables

Global: ^AUTTRCD


Information

FileMan FileNo FileMan Filename Package
9999999.08 RECODE ICD/APC Utility Tables

Description

Directly Accessed By Routines, Total: 13

Package Total Routines
Patient Care Component Reports 5 APCLAP0    APCLAP11    APCLPVC2    APCLRAPC    APCLV07    
Patient Care Component 2 APCDAAPC    APCDEAPC    
Table Maintenance 2 AUM91011    AUM94034    
Contract Health Management Information System 1 ACHSTX7A    
Local Area Programs 1 AZHDKAUT    
Mental Health Social Services 1 AMHUTIL3    
Patient Care Component Data Transmission 1 APCPAPOV    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Patient Care Component 2 APCDAAPC    APCDEAPC    
Patient Care Component Reports 2 APCLOS4    APCLOS6    
Table Maintenance 2 AUM91011    AUM94034    
Utility Tables 1 AUTPOS2    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
DRG Grouper 1 ICD DIAGNOSIS(#80)[.05]    
Utility Tables 1 APC RECODE CATEGORY(#9999999.081)[.04]    

Fields, Total: 7

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

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • LAST EDITED:  APR 08, 1994
  • HELP-PROMPT:  ANSWER MUST BE 3 CHARACTERS IN LENGTH
  • DELETE TEST:  .01,0)= I 1
  • CROSS-REFERENCE:  9999999.08^B
    1)= S ^AUTTRCD("B",$E(X,1,30),DA)=""
    2)= K ^AUTTRCD("B",$E(X,1,30),DA)
.02 ICD9 CODE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<5) X
  • LAST EDITED:  APR 10, 1989
  • HELP-PROMPT:  ANSWER MUST BE 5-7 CHARACTERS IN LENGTH
.03 NARRATIVE 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>44!($L(X)<3) X
  • LAST EDITED:  APR 17, 1989
  • HELP-PROMPT:  ANSWER MUST BE 3-44 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  9999999.08^C
    1)= S ^AUTTRCD("C",$E(X,1,30),DA)=""
    2)= K ^AUTTRCD("C",$E(X,1,30),DA)
.04 CATEGORY 0;4 POINTER TO APC RECODE CATEGORY FILE (#9999999.081)
************************REQUIRED FIELD************************
APC RECODE CATEGORY(#9999999.081)

  • LAST EDITED:  SEP 28, 1993
.05 ICD DIAGNOSIS POINTER 0;5 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  MAY 22, 1996
  • DESCRIPTION:  
    Contains the ICD 9 code associated with the APC recode.  (Pointer field)
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.08^.06
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTRCD(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9999999.08,.05,1,1,1.1) X ^DD(9999999.08,.05,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(^AUTTRCD(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9999999.08,DIG=.06 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(^AUTTRCD(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9999999.08,.05,1,1,2.1) X ^DD(9999999.08,.05,1,1,2.4)
    2.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUTTRCD(D0,0)):^(0),1:""),D0=$P(Y(1),U,5) 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(^AUTTRCD(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9999999.08,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= #.05:#.01
    DELETE VALUE)= #.05:#.01
    FIELD)= #.06
.06 ICD DIAGNOSIS (CODE) 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  MAY 22, 1996
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • DESCRIPTION:  
    Actual ICD Diagnosis Code value.  This field is triggered and uneditable.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the ICD DIAGNOSIS POINTER field of the RECODE ICD/APC File
  • CROSS-REFERENCE:  9999999.08^AC
    1)= S ^AUTTRCD("AC",$E(X,1,30),DA)=""
    2)= K ^AUTTRCD("AC",$E(X,1,30),DA)
1101 RANGE 11;0 Multiple #9999999.81101 9999999.81101
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All