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 |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^ICDD(83.71

Package: DRG Grouper

Global: ^ICDD(83.71


Information

FileMan FileNo FileMan Filename Package
83.71 DRG HAC CODE SETS DRG Grouper

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
DRG Grouper 11 ICD112P    ICD114P    ICD115P    ICD18105P    ICD18108P    ICD1890P    ICD1893P    ICD1896P
ICD1899P    ICDJC1    ^ICDD(83.71    

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
DRG Grouper 9 ICD112P    ICD114P    ICD115P    ICD18105P    ICD18108P    ICD1890P    ICD1893P    ICD1896P
ICD1899P    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
DRG Grouper 2 DRG DIAGNOSIS(#83.5)[#83.5003(.03)]    DRG PROCEDURE(#83.6)[#83.6003(.03)]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
DRG Grouper 1 DRG HAC GROUPS(#83.7)[.02]    

Fields, Total: 5

Field # Name Loc Type Details
.01 HAC CODE SET ID 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 06, 2016
  • HELP-PROMPT:  Enter a number that will uniquely identify this HAC Code Set, a number between 1 and 9999.
  • DESCRIPTION:  
    The HAC Code Set ID is an assigned number that provides a unique identifier for the Set.
  • CROSS-REFERENCE:  83.71^B
    1)= S ^ICDD(83.71,"B",$E(X,1,30),DA)=""
    2)= K ^ICDD(83.71,"B",$E(X,1,30),DA)
.02 HAC GROUP 0;2 POINTER TO DRG HAC GROUPS FILE (#83.7)
************************REQUIRED FIELD************************
DRG HAC GROUPS(#83.7)

  • LAST EDITED:  JUN 13, 2016
  • HELP-PROMPT:  Enter the HAC group this set is assigned to.
  • DESCRIPTION:  
    The HAC Group the Code Set and its codes are assigned to.
  • CROSS-REFERENCE:  83.71^D
    1)= S ^ICDD(83.71,"D",$E(X,1,30),DA)=""
    2)= K ^ICDD(83.71,"D",$E(X,1,30),DA)
    Cross reference of HAC Group.
.03 CODE TYPE 0;3 SET
************************REQUIRED FIELD************************
  • 'DX' FOR DIAGNOSIS;
  • 'PR' FOR PROCEDURE;

  • LAST EDITED:  JUN 06, 2016
  • HELP-PROMPT:  Enter the type of codes assigned to the set, either Diagnosis or Procedures.
  • DESCRIPTION:  
    The primary definition of the HAC Code Set is which type of codes it contains, either Diagnosis or Procedures. This identifies the location of the list of specific codes contained within the set.
.04 SET TYPE 0;4 SET
  • 'P' FOR PRINCIPAL;
  • 'S' FOR SECONDARY;

  • LAST EDITED:  JUN 06, 2016
  • HELP-PROMPT:  Enter the type of Diagnosis this set applies to in relation to the event the DRG is being calculated for.
  • DESCRIPTION:  Type of Diagnosis as related to the care provided. A diagnosis may be either the Principal Diagnosis or one of the Secondary Diagnosis. The assignment to the record of care will affect if the diagnosis satisfies a HAC
    Code Set. A Diagnosis assigned to a stay as a Secondary Diagnosis cannot satisfy a HAC Code Set of Set Type Principal.
.05 HAC CASE 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 05, 2016
  • HELP-PROMPT:  Enter the number corresponding to the Case or path to the HAC.
  • DESCRIPTION:  
    The HAC Case is a grouping of multiple Sets required to satisfy a single HAC instance. Some HAC Groups have multiple cases that separately may define the HAC.

Found Entries, Total: 23

HAC CODE SET ID: 1    HAC CODE SET ID: 2    HAC CODE SET ID: 3    HAC CODE SET ID: 4    HAC CODE SET ID: 5    HAC CODE SET ID: 6    HAC CODE SET ID: 7    HAC CODE SET ID: 8    
HAC CODE SET ID: 9    HAC CODE SET ID: 10    HAC CODE SET ID: 11    HAC CODE SET ID: 12    HAC CODE SET ID: 13    HAC CODE SET ID: 14    HAC CODE SET ID: 15    HAC CODE SET ID: 16    
HAC CODE SET ID: 17    HAC CODE SET ID: 18    HAC CODE SET ID: 19    HAC CODE SET ID: 20    HAC CODE SET ID: 21    HAC CODE SET ID: 22    HAC CODE SET ID: 23    

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(80 |dd83.51
^DD(83 |dd83.1, |dd83.3
^ICD - [#80.2] |dd80.21*!, |dd80.266*!, |dd80.268*!, |dd80.2681*!, |dd80.271*!
^ICD("ADS" |dd80.268*!
^ICD("B" |dd80.2*!
^ICD0 - [#80.1] |dd80.1, |dd80.11*!, |dd80.166*!, |dd80.167*!, |dd80.168*!, |dd80.1682*!, |dd80.171*!, |dd80.1711*!, |dd80.17111*!, |dd80.173*!
^ICD0("AB" |dd80.1*!
^ICD0("ABA" |dd80.1*!
^ICD0("AEXC" |dd80.1*!
^ICD0("AN" |dd80.1*!
^ICD0("AVA" |dd80.1*!
^ICD0("BA" |dd80.1*!
^ICD9 - [#80] |dd83.51
^ICD9("AVA" |dd80.1!
^ICDCCEX - [#82.13] |dd82.131*!
^ICDCCEX("B" |dd82.13*!
^ICDD(83 - [#83] |dd83*!, |dd83.1, |dd83.3
^ICDD(83.1 - [#83.1] |dd83.1*!, |dd83.1001*!
^ICDD(83.11 - [#83.11] |dd83.11*!, |dd83.1101*!
^ICDD(83.2 - [#83.2] |dd83.2*!, |dd83.2001*!
^ICDD(83.3 - [#83.3] |dd83.3*!
^ICDD(83.5 - [#83.5] |dd83.5*!, |dd83.5001*!, |dd83.5002*!, |dd83.5003*!
^ICDD(83.51 - [#83.51] |dd83.51*!
^ICDD(83.6 - [#83.6] |dd83.6*!, |dd83.6001*!, |dd83.6002*!, |dd83.6003*!
^ICDD(83.61 - [#83.61] |dd83.61*!, |dd83.6101*!, |dd83.6102*!
^ICDD(83.7 - [#83.7] |dd83.7*!
^ICDD(83.71 - [#83.71] .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), |dd83.71*!
^ICDHAC - [#80.6] |dd80.62*!, |dd80.63*!
^ICDHAC("B" |dd80.6*!
^ICDHAC("C" |dd80.62*!
^ICDHAC("PCS" |dd80.63*!
^ICDID("B" |dd82*!
^ICDID("C" |dd82*!
^ICDIDD - [#82.12] |dd82.121*!, |dd82.1211*!, |dd82.1212*!, |dd82.1213*!, |dd82.1214*!, |dd82.1215*!, |dd82.1216*!, |dd82.12161*!
^ICDIDD("B" |dd82.12*!
^ICDIDD("ONE" |dd82.1211*!
^ICDIDD("WITH1" |dd82.1212*!
^ICDIDD("WITH2" |dd82.1213*!
^ICDIDD("WITH3" |dd82.1214*!
^ICDIDD("WITH4" |dd82.1215*!
^ICDIDP - [#82.11] |dd82.111*!, |dd82.1111*!, |dd82.1112*!, |dd82.1113*!, |dd82.1114*!, |dd82.1115*!, |dd82.1116*!, |dd82.11161*!
^ICDIDP("B" |dd82.11*!
^ICDIDP("ONE" |dd82.11*!
^ICDIDP("WITH1" |dd82.1112*!
^ICDIDP("WITH2" |dd82.1113*!
^ICDIDP("WITH3" |dd82.1114*!
^ICDIDP("WITH4" |dd82.1115*!
^ICDIP("B" |dd82.1*!
^ICDIP("C" |dd82.1*!
^ICDRS - [#80.5] |dd80.51*!, |dd80.511*!
^ICDRS("B" |dd80.5*!
^ICDS - [#80.4] |dd80.1
^ICDS("B" |dd80.4*!
^ICDS("C" |dd80.4*!
^ICDS("F" |dd80.4*!
^ICDYZ(80.7 - [#80.7] |dd80.71*!, |dd80.72*!
^ICDYZ(80.9 - [#80.9] |dd80.9*!
^ICM - [#80.3] |dd80.31*!
^ICM("B" |dd80.3*!
^ICM("C" |dd80.31*!

Naked Globals

Name Field # of Occurrence
^("0" |dd80.8
^("1" |dd80.8
^(0 |dd80.7, |dd83.1, |dd83.3, |dd83.51

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT |dd80.11*, |dd80.166*, |dd80.167*, |dd80.168*, |dd80.171*, |dd80.2*, |dd80.22*, |dd80.266*, |dd80.268*, |dd80.271*
, |dd80.4*, |dd80.5*, |dd80.7*, |dd80.8*, |dd83.1001*, |dd83.11*, |dd83.5001*, |dd83.5002*, |dd83.5003*, |dd83.51*
, |dd83.6001*, |dd83.6002*, |dd83.6003*, |dd83.6101*
%I |dd83.1*!, |dd83.3*!, |dd83.51*!
>> C |dd83.1*, |dd83.3*, |dd83.51*
>> D0 |dd80.1
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), |dd80.1, |dd80.11, |dd80.166, |dd80.167, |dd80.168, |dd80.1682
, |dd80.171, |dd80.1711, |dd80.17111, |dd80.173, |dd80.2, |dd80.21, |dd80.266, |dd80.268, |dd80.2681, |dd80.271
, |dd80.3, |dd80.31, |dd80.4, |dd80.5, |dd80.51, |dd80.511, |dd80.6, |dd80.62, |dd80.63, |dd80.71
, |dd80.72, |dd80.9, |dd82, |dd82.1, |dd82.11, |dd82.111, |dd82.1111, |dd82.1112, |dd82.1113, |dd82.1114
, |dd82.1115, |dd82.1116, |dd82.11161, |dd82.12, |dd82.121, |dd82.1211, |dd82.1212, |dd82.1213, |dd82.1214, |dd82.1215
, |dd82.1216, |dd82.12161, |dd82.13, |dd82.131, |dd83, |dd83.1, |dd83.1001, |dd83.11, |dd83.1101, |dd83.2
, |dd83.2001, |dd83.3, |dd83.5, |dd83.5001, |dd83.5002, |dd83.5003, |dd83.51, |dd83.6, |dd83.6001, |dd83.6002
, |dd83.6003, |dd83.61, |dd83.6101, |dd83.6102, |dd83.7, |dd83.71
>> DA(1 |dd80.11, |dd80.166, |dd80.167, |dd80.168, |dd80.1682, |dd80.171, |dd80.1711, |dd80.17111, |dd80.173, |dd80.21
, |dd80.266, |dd80.268, |dd80.2681, |dd80.271, |dd80.31, |dd80.51, |dd80.511, |dd80.62, |dd80.63, |dd80.71
, |dd80.72, |dd82.11, |dd82.111, |dd82.1111, |dd82.1112, |dd82.1113, |dd82.1114, |dd82.1115, |dd82.1116, |dd82.11161
, |dd82.121, |dd82.1211, |dd82.1212, |dd82.1213, |dd82.1214, |dd82.1215, |dd82.1216, |dd82.12161, |dd82.131, |dd83.1001
, |dd83.1101, |dd83.2001, |dd83.5001, |dd83.5002, |dd83.5003, |dd83.6001, |dd83.6002, |dd83.6003, |dd83.6101, |dd83.6102
>> DA(2 |dd80.1682, |dd80.1711, |dd80.17111, |dd80.2681, |dd80.511, |dd82.11, |dd82.1111, |dd82.1112, |dd82.1113, |dd82.1114
, |dd82.1115, |dd82.1116, |dd82.11161, |dd82.1211, |dd82.1212, |dd82.1213, |dd82.1214, |dd82.1215, |dd82.1216, |dd82.12161
>> DA(3 |dd80.17111, |dd82.11161, |dd82.12161
DIC |dd80.1*!, |dd80.4*!, |dd80.7, |dd83, |dd83.1, |dd83.3, |dd83.51
>> DIE |dd80.1, |dd80.4
>> DINUM |dd80.22*, |dd80.23*, |dd80.71*, |dd80.72*, |dd80.82*, |dd80.92*, |dd80.93*
>> LEXSCHG("ICD" |ptcl*
U |dd80.7, |dd80.8, |dd83.1, |dd83.3, |dd83.51
X .01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .05+1!, |dd80.1*!, |dd80.1*!, |dd80.11*!, |dd80.166*!
, |dd80.167*!, |dd80.168*!, |dd80.1682!, |dd80.171*!, |dd80.1711, |dd80.17111, |dd80.173, |dd80.2*!, |dd80.21!, |dd80.22*!
, |dd80.23*!, |dd80.24!, |dd80.266*!, |dd80.268*!, |dd80.2681!, |dd80.271*!, |dd80.3!, |dd80.31!, |dd80.32!, |dd80.4*!
, |dd80.5*!, |dd80.51, |dd80.511!, |dd80.6!, |dd80.62, |dd80.63, |dd80.7*!, |dd80.71, |dd80.72, |dd80.8*!
, |dd80.82, |dd80.9!, |dd80.91!, |dd80.92!, |dd80.93!, |dd80.94!, |dd82!, |dd82.1!, |dd82.11, |dd82.111!
, |dd82.1111, |dd82.1112, |dd82.1113, |dd82.1114, |dd82.1115, |dd82.1116, |dd82.11161, |dd82.12, |dd82.121!, |dd82.1211
, |dd82.1212, |dd82.1213, |dd82.1214, |dd82.1215, |dd82.1216, |dd82.12161, |dd82.13!, |dd82.131, |dd83!, |dd83.1!
, |dd83.1001*!, |dd83.11*!, |dd83.1101, |dd83.2!, |dd83.2001, |dd83.3!, |dd83.5, |dd83.5001*!, |dd83.5002*!, |dd83.5003*!
, |dd83.51*!, |dd83.6, |dd83.6001*!, |dd83.6002*!, |dd83.6003*!, |dd83.61!, |dd83.6101*!, |dd83.6102, |dd83.7!, |dd83.71!
X(1 |dd80.1, |dd83.51
X(2 |dd80.1, |dd83.51
XQORQUIT |ptcl*!
>> Y |dd80.1, |dd80.11, |dd80.166, |dd80.167, |dd80.168, |dd80.171, |dd80.2, |dd80.22, |dd80.23*, |dd80.266
, |dd80.268, |dd80.271, |dd80.4, |dd80.5, |dd80.7, |dd80.8, |dd83.1*, |dd83.1001, |dd83.11, |dd83.3*
, |dd83.5001, |dd83.5002, |dd83.5003, |dd83.51*, |dd83.6001, |dd83.6002, |dd83.6003, |dd83.6101
>> Y(0 |dd80.23*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All