©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
SROMOD ;BIR/ADM - CPT Modifier Input ; [ 02/27/01 6:32 AM ]
Source file <SROMOD.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | EN^DDIOL (FILE,UPDATE)^DIE ^DIR |
| DRG Grouper | 1 | ($$MOD,$$MODP)^ICPTMOD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUES1 | ||
| OCHK | ; return value of modifier if acceptable for other procedure
|
|
| QUES | ||
| SOTH | ; set logic for ACPT1 x-ref
|
|
| DISPLAY | ; display name with modifier
|
|
| OTH() | ; screen for acceptable CPT code/modifier pair for other procedure
|
|
| HYPH27 | ; input CPT hyphenated modifier for principal procedure
|
|
| KPRIN | ; kill logic for ACPT x-ref
|
|
| KOTH | ; kill logic for ACPT1 x-ref
|
|
| HYPHOTH | ; input CPT hyphenated modifier for other procedure
|
|
| SCR27() | ; screen for acceptable CPT code/modifier pair for principal procedure
|
|
| PCHK | ; return value of modifier if acceptable for principal procedure
|
|
| SPRIN | ; set logic for ACPT x-ref
|
| Name | Field # of Occurrence |
|---|---|
| EN^DDIOL | SPRIN+12, SPRIN+15, SOTH+11, SOTH+14, HYPH27+5, HYPHOTH+5 |
| FILE^DIE | SPRIN+12, SPRIN+15, SOTH+11, SOTH+14 |
| UPDATE^DIE | SPRIN+14, SOTH+13, HYPH27+7, HYPHOTH+7 |
| ^DIR | SPRIN+6, SPRIN+9, SOTH+6, SOTH+9 |
| $$MOD^ICPTMOD | DISPLAY+4, SPRIN+3, SOTH+3, HYPH27+4, HYPHOTH+4, QUES+2, QUES1+2 |
| $$MODP^ICPTMOD | PCHK+5, OCHK+5 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SRF - [#130] | DISPLAY+3, PCHK+3, OCHK+3, SPRIN+3, SPRIN+5, SPRIN+7, SPRIN+10, SPRIN+11*, KPRIN+1!, SOTH+3 , SOTH+5, SOTH+7, SOTH+10, KOTH+1!, HYPH27+6, HYPHOTH+6, QUES+1, QUES+2, QUES1+1, QUES1+2 |
| Name | Line Occurrences |
|---|---|
| HYPH27 | SPRIN+2 |
| HYPHOTH | SOTH+2 |
| OCHK | OTH+1, HYPHOTH+4 |
| PCHK | SCR27+1, HYPH27+4 |
| QUES | SPRIN+5 |
| QUES1 | SOTH+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> D0 | OCHK+2 |
| >> D1 | OCHK+2 |
| >> DA | DISPLAY+2, PCHK+2, OCHK+2, SPRIN+3, SPRIN+6*, SPRIN+9*, SPRIN+14, KPRIN+1, SOTH+3, SOTH+6* , SOTH+9*, SOTH+13, KOTH+1, HYPH27+7, HYPHOTH+7 |
| >> DA(1 | DISPLAY+2, PCHK+2, OCHK+2, SOTH+3, SOTH+6*, SOTH+13, KOTH+1, HYPHOTH+7 |
| >> DA(2 | OCHK+2 |
| >> DIK | SPRIN+1, KPRIN+1, SOTH+1, KOTH+1 |
| DIR | SPRIN+4!, SPRIN+6!, SPRIN+7~, SOTH+4!, SOTH+6!, SOTH+7~ |
| DIR("?" | QUES*, QUES+3*, QUES+4*, QUES1*, QUES1+3*, QUES1+4* |
| DIR("A" | SPRIN+5*, SPRIN+8*, SOTH+5*, SOTH+8* |
| DIR("B" | SPRIN+5*, SPRIN+8*, SOTH+5*, SOTH+8* |
| DIR(0 | SPRIN+5*, SPRIN+8*, SOTH+5*, SOTH+8* |
| DT | DISPLAY+1, PCHK+1, OCHK+1 |
| >> DTOUT | SPRIN+6, SPRIN+9, SOTH+6, SOTH+9 |
| >> DUOUT | SPRIN+6, SPRIN+9, SOTH+6, SOTH+9 |
| ICPTVDT | PCHK+1!, PCHK+6*, OCHK+1!, OCHK+6* |
| IOST | SPRIN+1, KPRIN+1, SOTH+1, KOTH+1 |
| SRCMOD | SCR27+1~, OTH+1~, SPRIN+2, SPRIN+3*, SPRIN+4!, SPRIN+5, SPRIN+15, SOTH+2, SOTH+3*, SOTH+4! , SOTH+5, SOTH+14, HYPH27+1, HYPH27+2*, HYPH27+4, HYPH27+5!, HYPHOTH+1, HYPHOTH+2*, HYPHOTH+4, HYPHOTH+5! |
| SRCODE | SCR27+1~, PCHK+2*, PCHK+3*, PCHK+4, PCHK+5, OTH+1~, OCHK+2*, OCHK+3*, OCHK+4, OCHK+5 , SPRIN+2~*, SOTH+2~*, HYPH27+1~, HYPHOTH+1~ |
| >> SRCT | QUES+1*, QUES+3*, QUES+4, QUES1+1*, QUES1+3*, QUES1+4 |
| SRDA | DISPLAY+1~, DISPLAY+2*, DISPLAY+3, SCR27+1~, PCHK+2*, PCHK+3, OTH+1~, OCHK+2*, OCHK+3, SPRIN+2~ , SPRIN+3*, SPRIN+5, SPRIN+6, SPRIN+7, SPRIN+9, SPRIN+10, SPRIN+11, SPRIN+12, SPRIN+15, SOTH+2~ , SOTH+3*, SOTH+5, SOTH+6, SOTH+7, SOTH+9, SOTH+10, SOTH+11, SOTH+14, HYPH27+1~, HYPH27+6 , HYPHOTH+1~, HYPHOTH+6, QUES+1, QUES+2, QUES1+1, QUES1+2 |
| SRDA(1 | SOTH+3*, SOTH+5, SOTH+6, SOTH+7, SOTH+10, SOTH+11, SOTH+14, QUES1+1 |
| SRDATE | DISPLAY+1~*, DISPLAY+3*, DISPLAY+4 |
| SRDEF | SPRIN+2~, SOTH+2~ |
| SRDUP | HYPH27+1~, HYPH27+3*, HYPH27+6*, HYPH27+7, HYPHOTH+1~, HYPHOTH+3*, HYPHOTH+6*, HYPHOTH+7 |
| SRI | QUES~, QUES+1*, QUES1~, QUES1+1* |
| SRIEN | SPRIN+2~, SPRIN+3*, SPRIN+15, SOTH+2~, SOTH+3*, SOTH+14 |
| SRJ | SPRIN+2~, SPRIN+7*, SPRIN+11, SPRIN+12, SOTH+2~, SOTH+7*, SOTH+11, HYPH27+6*, HYPHOTH+6* |
| >> SRK | SPRIN+10*, SOTH+10* |
| SRLIST | HYPH27+1~*, HYPH27+2, HYPHOTH+1~*, HYPHOTH+2 |
| SRM | SCR27+1!, PCHK+2*, PCHK+5, OTH+1!, OCHK+2*, OCHK+5, SPRIN+4!, SOTH+4!, HYPH27+4*!, HYPHOTH+4*! |
| SRMD | QUES~, QUES+1*, QUES+2, QUES1~, QUES1+1*, QUES1+2 |
| SRN | HYPH27+1~, HYPH27+2*, HYPHOTH+1~, HYPHOTH+2* |
| SROK | SCR27+1~, SCR27+2, PCHK+2*, PCHK+5*, OTH+1~, OTH+2, OCHK+2*, OCHK+5*, HYPH27+1~, HYPH27+3* , HYPH27+5, HYPH27+6, HYPH27+7, HYPHOTH+1~, HYPHOTH+3*, HYPHOTH+5, HYPHOTH+6, HYPHOTH+7 |
| SROTH | OTH+1~, OCHK+2*, OCHK+3, HYPHOTH+1~, HYPHOTH+6 |
| SRQ | SPRIN+2~*, SPRIN+4*, SPRIN+10*, SPRIN+11*, SPRIN+12*, SPRIN+13, SOTH+2~*, SOTH+4*, SOTH+11*, SOTH+12 |
| SRSDATE | SCR27+1~, PCHK+1~*, PCHK+3*, PCHK+5, PCHK+6, OTH+1~, OCHK+1~*, OCHK+3*, OCHK+5, OCHK+6 , SPRIN+2~, SOTH+2~ |
| SRSEL | SPRIN+2~, SPRIN+8*, SOTH+2~, SOTH+8* |
| SRSOUT | SPRIN+2~*, SPRIN+4, SPRIN+6*, SPRIN+9*, SPRIN+13, SOTH+2~*, SOTH+4, SOTH+6*, SOTH+9*, SOTH+12 |
| >> SRTN | DISPLAY+2, PCHK+2, OCHK+2 |
| SRX | SPRIN+2~, SPRIN+3*, SOTH+2~, SOTH+3*, QUES~, QUES+2*, QUES1~, QUES1+2* |
| SRY | DISPLAY+1~, DISPLAY+4*, DISPLAY+5, SPRIN+2~, SOTH+2~, HYPH27+1~, HYPHOTH+1~, QUES~, QUES+2*, QUES+3 , QUES1~, QUES1+2*, QUES1+3 |
| SRY( | SPRIN+12*, SPRIN+14*, SPRIN+15*, SOTH+11*, SOTH+13*, SOTH+14*, HYPH27+7*, HYPHOTH+7* |
| SRZ | SCR27+1~, PCHK+5*, OTH+1~, OCHK+5*, QUES~, QUES+2*, QUES+3, QUES1~, QUES1+2*, QUES1+3 |
| X | SPRIN+2~, SPRIN+6, SPRIN+9, SPRIN+12, SPRIN+15, SOTH+2~, SOTH+6, SOTH+9, SOTH+11, SOTH+14 |
| >> Y | DISPLAY+4, DISPLAY+5*, PCHK+2, OCHK+2, SPRIN+7, SPRIN+10, SPRIN+11, SPRIN+14, SOTH+7, SOTH+10* , SOTH+13 |
| >> Y(0 | SPRIN+8, SOTH+8 |
| Z | SPRIN+2~, SOTH+2~ |