SROADX2 ;BIR/RJS - ASSOCIATED DIAGNOSIS FOR CODER AND VERIFY SCREENS ;09/12/05 12:01pm
Source file <SROADX2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PDXCHK(SRCODE) | ||
| OTHCHK(SRCODE) | ||
| MSG | ||
| PRLOOP(SRCHK) | ||
| OTLOOP(SRCHK) | ||
| DELASOC | ||
| PRINASO(SRCODE) | ||
| PRINASOD | ||
| PCPTASO(SRCODE) | ||
| OCPTASO(SRCODE) | ||
| EDITWARN(SRCODE) | ||
| KPADX(SRCN) | ; kill all the principal cpt associated diagnosis codes
|
|
| KOADX(SRCN,SRREC) | ; kill other cpt associated diagnosis codes
|
|
| ADXCHK | ; check the validity of associations and remove if diagnosis missing
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SRF - [#130] | OTHCHK+13, OTHCHK+15, OTHCHK+16, PRLOOP+1, PRLOOP+2, OTLOOP+1, OTLOOP+3, OTLOOP+4, PCPTASO+1, OCPTASO+1 , KPADX+3, KOADX+3, ADXCHK+3, ADXCHK+4, ADXCHK+5, ADXCHK+6, ADXCHK+7, ADXCHK+8, ADXCHK+9, ADXCHK+10 , ADXCHK+11, ADXCHK+12, ADXCHK+13, ADXCHK+14 |
| ^TMP($J | PDXCHK+4*, DELASOC+3!, PRINASOD+1! |
| Name | Line Occurrences |
|---|---|
| $$EDITWARN | PCPTASO+2, OCPTASO+2 |
| $$OTLOOP | PDXCHK+16, OTHCHK+4, DELASOC+5, DELASOC+9 |
| $$PRLOOP | PDXCHK+10, PDXCHK+16, PDXCHK+20, DELASOC+5, DELASOC+9 |
| DELASOC | PRINASOD+2 |
| KOADX | OTHCHK+17, OTLOOP+5, OCPTASO+2, ADXCHK+8, ADXCHK+9 |
| KPADX | PRLOOP+3, PCPTASO+2, ADXCHK+13, ADXCHK+14 |
| OTHCHK | PDXCHK+24 |
| PDXCHK | PRINASO+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| D0 | PDXCHK+1, PDXCHK+2, PDXCHK+3, PDXCHK+13, OTHCHK+9, OTHCHK+16, PRLOOP+2, OTLOOP+4, DELASOC+4, PRINASO+1~* , PRINASOD+2~*, PCPTASO+1, OCPTASO+1 |
| DA | PDXCHK~, OTHCHK~, OTHCHK+12~, OTHCHK+14*, OTHCHK+15*, OTHCHK+16, PRLOOP+2, OTLOOP+4, DELASOC+2, OCPTASO , OCPTASO+1, OCPTASO+2, EDITWARN+1, EDITWARN+13*, KPADX+1~, KPADX+4*, KOADX+1~, KOADX+4* |
| DA(1 | DELASOC+1, DELASOC+2, KPADX+2*, KPADX+3, KPADX+4*, KOADX+4* |
| DA(2 | KOADX+2*, KOADX+3, KOADX+4* |
| DIK | KPADX+1~, KPADX+4*, KOADX+1~, KOADX+4* |
| DIR | PDXCHK~, PDXCHK+23!, PDXCHK+25!, OTHCHK~, DELASOC~, EDITWARN~ |
| DIR("A" | PDXCHK+8*, PDXCHK+11*, PDXCHK+12*, PDXCHK+17*, OTHCHK+5*, OTHCHK+7*, OTHCHK+8*, DELASOC+7*, EDITWARN+3*, EDITWARN+5* , EDITWARN+6*, EDITWARN+9* |
| DIR("B" | PDXCHK+12*, PDXCHK+13*, PDXCHK+17*, OTHCHK+8*, OTHCHK+9*, EDITWARN+2* |
| DIR(0 | PDXCHK+7*, OTHCHK+5*, DELASOC+7*, EDITWARN+2* |
| >> EMILY | MSG+1 |
| OTH | OTHCHK~, OTHCHK+12*, OTHCHK+13*, OTHCHK+15, OTHCHK+16, OTHCHK+17, OTLOOP~*, OTLOOP+1*, OTLOOP+3, OTLOOP+4 |
| SRCHK | PRLOOP~, PRLOOP+3, OTLOOP~, OTLOOP+5 |
| SRCN | KPADX~, KPADX+2, KPADX+4, KOADX~, KOADX+2, KOADX+4 |
| SRCODE | PDXCHK~, PDXCHK+9, PDXCHK+15, PDXCHK+24, OTHCHK~, OTHCHK+6, PRINASO~, PRINASO+1!, PCPTASO~, PCPTASO+1 , PCPTASO+2, PCPTASO+3!, OCPTASO~, OCPTASO+1, OCPTASO+2, OCPTASO+3!, EDITWARN~, EDITWARN+4, EDITWARN+8 |
| SRDA | OTLOOP~, OTLOOP+2*, OTLOOP+3*, OTLOOP+4, OTLOOP+5 |
| >> SRDABAK | EDITWARN+1*, EDITWARN+13 |
| SRDX | PRLOOP~*, PRLOOP+1*, PRLOOP+2, ADXCHK+1~, ADXCHK+2*, ADXCHK+7*, ADXCHK+8, ADXCHK+9, ADXCHK+12*, ADXCHK+13 |
| >> SRFLG | MSG |
| >> SRI | PRLOOP+1* |
| SRKALL | PDXCHK+7*, PDXCHK+19*, PDXCHK+25!, OTHCHK+3, OTHCHK+11 |
| SRMATCH | PDXCHK+25!, PRLOOP~*, PRLOOP+2*, PRLOOP+3, PRLOOP+4, OTLOOP~*, OTLOOP+6*, OTLOOP+7 |
| SROT | DELASOC~, DELASOC+5*, DELASOC+6, DELASOC+9* |
| SRPR | DELASOC~, DELASOC+5*, DELASOC+6, DELASOC+9* |
| SRQUIT | PDXCHK~, PDXCHK+7*, PDXCHK+18*, PDXCHK+22, OTHCHK~, OTHCHK+2*, EDITWARN+2* |
| SRREC | KOADX~, KOADX+3, KOADX+4 |
| SRTEMP | PDXCHK~, PDXCHK+20* |
| SRTN | PDXCHK+2~*, PDXCHK+3, PDXCHK+4, PDXCHK+13, OTHCHK+9, OTHCHK+13, OTHCHK+15, OTHCHK+16, OTHCHK+17, PRLOOP+1 , PRLOOP+2, PRLOOP+3, OTLOOP+1, OTLOOP+3, OTLOOP+4, OTLOOP+5, DELASOC+1*, DELASOC+2*, DELASOC+3, PRINASO , PRINASOD, PRINASOD+1, PCPTASO, PCPTASO+1, PCPTASO+2, OCPTASO, OCPTASO+1, OCPTASO+2, ADXCHK+3, ADXCHK+4 , ADXCHK+5, ADXCHK+6, ADXCHK+7, ADXCHK+8, ADXCHK+9, ADXCHK+10, ADXCHK+11, ADXCHK+12, ADXCHK+13, ADXCHK+14 |
| SRX | ADXCHK+1~, ADXCHK+3*, ADXCHK+4*, ADXCHK+5, ADXCHK+6, ADXCHK+7, ADXCHK+8, ADXCHK+9, ADXCHK+10*, ADXCHK+11* , ADXCHK+12 |
| SRX1 | KPADX+1~, KPADX+2*, KPADX+3*, KPADX+4, KOADX+1~, KOADX+2*, KOADX+3*, KOADX+4 |
| SRXBAK | PDXCHK~, PDXCHK+7*, PDXCHK+18*, PDXCHK+21, OTHCHK~, OTHCHK+2*, OTHCHK+18, DELASOC~, DELASOC+5*, DELASOC+10 , EDITWARN~, EDITWARN+2*, EDITWARN+11*, EDITWARN+12, KPADX+1~, KPADX+2*, KPADX+5, KOADX+1~, KOADX+2*, KOADX+5 |
| SRY | OTHCHK~, EDITWARN~, EDITWARN+12*, EDITWARN+15, ADXCHK+1~, ADXCHK+5*, ADXCHK+6*, ADXCHK+7 |
| SRYBAK | PDXCHK~, PDXCHK+5*, PDXCHK+6*, PDXCHK+18, PDXCHK+21, OTHCHK~, OTHCHK+1*, OTHCHK+18, EDITWARN~, EDITWARN+1* , EDITWARN+11, EDITWARN+13 |
| SRZ | ADXCHK+1~ |
| U | PDXCHK+11, OTHCHK+7, EDITWARN+5, ADXCHK+9, ADXCHK+14 |
| >> X | PDXCHK+7, PDXCHK+21*, OTHCHK+2, OTHCHK+18*, DELASOC+5, DELASOC+10*, PRINASO, PRINASOD, PCPTASO, PCPTASO+1 , OCPTASO, OCPTASO+1, EDITWARN+2, EDITWARN+12*, KPADX+2, KPADX+5*, KOADX+2, KOADX+5* |
| >> XQY0 | PDXCHK+11, OTHCHK+7, EDITWARN+5 |
| Y | PDXCHK+5, PDXCHK+7*, PDXCHK+18, PDXCHK+19, PDXCHK+20, PDXCHK+21*, OTHCHK+1, OTHCHK+11, OTHCHK+18*, DELASOC~ , EDITWARN+1, EDITWARN+11, EDITWARN+12, EDITWARN+13*, KPADX+1~, KOADX+1~ |
