Routine: RACPTMSC

Package	Total	Call Graph
DRG Grouper	2	$$CPT^ICPTCOD ($$MOD,$$MODP)^ICPTMOD
VA Fileman	2	EN^DDIOL (FILE,UPDATE)^DIE

Package

Total

Call Graph

DRG Grouper

$$CPT^ICPTCOD ($$MOD,$$MODP)^ICPTMOD

VA Fileman

EN^DDIOL (FILE,UPDATE)^DIE

Package	Total	Caller Graph
Radiology Nuclear Medicine	47	DEFAULT CPT MODIFIERS(LOC) DEFAULT CPT MODIFIERS(PROC) EXAMINATIONS RACPT1 RACPTCSV RACTEX2 RACTEX3 RACTRG2 RACTRG3 RACTRG5 RACTTK2 RACTTK5 RADD1 RAFLM RAFLM1 RAHLR RAHLR1A RAHLRPT1 RAHLRPTT RAHLRU RAHLRU1 RAMAINP1 RAO7CMP RAO7MFN RAO7NEW RAO7PC1A RAO7SCH RAORD2 RAORD5 RAPCE RAPCE2 RAPERR RAPINFO RAPMW RAPMW2 RAPROD RART3 RARTR3 RASTRPT RASTRPT1 RAUTL0 RAUTL15 RAUTL2 RAWKL1 RAWKLU RAWKLU2 RAWRVUP
IHS VA Support Files	1	DEFAULT CPT MODIFIERS(PROC)

Package

Total

Caller Graph

Radiology Nuclear Medicine

DEFAULT CPT MODIFIERS(LOC)  DEFAULT CPT MODIFIERS(PROC)  EXAMINATIONS  RACPT1  RACPTCSV  RACTEX2  RACTEX3  RACTRG2
RACTRG3  RACTRG5  RACTTK2  RACTTK5  RADD1  RAFLM  RAFLM1  RAHLR
RAHLR1A  RAHLRPT1  RAHLRPTT  RAHLRU  RAHLRU1  RAMAINP1  RAO7CMP  RAO7MFN
RAO7NEW  RAO7PC1A  RAO7SCH  RAORD2  RAORD5  RAPCE  RAPCE2  RAPERR
RAPINFO  RAPMW  RAPMW2  RAPROD  RART3  RARTR3  RASTRPT  RASTRPT1
RAUTL0  RAUTL15  RAUTL2  RAWKL1  RAWKLU  RAWKLU2  RAWRVUP

IHS VA Support Files

DEFAULT CPT MODIFIERS(PROC)

Entry Points

Name	Comments	DBIA/ICR reference
SET23
SET	; use Rad vars if available
SDP(Y)	; SCREEN DEFAULT cpt mod for a PROCEDURE ; called from file 71's field 135's screen ; Y = ien of file 81.3 ; RACPT= CPT ien of this procedure ; RAX = screen's outcome, 0=failed
DISCMOD	; display existing CPT Modifiers
EHDP	; EXECUTABLE HELP for DEFAULT CPT MODIFIERS (PROC)
EHDL	; EXECUTABLE HELP for DEFAULT CPT MODIFIERS (LOC)
ACTCODE(RA1,RA2)	;outputs CPT code active status ; output=1 active, =0 inactive ; RA1 = CPT CODE, internal or external ; RA2 = date to check CPT Code
SCRN(Y)	;screen entry of cpt mod ; called from file 70.03's field 135's screen ; Y = ien of file 81.3 ; RACPT= CPT ien of this exam's procedure ; RADT = exam date ; RAX = screen's outcome, 0=failed
WARN
LOOP2
BASICMOD(RA1,RA2)	; outputs basic modifier info ; RA1 = CPT MODIFIER, internal is used here ; RA2 = date to check CPT Modifier
WARNLOC
NAMCODE(RA1,RA2)	;outputs flds #.01 and #2 of CPT record ; RA1 = CPT CODE, internal or external ; RA2 = date to check CPT Code
SETDEFS	; set default CPT Modifiers, called by [RA REGISTER] ; 1st choice, defaults from file 71 ; 2nd choice, defaults from file 79.1
DW	; del exam's cpt mods and warn of proc mods ; called from file 70.03's field 2's Mumps xref for kill ; Y = ien of file 81.3
LOOP1
ACTMOD(RA1,RA2)	; outputs active status of CPT modifier ; RA1 = CPT MODIFIER, internal is used here ; RA2 = date to check CPT Modifier ; output: ; RA3 = 0 is inactive, >0 is active ; RAMODSTR returned from call to MOD^ICPTMOD
DISDCM	;display existing Default CPT Modifers for procedure or location ; file 71 used if called from [RA PROCEDURE EDIT] ; file 79.1 used if called from [RA LOCATION PARAMETERS]
SDL(Y)	; SCREEN DEFAULT cpt mod for a LOCATION ; called from file 79.1's field 135's screen ; Y = ien of file 81.3 ; RAX = screen's outcome; 0=failed

Name	Field # of Occurrence
EN^DDIOL	EHDP+6, EHDL+13, WARNLOC+6
FILE^DIE	DW+12
UPDATE^DIE	LOOP1+9
$$CPT^ICPTCOD	ACTCODE+5, NAMCODE+4
$$MOD^ICPTMOD	BASICMOD+3, ACTMOD+7
$$MODP^ICPTMOD	SCRN+13, SDP+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"All previous CPT Modifier(s) are deleted.",! Line Location: DW+13
Function Call: WRITE	Prompt: !!?5,"Current Procedure Modifier(s) :" Line Location: WARN+2
Function Call: WRITE	Prompt: !?10,$P($G(^RAMIS(71.2,+^(RAX,0),0)),U) Line Location: WARN+3
Function Call: WRITE	Prompt: !!,$C(7)," Unable to enter default CPT Modifier ",$P(RA3,U,2)," (",$P($P(RA3,U,3)," "),") ",! Line Location: LOOP1+11
Function Call: WRITE	Prompt: !?6,$P(RA3,"^",2),?9,"(",$P($P(RA3,"^",3)," "),") (",$S($P(RA3,"^",7)=1:"",1:"in"),"active)" Line Location: LOOP2+4
Function Call: WRITE	Prompt: ! Line Location: DISDCM+6
Function Call: WRITE	Prompt: !?6,$P(RA3,"^",2),?9,"(",$P($P(RA3,"^",3)," "),")" Line Location: DISDCM+7
Routine Call	DIE Line Location: LOOP1+9
Routine Call	DIE Line Location: DW+12

Name	Line Occurrences (* Changed, ! Killed)
^RA(79.1 - [#79.1]	SETDEFS+4
^RADPT - [#70]	SET23, DW+8, DW+10, WARN, WARN+3, SETDEFS+7, DISCMOD+3, LOOP2
^RAMIS(71 - [#71]	SCRN+12, SETDEFS+4, SDP+6
^RAMIS(71.2 - [#71.2]	WARN+3

Name	Line Occurrences
$$ACTMOD	SDL+5
$$BASICMOD	LOOP1+5, LOOP2+1, DISDCM+7
LOOP1	LOOP1+6, LOOP1+7, LOOP1+10, LOOP1+12
LOOP2	LOOP2+5
SET	SCRN+8, DW+5
SET23	SET+1
WARN	DW+8
WARNLOC	DISDCM+5, EHDL+1

Name	Field # of Occurrence
^(	WARN+3, LOOP2, DISDCM+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	SET+2, SDP+6
>> D1	SET+2
>> D2	SET+2
>> DA	DISDCM+3, DISDCM+6, DISDCM+7
>> DIE	DISDCM+3, DISDCM+5, DISDCM+6, DISDCM+7
DT	LOOP1+5, LOOP2+1, SDP+7, SDL+5, DISDCM+7
RA	ACTCODE+4~, ACTCODE+5, ACTCODE+6, NAMCODE+3~, NAMCODE+4, NAMCODE+5, NAMCODE+6, NAMCODE+7
RA1	SCRN+6~, SET+1, SET+2, SET+3, SET23, DW+3~, DW+8, DW+10, DW+11, WARN , WARN+3, ACTCODE~, ACTCODE+5, NAMCODE~, NAMCODE+4, BASICMOD~, BASICMOD+3, ACTMOD~, ACTMOD+7, SETDEFS+6~ , SETDEFS+8, LOOP1+1, LOOP1+2, DISCMOD+2~, DISCMOD+3, LOOP2, SDP+5~, DISDCM+4~, DISDCM+6, DISDCM+7
RA2	SCRN+6~, SET+1, SET+2, SET+3, SET23, DW+3~, DW+8, DW+10, DW+11, WARN , WARN+3, ACTCODE~, ACTCODE+5, NAMCODE~, NAMCODE+4, BASICMOD~, BASICMOD+3, ACTMOD~, ACTMOD+7, SETDEFS+6~ , SETDEFS+8, LOOP1+8, DISCMOD+2~, LOOP2, LOOP2+1, SDP+5~, DISDCM+4~, DISDCM+7*
RA3	SCRN+6~, SET+1, SET+2, SET+3, SET23, DW+3~, DW+8, DW+10, DW+11, WARN , WARN+3, ACTMOD+6~, ACTMOD+8, ACTMOD+9, ACTMOD+10, ACTMOD+11, SETDEFS+6~, LOOP1+2, LOOP1+5, LOOP1+6 , LOOP1+7, LOOP1+8, LOOP1+11, DISCMOD+2~, LOOP2+1, LOOP2+2, LOOP2+4, SDP+5~, DISDCM+4~, DISDCM+7
RA7002	SCRN+6~, SCRN+7, SCRN+9, SCRN+11, SET23, DW+3~, DW+4*, DW+6
RA7003	SCRN+6~, SCRN+7, SCRN+10, SCRN+12, SET23, DW+3~, DW+4*, DW+7
>> RACNI	SET+1, SETDEFS+7, SETDEFS+8, DISCMOD+1, DISCMOD+3, LOOP2
RACPT	SCRN+6~, SCRN+12, SCRN+13, SDP+5~, SDP+6, SDP+7
>> RADFN	SET+1, SETDEFS+7, SETDEFS+8, DISCMOD+1, DISCMOD+3, LOOP2
RADT	SCRN+6~, SCRN+11*, SCRN+13
>> RADTI	SET+1, SETDEFS+7, SETDEFS+8, DISCMOD+1, DISCMOD+3, LOOP2
RAFDA	SETDEFS+6~, LOOP1!
RAFDA(	LOOP1+8*
RAIEN	SETDEFS+6~, LOOP1!
>> RAMLC	SETDEFS+4
RAMODSTR	ACTMOD+7*, ACTMOD+8, ACTMOD+10, SDL+4~
RAMSG	SETDEFS+6~, LOOP1!, LOOP1+10
>> RAPRI	SETDEFS+4
RAROOT	DW+3~, SETDEFS+3~, SETDEFS+4*, SETDEFS+5, LOOP1+1, LOOP1+2
RAROOT(	DW+11*
RATXT	EHDP+1~, EHDP+6, EHDL+2~, EHDL+13, WARNLOC~, WARNLOC+6
RATXT(1	EHDP+2, EHDL+3, WARNLOC+1*
RATXT(10	EHDL+12*
RATXT(2	EHDP+3, EHDL+4, WARNLOC+2*
RATXT(3	EHDP+4, EHDL+5, WARNLOC+3*
RATXT(4	EHDP+5, EHDL+6, WARNLOC+4*
RATXT(5	EHDL+7, WARNLOC+5
RATXT(6	EHDL+8*
RATXT(7	EHDL+9*
RATXT(8	EHDL+10*
RATXT(9	EHDL+11*
RAX	SCRN+6~, SCRN+13, SCRN+14, DW+3~, DW+9, DW+10, DW+11, WARN+1, WARN+3, SDP+5~ , SDP+7, SDP+8, SDL+4~, SDL+5*, SDL+6
U	SCRN+11, SCRN+12, WARN+3, ACTMOD+10, LOOP1+7, LOOP1+8, LOOP1+11, SDP+6
Y	SCRN~, SCRN+13, SDP~, SDP+7, SDL~, SDL+5

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RACPTMSC

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 48

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: