Routine: RAUTL7A

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIE EN^DIQ ^DIR
Kernel	3	^%ZIS ^%ZISC $$REPEAT^XLFSTR
Radiology Nuclear Medicine	2	(CLOSE,ZIS)^RAUTL STOPCHK^RAUTL9
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Radiology Nuclear Medicine	6	RADLY RANMUTL1 RAORD2 RAPRC RASTAT RAUTL7

Entry Points

Name	Comments	DBIA/ICR reference
HEADER	;
LOCNUM()	;Detrmines the number of selectable imaging locations based on ; division parameters. Called fron SELLOC^RAUTL7
SETUPL	; Setup temp global to screen img-loc, where ; img-loc must be within previously selected img-typ(s) ; Requires RACCESS(duz,"LOC") and ^TMP($J,"RA ITYPE") ; Creates ^TMP($J,"DIV-ITYP-ILOC",Img Loc ien) ; and eg. RACCESS(duz,"DIV-ITYP-ILOC","cgo(ws)","gen rad","x-ray") ; Called from SELLOC^RAUTL7
VERIFY	; verify old reports ; back door function to "administratively verify" old reports ; that were never verified
SETUP	; Setup temp global to screen i-type by division ; Requires ^TMP($J,"RA D-TYPE",Division name), RACCESS "DIV-IMG" ; elements. Creates ^TMP($J,"DIV-IMG",Imaging Type IEN)="" ; Called fron SELIMG^RAUTL7
LOCIMG1()	;Determines if user has access to more than one loc of
IMGNUM()	; Detrmines the number of selectable imaging types based on ; division parameters. Called fron SELIMG^RAUTL7
START	;
KILL	;
SETUPL1
ERROR	; Display error message
DEVICE	;
DISPLAY	; back door function to display all reports not verified in file 74 ; prints [captioned] dump of entire record

External References

Name	Field # of Occurrence
NOW^%DTC	START+4
^%ZIS	DISPLAY+4
^%ZISC	DISPLAY+14
^DIE	START+22
EN^DIQ	DISPLAY+9
^DIR	VERIFY+7, START+26, DISPLAY+12
CLOSE^RAUTL	KILL+2
ZIS^RAUTL	DEVICE+2
STOPCHK^RAUTL9	START+28
DEM^VADPT	START+12
$$REPEAT^XLFSTR	HEADER+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"You do not have access to any Imaging Locations." Line Location: ERROR+1
Function Call: WRITE	Prompt: !?5,"Contact your ADPAC for further assistance.",$C(7) Line Location: ERROR+2
Function Call: WRITE	Prompt: !,"This subroutine prompts you for a date and places all unverified reports" Line Location: VERIFY+3
Function Call: WRITE	Prompt: !,"through that date into a status of Verified.",! Line Location: VERIFY+4
Function Call: WRITE	Prompt: !!,"NO UNVERFIED REPORTS CROSS REFERENCE" Line Location: VERIFY+5
Function Call: WRITE	Prompt: @IOF Line Location: START+23
Function Call: WRITE	Prompt: !!,"Total: ",RACOUNT Line Location: START+30
Function Call: WRITE	Prompt: "Verify Reports Prior to "_$E(RAENDATE,4,5)_"/"_$E(RAENDATE,6,7)_"/"_$E(RAENDATE,2,3) Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"Run Date/Time: ",RATIME,?70,"Page: ",RAPAGE Line Location: HEADER+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79),! Line Location: HEADER+5
Function Call: WRITE	Prompt: !!,"This subroutine loops through the unverified reports cross-reference of" Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !,"File 74 and displays the report entry including computed field values.",!! Line Location: DISPLAY+3
Routine Call	DIE Line Location: START+22
Routine Call	DIR Line Location: VERIFY+7 START+26 DISPLAY+12
Routine Call	%ZIS Line Location: DISPLAY+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RARPT - [#74]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+4
^DIC(4 - [#4]	SETUPL1+4
^RA(79.1 - [#79.1]	LOCIMG1+7, SETUPL1, SETUPL1+1, SETUPL1+3, SETUPL1+13
^RA(79.2 - [#79.2]	LOCIMG1+5, SETUP+8, SETUPL1+2, SETUPL1+6, SETUPL1+13
^RADPT - [#70]	START+16
^RADPT("ADC"	START+11
^RARPT - [#74]	START+7, DISPLAY+9
^RARPT("ASTAT"	VERIFY+5, START+6, DISPLAY+7, DISPLAY+8
^SC - [#44]	SETUPL1+13
^TMP($J	IMGNUM+3, SETUP+5, SETUP+8, LOCNUM+3, SETUPL1+2, SETUPL1+6, SETUPL1+8, SETUPL1+9
^VA(200 - [#200]	START+17, START+18

Label References

Name	Line Occurrences
HEADER	START+5, START+23
KILL	VERIFY+7, DEVICE+3
SETUPL1	SETUPL1+1, SETUPL1+2, SETUPL1+3, SETUPL1+4, SETUPL1+6, SETUPL1+8, SETUPL1+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	KILL+1!
A	DISPLAY+15!
D0	DISPLAY+15!
D1	DISPLAY+15!
DA	START+22, DISPLAY+9, DISPLAY+15!
DFN	START+12*, START+14!
DIC	DISPLAY+9*, DISPLAY+15!
DIE	START+22!*
DIQ	DISPLAY+15!
DIQ(0	DISPLAY+9*
DIR	VERIFY+6!, VERIFY+7!, START+1!, START+25!, START+26!, KILL+1!, DISPLAY+11!, DISPLAY+12!
DIR("?"	VERIFY+6*
DIR("A"	VERIFY+6*
DIR(0	VERIFY+6, START+26, DISPLAY+12*
DIROUT	START+1!, START+25!, KILL+1!, DISPLAY+11!
DIRUT	VERIFY+7, START+1!, START+6, START+23, START+25!, START+28*, KILL+1!, DISPLAY+7, DISPLAY+8, DISPLAY+9 , DISPLAY+11!, DISPLAY+15!
DIW	DISPLAY+15!
DIWF	DISPLAY+15!
DIWL	DISPLAY+15!
DIWR	DISPLAY+15!
DIWT	DISPLAY+15!
DK	DISPLAY+15!
DL	DISPLAY+15!
DN	DISPLAY+15!
DR	START+22!*
DTOUT	START+1!, START+25!, KILL+1!, DISPLAY+11!, DISPLAY+15!
DUOUT	START+1!, START+25!, KILL+1!, DISPLAY+11!, DISPLAY+15!
DUZ	LOCIMG1+4, LOCIMG1+6, SETUP+6, SETUP+7, SETUPL1+13
DX	DISPLAY+15!
I	DISPLAY+15!
IO	START+1, DISPLAY+5
IOF	START+23, HEADER+1, DISPLAY+5, DISPLAY+9
IOSL	START+23
IOST	START+24, DISPLAY+10
POP	KILL+1!, DISPLAY+15!
RA4CHX	DISPLAY+6, DISPLAY+7, DISPLAY+8, DISPLAY+15!
RA4CHX1	DISPLAY+8*, DISPLAY+9, DISPLAY+15!
>> RACCESS(	LOCIMG1+4, LOCIMG1+6, SETUP+6, SETUP+7, SETUPL1+13*
RACN	DISPLAY+15!
RACNI	START+11*, START+16, KILL+1!
RACOUNT	START+2, START+15, START+30, KILL+1!
RADFN	START+9*, START+11, START+12, START+16, KILL+1!
RADPT0	START+16*, START+17, START+18, KILL+1!
RADTE	START+8*, START+10, KILL+1!
RADTI	START+10*, START+11, START+16, KILL+1!
RAENDATE	VERIFY+8, START+2, START+8, KILL+1!, HEADER+3
>> RAIMGTY	LOCIMG1+5
>> RALOCSAV	LOCIMG1+7*, LOCIMG1+9
RALOCTOT	LOCIMG1+4~, LOCIMG1+5, LOCIMG1+7, LOCIMG1+9
RANAME	START+14*, START+19, KILL+1!
RAPAGE	START+2, KILL+1!, HEADER+2, HEADER+4
RAPOP	DEVICE+3, KILL+1!
RARES	START+17*, START+20, KILL+1!
RARPT	START+6*, START+7, START+22, KILL+1!, DISPLAY+15!
RARPT0	START+7*, START+8, START+9, START+11, START+19, KILL+1!
RASSN	START+14*, START+19, KILL+1!
RASTAFF	START+18*, START+21, KILL+1!
RASTATUS	START+2, START+6, START+19, KILL+1!
RATIME	START+4*, KILL+1!, HEADER+4
RAW	SETUPL+6~, SETUPL1+4*, SETUPL1+8, SETUPL1+13
RAX	SETUP+4~, SETUP+5, SETUP+6, SETUP+7, SETUPL+6~, SETUPL+7, SETUPL1, SETUPL1+1, SETUPL1+3, SETUPL1+9 , SETUPL1+13
RAY	SETUP+4~, SETUP+7, SETUP+8, SETUPL+6~, SETUPL1+1, SETUPL1+2, SETUPL1+6, SETUPL1+13
RAZ	SETUP+4~, SETUP+8, SETUPL+6~, SETUPL1+3, SETUPL1+4, SETUPL1+8
S	DISPLAY+15!
U	LOCIMG1+7, SETUPL1+2, SETUPL1+3, SETUPL1+4, SETUPL1+13, START+8, START+9, START+11, START+14, START+17 , START+18, START+19
>> VA("PID"	START+14
VADM	START+14!
VADM(1	START+14
X	LOCIMG1+4~, LOCIMG1+5, LOCIMG1+6, LOCIMG1+7, IMGNUM+2~, IMGNUM+3, LOCNUM+2~, LOCNUM+3*, START+4, KILL+1! , DISPLAY+15!
Y	LOCIMG1+4~, IMGNUM+2~, IMGNUM+3, IMGNUM+4, LOCNUM+2~, LOCNUM+3, LOCNUM+4, VERIFY+8, START+4*, KILL+1! , DISPLAY+15!
Z	LOCIMG1+4~, LOCIMG1+5*, LOCIMG1+7
ZTDESC	DEVICE+1*, KILL+1!
>> ZTQUEUED	START+3, START+28
>> ZTREQ	START+3*
ZTRTN	DEVICE+1*, KILL+1!
ZTSAVE	KILL+1!
ZTSAVE("RAENDATE"	DEVICE+1*
>> ZTSTOP	START+28

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAUTL7A

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: