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* |