Routine: RARTR1

Information

RARTR1 ;HISC/FPT,GJC-Queue/print Radiology Reports (cont.) ; Sep 11, 2023@14:03:48

Package	Total	Call Graph
Radiology Nuclear Medicine	5	$$RSTAT^RAO7PC1A HD^RARTR $$TITLE^RARTR0 HANG^RARTR2 $$INCR^RAUTL4
Kernel	1	$$REPEAT^XLFSTR
VA FileMan	1	$$GET1^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RARTR RARTR0

Entry Points

Name	Comments	DBIA/ICR reference
PRTDX	; print dx codes on report
WARNING	; this printed report should not be used for charting
SECRES	; Print from the secondary resident multiple
SECSTF	; Print from the secondary staff multiple

External References

Name	Field # of Occurrence
$$GET1^DIQ	SECRES+9, SECRES+11, SECRES+13, SECSTF+9, SECSTF+11, SECSTF+13
$$RSTAT^RAO7PC1A	WARNING+1
HD^RARTR	PRTDX+2, PRTDX+20, PRTDX+27, SECRES+3, SECRES+15, SECSTF+3, SECSTF+15
$$TITLE^RARTR0	SECRES+14, SECSTF+14
HANG^RARTR2	PRTDX+2, PRTDX+20, PRTDX+26, SECRES+3, SECRES+15, SECSTF+3, SECSTF+15
$$INCR^RAUTL4	PRTDX+18, PRTDX+36, PRTDX+39, PRTDX+47, PRTDX+49, WARNING+11, WARNING+12, WARNING+13, WARNING+14, WARNING+15 , SECRES+5, SECRES+19, SECRES+30, SECRES+31, SECSTF+5, SECSTF+19, SECSTF+30, SECSTF+31
$$REPEAT^XLFSTR	WARNING+6, WARNING+8, WARNING+11, WARNING+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?RATAB,"Primary Diagnostic Code: ",!?RATAB+4 Line Location: PRTDX+5
Function Call: WRITE	Prompt: $S($D(^RA(78.3,+RADXCODE,0)):$P(^(0),U,1),1:"") Line Location: PRTDX+6
Function Call: WRITE	Prompt: ! Line Location: PRTDX+21
Function Call: WRITE	Prompt: !!?RATAB,"Secondary Diagnostic Codes: " Line Location: PRTDX+23
Function Call: WRITE	Prompt: !?RATAB+4,$P(^RA(78.3,RADXCODE,0),U,1) Line Location: PRTDX+28
Function Call: WRITE	Prompt: ! Line Location: PRTDX+33
Function Call: WRITE	Prompt: !?RAPOSITN-1,$$REPEAT^XLFSTR("*",$L(RARPTSTT)+2) Line Location: WARNING+6
Function Call: WRITE	Prompt: !?(80-$L(RARPTSTT)\2)-1,""_RARPTSTT_"",!?RAPOSITN-1,$$REPEAT^XLFSTR("*",$L(RARPTSTT)+2) Line Location: WARNING+8

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(78.3 - [#78.3]	PRTDX+6, PRTDX+9, PRTDX+14, PRTDX+16, PRTDX+25, PRTDX+28, PRTDX+30, PRTDX+42, PRTDX+44, PRTDX+45
^RADPT - [#70]	PRTDX+3, PRTDX+21, PRTDX+22, PRTDX+25, PRTDX+35, PRTDX+38, PRTDX+41, SECRES+1, SECRES+7, SECRES+8 , SECSTF+1, SECSTF+7, SECSTF+8
^TMP($J	PRTDX+18, PRTDX+36, PRTDX+39, PRTDX+47, PRTDX+49, WARNING+11, WARNING+12, WARNING+13, WARNING+14, WARNING+15 , SECRES+5, SECRES+19, SECRES+20, SECRES+21, SECRES+30, SECRES+31, SECRES+34, SECRES+36, SECSTF+5, SECSTF+19* , SECSTF+20, SECSTF+21, SECSTF+30, SECSTF+31, SECSTF+34, SECSTF+36*

Naked Globals

Name	Field # of Occurrence
^(0	PRTDX+6, PRTDX+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIERR	SECRES+2~, SECSTF+2~
IOM	SECRES+16, SECSTF+16
IOSL	PRTDX+2, PRTDX+20, PRTDX+26, PRTDX+27, SECRES+3, SECRES+15, SECSTF+3, SECSTF+15
>> RAACNT	PRTDX+18, PRTDX+36, PRTDX+39, PRTDX+47, PRTDX+49, WARNING+11, WARNING+12, WARNING+13, WARNING+14, WARNING+15 , SECRES+5, SECRES+19, SECRES+20, SECRES+21, SECRES+30, SECRES+31, SECRES+34, SECRES+36, SECSTF+5, SECSTF+19 , SECSTF+20, SECSTF+21, SECSTF+30, SECSTF+31, SECSTF+34, SECSTF+36
>> RACNI	PRTDX+3, PRTDX+21, PRTDX+22, PRTDX+25, PRTDX+35, PRTDX+38, PRTDX+41, SECRES+1, SECRES+7, SECRES+8 , SECSTF+1, SECSTF+7, SECSTF+8
>> RADFN	PRTDX+3, PRTDX+21, PRTDX+22, PRTDX+25, PRTDX+35, PRTDX+38, PRTDX+41, SECRES+1, SECRES+7, SECRES+8 , SECSTF+1, SECSTF+7, SECSTF+8
>> RADTI	PRTDX+3, PRTDX+21, PRTDX+22, PRTDX+25, PRTDX+35, PRTDX+38, PRTDX+41, SECRES+1, SECRES+7, SECRES+8 , SECSTF+1, SECSTF+7, SECSTF+8
RADXCODE	PRTDX+3, PRTDX+6, PRTDX+9, PRTDX+14, PRTDX+16, PRTDX+24, PRTDX+25, PRTDX+28, PRTDX+30, PRTDX+33! , PRTDX+40, PRTDX+41*, PRTDX+42, PRTDX+44, PRTDX+45
>> RAFOOT	PRTDX+2, PRTDX+20, PRTDX+26, PRTDX+27, SECRES+3, SECRES+15, SECSTF+3, SECSTF+15
RALEN	SECRES+20~, SECRES+21, SECSTF+20~, SECSTF+21
>> RAOOUT	PRTDX+2, PRTDX+20, PRTDX+25, PRTDX+26, SECRES+3, SECRES+15, SECSTF+3, SECSTF+15
RAPOSITN	WARNING+4*, WARNING+6, WARNING+8, WARNING+17!
>> RAPVERF	SECRES+36, SECSTF+36
>> RARPT(10	SECRES+25, SECRES+29, SECSTF+25, SECSTF+29
RARPTSTT	WARNING+1, WARNING+2, WARNING+3*, WARNING+4, WARNING+6, WARNING+7, WARNING+8, WARNING+11, WARNING+13, WARNING+14 , WARNING+17!
RASR	SECRES+2~, SECRES+6, SECRES+7, SECRES+8
RASR(0	SECRES+8*, SECRES+9, SECRES+11, SECRES+13, SECRES+14, SECRES+23, SECRES+26, SECRES+27, SECRES+30, SECRES+31 , SECRES+36
RASRSBN	SECRES+2~, SECRES+11, SECRES+12, SECRES+16, SECRES+19, SECRES+27, SECRES+31
RASRSBT	SECRES+2~, SECRES+13, SECRES+14, SECRES+16, SECRES+21
RASS	SECSTF+2~, SECSTF+6, SECSTF+7, SECSTF+8
RASS(0	SECSTF+8*, SECSTF+9, SECSTF+11, SECSTF+13, SECSTF+14, SECSTF+23, SECSTF+26, SECSTF+27, SECSTF+30, SECSTF+31 , SECSTF+36
RASSSBN	SECSTF+2~, SECSTF+11, SECSTF+12, SECSTF+16, SECSTF+19, SECSTF+27, SECSTF+31
RASSSBT	SECSTF+2~, SECSTF+13, SECSTF+14, SECSTF+16, SECSTF+21
>> RAST	WARNING+3, WARNING+7, WARNING+12
>> RATAB	PRTDX+5, PRTDX+23, PRTDX+28
RATMP	PRTDX+1~, PRTDX+9, PRTDX+10, PRTDX+16, PRTDX+17, PRTDX+30, PRTDX+31, PRTDX+44, PRTDX+46
RATMP1	PRTDX+1~, PRTDX+13, PRTDX+14, PRTDX+17, PRTDX+18, PRTDX+45, PRTDX+46*, PRTDX+47
>> RAUTOE	PRTDX+2, PRTDX+4, PRTDX+12, PRTDX+20, PRTDX+21, PRTDX+22, PRTDX+35, PRTDX+38, WARNING+5, WARNING+10 , SECRES+3, SECRES+4, SECRES+5, SECRES+15, SECRES+16, SECRES+18, SECRES+25, SECRES+29, SECRES+33, SECRES+34 , SECRES+36, SECSTF+3, SECSTF+4, SECSTF+5, SECSTF+15, SECSTF+16, SECSTF+18, SECSTF+25, SECSTF+29, SECSTF+33 , SECSTF+34, SECSTF+36
>> RAVERF	SECRES+23, SECSTF+23
>> RAVERFND	SECRES+23, SECRES+24, SECSTF+23, SECSTF+24
>> RAWHOVER	SECRES+26, SECRES+27, SECRES+30, SECRES+31, SECSTF+26, SECSTF+27, SECSTF+30, SECSTF+31
RAZ	SECRES+2~, SECRES+9, SECRES+10, SECRES+12, SECSTF+2~, SECSTF+9, SECSTF+10, SECSTF+12
U	PRTDX+3, PRTDX+6, PRTDX+9, PRTDX+14, PRTDX+16, PRTDX+28, PRTDX+30, PRTDX+44, PRTDX+45

Customize PDF page

Package: Radiology Nuclear Medicine