©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
SROCPT0 ;BIR/ADM - CPT CODING UTILITY ;04/20/05
Source file <SROCPT0.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 2 | ($$CPT,$$CPTD)^ICPTCOD $$MOD^ICPTMOD |
| VA Fileman | 1 | EN^DDIOL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ACTIV(SRTN,SRCODE) | ; screen for active CPT codes
|
|
| SSPRIN | ; append CPT modifiers to principal CPT code
|
|
| DES | ; get short name and description
|
|
| 1 | ||
| SSOTH | ; append CPT modifiers to other CPT code
|
|
| IN | ; check CPT input
|
|
| DUP | ; check for duplicate other procedure CPT
|
|
| OTHDISP | ; output other procedure CPT
|
|
| DISPLAY | ; output principal CPT
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SRF - [#130] | 1+3, DISPLAY+9, OTHDISP+9, DES+2, ACTIV+3 |
| ^SRO(136 - [#136] | DISPLAY+5, DISPLAY+8, DISPLAY+9, OTHDISP+5, OTHDISP+8, OTHDISP+9, DUP+2, DUP+4, SSPRIN+1, SSPRIN+2 , SSPRIN+3, SSOTH+1, SSOTH+2, SSOTH+3 |
| Name | Line Occurrences |
|---|---|
| DES | DISPLAY+5, OTHDISP+5 |
| SSOTH | OTHDISP+4 |
| SSPRIN | DISPLAY+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DA | 1+2, OTHDISP+3, DUP+3 |
| >> DA(1 | 1+2 |
| DT | 1+1, DES+2, ACTIV+2 |
| ICPTVDT | 1+4, ACTIV+1!, ACTIV+4* |
| >> QPQPQ | DISPLAY+4, OTHDISP+4 |
| SRCMOD | IN+1!*, SSPRIN+1~, SSPRIN+2*, SSPRIN+3*, SSPRIN+4, SSOTH+1~, SSOTH+2*, SSOTH+3*, SSOTH+4 |
| SRCODE | 1~, 1+5*, DISPLAY+2~, OTHDISP+2~, DES+1*, DES+3, DES+4, ACTIV~, ACTIV+4 |
| SRCOMMA | SSPRIN+1~, SSPRIN+2*, SSPRIN+4*, SSOTH+1~, SSOTH+2*, SSOTH+4* |
| SRCPT | DISPLAY+2~, DISPLAY+6*, OTHDISP+2~, OTHDISP+6*, IN+1~*, IN+2, SSPRIN+1~, SSPRIN+2*, SSPRIN+4*, SSPRIN+5 , SSOTH+1~, SSOTH+2*, SSOTH+4*, SSOTH+5 |
| SRDA | 1~, 1+2*, 1+3, DISPLAY+2~, DISPLAY+3*, DISPLAY+5, DISPLAY+8, DISPLAY+9, OTHDISP+2~, OTHDISP+3* , OTHDISP+5, OTHDISP+8, OTHDISP+9, DES+1, SSOTH+1, SSOTH+2, SSOTH+3 |
| SRDA(1 | OTHDISP+3*, OTHDISP+5, OTHDISP+8, OTHDISP+9, DES+1 |
| SRDAA | DES+1~*, DES+2 |
| SRDATE | 1~, 1+1*, 1+3*, 1+4*, 1+5 |
| SRDD | DES+1~, DES+2*, DES+3, DES+4 |
| SRDES | 1~, DISPLAY+2~, OTHDISP+2~ |
| SRDES( | 1+6, DES+5 |
| >> SRDIE | DISPLAY+4, OTHDISP+4 |
| SRI | 1~, 1+6*, DISPLAY+2~, DISPLAY+8*, DISPLAY+9, OTHDISP+2~, OTHDISP+8*, OTHDISP+9, DES+4*, DES+5 , SSPRIN+1~, SSPRIN+2*, SSPRIN+3, SSOTH+1~, SSOTH+2*, SSOTH+3 |
| SRK | DISPLAY+2~, OTHDISP+2~, DES+1*, DES+3*, DES+4*, DES+6 |
| SRM | SSPRIN+1~, SSPRIN+3*, SSOTH+1~, SSOTH+3* |
| SROK | ACTIV+2~*, ACTIV+4*, ACTIV+5 |
| SRP | DISPLAY+2~, OTHDISP+2~ |
| SRQ | DUP+1~, DUP+2*, DUP+3*, DUP+4* |
| SRSDATE | ACTIV+2~*, ACTIV+3*, ACTIV+4 |
| SRTN | 1+2, DISPLAY+3, OTHDISP+3, DES+1, ACTIV~, ACTIV+3, DUP+2, DUP+4, SSPRIN+1, SSPRIN+2 , SSPRIN+3, SSOTH+1, SSOTH+2, SSOTH+3 |
| SRW | DISPLAY+2~, DISPLAY+6, OTHDISP+2~, OTHDISP+6, DES+3* |
| SRX | 1~, 1+5*, 1+6, DISPLAY+2~, DISPLAY+7*, DISPLAY+9*, OTHDISP+2~, OTHDISP+7*, OTHDISP+9*, IN+1~* , DUP+1~, DUP+2*, DUP+3, DUP+4 |
| SRY | DISPLAY+2~, DISPLAY+9*, OTHDISP+2~, OTHDISP+9*, DES+3*, DES+4* |
| SRZ | DISPLAY+2~, DISPLAY+9*, OTHDISP+2~, OTHDISP+9* |
| U | DUP+4 |
| X | DES+1~, DES+4, DES+5*, IN+1, IN+2*, DUP+4!, SSPRIN+1~, SSOTH+1~ |
| >> Y | 1+5, DISPLAY+1, DISPLAY+3*, OTHDISP+1, OTHDISP+3*, DES+1, DES+6*, SSPRIN+2, SSPRIN+5*, SSOTH+2 , SSOTH+5* |
| Z | DES+1~, DES+5* |