Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ICDZENT

ICDZENT.m

Go to the documentation of this file. 
  1. ICDZENT ; IHS/ANMC/MWR - ENTRY POINT FOR GROUPER VERSION 8; AUGUST 14, 1992
  1.  ;; VERSION 8.0;DRG GROUPER;;AUG 14, 1992
  1.  ;
  1.  ; CALLING THIS ROUTINE WITH THE PROPER VARIABLES DEFINED WILL PRODUCE
  1.  ; AN OUTPUT TO THE SCREEN GIVING THE DRG, HCFA WEIGHT AND GEOM MEAN
  1.  ; LENGTH OF STAY.
  1.  ;
  1.  ; THE FOLLOWING VARIABLES NEED TO BE SET WHEN CALLING THE GROUPER
  1.  ; AT THIS ENTRY POINT:
  1.  ;
  1.  ; SEX       - SET SEX EQUAL TO "M" OR "F", E.G., S SEX="M"
  1.  ;
  1.  ; AGE       - SET AGE EQUAL TO NUMBER OF YEARS, E.G., S AGE=35
  1.  ;
  1.  ; ICDEXP    - SET ICDEXP=1 IF PATIENT DIED DURING EPISODE, 0 IF NOT.
  1.  ;
  1.  ; ICDTRS    - SET ICDTRS=1 IF PATIENT TRANSFERRED TO ACUTE CARE
  1.  ;             FACILITY, 0 IF NOT.
  1.  ;
  1.  ; ICDDMS    - SET ICDDMS=1 IF PATIENT DISCHARGED AGAINST MEDICAL
  1.  ;             ADVICE, 0 IF NOT.
  1.  ;
  1.  ; ICDDX(1)  - SET ICDDX(1)=IE# OF THE PRIMARY DIAGNOSIS IN THE ICD9(
  1.  ;             GLOBAL (ICD DIAGNOSIS FILE).
  1.  ;
  1.  ; ICDDX(N)  - SET ICDDX(N)=IE# OF SECONDARY DIAGNOSES IN THE ICD9(
  1.  ;             GLOBAL (ICD DIAGNOSIS FILE), WHERE N>1.  IN OTHER WORDS,
  1.  ;             BUILD A LOCAL ARRAY OF SECONDARY DIAGNOSES.
  1.  ;
  1.  ; ICDPRC(N) - SET ICDPRC(N)=IE# OF PROCEDURES IN THE ICD0( GLOBAL
  1.  ;             (ICD OPERATION/PROCEDURE FILE).  IN OTHER WORDS, BUILD
  1.  ;             A LOCAL ARRAY OF OPERATIONS/PROCEDURES.
  1.  ;             NOTE: IF THERE ARE NO OPERATIONS/PROCEDURES, THIS 
  1.  ;                   MAY BE LEFT UNDEFINED.
  1.  ;
  1.  ; EXAMPLE:
  1.  ;
  1.  ;S SEX="F"
  1.  ;S AGE=35
  1.  ;S ICDEXP=0,ICDTRS=1,ICDDMS=0
  1.  ;S ICDDX(1)=8560,ICDDX(2)=8561
  1.  ;S ICDPRC(1)=3229
  1.  ;
  1.  ; THE CALLING PROGRAM MAY ALSO DEFINE ICDZEN (S ICDZEN="") IN ORDER TO
  1.  ; HAVE THE FOLLING VARIABLES RETURNED:
  1.  ;                                   ICDZDRG = THE CALCULATED DRG NUMBER
  1.  ;                                   ICDZDRT = TEXT OF THE DRG NUMBER
  1.  ;                                   ICDZWT  = THE HCFA WEIGHT
  1.  ;                                   ICDZLOS = THE HCFA GEOM MEAN LOS
  1.  ;      NOTE: THESE VARIABLES WILL NOT BE KILLED BY THE ICD PROGRAM
  1.  ;            AND ARE THE RESPONSIBILITY OF THE CALLING PROGRAM.
  1.  ;
  1.  ; THE CALLING PROGRAM MAY ALSO DEFINE ICDZNOT (S ICDZNOT="") IN ORDER
  1.  ; TO SUPPRESS ALL OUTPUT (FOR CASES WHEN ONLY THE RETURNED VARIABLES
  1.  ; ARE DESIRED).
  1.  ;
  1. BEGIN ;
  1.  D ^XBKVAR
  1.  K ICDERR,ICDZDRG,ICDZLOS,ICDZWT
  1.  F ICDI="SEX","AGE","ICDEXP","ICDTRS","ICDDMS","ICDDX(1)" D
  1.  .I '$D(@ICDI) D  S ICDERR=""
  1.  ..W !,"The variable """,ICDI,""" is not defined. "
  1.  G:$D(ICDERR) EXIT
  1.  D ^ICDDRG
  1.  D WRT^ICDDRGM
  1.  ;
  1. EXIT ;    
  1.  K ICDI,ICDERR,ICDZEN,ICDZNOT