| DESCRIPTION OF ENHANCEMENTS |
A Y2K problem was logged in NOIS regarding the reports generated in the
FC FUNCTION code search, SNOMED [LRAPSF]
IC ICD9CM code search [LRAPSI]
AX MULTIAXIAL code search, SNOMED [LRAPSEM]
NOIS calls were logged because data was being omitted from the reports for
year 2000 accessions. Below is an example of the report generated by menu
item '[LRAPSM] MORPHOLOGY code search, SNOMED':
SURGICAL PATHOLOGY (SP) SEARCH(Dec 30, 1999=>Jan 03, 2000)
# = Not VA patient
'[LRAPSEARCH] Search options, anat path' menu. This menu performs searches on
SNOMED TOPOGRAPHY CODE: ALL-- SNOMED MORPHOLOGY CODE: ALL--
-----------------------------------------------------------------------------
NAME ID SEX AGE ACC # ORGAN/TISSUE MORPHOLOGY
HOBBS,JOHN H 9801 M 63 SP 99 4814 SKIN OF CHEST BASAL CELL CARCI
RX0
SKIN OF HEAD BASAL CELL CARCI
RX0
JENKINS,CLARENCE 3133 M 41 SP 99 4808 TRACHEA HEMORRHAGE
LAMBE,NORMAN B. 5487 M
MONEY,CLAUDE C 4599 M
Anatomic Pathology accessions based on morphology, disease, etiology,
NELSON,DIANE M 4856 F
NELSON,KENNETH R 1674 M 51 SP 99 4820 SKIN OF UPPER E PSORIASIS
OWENS,ERNEST D 5310 M
Notice that some of the names listed show no data in the Age, Acc #,
Organ/tissue, and Morphology columns. These are year 2000 accessions. All
1999 accessions still reported correctly.
It was discovered that the two digit year was being used as a subscript in
the ^TMP global which stores that data temporarily so that it may be
procedure, function, or diagnosis code. The menu is shown below:
printed. The two digit year subscript is extracted from dates in the LAB DATA
file (#63) as follows:
Surgical Pathology: DATE/TIME SPECIMEN RECEIVED field (#.1) of SURGICAL
PATHOLOGY (sub-field #8, Sub-file #63.08)
Cytopathology: DATE/TIME SPECIMEN RECEIVED field (#.1) of
CYTOPATHOLOGY (sub-field #9, Sub-file #63.09)
Electron Microscopy: DATE/TIME SPECIMEN RECEIVED field (#.1) of EM
(sub-field #2, Sub-file #63.02)
Autopsy: AUTOPSY DATE/TIME field (#11)
The year subscript is created by extracting the second and third characters
of the date. For example, if the date is 2991031.0800, the year subscript
will be 99. If the date is 3001031.0800, the year subscript will be 00.
Here is an example:
^TMP(545305223,99,2) = AU 99 2^20^M^WINKERBEAN,FUNKY^5533^10/14^2
^TMP(545305223,99,2,151,0) = BRAIN
^TMP(545305223,99,2,151,41770) = ABSCESS, DRAINING
MC MORPHOLOGY code search, SNOMED [LRAPSM]
^TMP(545305223,"00",1) = AU 00 1^81^M^FULTON,CHESTER E.^5537^1/13^2
^TMP(545305223,"00",1,395,0) = SKIN BETWEEN FOURTH AND FIFTH TOES
^TMP(545305223,"00",1,395,"02060") = SADDLE SHAPE
The second subscript is the two digit year. Subscript "00" was confusing
the code causing it to quit before executing the portion of code that
prints the age, accession number, organ/tissue, and morphology.
The problem has been corrected by including the century indicator when
creating the second subscript. For year 1999, the subscript will be 299.
DC DISEASE code search, SNOMED [LRAPSD]
For year 2000, the subscript will be 300. See below:
^TMP(545305223,299,2) = AU 99 2^20^M^WINKERBEAN,FUNKY^5533^10/14^2
^TMP(545305223,299,2,151,0) = BRAIN
^TMP(545305223,299,2,151,41770) = ABSCESS, DRAINING
^TMP(545305223,300,1) = AU 00 1^81^M^FULTON,CHESTER E.^5537^1/13^2
^TMP(545305223,300,1,395,0) = SKIN BETWEEN FOURTH AND FIFTH TOES
^TMP(545305223,300,1,395,"02060") = SADDLE SHAPE
This change to the ^TMP global structure has corrected the problem.
EC ETIOLOGY code search, SNOMED [LRAPSE]
PC PROCEDURE code search, SNOMED [LRAPSP]
|
