SROCPT0 ;BIR/ADM - CPT CODING UTILITY ;04/20/05
Source file <SROCPT0.m>
Package | Total | Call Graph |
---|---|---|
CPT HCPCS Codes | 2 | ($$CPT,$$CPTD)^ICPTCOD $$MOD^ICPTMOD |
VA FileMan | 1 | EN^DDIOL |
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 |
---|---|---|
1 | ||
DISPLAY | ; output principal CPT
|
|
OTHDISP | ; output other procedure CPT
|
|
DES | ; get short name and description
|
|
ACTIV(SRTN,SRCODE) | ; screen for active CPT codes
|
|
IN | ; check CPT input
|
|
DUP | ; check for duplicate other procedure CPT
|
|
SSPRIN | ; append CPT modifiers to principal CPT code
|
|
SSOTH | ; append CPT modifiers to other CPT code
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
>> | 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* |