Routine: RAWKLU1

Information

RAWKLU1 ;HISC/GJC-physician workload statistics by wRVU or CPT ;10/26/05 14:57

Source Information

Source file <RAWKLU1.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	5	$$S^%ZTLOAD ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR $$NAME^XUAF4 $$KSP^XUPARAM
Radiology Nuclear Medicine	2	$$EOS^RAUTL5 $$SFCTR^RAWRVUP
Uncategorized	1	$$LASTCY^FBAAFSR
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RAWKLU RAWKLU2

Entry Points

Name	Comments	DBIA/ICR reference
EN	;entry point; called from RAWKLU...
HDR	; Header for our report
CFMAT	;ImgTyp Abbr^colabbr-cpt80^col-data80^colabbr-rvu132^col-data132^colabbr-rvu80^col-data80
XIT	;exit and kill variables
ENDDT(RABGDTI,RABGDTX)	;Prompt the user for the ending date report verified (no greater than a
WRITE(RAPCE,HDR,RAY,RAWDTH,RADEC)	;Write out the column headers and the data for our reports.
STRTDT(RADATE,RAEARLY)	;Prompt the user for the starting date report verified

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	EN+18
^DIR	STRTDT+12, ENDDT+18
$$LASTCY^FBAAFSR	HDR+8
$$EOS^RAUTL5	EN+24, EN+29, EN+37, EN+43
$$SFCTR^RAWRVUP	EN+45
$$FMADD^XLFDT	ENDDT+8
$$FMDIFF^XLFDT	ENDDT+8
$$FMTE^XLFDT	EN+7, STRTDT+10, ENDDT+16, ENDDT+18
$$NOW^XLFDT	EN+7
$$CJ^XLFSTR	EN+28, HDR+10
$$NAME^XUAF4	EN+1
$$KSP^XUPARAM	EN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("No data found for this report",IOM) Line Location: EN+28
Function Call: WRITE	Prompt: !!,"Physician Total" Line Location: EN+31
Function Call: WRITE	Prompt: ?$P(RAFMAT,U,RAPCE),$J(RATOT,$S(RAWDTH=8:10,1:6),RADEC) Line Location: EN+35
Function Call: WRITE	Prompt: !,$P(I(0),U),?34,$P(I(0),U,3),?49,$S($O(^RA(79.2,I,"CY",0))>0:$$SFCTR^RAWRVUP(I,DT),1:"1.00 (default)") Line Location: EN+45
Function Call: WRITE	Prompt: !?(IOM-$L(RAHDR)\2),RAHDR Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Run Date: ",RARDATE,?68,"Page: ",RAPG Line Location: HDR+4
Function Call: WRITE	Prompt: !,"Facility: ",$E(RAFAC,1,40),?41,"Date Range: ",RABGDTX_" - "_RAENDTX Line Location: HDR+5
Function Call: WRITE	Prompt: !,?7,"*This report was prepared with "_$$LASTCY^FBAAFSR()_" Calendar Year RVU Data*" Line Location: HDR+8
Function Call: WRITE	Prompt: !,RALN Line Location: HDR+16
Function Call: WRITE	Prompt: ! Line Location: STRTDT+3
Function Call: WRITE	Prompt: ! Line Location: ENDDT+5
Function Call: WRITE	Prompt: ! Line Location: WRITE+9
Routine Call	DIR Line Location: STRTDT+12 ENDDT+18

Name	Line Occurrences (* Changed, ! Killed)
^RA(79.2 - [#79.2]	EN+41, EN+42, EN+45
^TMP($J	EN+15, EN+16, EN+30

Name	Line Occurrences
HDR	EN+14, EN+24, EN+29, EN+37, EN+43
WRITE	EN+20, EN+32, HDR+14
XIT	EN+27, EN+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	STRTDT+3!, STRTDT+14!, ENDDT+5!, ENDDT+18!, ENDDT+20!
DIR("?"	STRTDT+7, STRTDT+8, STRTDT+9, STRTDT+10, STRTDT+11, ENDDT+13, ENDDT+14, ENDDT+15, ENDDT+16, ENDDT+17
DIR("A"	STRTDT+5, STRTDT+6, ENDDT+12*
DIR("B"	STRTDT+12, ENDDT+18
DIR(0	STRTDT+4, ENDDT+11
DIROUT	STRTDT+3!, STRTDT+14!, ENDDT+5!, ENDDT+20!
DIRUT	STRTDT+3!, STRTDT+13, STRTDT+14!, ENDDT+5!, ENDDT+19, ENDDT+20!
DT	EN+38, EN+45, ENDDT+8, ENDDT+10
DTOUT	STRTDT+3!, STRTDT+14!, ENDDT+5!, ENDDT+20!
DUOUT	STRTDT+3!, STRTDT+14!, ENDDT+5!, ENDDT+20!
HDR	WRITE~, WRITE+6, WRITE+8, WRITE+10
I	EN+39, EN+41, EN+42, EN+45, XIT+1!
I(0	EN+42*, EN+45
IOF	HDR+1
IOM	EN+3, EN+11, EN+12, EN+28, HDR+3, HDR+10, HDR+12
IOSL	EN+24, EN+29, EN+37, EN+43
IOST	HDR+1
RABGDTI	ENDDT~, ENDDT+8, ENDDT+11
RABGDTX	HDR+5, ENDDT~, ENDDT+16
RACNT	EN+3, EN+16, EN+18, EN+28, XIT+1!
>> RACYFLG	HDR+7
RADATE	STRTDT~, STRTDT+10, STRTDT+12
RADEC	EN+13*, EN+20, EN+23, EN+32, EN+35, XIT+1!, WRITE~, WRITE+10
RAEARLY	STRTDT~, STRTDT+4, STRTDT+10
RAEND	ENDDT+5~, ENDDT+8, ENDDT+10, ENDDT+11, ENDDT+16, ENDDT+18
>> RAENDTX	HDR+5
RAFAC	EN+1, EN+2, XIT+1!, HDR+5
RAFMAT	EN+21, EN+23, EN+33, EN+35, XIT+1!, WRITE+7*, WRITE+8, WRITE+9, WRITE+10
RAHDR	EN+4, EN+5, EN+6*, XIT+1!, HDR+3
RAI	XIT+1!, WRITE+7*, WRITE+8, WRITE+10
RALN	EN+3*, XIT+1!, HDR+16
RANGE	WRITE+6*, WRITE+7, WRITE+12!
RAPCE	EN+11, EN+20, EN+23, EN+32, EN+35, XIT+1!, HDR+12~, HDR+14, WRITE~, WRITE+8 , WRITE+9
RAPG	EN+3, XIT+1!, HDR+1, HDR+2, HDR+4
RARDATE	EN+7*, XIT+1!, HDR+4
>> RARPTYP	EN+5, EN+6, EN+10, EN+11, EN+12, EN+13, HDR+10, HDR+11, HDR+12
RARSLT	STRTDT+3~, STRTDT+13, STRTDT+15, ENDDT+5~, ENDDT+19, ENDDT+21
>> RASCLD	EN+6, EN+10, EN+36
RASFACTR	EN+36*, XIT+1!, HDR+13, HDR+15
RATAB	XIT+1!, WRITE+8*, WRITE+10
RATMP	EN+10*, XIT+1!, HDR+10
RATOT	EN+16, EN+23, EN+30, EN+35, XIT+1!, WRITE+8*
RATRUNC	EN+12*, EN+19, XIT+2!
RAWDTH	EN+13*, EN+20, EN+23, EN+32, EN+35, XIT+2!, WRITE~, WRITE+10
RAX	EN+14, EN+15, EN+16, EN+19, XIT+2!
>> RAXIT	EN+15, EN+18, EN+24, EN+27, EN+29, EN+37, EN+41, EN+43*
RAY	EN+16, EN+20, EN+30, EN+32, XIT+2!, WRITE~, WRITE+8, WRITE+10
U	EN+23, EN+35, EN+45, STRTDT+13, ENDDT+19, WRITE+8, WRITE+9, WRITE+10
X	STRTDT+3!, STRTDT+14!, ENDDT+5!, ENDDT+20!
Y	STRTDT+3!, STRTDT+13, STRTDT+14!, ENDDT+5!, ENDDT+19, ENDDT+20!
Y(0	STRTDT+13, ENDDT+19
>> ZTSTOP	EN+18*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAWKLU1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(CFMAT+10	EN+21, EN+33
$T(CFMAT+RAI	WRITE+7