| GENERAL DESCRIPTION |
The Code Text Descriptors project modifies the
identifier on the OPERATION/PROCEDURE (#4) in the ICD OPERATION/PROCEDURE file
(80.1).
The new identifier makes a function call into $$IDOPS^ICDID to return
versioned data for both the OPERATION/PROCEDURE and the status in the INACTIVE
FLAG. The function has only one input parameter, the Internal Entry Number
for file #80.1. Routine ICDID will also look to see if the package namespaced
variable ICDVDT is in the environment. ICDVDT is a versioning date. If
ICDVDT is not found in the environment (not supplied) then TODAY will be used
and the OPERATION/PROCEDURE and INACTIVE FLAG for TODAY will be displayed. If
the variable ICDVDT is found in the environment, and is a date other than
TODAY, then the appropriate OPERATION/PROCEDURE and INACTIVE FLAG will be
displayed for the date.
The identifiers will be changed to:
^DD(80.1,0,"ID",4)= D EN^DDIOL((" "_$$IDOPS^ICDID(+Y)),"","?0")
This will be exported in the combined build CTD UTIL 1.0, containing
ICPT*6.0*19, ICD*18.0*12 and LEX*2.0*30.
|