Routine: RACMHIS

Package	Total	Call Graph
VA Fileman	5	$$EXTERNAL^DILFD $$GET1^DIQ ^DIR ^DIWP ^DIWW
Kernel	4	$$S^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT $$CJ^XLFSTR EN^XUTMDEVQ
Radiology Nuclear Medicine	1	EN1^RASELCT

Package

Total

Call Graph

VA Fileman

$$EXTERNAL^DILFD $$GET1^DIQ ^DIR ^DIWP ^DIWW

Kernel

$$S^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT $$CJ^XLFSTR EN^XUTMDEVQ

Radiology Nuclear Medicine

EN1^RASELCT

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RA CMAUDIT HISTORY RAPROD2

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA CMAUDIT HISTORY RAPROD2

Entry Points

Name	Comments	DBIA/ICR reference
ENDDT	;Prompt for Ending Date
EN	;begin; find all procedures with a CM audit history
HDR	; print header
CONTRAST(RACMU)	;Return the current CM definition for this procedure delimited
EOS	; end of screen dialog
START	;main body
EXIT	;clean up symbol table, message to user
KILL	;clean up symbol table
STRTDT	;Prompt for Starting Date

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	START+7, START+10
$$EXTERNAL^DILFD	CONTRAST+7
$$GET1^DIQ	START+19
^DIR	STRTDT+7, ENDDT+8, EOS+3
^DIWP	START+24
^DIWW	START+24
EN1^RASELCT	EN+3
$$FMADD^XLFDT	STRTDT+10
$$FMTE^XLFDT	STRTDT+5, ENDDT+5, START+3, START+17
$$CJ^XLFSTR	EXIT+2, HDR+2, HDR+4
EN^XUTMDEVQ	ENDDT+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: STRTDT+1
Function Call: WRITE	Prompt: ! Line Location: ENDDT+1
Function Call: WRITE	Prompt: !!,"Task Number: "_ZTSK,! Line Location: ENDDT+16
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(RAHD,IOM),!,"Run Date: ",RADT,?25,"From: ",$P(RASTRT,U,2),?45,"To: ",$P(RASTOP,U,2),?68,"Page ",RAPG Line Location: HDR+2
Function Call: WRITE	Prompt: !,"Procedure",?34,"Date/Time Changed",?55,"User",!?2,"Contrast Media" Line Location: HDR+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(RALINE,IOM) Line Location: HDR+4
Routine Call	DIR Line Location: STRTDT+7 ENDDT+8 EOS+3

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

Name	Line Occurrences (* Changed, ! Killed)
^RAMIS(71 - [#71]	START+12, START+14, START+16
^TMP($J	EN+3!, EN+4, KILL+2!, START+6, START+9
^UTILITY($J	START+24!

Name	Line Occurrences
$$CONTRAST	START+18
EOS	START+20, START+22
HDR	START+5
KILL	EN+4, STRTDT+8, ENDDT+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	STRTDT+1!, STRTDT+7!, ENDDT+1!, ENDDT+8!, KILL+1!, EOS+2!, EOS+4!
DIR("?"	STRTDT+3, STRTDT+4, STRTDT+5, STRTDT+6, ENDDT+3, ENDDT+4, ENDDT+5, ENDDT+6, ENDDT+7*
DIR("A"	STRTDT+2, ENDDT+2
DIR(0	STRTDT+1, ENDDT+1, EOS+3*
DIROUT	KILL+1!
DIRUT	STRTDT+8, ENDDT+9, KILL+1!, EOS+2!, EOS+3, EOS+4!
DIW	EXIT+3!
DIWF	START+24*, EXIT+3!
DIWL	START+24*, EXIT+3!
DIWR	START+24*, EXIT+3!
DIWT	EXIT+3!
DN	EXIT+3!
DT	STRTDT+1, STRTDT+5, ENDDT+1, ENDDT+5, START+3
DTOUT	KILL+1!, EOS+2!, EOS+4!
DUOUT	KILL+1!, EOS+2!, EOS+4!
I	ENDDT+14*, ENDDT+15!, EXIT+3!
IOF	START+4, HDR+1
IOM	START+3, EXIT+2, HDR+2, HDR+4
IOSL	START+20, START+22
IOST	START+4, EOS+1
POP	KILL+1!
RAADT	START+17*, START+21, EXIT+3!
RAAU	START+19*, START+21, EXIT+3!
RACMU	START+17*, START+18, EXIT+3!, CONTRAST~, CONTRAST+6, CONTRAST+7
RADIC	EN+1*, EN+3, KILL+1!
RADIC("A"	EN+1*
RADIC("S"	EN+2*
RADIC(0	EN+1*
RADT	START+3*, EXIT+3!, HDR+2
RAHD	START+2*, EXIT+3!, HDR+2
RAI	EXIT+3!, CONTRAST+5~, CONTRAST+6*, CONTRAST+7
RAIEN	START+13, START+14, START+16, EXIT+3!
RALINE	START+3*, EXIT+4!, HDR+4
RAPG	START+3, EXIT+4!, HDR+1, HDR+2
RAPNME	START+5, START+6, START+9, START+21, EXIT+4!
RAQUIT	KILL+1!
RAS	START+11, START+12, START+14, EXIT+4!
RASTOP	ENDDT+12*, KILL+1!, START+12, HDR+2
RASTRT	STRTDT+10*, ENDDT+1, ENDDT+6, KILL+1!, START+11, HDR+2
RAUTIL	EN+2*, EN+3, KILL+1!
RAX	START+18, START+24, EXIT+4!, CONTRAST+5~, CONTRAST+7*, CONTRAST+9
RAXIT	START+5, START+6, START+7, START+9, START+10, START+12, START+14, START+20, START+22, EXIT+4! , EOS+1, EOS+3
RAY	START+8, START+9, START+12, START+14, START+16, EXIT+4!
RAY(0	START+16*, START+17, START+19, EXIT+2
U	ENDDT+1, ENDDT+6, START+11, START+12, START+17, START+19, HDR+2
X	KILL+1!, START+24*, EXIT+4!
Y	STRTDT+10, ENDDT+12, KILL+2!, EXIT+4!
Y(0	STRTDT+10, ENDDT+12
Z	EXIT+4!
>> ZTQUEUED	START+1
>> ZTREQ	START+1*
ZTSAVE	ENDDT+15, KILL+2!
ZTSAVE(	ENDDT+14*
ZTSK	ENDDT+16, KILL+2!
>> ZTSTOP	START+7, START+10

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RACMHIS

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: