Routine: RAMAINP1

Information

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

Source Information

Source file <RAMAINP1.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	5	HOME^%ZIS $$S^%ZTLOAD $$FMTE^XLFDT $$CJ^XLFSTR EN^XUTMDEVQ
Radiology Nuclear Medicine	3	($$BASICMOD,$$NAMCODE)^RACPTMSC ($$ZIS,132,ENTASK,KILL)^RAMAINP $$IMG^RAUTL12
VA Fileman	2	$$EXTERNAL^DILFD ^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RA PROCMEDIA RA PROCPARENT

Entry Points

Name	Comments	DBIA/ICR reference
CMPRT	; Entry Point: print procedures that are associated with contrast ; media/medium. ; kill ^TMP($J) and select procedure i-types
HDR	; print header
18	;;Parent Procedure List
PRTCM	; Print procedures that are associated with contrast media/medium.
EOS	; end of screen dialog
CMDISP(RAZ71)	;Display contrast media data for descendents when the 'Parent
KILL	; kill and quit
ACTIVE()	; Use the ^DIR call to ask the user if active, inactive, or ; both inactive & active procedures are to be included.

External References

Name	Field # of Occurrence
HOME^%ZIS	18+12
$$S^%ZTLOAD	PRTCM+10
$$EXTERNAL^DILFD	PRTCM+29, PRTCM+33, PRTCM+34, CMDISP+9
^DIR	ACTIVE+6, EOS+3
$$BASICMOD^RACPTMSC	PRTCM+28
$$NAMCODE^RACPTMSC	PRTCM+24
$$ZIS^RAMAINP	18+11
132^RAMAINP	18+11
ENTASK^RAMAINP	18+14
KILL^RAMAINP	18+2, 18+12, 18+13
$$IMG^RAUTL12	18+2, CMPRT+3
$$FMTE^XLFDT	PRTCM+5
$$CJ^XLFSTR	KILL+2, HDR+2, HDR+5
EN^XUTMDEVQ	CMPRT+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: 18+11
Function Call: WRITE	Prompt: !!,"Task Number: "_ZTSK,! Line Location: CMPRT+16
Function Call: WRITE	Prompt: ! Line Location: PRTCM+27
Function Call: WRITE	Prompt: ?52,$$EXTERNAL^DILFD(71,100,"",RAY("I")) Line Location: PRTCM+34
Function Call: WRITE	Prompt: ! Line Location: ACTIVE+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(RAHD,IOM),!,"Date: ",RADT,?69,"Page ",RAPG Line Location: HDR+2
Function Call: WRITE	Prompt: !,"CPT",?19,"Procedure",!?2,"CPT Modifiers",?50,"Contrast Media",!,"Procedure Type",?24,"Imaging Type" Line Location: HDR+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(RALINE,IOM) Line Location: HDR+5
Function Call: WRITE	Prompt: !?7,"Contrast Medium" Line Location: CMDISP+5
Function Call: WRITE	Prompt: ?40,$$EXTERNAL^DILFD(71.0125,.01,"",RAX) Line Location: CMDISP+9
Routine Call	%ZIS Line Location: 18+12
Routine Call	DIR Line Location: ACTIVE+6 EOS+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RAMIS(71 - [#71]	Classic Fileman Calls, EXTERNAL^DILFD
71.0125	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RAMIS(71 - [#71]	PRTCM+9, PRTCM+11, PRTCM+14, PRTCM+28, PRTCM+29, CMDISP+7, CMDISP+8
^TMP($J	CMPRT+3!, CMPRT+5, CMPRT+6, CMPRT+7!

Label References

Name	Line Occurrences
$$ACTIVE	18+3, CMPRT+11
EOS	PRTCM+25, PRTCM+30, PRTCM+32
HDR	PRTCM+7

Naked Globals

Name	Field # of Occurrence
^(	PRTCM+28, PRTCM+29

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%L	CMPRT+17!
%X	CMPRT+17!
%Y	CMPRT+17!
>> BY	18+6*
DDH	CMPRT+17!
>> DHD	18+6*
>> DHIT	18+10*
>> DIC	18+5*
DIR	ACTIVE+2!, ACTIVE+7!, EOS+2!, EOS+4!
DIR("?"	ACTIVE+4, ACTIVE+5
DIR("A"	ACTIVE+3*
DIR("B"	ACTIVE+3*
DIR(0	ACTIVE+3, EOS+3
DIROUT	ACTIVE+2!, ACTIVE+7!
DIRUT	ACTIVE+2!, ACTIVE+6, ACTIVE+7!, EOS+2!, EOS+3, EOS+4!
>> DIS(0	18+7, 18+8, 18+9*
DT	PRTCM+5, PRTCM+17, PRTCM+22, PRTCM+24, PRTCM+28
DTOUT	ACTIVE+2!, ACTIVE+7!, EOS+2!, EOS+4!
DUOUT	ACTIVE+2!, ACTIVE+7!, EOS+2!, EOS+4!
>> FLDS	18+5*
>> FR	18+10*
I	CMPRT+14*, CMPRT+15!
IOF	PRTCM+6, HDR+1
IOM	PRTCM+4, KILL+2, HDR+2, HDR+5
IOSL	PRTCM+25, PRTCM+30, PRTCM+32
IOST	PRTCM+6, EOS+1
>> L	18+5*
POP	CMPRT+17!
RA1	18+1~
RA2	18+1~
RA3	18+1~
RACM	PRTCM+26, PRTCM+27, PRTCM+29, KILL+4!
RADCM	PRTCM+26, PRTCM+27, PRTCM+28, KILL+4!
RADT	PRTCM+5*, KILL+4!, HDR+2
RAHD	PRTCM+2, PRTCM+3, KILL+4!, HDR+2
RAITYP	CMPRT+4, CMPRT+6, CMPRT+12!, CMPRT+17!, PRTCM+13, KILL+4!
RALBL	CMDISP+6~, CMDISP+9
RALINE	PRTCM+4*, KILL+4!, HDR+5
RAPG	PRTCM+5, KILL+4!, HDR+1, HDR+2
>> RAPOP	18+11*, 18+12, 18+13
RASTAT	18+3, 18+4!, 18+6, 18+7, 18+8, 18+9, 18+10!, CMPRT+11, CMPRT+12!, CMPRT+17! , PRTCM+3, PRTCM+17, PRTCM+19, PRTCM+22, PRTCM+34, HDR+4
RAX	18+2~, CMPRT+3!, CMPRT+4, CMPRT+5, CMPRT+6, CMPRT+7, CMPRT+12!, CMPRT+17!, CMDISP+6~, CMDISP+8* , CMDISP+9
RAXIT	PRTCM+7, PRTCM+9, PRTCM+10, PRTCM+25, PRTCM+27, PRTCM+30, PRTCM+32, KILL+4!, EOS+1, EOS+3*
RAY	18+2~, CMPRT+6, CMPRT+12!, CMPRT+17!, PRTCM+7, PRTCM+9, PRTCM+11, PRTCM+14, PRTCM+28, PRTCM+29 , KILL+4!, CMDISP+6~, CMDISP+7*, CMDISP+8, CMDISP+9
RAY("I"	PRTCM+14*, PRTCM+17, PRTCM+19, PRTCM+22, PRTCM+34
RAY(0	PRTCM+11*, PRTCM+13, PRTCM+24, PRTCM+33, KILL+2
RAZ71	CMDISP~, CMDISP+7, CMDISP+8
>> TO	18+10*
U	PRTCM+13, PRTCM+24, PRTCM+28, PRTCM+29, PRTCM+33, CMDISP+8
X	CMPRT+17!, ACTIVE+2!, ACTIVE+7!
Y	CMPRT+17!, ACTIVE+2~, ACTIVE+6*, ACTIVE+8
>> ZTQUEUED	PRTCM+1
>> ZTREQ	PRTCM+1*
ZTSAVE	CMPRT+15, CMPRT+17!
ZTSAVE(	CMPRT+14*
ZTSK	CMPRT+16, CMPRT+17!
>> ZTSTOP	PRTCM+10*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAMAINP1

Call Graph Total: 10

Caller Graph Total: 2