Routine: RACPTCSV

Information

RACPTCSV ;HISC/SWM - CPT Code Set Version ;2/23/04 09:03

Name	Comments	DBIA/ICR reference
ACTC()	; find out if CPT CODE is active ; called from file 70.03 field 2's DIC("S") ; Y = ien file 71 ; DA(2) = RADFN ; DA(1) = RADTI
FUTC()	; called from input templates [RA EXAM EDIT], [RA STATUS CHANGE] ; IF exam date is future to first Log Date: ; check CPT CODE when/after that date arrives ; and last Log Date isn't later than Exam Date ; assumes existing RADFN,RADTI,RACNI,RADTE ; RETURNS 0=inact.CPT Code, 1=active CPT Code
FUTCQ	;
FUTCMOD()	; called from input templates [RA EXAM EDIT], [RA STATUS CHANGE] ; IF exam date is future to first Log Date: ; check CPT Modifier when/after that date arrives ; and last Log Date isn't later than Exam Date ; assumes existing RADFN,RADTI,RACNI,RADTE ; RETURNS 0=at least one CPT Mod is inactive, 1=all CPT Mods active
FUTCMODQ	;