Routine: RAPM1

Package	Total	Call Graph
Radiology Nuclear Medicine	2	HDR^RAPM2 SFOOT^RAPM3
Kernel	1	$$FMDIFF^XLFDT

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RAPM

Entry Points

Name	Comments	DBIA/ICR reference
SRPT2	; store in tmp
SRPT	; Print summary report
SHDR2	;save to tmp
SHDR	; Print header of summary report
CAL	; Calculation: Null report pointer, no report, no report date, no ; verfied date are counted as diff=0 ; # of Transcribed = Total # of transcribed exams not cancelled. ; # of hrs from exam registration = Date/Time transcribed ; (Date Report Entered) - Exam Date/time
RPTINFO	; Other report info. ; Get Date/Time Report Entered, replace prev RACN with data from Report

External References

Name	Field # of Occurrence
HDR^RAPM2	RAPM1+3
SFOOT^RAPM3	RAPM1+12
$$FMDIFF^XLFDT	CAL+6, CAL+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Total number of reports expected for procedures performed during " Line Location: RAPM1+5
Function Call: WRITE	Prompt: "specified",!,"date range: " Line Location: RAPM1+6
Function Call: WRITE	Prompt: $J(+RATOTCNT,$L(+RATOTCNT)) Line Location: RAPM1+8
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="C-" Line Location: SHDR+5
Function Call: WRITE	Prompt: !?(RAIOM-$L(RAHDR)\2),RAHDR,?(RAIOM-10),"Page: ",$G(RAPG) Line Location: SHDR+5
Function Call: WRITE	Prompt: !!,"Hrs ",?8,">0",?14,">24",?21,">48",?27,">72",?33,">96" Line Location: SHDR+6
Function Call: WRITE	Prompt: ?38,">120",?44,">144",?50,">168",?56,">192",?62,">216",?68,">240" Line Location: SHDR+7
Function Call: WRITE	Prompt: ?73,"PENDING" Line Location: SHDR+8
Function Call: WRITE	Prompt: !,"From",?7,"-24",?14,"-48",?21,"-72",?27,"-96",?32,"-120",?38,"-144" Line Location: SHDR+9
Function Call: WRITE	Prompt: ?44,"-168",?50,"-192",?56,"-216",?62,"-240",?68,"Hrs" Line Location: SHDR+10
Function Call: WRITE	Prompt: !,"Ex Dt",?7,"Hrs",?14,"Hrs",?21,"Hrs",?27,"Hrs",?33,"Hrs",?39,"Hrs",?45,"Hrs",?51,"Hrs",?57,"Hrs",?63,"Hrs",! Line Location: SHDR+11
Function Call: WRITE	Prompt: !,"#Tr",?4,$J(+$G(^TMP($J,"RAPM","TR",1)),6),?11,$J(+$G(^(2)),6),?18,$J(+$G(^(3)),6),?25,$J(+$G(^(4)),5) Line Location: SRPT+5
Function Call: WRITE	Prompt: ?31,$J(+$G(^TMP($J,"RAPM","TR",5)),5),?37,$J(+$G(^(6)),5),?43,$J(+$G(^(7)),5),?49,$J(+$G(^(8)),5),?55,$J(+$G(^(9)),5) Line Location: SRPT+6
Function Call: WRITE	Prompt: ?61,$J(+$G(^TMP($J,"RAPM","TR",10)),5),?67,$J(+$G(^(11)),5),?73,$J(+$G(^(0)),7) Line Location: SRPT+7
Function Call: WRITE	Prompt: !,"%Tr",?4,$J((+$G(^TMP($J,"RAPM","TR",1))/RATOTCNT)*100,6,1) Line Location: SRPT+9
Function Call: WRITE	Prompt: ?11,$J((+$G(^TMP($J,"RAPM","TR",2))/RATOTCNT)100,6,1),?18,$J((+$G(^(3))/RATOTCNT)100,6,1),?25,$J((+$G(^(4))/RATOTCNT)*100,5,1) Line Location: SRPT+10
Function Call: WRITE	Prompt: ?31,$J((+$G(^TMP($J,"RAPM","TR",5))/RATOTCNT)100,5,1),?37,$J((+$G(^(6))/RATOTCNT)100,5,1),?43,$J((+$G(^(7))/RATOTCNT)100,5,1),?49,$J((+$G(^(8))/RATOTCNT)100,5,1) Line Location: SRPT+11
Function Call: WRITE	Prompt: ?55,$J((+$G(^TMP($J,"RAPM","TR",9))/RATOTCNT)100,5,1),?61,$J((+$G(^(10))/RATOTCNT)100,5,1),?67,$J((+$G(^(11))/RATOTCNT)100,5,1),?73,$J((+$G(^(0))/RATOTCNT)100,7,1),! Line Location: SRPT+12
Function Call: WRITE	Prompt: !,"#Vr",?4,$J(+$G(^TMP($J,"RAPM","VR",1)),6),?11,$J(+$G(^(2)),6),?18,$J(+$G(^(3)),6),?25,$J(+$G(^(4)),5),?31,$J(+$G(^(5)),5) Line Location: SRPT+14
Function Call: WRITE	Prompt: ?37,$J(+$G(^TMP($J,"RAPM","VR",6)),5),?43,$J(+$G(^(7)),5),?49,$J(+$G(^(8)),5),?55,$J(+$G(^(9)),5),?61,$J(+$G(^(10)),5) Line Location: SRPT+15
Function Call: WRITE	Prompt: ?67,$J(+$G(^TMP($J,"RAPM","VR",11)),5),?73,$J(+$G(^(0)),7) Line Location: SRPT+16
Function Call: WRITE	Prompt: !,"%Vr",?4,$J((+$G(^TMP($J,"RAPM","VR",1))/RATOTCNT)100,6,1),?11,$J((+$G(^(2))/RATOTCNT)100,6,1),?18,$J((+$G(^(3))/RATOTCNT)*100,6,1) Line Location: SRPT+18
Function Call: WRITE	Prompt: ?25,$J((+$G(^TMP($J,"RAPM","VR",4))/RATOTCNT)100,5,1),?31,$J((+$G(^(5))/RATOTCNT)100,5,1),?37,$J((+$G(^(6))/RATOTCNT)100,5,1),?43,$J((+$G(^(7))/RATOTCNT)100,5,1) Line Location: SRPT+19
Function Call: WRITE	Prompt: ?49,$J((+$G(^TMP($J,"RAPM","VR",8))/RATOTCNT)100,5,1),?55,$J((+$G(^(9))/RATOTCNT)100,5,1),?61,$J((+$G(^(10))/RATOTCNT)100,5,1),?67,$J((+$G(^(11))/RATOTCNT)100,5,1) Line Location: SRPT+20
Function Call: WRITE	Prompt: ?73,$J((+$G(^TMP($J,"RAPM","VR",0))/RATOTCNT)*100,7,1),! Line Location: SRPT+21

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RARPT - [#74]	RPTINFO+2, RPTINFO+4, RPTINFO+6, RPTINFO+8, RPTINFO+13
^TMP($J	RAPM1+7, RAPM1+9, RAPM1+10, RAPM1+11, SHDR2+1, SHDR2+2, SHDR2+3, SHDR2+4, SRPT+5, SRPT+6 , SRPT+7, SRPT+9, SRPT+10, SRPT+11, SRPT+12, SRPT+14, SRPT+15, SRPT+16, SRPT+18, SRPT+19 , SRPT+20, SRPT+21, SRPT2+1, SRPT2+2, SRPT2+3, SRPT2+5, SRPT2+6, SRPT2+7, SRPT2+8, SRPT2+9* , SRPT2+11, SRPT2+12, SRPT2+13, SRPT2+15, SRPT2+16, SRPT2+17, SRPT2+18, RPTINFO+10, RPTINFO+11*, CAL+9 , CAL+15

Name

Line Occurrences (* Changed, ! Killed)

^RARPT - [#74]

RPTINFO+2, RPTINFO+4, RPTINFO+6, RPTINFO+8, RPTINFO+13

^TMP($J

RAPM1+7, RAPM1+9*, RAPM1+10*, RAPM1+11*, SHDR2+1*, SHDR2+2*, SHDR2+3*, SHDR2+4*, SRPT+5, SRPT+6
, SRPT+7, SRPT+9, SRPT+10, SRPT+11, SRPT+12, SRPT+14, SRPT+15, SRPT+16, SRPT+18, SRPT+19
, SRPT+20, SRPT+21, SRPT2+1*, SRPT2+2*, SRPT2+3*, SRPT2+5*, SRPT2+6*, SRPT2+7*, SRPT2+8*, SRPT2+9*
, SRPT2+11*, SRPT2+12*, SRPT2+13*, SRPT2+15*, SRPT2+16*, SRPT2+17*, SRPT2+18*, RPTINFO+10*, RPTINFO+11*, CAL+9
, CAL+15

Label References

Name	Line Occurrences
SHDR	RAPM1+12, SRPT+3
SHDR2	SHDR+1
SRPT	RAPM1+12
SRPT2	SRPT+2

Naked Globals

Name	Field # of Occurrence
^(	RPTINFO+8, CAL+9, CAL+15
^(0	SRPT+7, SRPT+12, SRPT+16, SRPT2+3, SRPT2+8, SRPT2+13, SRPT2+18, RPTINFO+2, RPTINFO+8
^(10	SRPT+12, SRPT+15, SRPT+20, SRPT2+2, SRPT2+7, SRPT2+12, SRPT2+17
^(11	SRPT+7, SRPT+12, SRPT+20
^(2	SRPT+5, SRPT+14, SRPT+18, SRPT2+1, SRPT2+5, SRPT2+11, SRPT2+15
^(3	SRPT+5, SRPT+10, SRPT+14, SRPT+18, SRPT2+1, SRPT2+5, SRPT2+11, SRPT2+15
^(4	SRPT+5, SRPT+10, SRPT+14, SRPT2+1, SRPT2+5, SRPT2+11, SRPT2+15
^(5	SRPT+14, SRPT+19, SRPT2+1, SRPT2+11
^(6	SRPT+6, SRPT+11, SRPT+19, SRPT2+6, SRPT2+16
^(7	SRPT+6, SRPT+11, SRPT+15, SRPT+19, SRPT2+2, SRPT2+6, SRPT2+12, SRPT2+16
^(8	SRPT+6, SRPT+11, SRPT+15, SRPT2+2, SRPT2+12
^(9	SRPT+6, SRPT+15, SRPT+20, SRPT2+2, SRPT2+7, SRPT2+12, SRPT2+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DTIME	SHDR+3
IO	SHDR+2, SRPT+3
IO(0	SHDR+2, SRPT+3
IOF	SHDR+5
IOSL	SHDR+2, SRPT+3
IOST	SHDR+3, SHDR+5
>> RA1	RPTINFO+7, RPTINFO+8
>> RACN	RPTINFO+2*
>> RADTE	CAL+6, CAL+12
>> RAHDR	SHDR+4*, SHDR+5
>> RAIO	SHDR+1, SRPT+1, SRPT+2
>> RAIOM	SHDR+5
>> RAN	RAPM1+9, RAPM1+10, RAPM1+11, SHDR2+1, SHDR2+2, SHDR2+3, SHDR2+4, SRPT2+1, SRPT2+2, SRPT2+3 , SRPT2+5, SRPT2+6, SRPT2+7, SRPT2+8, SRPT2+9, SRPT2+11, SRPT2+12, SRPT2+13, SRPT2+15, SRPT2+16 , SRPT2+17, SRPT2+18*
>> RAPG	SHDR+4*, SHDR+5
>> RARPTDT	RPTINFO+2*, RPTINFO+10, CAL+5, CAL+6
>> RARPTST	RPTINFO+13*
>> RARPTTXT	RPTINFO+2, RPTINFO+4, RPTINFO+6, RPTINFO+8, RPTINFO+13
>> RATDFHR	CAL+7*, CAL+8
>> RATDFSEC	CAL+6*, CAL+7
>> RATHRS	CAL+8*, CAL+9
>> RATOTCNT	RAPM1+7*, RAPM1+8, RAPM1+11, SRPT+1, SRPT+9, SRPT+10, SRPT+11, SRPT+12, SRPT+18, SRPT+19 , SRPT+20, SRPT+21, SRPT2+5, SRPT2+6, SRPT2+7, SRPT2+8, SRPT2+15, SRPT2+16, SRPT2+17, SRPT2+18
>> RAVDFHR	CAL+13*, CAL+14
>> RAVDFSEC	CAL+12*, CAL+13
>> RAVERDT	RPTINFO+4, RPTINFO+6, RPTINFO+8, RPTINFO+11, CAL+11, CAL+12
>> RAVHRS	CAL+14*, CAL+15
U	RPTINFO+2, RPTINFO+4, RPTINFO+8, RPTINFO+13
>> X	SHDR+3*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPM1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1