Routine: RAMAINU

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Local Variables

Information

RAMAINU ;HISC/GJC-Radiology Utility File Maintenance (utility)

Source Information

Source file <RAMAINU.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA Fileman	2	(FILE,UPDATE)^DIE ^DIR
Radiology Nuclear Medicine	1	(AUD70,FILEAU)^RAMAINU1

Caller Graph

Caller Graph Total: 9

Package	Total	Caller Graph
Radiology Nuclear Medicine	9	RACTEX3 RACTTK5 RAEDCN RAEDPT RAMAG06A RAMAIN2 RAMAINU1 RASTED RAUTL21

Entry Points

Name	Comments	DBIA/ICR reference
CPT(DA,RAX)	;Ask for CPT Code when the 'Procedure Enter/Edit' option
UPXCM(DA,X)	;set the 'CONTRAST MEDIA USED?' (#10) field to 'No' if contrast
TRK70CMB(RADFN,RADTI,RACNI,RACMB4)	;Contrast Medium/Media is used with
PRGCM(DA)	;Purge contrast media data related to an exam when the user
STUFCM70(DA,RAPRI)	;If the exam record indicates that a contrast medium
TRKCMB(DA,RACMB4)	;Contrast Medium/Media is used with this procedure.
TRK70CMA(RADFN,RADTI,RACNI,RATRKCMB)	;Contrast Medium/Media is used with
TRKCMA(DA,RATRKCMB,RATRKCMA,RACMDIF)	;Contrast Medium/Media is used with this

Name	Field # of Occurrence
FILE^DIE	CPT+17
UPDATE^DIE	UPXCM+8, STUFCM70+17
^DIR	CPT+5
AUD70^RAMAINU1	TRK70CMA+18, TRK70CMA+22, TRK70CMA+26, TRK70CMA+35
FILEAU^RAMAINU1	TRKCMA+18, TRKCMA+24, TRKCMA+29, TRKCMA+38

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,"Enter 'Y' to accept the CPT Code, or 'N' to reject the CPT Code or '^' to",!?3,"exit without selecting a CPT Code." Line Location: CPT+12
Function Call: WRITE	Prompt: !?5,"Note: If an erroneous CPT Code is accepted it cannot be changed; the",!?5,"procedure must be inactivated." Line Location: CPT+13
Routine Call	DIE Line Location: UPXCM+8 STUFCM70+17
Routine Call	DIE Line Location: CPT+17
Routine Call	DIR Line Location: CPT+5

Name	Line Occurrences (* Changed, ! Killed)
^RADPT - [#70]	TRK70CMB+10, TRK70CMB+11, TRK70CMA+9, TRK70CMA+10, PRGCM+8, PRGCM+10!, STUFCM70+14
^RAMIS(71 - [#71]	TRKCMB+8, TRKCMB+9, TRKCMA+8, TRKCMA+9, STUFCM70+13, STUFCM70+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	CPT~, CPT+17, TRKCMB~, TRKCMB+8, TRKCMB+9, TRKCMA~, TRKCMA+8, TRKCMA+9, TRKCMA+18, TRKCMA+24 , TRKCMA+29, TRKCMA+38, PRGCM~, PRGCM+8, PRGCM+10, UPXCM~, UPXCM+7, STUFCM70~, STUFCM70+15
DA(1	PRGCM+8, PRGCM+10, UPXCM+7, STUFCM70+15
DA(2	PRGCM+8, PRGCM+10, UPXCM+7, STUFCM70+15
DIR	CPT+3~
DIR(0	CPT+5*
DIROUT	CPT+3~
DIRUT	CPT+3~, CPT+4, CPT+5
DTIME	CPT+9
DTOUT	CPT+3~
DUOUT	CPT+3~
I	TRKCMB+7~, TRKCMB+8, TRKCMB+9, TRK70CMB+9~, TRK70CMB+10, TRK70CMB+11, TRKCMA+7~, TRKCMA+8, TRKCMA+9, TRKCMA+35* , TRKCMA+36, TRK70CMA+8~, TRK70CMA+9, TRK70CMA+10, TRK70CMA+32, TRK70CMA+33, STUFCM70+12~, STUFCM70+13, STUFCM70+16
J	TRKCMA+7~, TRKCMA+36, TRK70CMA+8~, TRK70CMA+33
K	TRK70CMA+8~, TRK70CMA+32, TRK70CMA+33, TRK70CMA+35
RACMB4	TRKCMB~, TRKCMB+7, TRKCMB+9, TRK70CMB~, TRK70CMB+9, TRK70CMB+11
RACMDIF	TRKCMA~, TRKCMA+7, TRKCMA+13, TRKCMA+18, TRKCMA+24, TRKCMA+29, TRKCMA+35, TRKCMA+36, TRKCMA+38
RACNI	TRK70CMB~, TRK70CMB+10, TRK70CMB+11, TRK70CMA~, TRK70CMA+9, TRK70CMA+10, TRK70CMA+18, TRK70CMA+22, TRK70CMA+26, TRK70CMA+35 , STUFCM70+14
RAD3	STUFCM70+12!, STUFCM70+14*, STUFCM70+15, STUFCM70+17!
RADFN	TRK70CMB~, TRK70CMB+10, TRK70CMB+11, TRK70CMA~, TRK70CMA+9, TRK70CMA+10, TRK70CMA+18, TRK70CMA+22, TRK70CMA+26, TRK70CMA+35 , STUFCM70+14
RADTI	TRK70CMB~, TRK70CMB+10, TRK70CMB+11, TRK70CMA~, TRK70CMA+9, TRK70CMA+10, TRK70CMA+18, TRK70CMA+22, TRK70CMA+26, TRK70CMA+35 , STUFCM70+14
RAFDA	CPT+3~
RAFDA(71	CPT+17*
RAIENS	UPXCM+7, UPXCM+8, UPXCM+9!, STUFCM70+12!, STUFCM70+15, STUFCM70+16, STUFCM70+17!
RAPRI	STUFCM70~, STUFCM70+13, STUFCM70+16
RASFM	UPXCM+7!, UPXCM+9!, STUFCM70+12!, STUFCM70+17!
RASFM(	UPXCM+8, STUFCM70+16
RATRKCMA	TRKCMA~, TRKCMA+7, TRKCMA+9, TRKCMA+13, TRKCMA+17, TRKCMA+18, TRKCMA+23, TRKCMA+24, TRKCMA+29, TRKCMA+36 , TRKCMA+38, TRK70CMA+8, TRK70CMA+10, TRK70CMA+14, TRK70CMA+18, TRK70CMA+22, TRK70CMA+26, TRK70CMA+33, TRK70CMA+35
RATRKCMB	TRKCMA~, TRKCMA+13, TRKCMA+17, TRKCMA+23, TRKCMA+29, TRKCMA+35, TRKCMA+36, TRK70CMA~, TRK70CMA+14, TRK70CMA+18 , TRK70CMA+22, TRK70CMA+26, TRK70CMA+32, TRK70CMA+33
RAX	CPT~, CPT+8
RAYN	CPT+3~, CPT+4, CPT+9, CPT+10, CPT+11, CPT+12, CPT+14, CPT+15, CPT+17
U	CPT+8, CPT+17, TRKCMB+9, TRK70CMB+11, TRKCMA+9, TRK70CMA+10, STUFCM70+16
X	CPT+3~, CPT+5!, UPXCM~, UPXCM+8
Y	CPT+3~, CPT+5!, CPT+8, CPT+17

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAMAINU

Call Graph Total: 3

Caller Graph Total: 9