Print Page as PDF
ID Nodes in CPT file (#81) ICR (4402)

ID Nodes in CPT file (#81)    ICR (4402)

Name Value
NUMBER 4402
IA # 4402
FILE NUMBER 81
GLOBAL ROOT DD(81
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 file (#81)
GENERAL DESCRIPTION
The Code Text Descriptors project modifies the
identifier on the SHORT NAME (#2) field in the CPT file (81).

The new identifier makes a function call into $$IDCPS^ICPTID to return
versioned data for both the SHORT NAME and the status in the INACTIVE FLAG.
The function has one input parameter, the Internal Entry Point for file #81.
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
SHORT 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 SHORT NAME and INACTIVE FLAG will be displayed for the date.

The identifiers will be changed to:

^DD(81,0,"ID",2)= D EN^DDIOL(("  "_$$IDCPS^ICPTID(+Y)),"","?0") D:$D(SRSITE)
^SROCPT

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
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
CPT/HCPCS CODES Albany