DSIC ICD9 GET DIAGNOSIS

TITLEVALUE
NAMEDSIC ICD9 GET DIAGNOSIS
DESCRIPTIONThis will return specific information for a diagnosis code
TAGICD9
ROUTINEDSICDRG
INPUT PARAMETERSSEQUENCE NUMBER1
INPUT PARAMETERVICD
DESCRIPTIONThis is the ifn or .01 field value from the DIAGNOSIS file (#80)
PARAMETER TYPELITERAL
REQUIREDYES
MAXIMUM DATA LENGTH7

INPUT PARAMETERSSEQUENCE NUMBER2
INPUT PARAMETERFLDS
DESCRIPTIONThis is a "^"-delimited list of field values you wish returned for a
diagnosis code.

Acceptable field numbers:
ien - return ifn to file 80
.01 - ICD9 NAME (diagnosis code)
3 - DIAGNOSIS (short description 2-30 char)
5 - MAJOR DIAGNOSTIC CATEGORY (external value from 80.3)
10 - DESCRIPTION (long description 1-245 char)
9.5 - USE ONLY WITH SEX (M, F, or )
15 - AGE (N:newborn;P:pediatric;A:adult)
100 - INACTIVE (1 or )
101 - UNACCEPTABLE AS PRINCIPAL DX (1 if not acceptable)
102 - INACTIVE DATE

Default value: ien^.01^3
PARAMETER TYPELITERAL
REQUIREDNO
MAXIMUM DATA LENGTH50

INPUT PARAMETERSSEQUENCE NUMBER3
INPUT PARAMETERCDT
DESCRIPTIONThis date is optional. It can be , TODAY, NOW, or a internal
Fileman format date. Default value is TODAY. This date will be used to
check if the code was active as of that date.

This parameter is not used at this time
PARAMETER TYPELITERAL
REQUIREDNO
MAXIMUM DATA LENGTH14

INPUT PARAMETERSSEQUENCE NUMBER4
INPUT PARAMETERSCR
DESCRIPTIONThis is a single or double character code used to screen out diagnoses.
SCR = "A" - default value - return only active codes
"U" - return codes which are acceptable as a principal diagnosis
"N" - do not screen out any codes
"AU" - return codes which are both active and acceptable as a
principal diagnosis
PARAMETER TYPELITERAL
REQUIREDNO
MAXIMUM DATA LENGTH2

RETURN VALUE TYPESINGLE VALUE
RETURN PARAMETER DESCRIPTIONReturn:
If problems encountered, -1^error message
If valid diagnosis but failed input screen, 0^message
If valid daignosis and passes input screen, p1^p2^...
for details on string returned see ICD9^DSICDRG

end description 06-23-2003
AVAILABILITYAGREEMENT
INACTIVE
CLIENT MANAGER
WORD WRAP ON
VERSION
SUPPRESS RDV USER SETUP
APP PROXY ALLOWED