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