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 |  Pointer To FileMan Files |  Fields |  External References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^ICDYZ(80.8

Package: DRG Grouper

Global: ^ICDYZ(80.8


Information

FileMan FileNo FileMan Filename Package
80.8 TEMPORARY PROCEDURES DRG Grouper

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
DRG Grouper 2 ICD14PRE    ICD14PST    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
DRG Grouper 2 DRG(#80.2)[#80.82(1), #80.82(2), #80.82(3), #80.82(4), #80.82(5), #80.82(6)]    MAJOR DIAGNOSTIC CATEGORY(#80.3)[#80.82(.01)]    

Fields, Total: 17

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

  • INPUT TRANSFORM:  K:X[""""!(X'?.ANP)!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1)!'(X?.N1".".N) X
  • LAST EDITED:  APR 03, 1997
  • HELP-PROMPT:  Answer must be 1-6 characters in length and contain a decimal point.
  • DESCRIPTION:  
    ICD9 procedure or operation code
2 IDENTIFIER 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • HELP-PROMPT:  Enter one or more valid codes.
  • DESCRIPTION:  
    This field contains Operations Identifiers.
  • EXECUTABLE HELP:  D ^ICDHLPO
4 OPERATION/PROCEDURE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!(X'?.ANP)!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  APR 03, 1997
  • HELP-PROMPT:  ANSWER MUST BE 2-50 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Name of Operation or Procedure that code refers to.
5 MDC24 0;3 SET
  • '1' FOR CRANIAL;
  • '2' FOR LIMB;
  • '3' FOR OTHER OR;

  • LAST EDITED:  MAR 05, 1991
  • HELP-PROMPT:  MDC24 1:DRG484, 2:DRG485, 3:DRG486
  • DESCRIPTION:  
    Set of codes refers to body site of procedure, when for a Multiple Significant Trauma (MDC 24)
7 MAJOR DIAGNOSTIC CATEGORY MDC;0 POINTER Multiple #80.82 80.82

  • HELP-PROMPT:  ANSWER MUST BE 3-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Major Diagnostic Category which this code may fall under.
8 ICD EXPANDED 0;8 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • DESCRIPTION:  
    VA ONLY CODES.
9.5 USE ONLY WITH SEX 0;10 SET
  • 'M' FOR MALE;
  • 'F' FOR FEMALE;

  • HELP-PROMPT:  Enter the sex for which this operation/procedure code can only be used with, if applicable.
  • DESCRIPTION:  
    Set of codes containing the sex if operation/procedure is gender-specific.
10 DESCRIPTION 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!(X'?.ANP)!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<2) X
  • LAST EDITED:  APR 03, 1997
  • HELP-PROMPT:  ANSWER MUST BE 2-245 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    More complete description of operation or procedure.
20 MAJOR O.R. PROC M;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  MAR 12, 1992
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Is this defined as a Major O.R. Procedure?
  • EXECUTABLE HELP:  D MAJ^ICDHLPD
50 OPERATION LENGTH SR;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a whole number between 0 and 999 which gives the standard length of this operation in minutes.
  • DESCRIPTION:  
    Number of minutes for average length of time for this operation.
51 REQUESTED BLOOD KIND SR;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<3) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Answer must be 3-12 characters in length.
  • DESCRIPTION:  
    This field contains the requested blood kind.
52 NUMBER OF BLOOD UNITS SR;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
  • DESCRIPTION:  
    Number of Units of blood usually required.
53 SCREEN OR TYPE SR;4 SET
  • 'X' FOR CROSS-MATCH;
  • 'S' FOR TYPE OR SCREEN;

  • DESCRIPTION:  
    This field contains a code indicating screening or cross-matching.
54 ANESTHESIA RUG SR;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 100
  • DESCRIPTION:  
    This field contains the Resource Utilization Group for the Anesthesia.
55 ACS NAME SR;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains the ACS name.
100 INACTIVE FLAG 0;9 SET
  • '1' FOR INACTIVE CODE;

  • HELP-PROMPT:  Enter if code can no longer be used.
  • DESCRIPTION:  
    Set to 1 when code is inactivated.
102 INACTIVE DATE 0;11 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 15, 1989
  • HELP-PROMPT:  Enter date this Operation/Procedure becomes inactive.
  • DESCRIPTION:  
    Date as of which code is inactive.

External References

Name Field # of Occurrence
^%DT 102+1
MAJ^ICDHLPD 20(HELP )
^ICDHLPO 2(HELP )

Naked Globals

Name Field # of Occurrence
^("0" ID4+1
^("1" ID10+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 102+1*
U ID4+1, ID10+1
X .01+1!, 2+1!, 4+1!, 10+1!, 20+1!, 50+1!, 51+1!, 52+1!, 54+1!, 55+1!
, 102+1*!
>> Y 102+1
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Naked Globals |  Local Variables  | All