;screen entry of cpt mod
; called from file 70.03's field 135's screen
; Y = ien of file 81.3
; RACPT= CPT ien of this exam's procedure
; RADT = exam date
; RAX = screen's outcome, 0=failed
; outputs active status of CPT modifier
; RA1 = CPT MODIFIER, internal is used here
; RA2 = date to check CPT Modifier
; output:
; RA3 = 0 is inactive, >0 is active
; RAMODSTR returned from call to MOD^ICPTMOD
; SCREEN DEFAULT cpt mod for a PROCEDURE
; called from file 71's field 135's screen
; Y = ien of file 81.3
; RACPT= CPT ien of this procedure
; RAX = screen's outcome, 0=failed
;display existing Default CPT Modifers for procedure or location
; file 71 used if called from [RA PROCEDURE EDIT]
; file 79.1 used if called from [RA LOCATION PARAMETERS]