ICPTAU ; DLS/DEK/KER - CPT Annual Update Protocol for CPT Codes ; 02/22/2007
;;6.0;CPT/HCPCS;**14,16,34**;May 19, 1997;Build 3
;
; Quit Update if NOT CPT Procedure Related
;
; XQORQUIT Signals the Unwinder to not process
; any protocols that are subordinate to
; the current protocol. Control is passed
; to the next sibling protocol.
;
S:'$D(LEXSCHG("B",81))&('$D(LEXSCHG("B",81.3))) XQORQUIT=1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICPTAU 464 printed Nov 22, 2024@16:55:51 Page 2
ICPTAU ; DLS/DEK/KER - CPT Annual Update Protocol for CPT Codes ; 02/22/2007
+1 ;;6.0;CPT/HCPCS;**14,16,34**;May 19, 1997;Build 3
+2 ;
+3 ; Quit Update if NOT CPT Procedure Related
+4 ;
+5 ; XQORQUIT Signals the Unwinder to not process
+6 ; any protocols that are subordinate to
+7 ; the current protocol. Control is passed
+8 ; to the next sibling protocol.
+9 ;
+10 if '$DATA(LEXSCHG("B",81))&('$DATA(LEXSCHG("B",81.3)))
SET XQORQUIT=1
+11 QUIT
