source: FOIAVistA/trunk/r/DRG_GROUPER-ICD--ICPT/ICDUPDT.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 458 bytes
Line 
1ICDUPDT ; DLS/DEK/KER - ICD Update Protocol for ICD Codes ; 02/22/2007
2 ;;18.0;DRG Grouper;**6,11,28**;Oct 20, 2000;Build 3
3 ;
4 ; Quit Update if NOT ICD Diagnosis/Procedure Related
5 ;
6 ; XQORQUIT Signals the Unwinder to not process
7 ; any protocols that are subordinate to
8 ; the current protocol. Control is passed
9 ; to the next sibling protocol.
10 ;
11 S:'$D(LEXSCHG("B",80))&('$D(LEXSCHG("B",80.1))) XQORQUIT=1
12 Q
Note: See TracBrowser for help on using the repository browser.