VPR CPT (86)    ENTITY (1.5)

Name Value
NAME VPR CPT
DEFAULT FILE NUMBER 81
DATA MODEL SDA
DISPLAY NAME ProcedureCode
ITEM
  • SDACodingStandard
    SEQUENCE:   1
    ITEM TYPE:   FIXED STRING
    FIXED RESPONSE:   CPT-4
  • OriginalText
    SEQUENCE:   3
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$G(DATA) ;free text name from parent
  • Code
    SEQUENCE:   6
    ITEM TYPE:   FIXED STRING
    FILE NUMBER:   81
    GET ACTION:   S VALUE=$P(VPRCPT,U)
  • Description
    SEQUENCE:   7
    ITEM TYPE:   FIXED STRING
    FILE NUMBER:   81
    GET ACTION:   S VALUE=$P(VPRCPT,U,2)
DESCRIPTION 
This entity expects a pointer to the CPT file #81 as the ID, and 
optionally a FM date.time in local variable VPRDT, and returns the
formatted code, date-versioned description, and coding system using
$$CPT^ICPTCOD.
GET EXIT ACTION K VPRCPT
GET ID ACTION S VPRCPT=$$CPT^VPRSDA(DIEN,$G(VPRDT)) S:VPRCPT<0 DDEOUT=1