SROMOD0 ;BIR/ADM - CPT MODIFIER INPUT ;08/01/05
Source file <SROMOD0.m>
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 |
Package | Total | Caller Graph |
---|---|---|
Surgery | 7 | OTHER PROCEDURE CODES OTHER PROCEDURE CPT MODIFIERS SROCD0 SROCD2 SROCDX ^SRO(136 PRIN PROCEDURE CPT MODIFIERS |
Name | Comments | DBIA/ICR reference |
---|---|---|
DISPLAY | ; display name with modifier
|
|
SCR27() | ; screen for acceptable CPT code/modifier pair for principal procedure
|
|
PCHK | ; return value of modifier if acceptable for principal procedure
|
|
OTH() | ; screen for acceptable CPT code/modifier pair for other procedure
|
|
OCHK | ; return value of modifier if acceptable for other procedure
|
|
PRIN | ; enter CPT modifiers for principal CPT code
|
|
OPROC | ; enter CPT modifiers for other CPT code
|
|
KOMOD | ; delete other CPT modifiers when CPT code is edited
|
|
PHYPH | ; called from input transform to process hyphenated modifier list
|
|
KPMOD | ; delete principal CPT modifiers when CPT code is edited
|
|
OHYPH | ; input CPT hyphenated modifier for other procedure
|
|
QUES | ||
QUES1 |
Name | Field # of Occurrence |
---|---|
EN^DDIOL | PRIN+13, PRIN+16, OPROC+10, OPROC+13, PHYPH+10, OHYPH+5 |
FILE^DIE | PRIN+13, PRIN+16, OPROC+10, OPROC+13, KOMOD+4, KPMOD+3 |
UPDATE^DIE | PRIN+15, OPROC+12, PHYPH+12, OHYPH+7 |
^DIR | PRIN+7, PRIN+10, OPROC+5, OPROC+8 |
$$MOD^ICPTMOD | DISPLAY+4, PRIN+4, OPROC+2, PHYPH+7, OHYPH+4, QUES+2, QUES1+2 |
$$MODP^ICPTMOD | PCHK+7, OCHK+5, PHYPH+9 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(81.3 - [#81.3] | PCHK+8 |
^SRF - [#130] | DISPLAY+3, PCHK+3, OCHK+3, PHYPH+4, QUES+2, QUES1+2 |
^SRO(136 - [#136] | PCHK+3, OCHK+3, PRIN+3, PRIN+4, PRIN+6, PRIN+8, PRIN+11, PRIN+12*, OPROC+2, OPROC+4 , OPROC+6, OPROC+9, KOMOD+3, PHYPH+11, KPMOD+2, OHYPH+6, QUES+1, QUES1+1 |
Name | Field # of Occurrence |
---|---|
^(0 | PCHK+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> D0 | OCHK+2 |
>> D1 | OCHK+2 |
>> DA | DISPLAY+2, PCHK+2, OCHK+2, PRIN+3, PRIN+7*, PRIN+10*, PRIN+15, OPROC+2, OPROC+5*, OPROC+8* , OPROC+12, KOMOD+1, KOMOD+2, PHYPH+3, PHYPH+12, KPMOD+2, OHYPH+7 |
>> DA(1 | DISPLAY+2, PCHK+2, OCHK+2, OPROC+2, OPROC+5*, OPROC+12, KOMOD+2, PHYPH+3, OHYPH+7 |
>> DA(2 | OCHK+2 |
>> DIK | PRIN+1, PHYPH+1 |
DIR | PRIN+5!, PRIN+7!, PRIN+8~, OPROC+3!, OPROC+5!, OPROC+6~ |
DIR("?" | QUES*, QUES+3*, QUES+4*, QUES1*, QUES1+3*, QUES1+4* |
DIR("A" | PRIN+6*, PRIN+9*, OPROC+4*, OPROC+7* |
DIR("B" | PRIN+6*, PRIN+9*, OPROC+4*, OPROC+7* |
DIR(0 | PRIN+6*, PRIN+9*, OPROC+4*, OPROC+7* |
DT | DISPLAY+1, PCHK+1, OCHK+1, PHYPH+3 |
>> DTOUT | PRIN+7, PRIN+10, OPROC+5, OPROC+8 |
>> DUOUT | PRIN+7, PRIN+10, OPROC+5, OPROC+8 |
IOST | PRIN+1, PHYPH+1, PHYPH+10 |
SRCMOD | SCR27+1~, OTH+1~, PRIN+4*, PRIN+5!, PRIN+6, PRIN+16, OPROC+1, OPROC+2*, OPROC+3!, OPROC+4 , OPROC+13, PHYPH+2, PHYPH+3, PHYPH+5*, PHYPH+7, PHYPH+10!, OHYPH+1, OHYPH+2*, OHYPH+4, OHYPH+5! |
SRCODE | SCR27+1~, PCHK+2*, PCHK+3*, PCHK+5, PCHK+7, OTH+1~, OCHK+2*, OCHK+3*, OCHK+4, OCHK+5 , PRIN+2~, PRIN+3*, OPROC+1~*, KOMOD+2~, KOMOD+3*, KOMOD+5, PHYPH+2*, PHYPH+9, PHYPH+13, OHYPH+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, PRIN+2~ , PRIN+3*, PRIN+4, PRIN+6, PRIN+7, PRIN+8, PRIN+10, PRIN+11, PRIN+12, PRIN+13, PRIN+16 , OPROC+1~, OPROC+2*, OPROC+4, OPROC+5, OPROC+6, OPROC+8, OPROC+9, OPROC+10, OPROC+13, KOMOD+2~* , KOMOD+3, KOMOD+4, PHYPH+2~, PHYPH+3*, PHYPH+4, PHYPH+11, KPMOD+1~, KPMOD+2*, KPMOD+3, OHYPH+1~ , OHYPH+6, QUES+1, QUES+2, QUES1+1, QUES1+2 |
SRDA(1 | OPROC+2*, OPROC+4, OPROC+5, OPROC+6, OPROC+9, OPROC+10, OPROC+13, KOMOD+2*, KOMOD+3, KOMOD+4 , QUES1+1 |
SRDATE | DISPLAY+1~*, DISPLAY+3*, DISPLAY+4 |
SRDEF | PRIN+2~, OPROC+1~ |
>> SRDIRED | KOMOD+1* |
SRDUP | PHYPH+2~, PHYPH+6*, PHYPH+11*, PHYPH+12, OHYPH+1~, OHYPH+3*, OHYPH+6*, OHYPH+7 |
SRI | QUES~, QUES+1*, QUES1~, QUES1+1* |
SRIEN | PRIN+2~, PRIN+3*, PRIN+4, PRIN+16, OPROC+1~, OPROC+2*, OPROC+13 |
SRJ | PRIN+2~, PRIN+8*, PRIN+12, PRIN+13, OPROC+1~, OPROC+6*, OPROC+10, KOMOD+2~, KOMOD+3*, KOMOD+4 , PHYPH+2~, PHYPH+11*, KPMOD+1~, KPMOD+2*, KPMOD+3, OHYPH+6* |
>> SRK | PRIN+11*, OPROC+9* |
SRLIST | PHYPH+2~, PHYPH+3*, PHYPH+5, OHYPH+1~*, OHYPH+2 |
SRM | SCR27+1!, PCHK+2*, PCHK+7, OTH+1!, OCHK+2*, OCHK+5, PRIN+5!, OPROC+3!, PHYPH+2~, PHYPH+7*! , PHYPH+8*, PHYPH+9, OHYPH+4*! |
SRMD | QUES~, QUES+1*, QUES+2, QUES1~, QUES1+1*, QUES1+2 |
SRN | PHYPH+2~, PHYPH+5*, OHYPH+1~, OHYPH+2* |
SROK | SCR27+1~, SCR27+2, PCHK+2*, PCHK+7*, PCHK+8*, OTH+1~, OTH+2, OCHK+2*, OCHK+5*, PHYPH+2~ , PHYPH+6*, PHYPH+8*, PHYPH+9*, PHYPH+10, PHYPH+11, PHYPH+12, OHYPH+1~, OHYPH+3*, OHYPH+5, OHYPH+6 , OHYPH+7 |
SROTH | OTH+1~, OCHK+2*, OCHK+3, OHYPH+1~, OHYPH+6 |
SRQ | PRIN+2~, PRIN+3*, PRIN+5*, PRIN+11*, PRIN+12*, PRIN+13*, PRIN+14, OPROC+1~*, OPROC+3*, OPROC+10* , OPROC+11 |
SRSDATE | SCR27+1~, PCHK+1~*, PCHK+3*, PCHK+7, OTH+1~, OCHK+1~*, OCHK+3*, OCHK+5, PRIN+2~, OPROC+1~ , PHYPH+2~, PHYPH+3*, PHYPH+4*, PHYPH+9 |
SRSEL | PRIN+2~, PRIN+9*, OPROC+1~, OPROC+7* |
SRSOUT | PRIN+2~, PRIN+3*, PRIN+5, PRIN+7*, PRIN+10*, PRIN+14, OPROC+1~*, OPROC+3, OPROC+5*, OPROC+8* , OPROC+11 |
>> SRTN | DISPLAY+2, PCHK+2, OCHK+2, PHYPH+3 |
SRX | PRIN+2~, PRIN+4*, OPROC+1~, OPROC+2*, QUES~, QUES+2*, QUES1~, QUES1+2* |
SRY | DISPLAY+1~, DISPLAY+4*, DISPLAY+5, PRIN+2~, OPROC+1~, KOMOD+2~, PHYPH+2~, KPMOD+1~, OHYPH+1~, QUES~ , QUES+2*, QUES+3, QUES1~, QUES1+2*, QUES1+3 |
SRY( | PRIN+13*, PRIN+15*, PRIN+16*, OPROC+10*, OPROC+12*, OPROC+13*, KOMOD+4*, PHYPH+12*, KPMOD+3*, OHYPH+7* |
SRZ | SCR27+1~, PCHK+7*, PCHK+8*, OTH+1~, OCHK+5*, PHYPH+2~, PHYPH+9*, QUES~, QUES+2*, QUES+3 , QUES1~, QUES1+2*, QUES1+3 |
U | PCHK+8 |
X | PCHK+5, PRIN+7, PRIN+10, PRIN+13, PRIN+16, OPROC+1~, OPROC+5, OPROC+8, OPROC+10, OPROC+13 , KOMOD+3, KOMOD+5*, PHYPH+2*, PHYPH+13* |
>> Y | DISPLAY+4, DISPLAY+5*, PCHK+2, OCHK+2, PRIN+8, PRIN+11, PRIN+12, PRIN+15, OPROC+6, OPROC+9* , OPROC+12, PHYPH+8 |
>> Y(0 | PRIN+9, OPROC+7 |
Z | PRIN+2~, OPROC+1~ |