| GENERAL DESCRIPTION |
Applications may conduct Fileman lookups of ICD
Diagnosis file #80 and the ICD OPERATIONS/PROCEDURE file #80.1 using ^DIC and
the Special Lookup routine ICDEXLK. Applications may also point to these
files.
A special lookup program was written for the ICD DIAGNOSIS file #80 and ICD
OPERATION/PROCEDURE file #80.1 to navigate through the versioned (date
sensitive) data stored in these files. The Name of the special lookup is
stored in the Data Dictionary for these files:
^DD(80,0,"DIC")="ICDEXLK"
^DD(80.1,0,"DIC")="ICDEXLK"
Each time an application makes a ^DIC call to either file 80 or 80.1, the
special lookup routine is invoked, provided the FileMan variable DIC(0) does
not contain an "I" for "ignore the special lookup."
NOTE: Only the ^DIC call honors the special lookup routine. Those calls that
allow the user to specify the indexes (IX^DIC and MIX^DIC1), and the Data Base
Server calls (FIND^DIC, $$FIND1^DIC, and UPDATE^DIE) all ignore the Special
Lookup Program. As a result, the FileMan calls that ignore the Special Lookup
Program will not be able to conduct versioned searches or return versioned
data so use IX^DIC, MIX^DIC1 FIND^DIC, and $$FIND1^DIC with a great deal of
care. Never use any FileMan entry point that alters the data in these files
(i.e., ^DIE, EN^DIB, ^DIK FILE^DIE, UPDATE^DIE and FILE^DICN)
Package Special Lookup Variables
The following local variables in the ICD namespace should be NEWed
or KILLed by the calling application. The global variables may
be used in instances where local environment variables get NEWed
and the special lookup values need to be retained. The calling
application is responsible for KILLing the ^TMP global variables.
Versioning Date (Fileman format)
ICDVDT or ^TMP("ICDEXLK",$J,"ICDVDT")=<versioning date>
If supplied only active codes on that date will be
included in the selection list.
1. V74.6 SCREENING FOR YAWS
2. V77.5 SCREENING FOR GOUT
3. V76.9 SCREEN-NEOPLASM NOS
4. V76.43 SCREEN MAL NEOP-SKIN
5. V78.8 SCREEN-BLOOD DIS NEC
If not supplied, the date will default to TODAY and
all codes may be selected, active and inactive.
1. V74.6 SCREENING FOR YAWS
2. V77.5 SCREENING FOR GOUT
3. V76.8 SCREEN-NEOPLASM NEC (Inactive)
4. V76.9 SCREEN-NEOPLASM NOS
5. V76.43 SCREEN MAL NEOP-SKIN
Coding System (from file 80.4)
ICDSYS or ^TMP("ICDEXLK",$J,"ICDSYS")=<coding system>
1 ICD ICD-9-CM
2 ICP ICD-9 Proc
30 10D ICD-10-CM
31 10P ICD-10-PCS
If supplied only codes belonging to the coding system
will be included in the selection list.
S ICDSYS=1,X="DIABETES MELLITUS KETOACIDOSIS"
2 matches found
1. 249.11 SEC DM KETOACD UNCNTRLD (Major CC)
2. 249.10 SEC DM KETO NT ST UNCNTR (Major CC)
S ICDSYS=30,X="DIABETES MELLITUS KETOACIDOSIS"
8 matches found
1. E09.11 Drug/chem diabetes mellitus w
ketoacidosis w coma
2. E13.11 Oth diabetes mellitus with
ketoacidosis with coma
3. E09.10 Drug/chem diabetes mellitus w
ketoacidosis w/o coma
4. E10.11 Type 1 diabetes mellitus with
ketoacidosis with coma
5. E13.10 Oth diabetes mellitus with
Ketoacidosis without coma
If not supplied codes from any coding system will be
included in the selection list.
S X="DIABETES MELLITUS KETOACIDOSIS"
10 matches found
1. 249.11 SEC DM KETOACD UNCNTRLD (Major CC)
2. 249.10 SEC DM KETO NT ST UNCNT (Major CC)
3. E09.11 Drug/chem diabetes mellitus w
ketoacidosis w coma
4. E13.11 Oth diabetes mellitus with
Ketoacidosis with coma
5. E09.10 Drug/chem diabetes mellitus w
ketoacidosis w/o coma
Display Format (numeric, 1-4)
ICDFMT or ^TMP("ICDEXLK",$J,"ICDFMT")=<display format>
Controls the format of the terms and code presented
for selection on the selection list, 1-4,
default = 1
1 Fileman format, code and short text (default)
250.00 DMII WO CMP NT ST UNCNTR
2 Fileman format, code and description
250.00 DIABETES MELLITUS WITHOUT MENTION OF
COMPLICATION, TYPE II OR UNSPECIFIED
TYPE, NOT STATED AS UNCONTROLLED
3 Lexicon format, short text followed by code
DMII WO CMP NT ST UNCNTR (250.00)
4 Lexicon format, description followed by code
DIABETES MELLITUS WITHOUT MENTION OF
COMPLICATION, TYPE II OR UNSPECIFIED TYPE, NOT
STATED AS UNCONTROLLED (250.00)
Fileman Variables used
The following are FileMan local variables used by the Special
Lookup and should be NEWed or KILLed by the calling application
Input
X (Optional) User's input. If it exists, DIC(0)
should not contain "A" for "Ask"
DIC (Required) The file number or an explicit global
root in the form ^GLOBAL( or ^GLOBAL(X,Y,
DIC(0) (Optional) A string of alphabetic characters which
alter how DIC responds. At a minimum this string
must be set to null. (Required) Default value for
ICD files "AEM"
The following characters are applicable to a
versioned file
A Ask the entry; if erroneous, ask again
B Only the B index is used
E Echo information
F Forget the lookup value
I Ignore the special lookup program
O Only find one entry if it matches exactly
Q Question Input ??
S Suppresses display of .01
T Search until user selects or enters ^^
X EXact match required
Z Zero node in Y(0), external form in Y(0,0)
The following characters are NOT applicable to a
versioned file (not used)
C Versioned cross-references not turned off
K Primary Key not established
L Learning a new entry LAYGO not allowed
M Multiple-index lookup allowed
N Uppercase, IEN lookup allowed (not forced)
n ICD has no pure numeric entries
U All values are external
V Verification is not optional
DIC("A") (Optional) A prompt that is displayed prior to the
reading of the X input. If DIC("A") is not defined,
a prompt will be supplied by the special lookup
routine.
DIC("B") (Optional) The default answer which is presented to
the user when the lookup prompt is issued. If a
terminal user simply presses the Enter/Return key,
the DIC("B") default value will be used, and
returned in X. DIC("B") will only be used if it is
non-null.
DIC("S") (Optional) DIC("S") is a string of M code that DIC
executes to screen an entry from selection. DIC("S")
must contain an IF statement to set the value of $T.
Those entries that the IF sets as $T=0 will not be
displayed or selectable. When the DIC("S") code is
executed, the local variable Y is the internal
number of the entry being screened and the M naked
indicator is at the global level @(DIC_"Y,0)")
DIC("W") (Optional) An M command string which is executed
when DIC displays each of the entries that match the
user's input. The condition of the variable Y and of
the naked indicator is the same as for DIC("S").
WARNING: If DIC("W") is defined, it overrides the
display of the versioned identifiers for the file.
Thus, if DIC("W") is set it will suppress the
display of versioned data and there is a risk of
displaying unversioned data.
DIC("?N",<file>)=n (Optional) The number "n" should be an
integer set to the number of entries to be displayed
on the screen at one time when using "?" help in a
lookup.
FileMan Variables not used
DIC("DR")
DIC("PTRIX",<from>,<to>,<file>)
DIC("T")
DIC("V")
DIC("?PARAM",<file>,"INDEX")
DIC("?PARAM",<file>,"FROM",<subscript>)
DIC("?PARAM",<file>,"PART",<subscript>)
FileMan Variables KILLed
DLAYGO
DINUM
FileMan Variables Modified
If DIC(0) contains an "L" it will be removed
Output Variables
Always Returned
Y IEN ^ Code FileMan
If DIC(0) contains "Z"
Y(0) 0 Node FileMan
Y(0,0) Code FileMan
Y(0,1) $$ICDDX or $$ICDOP Non-FileMan
Y(0,2) Long Description Non-FileMan
|
