VPR CPT MODIFIER (127)    ENTITY (1.5)

Name Value
NAME VPR CPT MODIFIER
DEFAULT FILE NUMBER 81.3
DATA MODEL SDA
DISPLAY NAME CPTModifier
ITEM
  • SDACodingStandard
    SEQUENCE:   1
    ITEM TYPE:   FIXED STRING
    FIXED RESPONSE:   VA81.3
    GET ACTION:   Q ;S VALUE=$S($P(VPRMOD,U,5)="C":"CPT-4",$P(VPRMOD,U,5)="H":"HCPCS",1:"VA81.3")
  • Code
    SEQUENCE:   6
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$P(VPRMOD,U,2)
  • Description
    SEQUENCE:   7
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$P(VPRMOD,U,3)
DESCRIPTION 
This entity expects a pointer to the CPT Modifiers file #81.3 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
$$MOD^ICPTMOD.
GET EXIT ACTION K VPRMOD
GET ID ACTION S VPRMOD=$$MOD^ICPTMOD(DIEN,"I",$G(VPRDT)) S:VPRMOD<0 DDEOUT=1