Routine: LEXQL4

Information

LEXQL4 ;ISL/KER - Query - Lookup Code (CPT/MOD) ;05/23/2017

Source file <LEXQL4.m>

Name	Comments	DBIA/ICR reference
CP	; $$CPT^ICPTCOD(CODE,DATE) ; ; 1 IEN of code in ^ICPT 1-6 ; 2 CPT Code (.01) 5 ; 3 Versioned Short Name (#61) 1-28 ; 6 Effective Date (#60) 10 (external) ; 7 Status (#60) 6-8 (external) ; 8 Inactivation Date (#60) 10 (external) ; 9 Activation Date (#60) 10 (external)
CM	; $$MOD(CODE,FORMAT,DATE)
VI(X)	; Verify Input
PUR	; Purge for CPT
NOT(X)	; Word not to use