Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: ICPTCOD

Package: CPT HCPCS Codes

Routine: ICPTCOD


Information

ICPTCOD ;ALB/DEK/KER - CPT CODE APIS ;11/29/2007

Source Information

Source file <ICPTCOD.m>

Entry Points

Name Comments DBIA/ICR reference
CPT(CODE,CDT,SRC,DFN) ; returns basic info on CPT/HCPCS code
CPTQ
CPTD(CODE,OUTARR,DFN,CDT) ; Returns CPT description
CPTDQ
CODM(CODE,OUTARR,SRC,CDT,DFN) ; 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 **
CODMQ
CODEN(CODE) ; Rreturn the IEN of a CPT/HCPCS code
CODEC(CODE) ; Return the CPT/HCPCS Code
VALCPT(CODE,CDT,SRC,DFN) ;check if CPT code is valid for selection
VALCPTQ
VST(IEN,VDATE,TYPE)
VSTCP(IEN,VDATE) ; Versioned Short Text (CPT Procedure)
VLTCP(IEN,VDATE,ARY) ; Versioned Description - Long Text (CPT Procedure)
TRIM(X) ; Trim Spaces
Info |  Source |  Entry Points