Name | Value | ||||
---|---|---|---|---|---|
NUMBER | 4405 | ||||
IA # | 4405 | ||||
FILE NUMBER | 80.1 | ||||
GLOBAL ROOT | DD(80.1 | ||||
DATE CREATED | 2004/04/22 | ||||
CUSTODIAL PACKAGE | VA FILEMAN | ||||
CUSTODIAL ISC | San Francisco | ||||
USAGE | Private | ||||
TYPE | File | ||||
DBIC APPROVAL STATUS | APPROVED | ||||
NAME | ID Nodes in ICD OP file (#80.1) | ||||
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. |
||||
STATUS | Active | ||||
KEYWORDS | ICDID | ||||
DURATION | Till Otherwise Agreed | ||||
ID | DD(80.1 | ||||
SUBSCRIBING PACKAGE |
|