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