Routine: RALWKL4

Package	Total	Call Graph
Radiology Nuclear Medicine	3	HD^RALWKL1 $$EOS^RAUTL5 STOPCHK^RAUTL9

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RALWKL1

Entry Points

Name	Comments	DBIA/ICR reference
IMGSUM	; imaging summary
PFLDTOT	; print rafld totals within imaging type
RAFLD	;
EN1	; This subroutine prints out only the Summary data as requested by the ; user.
PDIVFLD	;
DIVHDR	; division totals header
PDIVTOT	;
PIMGTOT	; print imaging type totals
DIVSUM	; print division totals
IMGTOT	; calculate imaging totals

External References

Name	Field # of Occurrence
HD^RALWKL1	IMGSUM+3, PFLDTOT+12, PIMGTOT+1
$$EOS^RAUTL5	IMGSUM+3, PFLDTOT+12, PIMGTOT+1, DIVSUM+1, DIVSUM+7, PDIVFLD+7, PDIVTOT+1, PDIVTOT+4, PDIVTOT+8
STOPCHK^RAUTL9	DIVHDR+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(RAFLD,1,28),?30,$J(+$P(RAFLDNDE,U,1),5) Line Location: PFLDTOT+4
Function Call: WRITE	Prompt: ?36,$J(+$P(RAFLDNDE,U,2),5) Line Location: PFLDTOT+5
Function Call: WRITE	Prompt: ?42,$J(+$P(RAFLDNDE,U,3),5) Line Location: PFLDTOT+6
Function Call: WRITE	Prompt: ?48,$J(+$P(RAFLDNDE,U,4),5) Line Location: PFLDTOT+7
Function Call: WRITE	Prompt: ?55,$J(RAFLDTOT,5) Line Location: PFLDTOT+8
Function Call: WRITE	Prompt: ?68,$J(RAFLDWWU,5) Line Location: PFLDTOT+10
Function Call: WRITE	Prompt: !,RALN Line Location: PIMGTOT+2
Function Call: WRITE	Prompt: !!,"Imaging Type Total:",?30,$J(+$P(RAIMGNDE,U,1),5) Line Location: PIMGTOT+3
Function Call: WRITE	Prompt: ?36,$J(+$P(RAIMGNDE,U,2),5) Line Location: PIMGTOT+4
Function Call: WRITE	Prompt: ?42,$J(+$P(RAIMGNDE,U,3),5) Line Location: PIMGTOT+5
Function Call: WRITE	Prompt: ?48,$J(+$P(RAIMGNDE,U,4),5) Line Location: PIMGTOT+6
Function Call: WRITE	Prompt: ?55,$J(RAIMGTOT,5) Line Location: PIMGTOT+7
Function Call: WRITE	Prompt: ?68,$J(RAIMGWWU,5) Line Location: PIMGTOT+8
Function Call: WRITE	Prompt: !!?3,"# of "_RATITLE_"s selected: "_$S(RAINPUT=1:"ALL",1:$G(RAFLDCNT)) Line Location: PIMGTOT+9
Function Call: WRITE	Prompt: !,$E(RAFLD,1,28),?30,$J(+$P(RASUMNDE,U,1),5),?36,$J(+$P(RASUMNDE,U,2),5),?42,$J(+$P(RASUMNDE,U,3),5),?48,$J(+$P(RASUMNDE,U,4),5),?55,$J(RAFLDTOT,5) Line Location: PDIVFLD+3
Function Call: WRITE	Prompt: ?62,$J($S(RADIVTOT:(RAFLDTOT*100)/RADIVTOT,1:0),5,1) Line Location: PDIVFLD+4
Function Call: WRITE	Prompt: ?68,$J(+$P(RASUMNDE,U,5),5) Line Location: PDIVFLD+5
Function Call: WRITE	Prompt: !,RALN,!!,"Division Total",?30,$J(+$P(RADIVNDE,U,1),5),?36,$J(+$P(RADIVNDE,U,2),5),?42,$J(+$P(RADIVNDE,U,3),5),?48,$J(+$P(RADIVNDE,U,4),5),?55,$J(RADIVTOT,5) Line Location: PDIVTOT+2
Function Call: WRITE	Prompt: ?68,$J(+$P(RADIVNDE,U,5),5) Line Location: PDIVTOT+3
Function Call: WRITE	Prompt: !!?2,"Imaging Type(s): " Line Location: PDIVTOT+5
Function Call: WRITE	Prompt: !!?3,"# of "_RATITLE_"s selected: "_$S(RAINPUT=1:"ALL",1:$G(RAFLDCNT)) Line Location: PDIVTOT+11
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y>0 Line Location: DIVHDR+1
Function Call: WRITE	Prompt: !?5,">>> ",RATITLE," Workload Report <<<" Line Location: DIVHDR+1
Function Call: WRITE	Prompt: ?70,"Page: ",RAPG Line Location: DIVHDR+1
Function Call: WRITE	Prompt: !!,?4,"Division: ",$S($D(^DIC(4,+RADIV,0)):$P(^(0),U,1),1:"UNKNOWN"),?52,"For period: " Line Location: DIVHDR+2
Function Call: WRITE	Prompt: ?64,BEGDATE("X"),?76," to" Line Location: DIVHDR+2
Function Call: WRITE	Prompt: !?4,"Run Date: ",RATDY Line Location: DIVHDR+3
Function Call: WRITE	Prompt: ?64,ENDDATE("X") Line Location: DIVHDR+3
Function Call: WRITE	Prompt: !!?32,"-------Examinations------",!?62,"% of" Line Location: DIVHDR+4
Function Call: WRITE	Prompt: ?75," % of" Condition for execution: $D(RAFL) Line Location: DIVHDR+4
Function Call: WRITE	Prompt: !,RATITLE,?30," Inpt",?36," Opt",?42," Res",?48,"Other",?55,"Total",?62,"Exams" Line Location: DIVHDR+5
Function Call: WRITE	Prompt: !,RALN Line Location: DIVHDR+7
Function Call: WRITE	Prompt: !?10,"(Division Summary)" Line Location: DIVHDR+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	DIVHDR+2
^RA(79.2 - [#79.2]	PDIVTOT+9
^TMP($J	EN1+3, IMGSUM+3, RAFLD+2, PFLDTOT+12, DIVSUM+5, DIVSUM+7, PDIVTOT+7

Label References

Name	Line Occurrences
DIVHDR	DIVSUM+3, PDIVFLD+7, PDIVTOT+1, PDIVTOT+4, PDIVTOT+8
DIVSUM	EN1+3
IMGSUM	EN1+3
IMGTOT	IMGSUM+3
PDIVFLD	DIVSUM+5
PDIVTOT	DIVSUM+6
PFLDTOT	RAFLD+2
PIMGTOT	IMGSUM+3
RAFLD	IMGSUM+3

Naked Globals

Name	Field # of Occurrence
^(	EN1+3, IMGSUM+3, RAFLD+2, DIVSUM+5
^(0	PDIVTOT+9, DIVHDR+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BEGDATE	EN1+4!
BEGDATE("X"	DIVHDR+2
ENDDATE	EN1+4!
ENDDATE("X"	DIVHDR+3
I	EN1+4!, IMGSUM+2, IMGTOT+2, PFLDTOT+2, PDIVFLD+2
IOF	DIVHDR+1
IOSL	PFLDTOT+12, PIMGTOT+1, PDIVFLD+7, PDIVTOT+1, PDIVTOT+4, PDIVTOT+8
RADIFLG	EN1+4!
RADIFLG(	IMGSUM+3, DIVSUM+1, DIVSUM+2, PDIVTOT+4
RADIV	EN1+2, EN1+3, EN1+4!, IMGSUM+3, RAFLD+2, PFLDTOT+12, DIVSUM+1, DIVSUM+2, DIVSUM+5, DIVSUM+7 , PDIVTOT+4, PDIVTOT+7, DIVHDR+2
RADIVNDE	EN1+3*, EN1+4!, IMGSUM+1, IMGSUM+2, PDIVTOT+2, PDIVTOT+3
RADIVTOT	EN1+4!, IMGSUM+1, IMGSUM+2, PDIVFLD+4, PDIVTOT+2
RADIVWWU	EN1+4!, IMGSUM+1*, PDIVFLD+6
RAFL	EN1+4!, PFLDTOT+9, PFLDTOT+11, PDIVFLD+6, DIVHDR+4, DIVHDR+6
RAFLD	EN1+4!, RAFLD+1, RAFLD+2, PFLDTOT+4, PFLDTOT+12, DIVSUM+4, DIVSUM+5, PDIVFLD+3
RAFLDCNT	EN1+4!, PIMGTOT+9, PDIVTOT+11
RAFLDNDE	EN1+4!, RAFLD+2*, PFLDTOT+1, PFLDTOT+2, PFLDTOT+4, PFLDTOT+5, PFLDTOT+6, PFLDTOT+7
RAFLDTOT	EN1+4!, PFLDTOT+1, PFLDTOT+2, PFLDTOT+3, PFLDTOT+8, PFLDTOT+9, PDIVFLD+1, PDIVFLD+2, PDIVFLD+3, PDIVFLD+4
RAFLDWWU	EN1+4!, PFLDTOT+1*, PFLDTOT+10, PFLDTOT+11
RAIMG	EN1+4!, IMGSUM+1, IMGSUM+3, RAFLD+2, PFLDTOT+12
RAIMGNDE	EN1+4!, IMGSUM+3*, IMGTOT+1, IMGTOT+2, PIMGTOT+3, PIMGTOT+4, PIMGTOT+5, PIMGTOT+6
RAIMGSUM	EN1+4!, IMGSUM+1*
RAIMGTOT	EN1+4!, IMGTOT+1, IMGTOT+2, PFLDTOT+9, PIMGTOT+7
RAIMGWWU	EN1+4!, IMGTOT+1*, PFLDTOT+11, PIMGTOT+8
RAINPUT	EN1+4!, PIMGTOT+9, PDIVTOT+11
RAITCNT	EN1+4!
RAITHLD	EN1+4!, PDIVTOT+6, PDIVTOT+7, PDIVTOT+9
RALN	EN1+4!, PIMGTOT+2, PDIVTOT+2, DIVHDR+7
RAPG	EN1+4!, DIVHDR+1*
RASUMNDE	EN1+4!, DIVSUM+5*, PDIVFLD+2, PDIVFLD+3, PDIVFLD+5, PDIVFLD+6
RATDY	EN1+4!, DIVHDR+3
RATITLE	EN1+4!, PIMGTOT+9, PDIVTOT+11, DIVHDR+1, DIVHDR+5
RAXIT	EN1+3, EN1+4!, IMGSUM+3, RAFLD+2, PFLDTOT+12, PIMGTOT+1, PIMGTOT+2, DIVSUM+1, DIVSUM+3, DIVSUM+5 , DIVSUM+6, DIVSUM+7, PDIVFLD+7, PDIVTOT+1, PDIVTOT+4, PDIVTOT+7, PDIVTOT+8, PDIVTOT+10, DIVHDR+9
U	IMGSUM+1, IMGSUM+2, IMGTOT+1, IMGTOT+2, PFLDTOT+1, PFLDTOT+2, PFLDTOT+4, PFLDTOT+5, PFLDTOT+6, PFLDTOT+7 , PIMGTOT+3, PIMGTOT+4, PIMGTOT+5, PIMGTOT+6, PDIVFLD+2, PDIVFLD+3, PDIVFLD+5, PDIVFLD+6, PDIVTOT+2, PDIVTOT+3 , PDIVTOT+9, DIVHDR+2
>> ZTQUEUED	DIVHDR+9
>> ZTSTOP	DIVHDR+9

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RALWKL4

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: