| INPUT PARAMETER |
-
- DSIX
- PARAMETER TYPE: LITERAL
- MAXIMUM DATA LENGTH: 50
- REQUIRED: NO
- SEQUENCE NUMBER: 1
- DESCRIPTION:
Old method of calling this procedure:
This is the Lexicon lookup value.
New method of calling this procedure:
Under the new method this parameter would be set to NULL.
Please see parameter DSIA details on new call procedure.
-
- SCR
- PARAMETER TYPE: LITERAL
- MAXIMUM DATA LENGTH: 1
- REQUIRED: NO
- SEQUENCE NUMBER: 2
- DESCRIPTION:
Old method of calling this procedure:
If SCR="P", then the matches to the lookup value will be screened
to only return diagnoses which are acceptable as principal diagnoses.
New method of calling this procedure:
Under the new method SCR would be set to NULL.
Please see parameter DSIA for details on new calling procedure.
-
- DSIA
- PARAMETER TYPE: LIST
- REQUIRED: YES
- SEQUENCE NUMBER: 3
- DESCRIPTION:
New method for calling this subroutine:
will be set to Today) The eligibility date of the ICD9 code.
DSIA(3) = "MAX^Value" (100 is the default)
The maximum number of diagnosis you want returned.
TOTALS = RR(0)= P1^P2 - Will only be returned for new call
method
P1 = # of codes returned
P2 = total number of codes considered
Example:
An input array "DSIA" will have to be set up in following format:
DSIX - Leave NULL
SCR - Leave NULL
SS(0)="LOOKUP^137"
SS(1)="CHKSCR^P"
SS(2)="ACTDATE^"
SS(3)="MAX^N"
D LIST^DSICDRG(.RR,,,.SS) Return: RR ="^TMP("DSIC",5876)"
DSIA(0) = "LOOKUP^Value"
user input lookup value
DSIA(1) = "CHKSCR^Value"
If value set to "P", only valid ICD9 codes that are eligible
to be principle diagnosis will be returned.
DSIA(2) = "ACTDATE^Value" (ACTDATE is in Fileman format, NULL dates
|
| RETURN PARAMETER DESCRIPTION |
This returns a list of active diagnosis codes matching the lookup value.
n = 0,1,2,3,4,....
On error or problems, List[0] = -1^message
Enter RETURN to continue or '^' to exit:
List[0] := Returns the Diagnosis code counts
P1^P2 - Will only be returned for new calling method
P1 = # of codes returned
P2 = total number of codes considered
List[n] : = ien to file 80 ^ ICD9 code ^ diagnosis (short description)
|
