Routine: RATRAN

Package	Total	Call Graph
Radiology Nuclear Medicine	8	$$ALLNOTH^RALWKL3 SETVARS^RAPSET1 EN1^RASELCT (CLOSE,D,DATE,ZIS)^RAUTL ACCVIO^RAUTL19 $$EOS^RAUTL5 SELDIV^RAUTL7 STOPCHK^RAUTL9

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RA TRANSCRIP REPORT

Entry Points

Name	Comments	DBIA/ICR reference
SET	; set tmp global
END	; kill variables, close device
HDR	; header
GET	; get tmp global values
NEGRPT	; negative report message
START	; start processing
WRT	; write out counts
LCNT(J)	; Count lines in report text and impression text. If the number of ; characters in either the report or impression text add up to a number ; greater than zero and less than seventy five, assume that we have ; seventy five characters.
USER	; select transcriptionists to appear in report

External References

Name	Field # of Occurrence
$$ALLNOTH^RALWKL3	RATRAN+10
SETVARS^RAPSET1	RATRAN+5
EN1^RASELCT	USER+2
CLOSE^RAUTL	END+4
D^RAUTL	START+3
DATE^RAUTL	RATRAN+15
ZIS^RAUTL	RATRAN+19
ACCVIO^RAUTL19	RATRAN+6
$$EOS^RAUTL5	WRT+1, WRT+3, NEGRPT+2
SELDIV^RAUTL7	RATRAN+7
STOPCHK^RAUTL9	SET+1, HDR+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,">>> IMAGING TRANSCRIPTIONIST WORKLOAD REPORT <<<",! Line Location: RATRAN+4
Function Call: WRITE	Prompt: !,RANAME,?50,RACNT,?67,RATCNT Line Location: WRT+2
Function Call: WRITE	Prompt: @IOF,!?21,">>> IMAGING TRANSCRIPTION REPORT <<<" Condition for execution: $Y>0 Line Location: HDR+1
Function Call: WRITE	Prompt: ?70,"PAGE: ",RAPG Line Location: HDR+1
Function Call: WRITE	Prompt: !?23,"Division: ",RADIV Line Location: HDR+2
Function Call: WRITE	Prompt: !?21,"Date Range: ",RASTART," - ",RAFINISH Line Location: HDR+3
Function Call: WRITE	Prompt: !,"# of Transcriptionists selected: ",$S($G(RAFLDCNT)>0:$G(RAFLDCNT),1:"ALL"),! Line Location: HDR+4
Function Call: WRITE	Prompt: !,"RADIOLOGY/NUCLEAR MEDICINE PERSONNEL",?44,"NUMBER OF LINES",?61,"NUMBER OF REPORTS" Line Location: HDR+5
Function Call: WRITE	Prompt: !,QQ,! Line Location: HDR+6
Function Call: WRITE	Prompt: !!,"In this division there were no reports found for the transcriptionists selected." Line Location: NEGRPT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	SET+6
^RA(79 - [#79]	SET+6
^RADPT - [#70]	SET+5, SET+6
^RARPT - [#74]	START+8, START+17, SET+4, LCNT+5, LCNT+7
^RARPT("AD"	START+6, START+7, START+8, START+15, START+16, START+17
^TMP($J	RATRAN+3!, RATRAN+8, RATRAN+9, RATRAN+12, RATRAN+13, START+14, START+15, GET+2, END+2!, SET+8 , SET+9, SET+12, SET+13, SET+16, WRT+1, WRT+3, NEGRPT+2
^VA(200 - [#200]	SET+2

Label References

Name	Line Occurrences
$$LCNT	SET+10
END	RATRAN+8, RATRAN+11, RATRAN+12, RATRAN+15, RATRAN+19
HDR	GET+2, WRT+1
NEGRPT	GET+2
SET	START+8, START+17
USER	RATRAN+12
WRT	GET+2

Naked Globals

Name	Field # of Occurrence
^(	GET+3, SET+12*
^("T"	START+8, START+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	RATRAN+9*, END+1!, END+5!
BEGDATE	RATRAN+16, END+1!
DIRUT	END+5!
DUOUT	END+5!
DUZ	RATRAN+5, RATRAN+6
ENDDATE	RATRAN+16, END+1!
I	START+7, START+8, START+16, START+17, GET+2*, GET+3, END+1!, END+5!, WRT+1, WRT+3
IO	START+1
IOF	HDR+1
IOSL	WRT+1
J	START+8, START+17, END+1!, SET+4, SET+10, LCNT~, LCNT+5, LCNT+7
K	LCNT+4~, LCNT+5, LCNT+7
LCNT	START+2, END+1!, SET+10, SET+14, LCNT+4~, LCNT+11, LCNT+12*, LCNT+13
LCNT("I"	LCNT+4, LCNT+5, LCNT+6*, LCNT+11
LCNT("R"	LCNT+4, LCNT+7, LCNT+8*, LCNT+11
POP	END+5!
QQ	START+2*, END+1!, HDR+6
RABEG	RATRAN+16*, START+3, START+7, START+16, END+1!
RACCESS	END+3!
RACCESS(	RATRAN+5, RATRAN+6
RACNT	GET+3*, END+1!, WRT+2
RADFN	END+1!, SET+4*, SET+5, SET+6
RADIC	USER+1*, USER+2, USER+3!
RADIC("A"	USER+1*
RADIC("S"	USER+1*
RADIC(0	USER+1*
RADIV	GET+1, GET+2, END+1!, SET+6*, WRT+1, WRT+3, HDR+2, NEGRPT+2
RADIVNME	END+1!, SET+6*, SET+7, SET+8, SET+12, SET+13, SET+16
RADTI	END+1!, SET+4*, SET+5, SET+6
RADUZ	START+5, START+6, START+7, START+8, START+14, START+15, START+16, START+17, END+1!, SET+2 , SET+9, SET+11
RADUZ(0	SET+13, SET+14, SET+15*, SET+16, SET+17!
RADUZNME	END+1!, SET+2, SET+3, SET+9, SET+11, SET+12, SET+13, SET+16
RAEND	RATRAN+16*, START+3, START+7, START+16, END+1!
RAFINISH	START+3*, END+1!, HDR+3
RAFLDCNT	RATRAN+13*, END+1!, HDR+4
RAI	END+1!
RALP	RATRAN+13*, RATRAN+14!
RALP1	RATRAN+13*, RATRAN+14!
RAMES	END+5!
RANAME	GET+3*, END+2!, WRT+2
RAOUT	RATRAN+3, START+2, START+6, START+7, START+8, START+14, START+15, START+16, START+17, GET+2 , END+2!, END+5!, SET+1, WRT+1, WRT+3, HDR+7, NEGRPT+2*
RAPG	START+2, END+2!, HDR+1
RAPGM	END+2!
RAPOP	RATRAN+15, RATRAN+19, END+2!, END+5!
RAPSTX	RATRAN+5*, END+3!, END+5!
RAQUIT	RATRAN+8, END+2!, END+5!
RARPTNDE	END+2!, SET+4*
RASKIP	END+2!
RASTART	START+3*, END+2!, HDR+3
RASV	RATRAN+18*, END+2!
RASW	RATRAN+10*, RATRAN+11, RATRAN+12, RATRAN+13, START+5, START+13, END+2!, END+5!, SET+9, USER+2
RATCNT	GET+3*, END+2!, WRT+2
RATITLE	RATRAN+3*, END+2!, END+5!, USER+1
RATRAN	START+13, START+14, START+15, END+2!
RAUTIL	USER+1*, USER+2, USER+3!
U	SET+2, SET+4, SET+6
X	END+2!
Y	START+3*, END+2!
ZTDESC	RATRAN+17*, END+5!
>> ZTQUEUED	START+1, SET+1, HDR+7
>> ZTREQ	START+1*
ZTRTN	RATRAN+17*, END+5!
ZTSAVE	END+5!
ZTSAVE(	RATRAN+18*
ZTSAVE("^TMP($J,""RATRAN"","	RATRAN+17*
ZTSAVE("^TMP($J,""RATWKL"","	RATRAN+17*
>> ZTSTOP	SET+1, HDR+7

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RATRAN

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: