Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SROMOD0

Package: Surgery

Routine: SROMOD0


Information

SROMOD0 ;BIR/ADM - CPT MODIFIER INPUT ;08/01/05

Source Information

Source file <SROMOD0.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 EN^DDIOL  (FILE,UPDATE)^DIE  ^DIR  
DRG Grouper 1 ($$MOD,$$MODP)^ICPTMOD  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Surgery 3 SROCD0  SROCD2  SROCDX  

Entry Points

Name Comments DBIA/ICR reference
OHYPH ; input CPT hyphenated modifier for other procedure
PHYPH ; called from input transform to process hyphenated modifier list
OPROC ; enter CPT modifiers for other CPT code
PRIN ; enter CPT modifiers for principal CPT code
OCHK ; return value of modifier if acceptable for other procedure
OTH() ; screen for acceptable CPT code/modifier pair for other procedure
QUES
KPMOD ; delete principal CPT modifiers when CPT code is edited
QUES1
SCR27() ; screen for acceptable CPT code/modifier pair for principal procedure
PCHK ; return value of modifier if acceptable for principal procedure
DISPLAY ; display name with modifier
KOMOD ; delete other CPT modifiers when CPT code is edited

External References

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+5, OCHK+5, PHYPH+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^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

Label References

Name Line Occurrences
KPMOD PHYPH+2
OCHK OTH+1, OHYPH+4
OHYPH OPROC+1
PCHK SCR27+1
QUES PRIN+6
QUES1 OPROC+4

Local Variables

Legend:

>> 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+4, PCHK+5, 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+5, 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+5*, 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+5, 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+5*, OTH+1~, OCHK+5*, PHYPH+2~, PHYPH+9*, QUES~, QUES+2*, QUES+3, QUES1~
, QUES1+2*, QUES1+3
X 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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All