SROCPT ;BIR/MAM,ADM - PRINT DESCRIPTION OF CPT CODE ON LOOKUP ; [ 05/14/99 11:28 AM ]
Source file <SROCPT.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 | ||
| IN | ; check CPT input | |
| SSOTH | ; append CPT modifiers to other CPT code | |
| OTHDISP | ; output other procedure CPT | |
| DISPLAY | ; output principal CPT | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^SRF - [#130] | 1+3, DISPLAY+5, DISPLAY+8, DISPLAY+9, OTHDISP+5, OTHDISP+8, OTHDISP+9, DES+2, ACTIV+3, 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 | 
| >> 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 | 
| 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+4*, DES+6 | 
| SRM | SSPRIN+1~, SSPRIN+3*, SSOTH+1~, SSOTH+3* | 
| SROK | ACTIV+2~*, ACTIV+4*, ACTIV+5 | 
| SRP | DISPLAY+2~, OTHDISP+2~ | 
| SRSDATE | ACTIV+2~*, ACTIV+3*, ACTIV+4 | 
| SRTN | 1+2, DISPLAY+3, OTHDISP+3, DES+1, ACTIV~, ACTIV+3, 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~* | 
| SRY | DISPLAY+2~, DISPLAY+9*, OTHDISP+2~, OTHDISP+9*, DES+3*, DES+4* | 
| SRZ | DISPLAY+2~, DISPLAY+9*, OTHDISP+2~, OTHDISP+9* | 
| X | DES+1~, DES+4, DES+5*, IN+1, IN+2*, SSPRIN+1~, SSOTH+1~ | 
| >> Y | 1+5, DISPLAY+1, DISPLAY+3*, OTHDISP+1, DES+1, DES+6*, SSPRIN+2, SSPRIN+5*, SSOTH+2, SSOTH+5* | 
| Z | DES+1~, DES+5* |