Routine: RAKRDIT

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DIE $$GET1^DIQ ^DIR
Kernel	2	(,$$S)^%ZTLOAD ($$DT,$$FMADD,$$FMTE,$$HTE)^XLFDT
Radiology Nuclear Medicine	2	COMPLETE^RAPCE $$EN1^RASETU

Package

Total

Call Graph

VA Fileman

^DIC FILE^DIE $$GET1^DIQ ^DIR

Kernel

(,$$S)^%ZTLOAD ($$DT,$$FMADD,$$FMTE,$$HTE)^XLFDT

Radiology Nuclear Medicine

COMPLETE^RAPCE $$EN1^RASETU

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RA CREDIT IMAGING LOCATION

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA CREDIT IMAGING LOCATION

Entry Points

Name	Comments	DBIA/ICR reference
DATE1
DATE2
CREDITM(RADFN,RADTI,RACNI)	;Change the CREDIT METHOD (DD: 70.03, fld: 26)
ELIG(RAY3)	;Is this record eligible to be credited? If so, the CLINIC
EN1	;DBIA 3445 read from file 42
XAMSET(RADFN,RADTI)	; change CREDIT METHOD from No Credit to Regular Credit
KILL	; kill local variables, clean up partition
EXAMS
IMGLOC
QUEUED	;begin checking for uncredited exams...

External References

Name	Field # of Occurrence
^%ZTLOAD	DATE2+12
$$S^%ZTLOAD	EXAMS+22, EXAMS+30, EXAMS+32, EXAMS+34, EXAMS+36
^DIC	IMGLOC+6
FILE^DIE	CREDITM+8
$$GET1^DIQ	ELIG+10
^DIR	DATE1+3, DATE2+4
COMPLETE^RAPCE	EXAMS+20, EXAMS+28
$$EN1^RASETU	EXAMS+14
$$DT^XLFDT	IMGLOC+3
$$FMADD^XLFDT	DATE2+8
$$FMTE^XLFDT	DATE2+3
$$HTE^XLFDT	DATE2+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?2,"Select an Imaging Location from the IMAGING LOCATIONS (#79.1)" Line Location: IMGLOC+0
Function Call: WRITE	Prompt: !?2,"file that is active, receives regular credit, and has a valid" Line Location: IMGLOC+1
Function Call: WRITE	Prompt: !?2,"DSS ID.",! Line Location: IMGLOC+2
Function Call: WRITE	Prompt: ! Line Location: DATE2+12
Routine Call	DIC Line Location: IMGLOC+6
Routine Call	DIE Line Location: CREDITM+8
Routine Call	DIR Line Location: DATE1+3 DATE2+4

FileNo	Call Tags
^DIC(42 - [#42]	GET1^DIQ
^RA(79.1 - [#79.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	ELIG+5
^RADPT - [#70]	EXAMS+6, EXAMS+12, EXAMS+13, EXAMS+25, EXAMS+26, EXAMS+29, XAMSET+3, XAMSET+4
^RADPT("AR"	EXAMS, EXAMS+3, EXAMS+5

Name	Line Occurrences
$$ELIG	EXAMS+19, EXAMS+27
CREDITM	EXAMS+29, XAMSET+4
KILL	IMGLOC+7, DATE1+4, DATE2+5, DATE2+16
XAMSET	EXAMS+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	IMGLOC+3!*, IMGLOC+6!, KILL+1!
DIC("A"	IMGLOC+5*
DIC("S"	IMGLOC+4*
DIC(0	IMGLOC+6*
DIR	DATE1!, DATE1+3!, DATE2!, DATE2+4!
DIR("?"	DATE1+1, DATE1+2, DATE2+2, DATE2+3
DIR("A"	DATE1+2, DATE2+1
DIR(0	DATE1, DATE2
DIRUT	DATE1+4, DATE2+5, KILL+1!
DTOUT	KILL+1!
DUOUT	KILL+1!
I	DATE2+11*, KILL+1!
RACNI	EXAMS+8, EXAMS+12, EXAMS+13, EXAMS+20, EXAMS+25, EXAMS+26, EXAMS+28, EXAMS+29, CREDITM~, CREDITM+7 , XAMSET+2~, XAMSET+3*, XAMSET+4
RADFN	EXAMS+2, EXAMS+3, EXAMS+5, EXAMS+6, EXAMS+12, EXAMS+13, EXAMS+14, EXAMS+20, EXAMS+21, EXAMS+25 , EXAMS+26, EXAMS+28, EXAMS+29, KILL+1!, CREDITM~, CREDITM+7, XAMSET~, XAMSET+3, XAMSET+4
RADTE	DATE1+7, EXAMS, EXAMS+3, EXAMS+5, KILL+1!
RADTI	EXAMS+4, EXAMS+5, EXAMS+6, EXAMS+12, EXAMS+13, EXAMS+20, EXAMS+21, EXAMS+25, EXAMS+26, EXAMS+28 , EXAMS+29, KILL+1!, CREDITM~, CREDITM+7, XAMSET~, XAMSET+3, XAMSET+4
RAEND	DATE2+8*, EXAMS, KILL+1!
RAFDA	CREDITM+7~
RAFDA(	CREDITM+7*
RAILOC	IMGLOC+10*, EXAMS+7, KILL+1!
RASTRT	DATE1+7*, DATE2, DATE2+3, KILL+1!
RATDY	IMGLOC+3*, DATE1, DATE2, KILL+1!
RAXIT	QUEUED+1, EXAMS+3, EXAMS+5, EXAMS+22, EXAMS+25, EXAMS+30, EXAMS+32, EXAMS+34, EXAMS+36, KILL+2!
RAXSET	EXAMS+6, EXAMS+11, KILL+2!, ELIG+5
RAY2	EXAMS+6*, EXAMS+7, EXAMS+11, KILL+2!
RAY3	EXAMS+13, EXAMS+14, EXAMS+19, EXAMS+26, EXAMS+27, KILL+2!, ELIG~, ELIG+5, ELIG+9, ELIG+10
U	QUEUED+1*, EXAMS+14, EXAMS+29, ELIG+5, XAMSET+4
X	KILL+2!
Y	IMGLOC+7, IMGLOC+10, DATE1+7, DATE2+8, KILL+2!
Y(0	IMGLOC+10
ZTDESC	DATE2+10*, DATE2+16!
ZTIO	DATE2+10*, DATE2+16!
>> ZTQUEUED	QUEUED+1
>> ZTREQ	QUEUED+1*
ZTRTN	DATE2+10*, DATE2+16!
ZTSAVE	DATE2+16!
ZTSAVE(	DATE2+11*
ZTSK	DATE2+13, DATE2+14, DATE2+16!
ZTSK("D"	DATE2+14
>> ZTSTOP	EXAMS+22, EXAMS+30, EXAMS+32, EXAMS+34, EXAMS+36*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAKRDIT

Information

Source Information

Call Graph

Call Graph Total: 8

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

Local Variables

Legend: