- 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 ---[H[J[2J[HICDUPDT 470 printed Dec 13, 2024@01:52:46 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