source:
WorldVistAEHR/trunk/r/DRG_GROUPER-ICD--ICPT/ICDUPDT.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 458 bytes |
Line | |
---|---|
1 | ICDUPDT ; 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.