Routine: RAMAINP

Information

RAMAINP ;HISC/GJC AISC/TMP,RMO-Utility Files Print ;9/22/98 15:26

Source Information

Source file <RAMAINP.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
Radiology Nuclear Medicine	2	KILL^RAMAINP $$IMG^RAUTL12
VA Fileman	1	EN1^DIP

Caller Graph

Caller Graph Total: 19

Package	Total	Caller Graph
Radiology Nuclear Medicine	19	RA ALPHALIST RA COMPRINT RA DIAGP RA DISTP RA FILMP RA FLASHFORMP RA INACPRCLONG RA INACPRCSHORT RA MAJORAMISP RA MODIFIERP RA PROCLONG RA PROCMSGPRINT RA PROCSERIES RA PROCSHORT RA SHARINGP RA STANDPRINT RAMAINP RAMAINP1 RARTUVR

Entry Points

Name	Comments	DBIA/ICR reference
ENTASK	; Entry point for tasked job. ; All necessary variables are defined by the code calling ENTASK.
132
KILL	; Kill locals, and set ZTREQ if applicable.
3	;;Major AMIS Code Print
ZIS(RA)	; Select a device ; RAPOP=device selection successful ^ '^%ZTLOAD' called 1-yes
IMG(RA)	; Screens procedures by I-Type. Called from the following ; subroutines: 2,9,10,11,12 & 15. Contained in variable DIS(0)! ; 'RA' is the ien of file 71. ; return '1' if procedure is correct I-Type, else '0'!
2	;;Long Active Procedure List
5	;;Diagnostic Code Print
4	;;Film Sizes Print
7	;;Complication Type Print
6	;;Flash Card/Label Formatter Print
9	;;Short Active Procedure List
8	;;Contract/Sharing Agreements Print
11	;;Short Inactive Procedure List
10	;;Long Inactive Procedure List
13	;;Standard Reports List
12	;;Series Procedures Only
15	;;Alpha List of Active Procedures
14	;;Procedure Modifiers Print
17	;;Rad/Nuc Med Procedure Message List
16	;;Reports Distribution List
ZTSAVE	; Save variables for tasked job

External References

Name	Field # of Occurrence
^%ZIS	ZIS+3
HOME^%ZIS	2+9, 9+8, 10+9, 11+9, 12+9, 15+7, ZIS+9
^%ZTLOAD	ZIS+7
EN1^DIP	3+1, 4+2, 5+1, 6+1, 7+1, 8+1, 13+1, 14+2, 16+1, 17+1 , ENTASK+3
KILL^RAMAINP	ENTASK+4
$$IMG^RAUTL12	2+1, 9+1, 10+1, 11+2, 12+2, 15+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: 2+8
Function Call: WRITE	Prompt: ! Line Location: 9+7
Function Call: WRITE	Prompt: ! Line Location: 10+8
Function Call: WRITE	Prompt: ! Line Location: 11+8
Function Call: WRITE	Prompt: ! Line Location: 12+8
Function Call: WRITE	Prompt: ! Line Location: 15+6
Function Call: WRITE	Prompt: !,"This report requires a 132 column output device." Line Location: 132+0
Function Call: WRITE	Prompt: ! Line Location: ZIS+3
Function Call: WRITE	Prompt: !?3,"Request Queued, Task #: ",$G(ZTSK) Line Location: ZIS+8
Routine Call	%ZIS Line Location: 2+9 9+8 10+9 11+9 12+9 15+7 ZIS+9
Routine Call	%ZIS Line Location: ZIS+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(34 - [#34]	Classic Fileman Calls
^RAMIS(71 - [#71]	Classic Fileman Calls
^RAMIS(71.1 - [#71.1]	Classic Fileman Calls
^RAMIS(71.2 - [#71.2]	Classic Fileman Calls
^RAMIS(71.4 - [#71.4]	Classic Fileman Calls
^RA(74.1 - [#74.1]	Classic Fileman Calls
^RABTCH(74.3 - [#74.3]	Classic Fileman Calls
^RA(78.1 - [#78.1]	Classic Fileman Calls
^RA(78.2 - [#78.2]	Classic Fileman Calls
^RA(78.3 - [#78.3]	Classic Fileman Calls
^RA(78.4 - [#78.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(79.2 - [#79.2]	IMG+6
^RAMIS(71 - [#71]	IMG+4
^TMP($J	KILL+1!, IMG+7, ZTSAVE+5

Label References

Name	Line Occurrences
$$ZIS	2+8, 9+7, 10+8, 11+8, 12+8, 15+6
132	2+8, 9+7, 10+8, 11+8, 12+8, 15+6
ENTASK	2+11, 9+10, 10+11, 11+11, 12+11, 15+9
KILL	2+1, 2+9, 2+10, 9+1, 9+8, 9+9, 10+1, 10+9, 10+10, 11+1 , 11+2, 11+9, 11+10, 12+1, 12+9, 12+10, 15+1, 15+7, 15+8
ZTSAVE	ZIS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	7+1!
%X	7+1!, KILL+1!
%XX	KILL+1!
%Y	7+1!, KILL+1!
%YY	KILL+1!
%ZIS	KILL+2!, ZIS+3!*
%ZIS("A"	ZIS+3*
BY	2+4, 3+1!, 4+1, 4+2!, 5+1!, 6+1!, 7+1!, 8+1!, 9+4, 10+4* , 11+5, 12+4, 13+1, 13+2!, 14+1, 14+3!, 15+4, 16+1!, 17+1*!, KILL+2!
D0	17+1!
DD00	14+3!
DHD	2+5, 3+1!, 5+1!, 6+1!, 7+1!, 8+1!, 9+5, 10+5, 11+6, 12+5 , 13+2!, 14+2*, 14+3!, 16+1!, 17+1!, KILL+2!, ZTSAVE+3
DHIT	2+6, 10+6, 12+6*, KILL+2!, ZTSAVE+4
DIC	2+3, 3+1, 4+1, 5+1, 6+1, 7+1, 8+1, 9+3, 10+3, 11+4 , 12+4, 13+1, 14+1, 15+3, 16+1, 17+1, KILL+2!
DIJ	4+2!
DIS	KILL+2!, ZTSAVE+2
DIS(0	2+7, 9+6, 10+7, 11+7, 12+7, 15+5
DP	4+2!
DTOUT	KILL+2!
DUOUT	KILL+2!
FLDS	2+3, 3+1!, 4+1, 4+2!, 5+1!, 6+1!, 7+1!, 8+1!, 9+3, 10+3* , 11+4, 12+4, 13+1, 13+2!, 14+1, 14+3!, 15+3, 16+1!, 17+1*!, KILL+2!
FR	2+4, 3+1!, 4+1, 4+2!, 5+1!, 6+1!, 7+1!, 8+1!, 9+4, 10+4* , 11+5, 13+1, 13+2!, 14+1, 14+3!, 15+4, 16+1!, 17+1!, KILL+2!
I	KILL+4!, ZTSAVE+1~*
IO("Q"	ZIS+5, ZIS+6!
IOM	ENTASK+2
ION	ENTASK+2
IOP	ENTASK+2*, ZIS+3!
IOSL	ENTASK+2
IOST	ENTASK+2
L	2+3, 3+1, 4+1, 5+1, 6+1!, 7+1, 8+1, 9+3, 10+3, 11+4 , 12+4, 13+1, 14+1, 15+3, 16+1, 17+1, KILL+2!
P	4+2!
POP	3+1!, 4+2!, 5+1!, 6+1!, 7+1!, 8+1!, 13+2!, 14+3!, 16+1!, KILL+2! , KILL+4!, ZIS+4
RA	IMG~, IMG+4, ZIS~, ZIS+6
RA1	2+1~, 9+1~, 10+1~, 12+1~, 15+1~
RA2	2+1~, 9+1~, 10+1~, 12+1~, 15+1~
RA3	2+1~, 10+1~, 12+1~
RADIO	KILL+4!
RAI	IMG+4~*, IMG+5, IMG+6, IMG+7
RAII	IMG+4~, IMG+6*, IMG+7
RAIOP	KILL+2!, ENTASK+2*
RALINE	KILL+2!
RAPHARM	KILL+4!
RAPOP	2+8, 2+9, 2+10, 9+7, 9+8, 9+9, 10+8, 10+9, 10+10, 11+8 , 11+9, 11+10, 12+8, 12+9, 12+10, 15+6, 15+7, 15+8, KILL+2!, ZIS+2~ , ZIS+4, ZIS+5, ZIS+7, ZIS+11
RAX	2+1~, 9+1~, 10+1~, 11+1~, 11+2, 12+1~, 12+2, 15+1~
RAY	2+1~, 2+2, 2+8, 9+1~, 9+2, 9+7, 10+1~, 10+2, 10+8, 11+1~ , 11+3, 11+8, 12+1~, 12+3, 12+8, 15+1~, 15+2, 15+6
TO	2+4, 3+1!, 4+1, 4+2!, 5+1!, 6+1!, 7+1!, 8+1!, 9+4, 10+4* , 11+5, 13+1, 13+2!, 14+1, 14+3!, 15+4, 16+1!, 17+1!, KILL+3!
X	4+2!, 8+1!, 13+2!, 16+1!, KILL+3!
X1	16+1!
Y	KILL+3!
ZTDESC	KILL+3!, ZIS+6*
>> ZTQUEUED	KILL+5
>> ZTREQ	KILL+5*
ZTRTN	KILL+3!, ZIS+6*
ZTSAVE	KILL+3!
ZTSAVE(	ZTSAVE+1*
ZTSAVE("DHD"	ZTSAVE+3*
ZTSAVE("DHIT"	ZTSAVE+4*
ZTSAVE("DIS("	ZTSAVE+2*
ZTSAVE("^TMP(	$J, ""RA I-TYPE"", " , ZTSAVE+5*
ZTSK	7+1!, ZIS+8

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAMAINP

Call Graph Total: 5

Caller Graph Total: 19