ICDZENT.m

ICDZENT ; IHS/ANMC/MWR - ENTRY POINT FOR GROUPER VERSION 8; AUGUST 14, 1992

 ;; VERSION 8.0;DRG GROUPER;;AUG 14, 1992

 ;

 ; CALLING THIS ROUTINE WITH THE PROPER VARIABLES DEFINED WILL PRODUCE

 ; AN OUTPUT TO THE SCREEN GIVING THE DRG, HCFA WEIGHT AND GEOM MEAN

 ; LENGTH OF STAY.

 ;

 ; THE FOLLOWING VARIABLES NEED TO BE SET WHEN CALLING THE GROUPER

 ; AT THIS ENTRY POINT:

 ;

 ; SEX       - SET SEX EQUAL TO "M" OR "F", E.G., S SEX="M"

 ;

 ; AGE       - SET AGE EQUAL TO NUMBER OF YEARS, E.G., S AGE=35

 ;

 ; ICDEXP    - SET ICDEXP=1 IF PATIENT DIED DURING EPISODE, 0 IF NOT.

 ;

 ; ICDTRS    - SET ICDTRS=1 IF PATIENT TRANSFERRED TO ACUTE CARE

 ;             FACILITY, 0 IF NOT.

 ;

 ; ICDDMS    - SET ICDDMS=1 IF PATIENT DISCHARGED AGAINST MEDICAL

 ;             ADVICE, 0 IF NOT.

 ;

 ; ICDDX(1)  - SET ICDDX(1)=IE# OF THE PRIMARY DIAGNOSIS IN THE ICD9(

 ;             GLOBAL (ICD DIAGNOSIS FILE).

 ;

 ; ICDDX(N)  - SET ICDDX(N)=IE# OF SECONDARY DIAGNOSES IN THE ICD9(

 ;             GLOBAL (ICD DIAGNOSIS FILE), WHERE N>1.  IN OTHER WORDS,

 ;             BUILD A LOCAL ARRAY OF SECONDARY DIAGNOSES.

 ;

 ; ICDPRC(N) - SET ICDPRC(N)=IE# OF PROCEDURES IN THE ICD0( GLOBAL

 ;             (ICD OPERATION/PROCEDURE FILE).  IN OTHER WORDS, BUILD

 ;             A LOCAL ARRAY OF OPERATIONS/PROCEDURES.

 ;             NOTE: IF THERE ARE NO OPERATIONS/PROCEDURES, THIS 

 ;                   MAY BE LEFT UNDEFINED.

 ;

 ; EXAMPLE:

 ;

 ;S SEX="F"

 ;S AGE=35

 ;S ICDEXP=0,ICDTRS=1,ICDDMS=0

 ;S ICDDX(1)=8560,ICDDX(2)=8561

 ;S ICDPRC(1)=3229

 ;

 ; THE CALLING PROGRAM MAY ALSO DEFINE ICDZEN (S ICDZEN="") IN ORDER TO

 ; HAVE THE FOLLING VARIABLES RETURNED:

 ;                                   ICDZDRG = THE CALCULATED DRG NUMBER

 ;                                   ICDZDRT = TEXT OF THE DRG NUMBER

 ;                                   ICDZWT  = THE HCFA WEIGHT

 ;                                   ICDZLOS = THE HCFA GEOM MEAN LOS

 ;      NOTE: THESE VARIABLES WILL NOT BE KILLED BY THE ICD PROGRAM

 ;            AND ARE THE RESPONSIBILITY OF THE CALLING PROGRAM.

 ;

 ; THE CALLING PROGRAM MAY ALSO DEFINE ICDZNOT (S ICDZNOT="") IN ORDER

 ; TO SUPPRESS ALL OUTPUT (FOR CASES WHEN ONLY THE RETURNED VARIABLES

 ; ARE DESIRED).

 ;

BEGIN ;

 D ^XBKVAR

 K ICDERR,ICDZDRG,ICDZLOS,ICDZWT

 F ICDI="SEX","AGE","ICDEXP","ICDTRS","ICDDMS","ICDDX(1)" D

 .I '$D(@ICDI) D  S ICDERR=""

 ..W !,"The variable """,ICDI,""" is not defined. "

 G:$D(ICDERR) EXIT

 D ^ICDDRG

 D WRT^ICDDRGM

 ;

EXIT ;    

 K ICDI,ICDERR,ICDZEN,ICDZNOT

ICDZENT   ; IHS/ANMC/MWR - ENTRY POINT FOR GROUPER VERSION 8; AUGUST 14, 1992

 +1       ;; VERSION 8.0;DRG GROUPER;;AUG 14, 1992

 +2       ;

 +3       ; CALLING THIS ROUTINE WITH THE PROPER VARIABLES DEFINED WILL PRODUCE

 +4       ; AN OUTPUT TO THE SCREEN GIVING THE DRG, HCFA WEIGHT AND GEOM MEAN

 +5       ; LENGTH OF STAY.

 +6       ;

 +7       ; THE FOLLOWING VARIABLES NEED TO BE SET WHEN CALLING THE GROUPER

 +8       ; AT THIS ENTRY POINT:

 +9       ;

 +10      ; SEX       - SET SEX EQUAL TO "M" OR "F", E.G., S SEX="M"

 +11      ;

 +12      ; AGE       - SET AGE EQUAL TO NUMBER OF YEARS, E.G., S AGE=35

 +13      ;

 +14      ; ICDEXP    - SET ICDEXP=1 IF PATIENT DIED DURING EPISODE, 0 IF NOT.

 +15      ;

 +16      ; ICDTRS    - SET ICDTRS=1 IF PATIENT TRANSFERRED TO ACUTE CARE

 +17      ;             FACILITY, 0 IF NOT.

 +18      ;

 +19      ; ICDDMS    - SET ICDDMS=1 IF PATIENT DISCHARGED AGAINST MEDICAL

 +20      ;             ADVICE, 0 IF NOT.

 +21      ;

 +22      ; ICDDX(1)  - SET ICDDX(1)=IE# OF THE PRIMARY DIAGNOSIS IN THE ICD9(

 +23      ;             GLOBAL (ICD DIAGNOSIS FILE).

 +24      ;

 +25      ; ICDDX(N)  - SET ICDDX(N)=IE# OF SECONDARY DIAGNOSES IN THE ICD9(

 +26      ;             GLOBAL (ICD DIAGNOSIS FILE), WHERE N>1.  IN OTHER WORDS,

 +27      ;             BUILD A LOCAL ARRAY OF SECONDARY DIAGNOSES.

 +28      ;

 +29      ; ICDPRC(N) - SET ICDPRC(N)=IE# OF PROCEDURES IN THE ICD0( GLOBAL

 +30      ;             (ICD OPERATION/PROCEDURE FILE).  IN OTHER WORDS, BUILD

 +31      ;             A LOCAL ARRAY OF OPERATIONS/PROCEDURES.

 +32      ;             NOTE: IF THERE ARE NO OPERATIONS/PROCEDURES, THIS 

 +33      ;                   MAY BE LEFT UNDEFINED.

 +34      ;

 +35      ; EXAMPLE:

 +36      ;

 +37      ;S SEX="F"

 +38      ;S AGE=35

 +39      ;S ICDEXP=0,ICDTRS=1,ICDDMS=0

 +40      ;S ICDDX(1)=8560,ICDDX(2)=8561

 +41      ;S ICDPRC(1)=3229

 +42      ;

 +43      ; THE CALLING PROGRAM MAY ALSO DEFINE ICDZEN (S ICDZEN="") IN ORDER TO

 +44      ; HAVE THE FOLLING VARIABLES RETURNED:

 +45      ;                                   ICDZDRG = THE CALCULATED DRG NUMBER

 +46      ;                                   ICDZDRT = TEXT OF THE DRG NUMBER

 +47      ;                                   ICDZWT  = THE HCFA WEIGHT

 +48      ;                                   ICDZLOS = THE HCFA GEOM MEAN LOS

 +49      ;      NOTE: THESE VARIABLES WILL NOT BE KILLED BY THE ICD PROGRAM

 +50      ;            AND ARE THE RESPONSIBILITY OF THE CALLING PROGRAM.

 +51      ;

 +52      ; THE CALLING PROGRAM MAY ALSO DEFINE ICDZNOT (S ICDZNOT="") IN ORDER

 +53      ; TO SUPPRESS ALL OUTPUT (FOR CASES WHEN ONLY THE RETURNED VARIABLES

 +54      ; ARE DESIRED).

 +55      ;

BEGIN     ;

 +1        DO ^XBKVAR

 +2        KILL ICDERR,ICDZDRG,ICDZLOS,ICDZWT

 +3        FOR ICDI="SEX","AGE","ICDEXP","ICDTRS","ICDDMS","ICDDX(1)"

               Begin DoDot:1

 +4                IF '$DATA(@ICDI)

                       Begin DoDot:2

 +5                        WRITE !,"The variable """,ICDI,""" is not defined. "

                       End DoDot:2

                       SET ICDERR=""

               End DoDot:1

 +6        IF $DATA(ICDERR)

               GOTO EXIT

 +7        DO ^ICDDRG

 +8        DO WRT^ICDDRGM

 +9       ;

EXIT      ;    

 +1        KILL ICDI,ICDERR,ICDZEN,ICDZNOT