ICDUPDT.m

ICDUPDT ; DLS/DEK/KER - ICD Update Protocol for ICD Codes ; 02/22/2007

 ;;18.0;DRG Grouper;**6,11,28**;Oct 20, 2000;Build 3

 ;

 ; Quit Update if NOT ICD Diagnosis/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",80))&('$D(LEXSCHG("B",80.1))) XQORQUIT=1

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ICDUPDT   470     printed  Apr 09, 2024@20:53                                                                                                                                                                                                         Page 2

ICDUPDT   ; DLS/DEK/KER - ICD Update Protocol for ICD Codes ; 02/22/2007

 +1       ;;18.0;DRG Grouper;**6,11,28**;Oct 20, 2000;Build 3

 +2       ;

 +3       ; Quit Update if NOT ICD Diagnosis/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",80))&('$DATA(LEXSCHG("B",80.1)))

               SET XQORQUIT=1

 +11       QUIT