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

Package: DRG Grouper

Global: ^ICDS


Information

FileMan FileNo FileMan Filename Package
80.4 ICD CODING SYSTEMS DRG Grouper

Description

Directly Accessed By Routines, Total: 23

Package Total Routines
DRG Grouper 13 ICDEXA    ICDEXA3    ICDEXC2    ^ICDD(83.71    ICDDICA    ICDEXD6    ICDEXLK    ICDEXLK3
ICDEXLK5    ICDEXLK6    ICDEXS    ICDEXS2    ^ICD0    
Quasar 2 ACKQ DIAG COND ICD-10    ACKQ DIAG COND ICD-9    
Registration 2 DGPT EXPANDED CODE SORT ICD-10    DGPT EXPANDED CODE SORT ICD-9    
Surgery 2 DONOR RACE    ^DIC(130.4    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Mental Health 1 YSDXUTL    
PCE Patient Care Encounter 1 PXDXUTL    

Pointed To By FileMan Files, Total: 10

Package Total FileMan Files
Automated Information Collection System 2 ENCOUNTER FORM(#357)[#357.03(.01)]    PACKAGE INTERFACE(#357.6)[.22]    
DRG Grouper 2 ICD OPERATION/PROCEDURE(#80.1)[1.1]    ICD DIAGNOSIS(#80)[1.1]    
Registration 2 CATASTROPHIC DISABILITY REASONS(#27.17)[9]    PTF EXPANDED CODE(#45.89)[.05]    
Clinical Case Registries 1 ROR SELECTION RULE(#798.2)[7]    
Lab Service 1 LAB SEARCH/EXTRACT(#69.5)[#69.54(1)]    
Quasar 1 A&SP DIAGNOSTIC CONDITION(#509850.1)[.07]    
Surgery 1 ICD SEARCH API(#130.4)[.02]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
VA FileMan 1 FILE(#1)[.03]    

Fields, Total: 5

Field # Name Loc Type Details
.001 ICD CODING SYSTEM NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  SEP 29, 2011
  • HELP-PROMPT:  Enter a number between 1 and 9999.
  • DESCRIPTION:  
    This is a numeric representation of a ICD Coding System.
.01 ICD CODING SYSTEM NOMENCLATURE 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  OCT 03, 2011
  • HELP-PROMPT:  Enter a Coding System Nomenclature (3-30 characters).
  • DESCRIPTION:  
    This is the ICD Coding system, to include the ICD designator, the version number and an identifier for the type if ICD coding system (diagnosis or procedure). Examples: ICD-9-CM, ICD-10-CM, ICD-10-PCS, etc.
  • CROSS-REFERENCE:  80.4^B
    1)= S ^ICDS("B",$E(X,1,30),DA)=""
    2)= K ^ICDS("B",$E(X,1,30),DA)
    ^ICDS("B",NOM,IEN) - Where NOM is the coding system nomenclature (i.e., ICD-9-CM, ICD-10-PCS, etc.) and IEN is the Internal Entry Number in the ICD CODING SYSTEMS file #80.4 where the nomenclature is stored.
.02 CODING SYSTEM ABBREVIATION 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  OCT 03, 2011
  • HELP-PROMPT:  Enter the Coding System Abbreviation (3 characters).
  • DESCRIPTION:  
    This is a unique 3 character identifier for the coding system.
  • CROSS-REFERENCE:  80.4^C
    1)= S ^ICDS("C",$E(X,1,30),DA)=""
    2)= K ^ICDS("C",$E(X,1,30),DA)
    ^ICDS("C",SAB,IEN) - Where SAB is the coding system abbreviation and IEN is the Internal Entry Number in the ICD CODING SYSTEMS file #80.4 where the abbreviation is stored.
.03 ICD FILE 0;3 POINTER TO FILE FILE (#1) FILE(#1)

  • INPUT TRANSFORM:  I +Y=80!(+Y=80.1) D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  OCT 03, 2011
  • HELP-PROMPT:  Enter the appropriate file number (80 or 80.1).
  • DESCRIPTION:  
    This is the file number were the ICD CODING SYSTEM is stored.
  • SCREEN:  I +Y=80!(+Y=80.1)
  • EXPLANATION:  Selection limited to ICD files 80 and 80.1
  • CROSS-REFERENCE:  80.4^F
    1)= S ^ICDS("F",$E(X,1,30),DA)=""
    2)= K ^ICDS("F",$E(X,1,30),DA)
    ^ICDS("F",FIL,IEN) - Where FIL is the file number where the coding system is stored and IEN is the Internal Entry Number in the ICD CODING SYSTEMS file #80.4 where the file number is stored.
.04 IMPLEMENTATION DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  OCT 03, 2011
  • HELP-PROMPT:  Enter the date the ICD coding system was implemented.
  • DESCRIPTION:  
    This is the date the ICD CODING SYSTEM was implemented in the VA.

Found Entries, Total: 4

ICD CODING SYSTEM NOMENCLATURE: ICD-9-CM    ICD CODING SYSTEM NOMENCLATURE: ICD-9 Proc    ICD CODING SYSTEM NOMENCLATURE: ICD-10-CM    ICD CODING SYSTEM NOMENCLATURE: ICD-10-PCS    

External References

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICDS("B" .01(XREF 1S), .01(XREF 1K)
^ICDS("C" .02(XREF 1S), .02(XREF 1K)
^ICDS("F" .03(XREF 1S), .03(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .04+1*
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
DIC .03+1!*
>> DIE .03+1
X .001+1!, .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*!
>> Y .03+1, .03SCR+1, .04+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables  | All