| TITLE | VALUE | |
|---|---|---|
| NAME | DSIC ICD9 GET LIST | |
| DESCRIPTION | This will return a list of active ICD9 codes for a lookup value. | |
| TAG | LIST | |
| ROUTINE | DSICDRG | |
| INPUT PARAMETERS | SEQUENCE NUMBER | 1 |
| INPUT PARAMETER | DSIX | |
| 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. | |
| PARAMETER TYPE | LITERAL | |
| REQUIRED | NO | |
| MAXIMUM DATA LENGTH | 50 | |
| INPUT PARAMETERS | SEQUENCE NUMBER | 2 |
| INPUT PARAMETER | SCR | |
| 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. | |
| PARAMETER TYPE | LITERAL | |
| REQUIRED | NO | |
| MAXIMUM DATA LENGTH | 1 | |
| INPUT PARAMETERS | SEQUENCE NUMBER | 3 |
| INPUT PARAMETER | DSIA | |
| DESCRIPTION | New method for calling this subroutine: An input array "DSIA" will have to be set up in following format: 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 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: 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)" | |
| PARAMETER TYPE | LIST | |
| REQUIRED | YES | |
| MAXIMUM DATA LENGTH | ||
| RETURN VALUE TYPE | GLOBAL ARRAY | |
| RETURN PARAMETER DESCRIPTION | This returns a list of active diagnosis codes matching the lookup value. 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) n = 0,1,2,3,4,.... On error or problems, List[0] = -1^message | |
| AVAILABILITY | AGREEMENT | |
| INACTIVE | ||
| CLIENT MANAGER | ||
| WORD WRAP ON | TRUE | |
| VERSION | ||
| SUPPRESS RDV USER SETUP | ||
| APP PROXY ALLOWED | ||