Routine: RARTST2A

Package	Total	Call Graph
Radiology Nuclear Medicine	5	SET^RARD ^RARTFLDS $$IMG^RARTST3 $$IMAG^RASITE $$SSN^RAUTL
VA Fileman	4	^%DT (,LIST)^DIC $$GET1^DIQ ^DIR
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR

Package

Total

Call Graph

Radiology Nuclear Medicine

SET^RARD ^RARTFLDS $$IMG^RARTST3 $$IMAG^RASITE $$SSN^RAUTL

VA Fileman

^%DT (,LIST)^DIC $$GET1^DIQ ^DIR

Kernel

$$FMTE^XLFDT $$REPEAT^XLFSTR

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RARTST1

Package

Total

Caller Graph

Radiology Nuclear Medicine

RARTST1

Entry Points

External References

Name	Field # of Occurrence
^%DT	DATE+1, DATE+3
^DIC	DIV+20
LIST^DIC	DIV+2
$$GET1^DIQ	RPTST+19, RPTST+20
^DIR	IMAG+11, LOC+7
SET^RARD	SORT+2, PRINT+1
^RARTFLDS	RPTST+9
$$IMG^RARTST3	IMAG+2
$$IMAG^RASITE	IMAG+10
$$SSN^RAUTL	RPTST+6
$$FMTE^XLFDT	RPTST+10, RPTST+16
$$REPEAT^XLFSTR	RPTST+3, RPTST+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Division Selection:",!,"-------------------" Line Location: DIV+17
Function Call: WRITE	Prompt: !!,"Imaging Type Selection:",!,"-----------------------" Line Location: IMAG+8
Function Call: WRITE	Prompt: !!,"Sort Sequence Selection:",!,"------------------------" Line Location: SORT+0
Function Call: WRITE	Prompt: !!,"First Sort Selection:",!,"---------------------" Line Location: LOC+1
Function Call: WRITE	Prompt: !!,"Print/Reprint Reports Selection:",!,"--------------------------------" Line Location: PRINT+0
Function Call: WRITE	Prompt: !!,"Date Range Selection:",!,"---------------------" Line Location: DATE+0
Function Call: WRITE	Prompt: ! Line Location: DATE+3
Function Call: WRITE	Prompt: ! Line Location: DATE+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM),!! Line Location: RPTST+3
Function Call: WRITE	Prompt: "Report : ",$P(RA74(0),"^") Line Location: RPTST+4
Function Call: WRITE	Prompt: ?30,"Patient: ",$E(Y,1,25) Line Location: RPTST+6
Function Call: WRITE	Prompt: ?65,$$SSN^RAUTL(X) Condition for execution: X Line Location: RPTST+6
Function Call: WRITE	Prompt: !,"Procedure: ",$E(X,1,30) Line Location: RPTST+9
Function Call: WRITE	Prompt: ?45,"Verified: ",$$FMTE^XLFDT($P(RA74(0),"^",7),"1P") Line Location: RPTST+10
Function Call: WRITE	Prompt: !!?4,"Routing Queue",?24,"Date Printed",?44,"Printed By",?62,"Ward/Clinic" Line Location: RPTST+11
Function Call: WRITE	Prompt: !?4,"-------------",?24,"------------",?44,"----------",?62,"-----------" Line Location: RPTST+12
Function Call: WRITE	Prompt: !,$E(Y,1,20),?24,$E($$FMTE^XLFDT($P(X,"^",4),1),1,18) Line Location: RPTST+16
Function Call: WRITE	Prompt: ?44,$E(Y,1,17),?62 Line Location: RPTST+18
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("=",IOM),! Line Location: RPTST+22
Routine Call	DIC Line Location: DIV+2
Routine Call	DIC Line Location: DIV+20
Routine Call	DIR Line Location: IMAG+11 LOC+7

FileNo	Call Tags
^DIC(4 - [#4]	Classic Fileman Calls
^DG(40.8 - [#40.8]	LIST^DIC
^DIC(42 - [#42]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	RPTST+5
^RA(79 - [#79]	DIV+14
^RABTCH(74.3 - [#74.3]	DIV+11, IMAG+13, RPTST+15
^RABTCH(74.4 - [#74.4]	RPTST+13, RPTST+14
^RADPT - [#70]	RPTST+7, RPTST+8
^RARPT - [#74]	RPTST+4
^VA(200 - [#200]	RPTST+17

Name	Line Occurrences
IMAG	DIV+15
LOC	IMAG+13

Name	Field # of Occurrence
^(0	RPTST+5, RPTST+15, RPTST+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1, DATE+3!
%DT("A"	DATE+1, DATE+3
%DT("B"	DATE+1, DATE+3
%DT(0	DATE+2*
C	DIV+14*, DIV+15!, DIV+21!
>> DIC	DIV+18*
>> DIC("A"	DIV+18*, DIV+20!
>> DIC("B"	DIV+16*, DIV+20!
>> DIC("S"	DIV+19*, DIV+20!
>> DIC(0	DIV+18*
DIR	IMAG+11!, LOC+2!, LOC+7!
DIR("?"	LOC+4, LOC+5, LOC+6*
DIR("A"	IMAG+9, LOC+3
DIR("B"	IMAG+10, LOC+2
DIR(0	IMAG+9, LOC+2
>> DIRUT	IMAG+11, LOC+7
I	DIV+14, DIV+15!, DIV+21!, DIV+22, DIV+23, DIV+24, DIV+26!, RPTST+3~, RPTST+13*, RPTST+14
I(0	DIV+23*, DIV+24
I1	DIV+11, DIV+12, DIV+14, DIV+15!, DIV+21!
IOM	RPTST+3, RPTST+22
>> RA4(	DIV+8*, DIV+15, DIV+16, DIV+22, DIV+23, DIV+24!
RA408	DIV+21!
RA408("DILIST"	DIV+3, DIV+4, DIV+8, DIV+9
RA74	RPTST+3~
RA74(0	RPTST+4*, RPTST+5, RPTST+7, RPTST+8, RPTST+10
>> RAB	DIV+11, IMAG+13
RABEG	DATE!, DATE+2*
RADIV	DIV+14!, DIV+15, DIV+20, DIV+21, DIV+24
RAEND	DATE!, DATE+4*
RAEXFLD	RPTST+3~, RPTST+9*
>> RAF408(	DIV+9*, DIV+24!
RAI	DIV+4*, DIV+8, DIV+9, DIV+21!
RAIMAG	IMAG+1!, IMAG+2*, IMAG+5!, IMAG+7
RAIMAG(	IMAG+11*
>> RALOCSRT	LOC, LOC+7, LOC+9
>> RAMDIV	DIV+16
>> RAMLC	IMAG+10
>> RAOMA	IMAG+1
RAPRMPT	DIV+11!, DIV+12, DIV+13, DIV+18, DIV+20!
RAPRT	PRINT!, PRINT+2*, DATE+1!, DATE+3!
RARD	SORT+2!, PRINT+1!
RARD("A"	SORT+1*
RARD("B"	SORT+1, PRINT+1
RARD(1	SORT+1, PRINT+1
RARD(2	SORT+1, PRINT+1
RARD(3	SORT+1*
RARPT	RPTST~, RPTST+4, RPTST+13
>> RARTST1	LOC
RASRT	IMAG+14, SORT+1!, SORT+2
RASRT(0	IMAG+14, SORT+2, LOC+3, LOC+4, LOC+5
RAY3	RPTST+3~, RPTST+8*
U	IMAG+10, LOC+7
X	SORT+2, PRINT+1, PRINT+2, RPTST+3~, RPTST+5, RPTST+6, RPTST+7, RPTST+8, RPTST+9, RPTST+14 , RPTST+16, RPTST+17, RPTST+19, RPTST+20
Y	DIV+20, IMAG+11, LOC+7, DATE+1, DATE+2, DATE+3, DATE+4, RPTST+3~, RPTST+5, RPTST+6 , RPTST+7, RPTST+8, RPTST+14, RPTST+15, RPTST+16, RPTST+17*, RPTST+18

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RARTST2A

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SORT
LOC
RPTST(RARPT)	; Report's Print Status, called from 8^RARTST1. ; This code replaces the call to the compiled template routine. ; Input: RARPT -> ien of the Report in file 74
IMAG	;imaging type selection
DATE
PRINT
DIV	; Division selection ; save all Med Center Divisions (40.8) by pntr to file 4