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