Name | Value | ||||
---|---|---|---|---|---|
NUMBER | 4403 | ||||
IA # | 4403 | ||||
FILE NUMBER | 81.3 | ||||
GLOBAL ROOT | DD(81.3 | ||||
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 CPT Modifier file (#81.3) | ||||
GENERAL DESCRIPTION | The Code Text Descriptors project modifies the identifier on the NAME (#.02) field in the CPT Modifier file (81.3). The new identifier makes a function call into $$IDMDS^ICPTID to return versioned data for both the NAME and the status in the INACTIVE FLAG. The function has one input parameter, the Internal Entry Point for file #81.3. Routine ICPTID will also look to see if the package namespaced variable ICPTVDT is in the environment. ICPTVDT is a versioning date. If ICPTVDT is not found in the environment (not supplied) then TODAY will be used and the NAME and INACTIVE FLAG for TODAY will be displayed. If the variable ICPTVDT is found in the environment, and is a date other than TODAY, then the appropriate NAME and INACTIVE FLAG will be displayed for the date. The identifier will be changed to: ^DD(81.3,0,"ID",.02)= D EN^DDIOL((" "_$$IDMDS^ICPTID(+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 | ICPTID | ||||
DURATION | Till Otherwise Agreed | ||||
ID | DD(81.3 | ||||
SUBSCRIBING PACKAGE |
|