; returns list of modifiers for a code
;
; Input: CODE CPT/HCPCS code, Internal or External Format (Required)
; ARY Array Name for list returned
; e.g. "ABC" or "ABC("TEST")"
; Default = ^TMP("ICPTM",$J)
; SRC Source Screen
; If 0 or Null, check Level I/II code/modifiers
; If >0, check Level I/II/III code/modifiers
; CDT Date (default = TODAY)
; DFN Not in use, future need
;
; Output: # Number of modifiers that apply
;
; OUTARR Array in the format:
;
; ARY(Mod) = Versioned Name^Mod IEN
;
; Where
; Mod is the .01 field)
; Versioned Name is 1 field of the 61 multiple
;
; or
;
; -1^Error Description
;
; ** NOTE - User must initialize ^TMP("ICPTM",$J) array if used **
VALCPTQ
VALCPT(CODE,CDT,SRC,DFN)
;check if CPT code is valid for selection
CODEN(CODE)
; Rreturn the IEN of a CPT/HCPCS code
CPT(CODE,CDT,SRC,DFN)
; returns basic info on CPT/HCPCS code
TRIM(X)
; Trim Spaces
CODMQ
CPTD(CODE,OUTARR,DFN,CDT)
; Returns CPT description
VST(IEN,VDATE,TYPE)
VLTCP(IEN,VDATE,ARY)
; Versioned Description - Long Text (CPT Procedure)