Routine: RAPERR

Package	Total	Call Graph
Radiology Nuclear Medicine	6	($$ACTCODE,$$NAMCODE)^RACPTMSC ISTOP^RAPERR1 ZIS^RAUTL $$IMG^RAUTL12 STOPCHK^RAUTL9 $$PCE^RAWORK
Kernel	2	^%ZISC ($$DT,$$FMTE,$$HTE)^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	3	RA INVALID CPT/STOP RAMAIN2 RAPERR1

Entry Points

External References

Name	Field # of Occurrence
^%ZISC	KILL+1
^DIR	START+6, HDG
$$ACTCODE^RACPTMSC	FIND+21
$$NAMCODE^RACPTMSC	FIND+20
ISTOP^RAPERR1	TOTAL+14
ZIS^RAUTL	START+12
$$IMG^RAUTL12	START+8
STOPCHK^RAUTL9	HDG+5
$$PCE^RAWORK	FIND+22, FIND+24, TOTAL+10, TOTAL+14
$$DT^XLFDT	START+10
$$FMTE^XLFDT	FIND+25
$$HTE^XLFDT	HDG+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"This option prints a list of Radiology/Nuclear Medicine Procedures" Line Location: START+0
Function Call: WRITE	Prompt: !,"with missing or invalid CPT's and DSS ID's, and Imaging Locations" Line Location: START+1
Function Call: WRITE	Prompt: !,"pointing to Hospital Locations with inappropriate set-up parameters." Line Location: START+2
Function Call: WRITE	Prompt: !,"Broad, parent and inactive procedures are not required to have codes." Line Location: START+3
Function Call: WRITE	Prompt: !,"To be valid, DSS ID's must be in the Imaging Stop Codes file 71.5;" Line Location: START+4
Function Call: WRITE	Prompt: !,"CPT's must be nationally active.",!! Line Location: START+5
Function Call: WRITE	Prompt: !!,RAPROCN_" "_$P(RAP,U,2) Line Location: PRT+2
Function Call: WRITE	Prompt: !?5,$P(RAP,U,3) Line Location: PRT+2
Function Call: WRITE	Prompt: !?5,$G(^TMP($J,"RAP",RAPROCN,RAPROC,RAI)) Line Location: PRT+4
Function Call: WRITE	Prompt: ! Line Location: HDG+0
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: ?16,"RADIOLOGY/NUCLEAR MEDICINE INVALID CPT AND STOP CODES" Line Location: HDG+3
Function Call: WRITE	Prompt: !,"Run Date: ",$$HTE^XLFDT($H),?70,"Page: ",RAPAGE Line Location: HDG+4
Function Call: WRITE	Prompt: ! Line Location: LINE+0
Function Call: WRITE	Prompt: !!,A Line Location: TOTAL+2
Function Call: WRITE	Prompt: !!,A Line Location: TOTAL+4
Function Call: WRITE	Prompt: !?($X+$L(A)) Condition for execution: $X>(IOM-($L(B))) Line Location: TOTAL+5
Function Call: WRITE	Prompt: B,?($X+3) Line Location: TOTAL+5
Function Call: WRITE	Prompt: !!,"TOTAL INVALID CPT CODES: ",RAICTR Line Location: TOTAL+7
Function Call: WRITE	Prompt: !,"TOTAL MISSING CPT CODES: ",RANOCTR Line Location: TOTAL+8
Function Call: WRITE	Prompt: !,"TOTAL BROKEN POINTERS TO CPT CODES: ",RABCTR Line Location: TOTAL+9
Function Call: WRITE	Prompt: !,"TOTAL INVALID STOP CODES: ",RAISTP,!,"TOTAL MISSING STOP CODES: ",RANOSTP Line Location: TOTAL+10
Function Call: WRITE	Prompt: !,"TOTAL PARENT PROCEDURES W/O DESCENDENTS: ",RANODESC Line Location: TOTAL+11
Function Call: WRITE	Prompt: !,"TOTAL SERIES AND/OR DETAILED PROCEDURES W/O AMIS CODES: ",RANOAMIS Line Location: TOTAL+12
Function Call: WRITE	Prompt: !!,"Note: Remember to review the entries in the Imaging Stop Codes file #71.5",!,"every year in October to make sure they agree with VA HQ rules. If the entries",!,"in file 71.5 are not accurate, this report will not be accurate.",! Line Location: TOTAL+13
Routine Call	DIR Line Location: START+6 HDG

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	FIND+23, BADSTOP+1, BADSTOP+2, CK700+1
^RA(79.2 - [#79.2]	FIND+5, RATYPE+1
^RAMIS(71 - [#71]	FIND+2, FIND+3, FIND+8, FIND+10, FIND+11, FIND+15, FIND+22, FIND+23, FIND+25, CK700+1
^RAMIS(71.5 - [#71.5]	FIND+23
^TMP($J	START+8!, EN1+1!, FIND+7, FIND+26*, PRT+1, PRT+3, PRT+4, TOTAL+3, KILL+1!

Label References

Name	Line Occurrences
BADSTOP	FIND+23
CK700	FIND+23
FIND	EN1+3
HDG	PRT, PRT+5, TOTAL+1, TOTAL+4
KILL	START+6, START+9, START+12, EN1+3
PRT	EN1+3
RATYPE	FIND+26
TOTAL	EN1+3
ZTSAVE	START+12

Naked Globals

Name	Field # of Occurrence
^(	PRT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	TOTAL+2~*, TOTAL+4, TOTAL+5
B	TOTAL+2~, TOTAL+3, TOTAL+5
DIR	START+6!, HDG!, KILL+2!
DIR("A"	START+6*
DIR("B"	START+6*
DIR(0	START+6, HDG
DIROUT	KILL+2!
DIRUT	KILL+2!
DISYS	KILL+6!
DT	START+10, FIND+20, FIND+21
DTOUT	START+6, HDG, KILL+2!
DUOUT	START+6, HDG, KILL+2!
I	KILL+6!, ZTSAVE+1~*
IO	EN1+1
IOF	HDG+1
IOM	TOTAL+5
IOSL	PRT+5, TOTAL+1, TOTAL+4
IOST	HDG, HDG+1
POP	KILL+2!
RA44	KILL+6!
RA71	KILL+2!
RA71(0	FIND+3*, FIND+4
RA71(12	FIND+4*, FIND+5, FIND+7
RA791	KILL+6!
RABCTR	FIND, FIND+20, TOTAL+9, KILL+2!
RACPT	FIND+19*, FIND+20, FIND+21, KILL+2!
RACTR	FIND+22, FIND+23, FIND+24, KILL+2!
RADT	START+10*, FIND+9, FIND+25, KILL+2!
RAI	PRT+3*, PRT+4, KILL+2!
RAICTR	FIND, FIND+21, TOTAL+7, KILL+3!
RAILOC	KILL+6!
RAINA	FIND+8*, FIND+9, KILL+3!
RAINACT	FIND+25*, KILL+3!
RAISTP	FIND, BADSTOP+3, TOTAL+10, KILL+3!
RAITYPE	FIND+5, FIND+6, FIND+7, KILL+3!
RALL	START+7*, FIND+9, KILL+3!
RAMES	KILL+3!
RAMSG	FIND+10!, FIND+25, FIND+26, KILL+3!
RAMSG(	FIND+26
RAMSG("INACT"	FIND+25*, FIND+26
RAMSG("TYPE"	FIND+26, RATYPE, RATYPE+1
RAMSG(1	FIND+19*
RAMSG(2	FIND+20*
RAMSG(3	FIND+21*
RAMSG(4	BADSTOP, BADSTOP+1, BADSTOP+2*
RAMSG(5	FIND+24*
RAMSG(7	CK700+1*
RAMSG(99	FIND+13*
RAMSG(999	FIND+17*
RANOAMIS	FIND+1, FIND+16, TOTAL+12, KILL+3!
RANOCTR	FIND, FIND+19, TOTAL+8, KILL+3!
RANODESC	FIND+1, FIND+12, TOTAL+11, KILL+4!
RANOSTP	FIND, FIND+24, TOTAL+10, KILL+4!
RAOUT	FIND+2, PRT+1, PRT+3, PRT+6, HDG, HDG+5, TOTAL, TOTAL+1, TOTAL+3, TOTAL+4 , KILL+4!
RAP	PRT+1*, PRT+2, KILL+4!
RAPAGE	FIND, HDG, HDG+1, HDG+2, HDG+4, KILL+4!
RAPOP	START+12, KILL+4!
RAPROC	FIND, FIND+2, FIND+3, FIND+8, FIND+10, FIND+11, FIND+15, FIND+22, FIND+23, FIND+25 , FIND+26, CK700+1, PRT+1*, PRT+3, PRT+4, KILL+4!
RAPROCN	FIND, FIND+2, FIND+26, PRT+1*, PRT+2, PRT+3, PRT+4, KILL+4!
RASTP	FIND+23*, KILL+4!
RATYPE	KILL+4!
RAX	FIND+10*, FIND+11, FIND+15, FIND+19, FIND+24, RATYPE, RATYPE+1, KILL+5!
RAXX	START+8*, START+9, KILL+5!
U	FIND*, FIND+11, FIND+15, FIND+19, FIND+21, FIND+23, FIND+24, FIND+26, BADSTOP+1, BADSTOP+2 , CK700+1, PRT+2, RATYPE, RATYPE+1
X	FIND+23, FIND+26, BADSTOP+1, BADSTOP+2, CK700+1, KILL+5!
X1	FIND+20, FIND+21, FIND+25, KILL+5!
X2	RATYPE, RATYPE+1, KILL+5!
Y	START+7, KILL+5!
ZTDESC	START+11*, START+12!, KILL+5!
>> ZTQUEUED	EN1+2, HDG+5
>> ZTREQ	EN1+2*
ZTRTN	START+11*, START+12!, KILL+5!
ZTSAVE	KILL+5!
ZTSAVE(	ZTSAVE+1*
>> ZTSTOP	HDG+5

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPERR

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PRT
RATYPE
BADSTOP
HDG
START
KILL	; Kill and quit
EN1	; Start processing
LINE
TOTAL
CK700	;Check for a 700-level stop code without any other stop code
FIND
ZTSAVE	; Save off variable for the queued process.