Routine: RAPINFO

Information

RAPINFO ;HIRMFO/GJC - Display Imaging Procedure Rad/Nuc Med info ;11/5/99 12:32

Source Information

Source file <RAPINFO.m>

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$LOW^XLFSTR
Radiology Nuclear Medicine	5	$$NAMCODE^RACPTMSC ($$BLD,HDR)^RAPINFO EN1^RASELCT ($$EOS,$$XTERNAL)^RAUTL5 STOPCHK^RAUTL9
VA Fileman	5	EN^DDIOL ^DIC $$EXTERNAL^DILFD ^DIWP ^DIWW

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RA DISPLAY IMAGPROCINFO RAPINFO

Entry Points

Name	Comments	DBIA/ICR reference
DICS(RAY,Y)	; Display active procedures within an imaging type. ; Input : RAY - Imaging Type ; Y - ien of the procedure ; Output: 1 if a valid selection, 0 if invalid
HDR	; Header for our report
START	; Start processing data & printing to the device here.
DICW	; Display abbreviation with the I-Type
DEV	; Device selection
EN1	; Associated option: [DISPLAY IMAGING PROCEDURE RAD/NUC MED INFORMATION]
KILL	; Kill and quit the application
DESC(RAPRC,RAFLG)	; display the descendants associated with the ; parent procedure
BLD(RA1)	; Build procedure identifier string ; input: 'RA1' = ien of entry in Rad/Nuc Med Procedures file
CMEDIA	; display the contrast media associated with the parent procedure
PROC	; Procedure selection O-M-A

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
HOME^%ZIS	DEV+12
^%ZISC	START+42
^%ZTLOAD	DEV+7
EN^DDIOL	DICW+4
^DIC	EN1+6
$$EXTERNAL^DILFD	CMEDIA+5
^DIWP	START+35, CMEDIA+8
^DIWW	START+37, CMEDIA+8
$$NAMCODE^RACPTMSC	BLD+17
$$BLD^RAPINFO	START+16, DESC+5
HDR^RAPINFO	START+11, START+17, START+34, DESC+6, CMEDIA+7
EN1^RASELCT	PROC+3
$$EOS^RAUTL5	START+17, START+34, DESC+6, CMEDIA+7
$$XTERNAL^RAUTL5	BLD+9
STOPCHK^RAUTL9	HDR+5
$$FMTE^XLFDT	START+11
$$NOW^XLFDT	START+10
$$LOW^XLFSTR	BLD+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN1+2
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !?5,"Request Queued, Task #: ",+$G(ZTSK) Line Location: DEV+9
Function Call: WRITE	Prompt: !?5,"Request cancelled!" Line Location: DEV+11
Function Call: WRITE	Prompt: !,$E(RA0,1,30),?34,RAIDFIER Line Location: START+18
Function Call: WRITE	Prompt: ! Line Location: START+39
Function Call: WRITE	Prompt: ! Line Location: START+42
Function Call: WRITE	Prompt: !?(IOM-$L(RAHDR)\2),RAHDR Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"Run Date/Time: ",RARUNDT,?($S(IOM=132:121,1:68)),"Page: ",RAPG Line Location: HDR+3
Function Call: WRITE	Prompt: !,RALN Line Location: HDR+4
Function Call: WRITE	Prompt: ! Condition for execution: $X Line Location: DESC+7
Function Call: WRITE	Prompt: ?2,$E($P($G(^RAMIS(71,RAPRC,0)),U),1,30),?34,RAIDFIER Line Location: DESC+7
Routine Call	%ZIS Line Location: DEV+12
Routine Call	DIC Line Location: EN1+6
Routine Call	%ZIS Line Location: DEV+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
71.0125	EXTERNAL^DILFD
^RA(79.2 - [#79.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(71	START+6, BLD+9
^RA(79.2 - [#79.2]	BLD+5, DICW+2
^RAMIS(71 - [#71]	START+15, START+22, START+23, START+28, START+30, START+33, START+35, BLD+3, DICS+4, DICS+5 , DESC+7, DESC+9, CMEDIA+3, CMEDIA+4
^TMP($J	EN1+2!, PROC+4, START+12, START+14, KILL+1!
^UTILITY($J	START+32!, CMEDIA+1!, CMEDIA+9!

Label References

Name	Line Occurrences
DESC	START+23, START+28
KILL	EN1+7, PROC+4, DEV+2, DEV+3, START+11, START+42

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%X	KILL+1!
%XX	KILL+1!
%Y	KILL+1!
%YY	KILL+1!
%ZIS	DEV+1*, DEV+2!
%ZIS("A"	DEV+1*
C	KILL+2!
DDH	KILL+2!
DIC	EN1+3*, EN1+6!
DIC("A"	EN1+3*
DIC("S"	EN1+5*
DIC("W"	EN1+4*
DIC(0	EN1+3*
DIROUT	KILL+2!
DIRUT	KILL+2!
DISYS	KILL+3!
DIW	KILL+2!
DIWF	START+31, KILL+2!, CMEDIA+2, CMEDIA+9!
DIWL	START+31, KILL+2!, CMEDIA+2, CMEDIA+9!
DIWR	START+31, KILL+2!, CMEDIA+2, CMEDIA+9!
DIWT	KILL+2!
DN	KILL+2!
DT	BLD+7, BLD+17, DICS+6
DTOUT	KILL+2!
DUOUT	KILL+2!
I	START+2~, START+7*, KILL+3!
IO	START+2
IO("Q"	DEV+3, DEV+12!
IOF	HDR+1
IOM	START+5, START+31, HDR+2, HDR+3, CMEDIA+2
IOSL	START+17, START+34, DESC+6, CMEDIA+7
J	START+2~, START+7*, START+8
POP	DEV+2, KILL+3!
RA	BLD+2~
RA("I"	BLD+3*, BLD+7
RA(0	BLD+3*, BLD+4, BLD+9, BLD+14
RA0	START+2~, START+3, START+12, START+14, START+18
RA1	START+2~, START+13, START+14, START+15, START+16, START+22, START+23, START+28, START+30, START+33 , START+35, BLD~, BLD+3
RA2	START+2~, START+22, START+23, START+25!, START+32, START+33*, START+35
RA21	START+23*, START+25!
RA3	CMEDIA+1, CMEDIA+3, CMEDIA+4, CMEDIA+9!
RA3(0	CMEDIA+4*, CMEDIA+5
RA71	START+2~, START+15*, START+21
RA71ACT	DICS+5~*, DICS+6
RA792	DICW+1~, DICW+2*
RABBRV	DICW+1~, DICW+2*, DICW+3, DICW+4
RABBRV(1	DICW+3, DICW+4
RACPT	BLD+2~, BLD+14, BLD+15, BLD+16, BLD+17, BLD+18, BLD+20
RACPT(0	BLD+14*, BLD+17
RADD	START+2~, START+6*, START+7
RADIC	EN1+1~, PROC+1*, PROC+3
RADIC("A"	PROC+1*
RADIC("S"	PROC+2*
RADIC(0	PROC+2*
RAFLG	DESC~, DESC+4
RAHDR	START+2~, START+4*, HDR+2
RAIABRV	BLD+2~, BLD+6*, BLD+20
RAIABRV(0	BLD+4*, BLD+5
RAIABRV(1	BLD+5*, BLD+6
RAIDFIER	START+2~, START+16, START+18, DESC+5, DESC+7
RAINA	EN1+1~
RAITYPE	EN1+1~, EN1+8*, DICS+4
RALN	START+2~, START+5*, HDR+4
RAMAX	START+2~, START+3, START+8, BLD+13
RANOW	START+2~, START+10*, START+11
RAPG	START+2~, START+3, HDR+1, HDR+3
RAPRC	DESC~, DESC+5, DESC+7, DESC+9, CMEDIA+3, CMEDIA+4
RAPTYPE	BLD+2~, BLD+7, BLD+8, BLD+9, BLD+10, BLD+11, BLD+13*, BLD+15, BLD+20
RAQUIT	EN1+1~
RARUNDT	START+3~, START+11*, HDR+3
RASTR	BLD+2~, BLD+20, BLD+21
RAUTIL	EN1+1~, PROC+3*
RAXIT	START+3~, START+11, START+12, START+14, START+17, START+18, START+21, START+22, START+28, START+33 , START+34, START+35, START+37, HDR+5, DESC+4, DESC+6, DESC+7, CMEDIA+7
RAY	DICS~
U	START+21, DESC+7, CMEDIA+4
X	START+32, START+33!, START+35, KILL+2!, CMEDIA+1!, CMEDIA+5, CMEDIA+8*, CMEDIA+9!
Y	EN1+7, EN1+8, DICS~, DICS+4, DICS+5, DICW+2, KILL+2!
Z	KILL+3!
ZTDESC	DEV+6*, KILL+3!
>> ZTQUEUED	START+1, HDR+5
>> ZTREQ	START+1*
ZTRTN	DEV+4*, KILL+3!
ZTSAVE	KILL+3!
ZTSAVE("^TMP(	$J, ""RA PROCEDURES"", " , DEV+5*
>> ZTSK	DEV+9
>> ZTSK("D"	DEV+8
>> ZTSTOP	HDR+5

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPINFO

Call Graph Total: 15

Caller Graph Total: 2