©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
SROCDX2 ;BIR/ADM - ASSOCIATED DIAGNOSIS CODING UTILITIES ;07/27/05
Source file <SROCDX2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SADXP | ; ADXP x-ref set logic
|
|
| PRLOOP(SRCHK) | ||
| KOADX(SRCN,SRREC,SRPDA) | ; kill other cpt associated diagnosis codes
|
|
| KPADX(SRCN,SRPDA) | ; kill all the principal cpt associated diagnosis codes
|
|
| PRINASOD | ||
| KADXP | ; ADXP x-ref kill logic
|
|
| OTLOOP(SRCHK) | ||
| DELASOC | ||
| AT2 | ; delete principal associated diagnoses
|
|
| KADXO | ; ADXO x-ref kill logic
|
|
| SCOND(X1,X2) | ; set condition for ADXP x-ref
|
|
| DELWRN | ||
| SADXO | ; ADXO x-ref set logic
|
|
| KCOND(X1,X2) | ; kill condition for ADXP x-ref
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SRO(136 - [#136] | PRLOOP+1, PRLOOP+2, PRLOOP+4*, OTLOOP+1, OTLOOP+2, OTLOOP+3, OTLOOP+5*, SADXP+2, KADXP+2, KADXP+3 , AT2+2, SADXO+2, KADXO+2, KPADX+3, KOADX+3 |
| Name | Line Occurrences |
|---|---|
| $$OTLOOP | DELASOC+3, DELASOC+5 |
| $$PRLOOP | DELASOC+3, DELASOC+5 |
| AT2 | KADXP+2 |
| DELASOC | PRINASOD+1 |
| KADXO | SADXO+5 |
| KADXP | SADXP+5 |
| KOADX | OTLOOP+4 |
| KPADX | PRLOOP+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| D0 | PRINASOD+1~* |
| DA | DELASOC+2, SADXP+2, KADXP+2, AT2+2, SADXO+2, KADXO+2, KPADX+1~, KPADX+4*, KPADX+6*, KOADX+1~ , KOADX+4*, KOADX+6* |
| DA(1 | DELASOC+2, SADXO+2, KADXO+2, KPADX+2*, KPADX+3, KPADX+4*, KPADX+6*, KOADX+4*, KOADX+6* |
| DA(2 | KOADX+2*, KOADX+3, KOADX+4*, KOADX+6* |
| DIK | KPADX+1~, KPADX+4*, KPADX+6*, KOADX+1~, KOADX+4*, KOADX+6* |
| DIR | DELASOC~, SADXP+1~, SADXO+1~ |
| DIR("A" | SADXP+3*, SADXO+3* |
| DIR("B" | SADXP+4*, SADXO+4* |
| DIR(0 | SADXP+4*, SADXO+4* |
| >> DTOUT | SADXP+4, SADXO+4 |
| >> DUOUT | SADXP+4, SADXO+4 |
| OTH | OTLOOP~*, OTLOOP+1*, OTLOOP+2, OTLOOP+3, OTLOOP+4, OTLOOP+5 |
| SRASSD | KADXP+1~, KADXP+3* |
| SRC | DELWRN~, DELWRN+3 |
| SRC(1 | DELWRN+1* |
| SRC(2 | DELWRN+2* |
| SRCHK | PRLOOP~, PRLOOP+3, OTLOOP~, OTLOOP+4 |
| SRCN | KPADX~, KPADX+2, KPADX+4, KPADX+6, KOADX~, KOADX+2, KOADX+4, KOADX+6 |
| SRDA | OTLOOP~, OTLOOP+2*, OTLOOP+3, OTLOOP+4, OTLOOP+5, AT2+1~, AT2+2*, AT2+3, KADXO+1~, KADXO+2* , KADXO+3 |
| SRDA(1 | KADXO+2*, KADXO+3 |
| SRDO | SCOND+1~*, SCOND+2*, SCOND+3, KCOND+1~*, KCOND+2*, KCOND+3 |
| SRDX | PRLOOP~*, PRLOOP+1*, PRLOOP+2, PRLOOP+3, PRLOOP+4 |
| SRFDA | KADXP+1~, KADXP+3* |
| >> SRI | PRLOOP+1* |
| SRIENF | KADXP+1~, KADXP+3* |
| SRIENU | KADXP+1~, KADXP+3* |
| SRJ | AT2+1~, AT2+2*, AT2+3, KADXO+1~, KADXO+2*, KADXO+3 |
| SRMATCH | PRLOOP~*, PRLOOP+5*, PRLOOP+6, OTLOOP~*, OTLOOP+6*, OTLOOP+7 |
| >> SRNEW | PRLOOP+4, OTLOOP+5 |
| SROT | DELASOC~, DELASOC+3*, DELASOC+4, DELASOC+5* |
| SRPDA | KPADX~, KPADX+3, KPADX+5, KPADX+6, KOADX~, KOADX+3, KOADX+5, KOADX+6 |
| SRPR | DELASOC~, DELASOC+3*, DELASOC+4, DELASOC+5* |
| SRREC | KOADX~, KOADX+3, KOADX+4, KOADX+6 |
| SRTN | PRLOOP+1, PRLOOP+2, PRLOOP+3, PRLOOP+4, OTLOOP+1, OTLOOP+2, OTLOOP+3, OTLOOP+4, OTLOOP+5, DELASOC+2* , PRINASOD, KADXP+1~, KADXP+2*, KADXP+3 |
| SRX1 | KPADX+1~, KPADX+2*, KPADX+3*, KPADX+4, KOADX+1~, KOADX+2*, KOADX+3*, KOADX+4 |
| SRXBAK | DELASOC~, DELASOC+1*, DELASOC+5 |
| SRXX | PRLOOP~*, PRLOOP+3, OTLOOP~*, OTLOOP+4 |
| SRY | AT2+1~, KADXO+1~ |
| SRY( | AT2+3*, KADXO+3* |
| U | KADXP+2, KADXP+3 |
| >> X | PRLOOP, PRLOOP+2, PRLOOP+3*, OTLOOP, OTLOOP+3, OTLOOP+4*, DELASOC+1, DELASOC+5*, PRINASOD |
| X1 | SCOND~, KCOND~ |
| X1(1 | SCOND+2 |
| X2 | SCOND~, KCOND~ |
| X2(1 | SCOND+2, KCOND+2 |
| Y | DELASOC~, SADXP+1~, SADXP+4, SADXP+5, SADXO+1~, SADXO+4, SADXO+5, KPADX+1~, KOADX+1~ |