Routine: RAMAIN2

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Radiology Nuclear Medicine	9	$$USUAL^RADD2 (TRKCMA,TRKCMB)^RAMAINU CMINTEG^RAMAINU1 PROC^RAO7MFN UPDATP^RAO7UTL $$ORQUIK^RAORDU ^RAPERR $$EN1^RAPSAPI EN1^RAUTL17
VA Fileman	5	EN^DDIOL ^DIC ^DIE ^DIK ^DIR
Kernel	2	$$DT^XLFDT MES^XPDUTL

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RA COMMON PROCEDURE RA PROCEDURE

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA COMMON PROCEDURE RA PROCEDURE

Entry Points

Name	Comments	DBIA/ICR reference
13	;;Rad/Nuc Med Common Procedure File Enter/Edit ; RA COMMON PROCEDURE option
RESEQ	;Resequence the common procedure list
DELRADE(RADA)	; Delete the Default Radiopharmaceuticals multiple
VRDIO(RADA)	; Validate the 'Usual Dose' field within the 'Default Radiopha- ; rmaceuticals' multiple. 'Usual Dose' must fall within the 'Low Adult ; Dose' & 'High Adult Dose' range. This subroutine will display the ; Radiopharmaceutical in question along with the values in question if ; inconsistencies are found.
131
2	;;Procedure Enter/Edit ; * This subroutine once resided in RAMAIN i.e, '2^RAMAIN'. * ; RA PROCEDURE option
EXIT
Q13
LOW(X)	; Find the lowest available sequence number for a procedure within ; a specific Imaging Type. Seq. #'s range from 1 to 40. If the ; range changes in the DD i.e, ^DD(71.3,3, this code as well as the ; code if EN3^RAUTL18 must also be altered. ; If RAHIT is passed back as "", there is no available sequence number.

External References

Name	Field # of Occurrence
EN^DDIOL	VRDIO+7, VRDIO+14
^DIC	2+9, 131+3
^DIE	2+24, 2+40, 2+53, 2+58, 131+13, RESEQ+12, DELRADE+6
^DIK	2+47
^DIR	2+81
$$USUAL^RADD2	VRDIO+11
TRKCMA^RAMAINU	2+31
TRKCMB^RAMAINU	2+22
CMINTEG^RAMAINU1	2+29
PROC^RAO7MFN	2+64, 131+19, 131+27
UPDATP^RAO7UTL	2+68
$$ORQUIK^RAORDU	2+64, 131+18, 131+26
^RAPERR	2+82
$$EN1^RAPSAPI	VRDIO+13
EN1^RAUTL17	13+3
$$DT^XLFDT	2+52
MES^XPDUTL	RESEQ+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: 2+9
Function Call: WRITE	Prompt: !?5,"This record is currently being edited by another user." Line Location: 2+16
Function Call: WRITE	Prompt: !?5,"Try again later!",$C(7) Line Location: 2+17
Function Call: WRITE	Prompt: !?5,$C(7),"...no CPT code entered..." Line Location: 2+38
Function Call: WRITE	Prompt: !?5,"...will change type to a 'broad' procedure.",! Line Location: 2+39
Function Call: WRITE	Prompt: !?5,$C(7),"...no CPT code entered..." Line Location: 2+45
Function Call: WRITE	Prompt: !?5,"...will delete the record at this time.",! Line Location: 2+46
Function Call: WRITE	Prompt: !!?5,"Inactivating this parent procedure - no descendents.",!,$C(7) Line Location: 2+51
Function Call: WRITE	Prompt: !!?5,"...CPT code deleted because "_$S($P(RAPROC(0),U,6)="B":"Broad",1:"Parent")_" procedures",!?5,"should not have CPT codes.",!,$C(7) Line Location: 2+59
Function Call: WRITE	Prompt: ! Line Location: 2+81
Function Call: WRITE	Prompt: ! Line Location: 131+3
Function Call: WRITE	Prompt: !?5,"This record is currently being edited by another user." Line Location: 131+8
Function Call: WRITE	Prompt: !?5,"Try again later!",$C(7) Line Location: 131+9
Function Call: WRITE	Prompt: !!?5,"Resequencing the Rad/Nuc Med Common Procedure List" Line Location: RESEQ+6
Function Call: WRITE	Prompt: " Done!" Line Location: RESEQ+19
Function Call: WRITE	Prompt: !!?3,"Deleting default radiopharmaceuticals for this procedure...",! Line Location: DELRADE+2
Routine Call	DIE Line Location: 2+24 2+40 2+53 2+58 131+13 RESEQ+12 DELRADE+6
Routine Call	DIC Line Location: 2+9 131+3
Routine Call	DIR Line Location: 2+81

FileNo	Call Tags
^RAMIS(71 - [#71]	Classic Fileman Calls
^RAMIS(71.3 - [#71.3]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^RA(79.2 - [#79.2]	2+55
^RAMIS(	2+14, 2+66, 131+6, 131+29
^RAMIS(71 - [#71]	2+20, 2+25, 2+32, 2+33, 2+49, 2+55, 2+68, VRDIO+8, VRDIO+9, DELRADE+3
^RAMIS(71.3 - [#71.3]	131+14, 131+20, 131+23, RESEQ+8, RESEQ+10, LOW+7

Name	Line Occurrences
$$LOW	131+12
131	131+30
DELRADE	2+32
EXIT	2+81
Q13	13+3, 131+4, 131+7
RESEQ	131+4
VRDIO	2+55

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	2+37!, 2+44!, 2+57!, 2+61!, 131+22!, DELRADE+4!, DELRADE+8!
%X	2+61!, 131+22!, DELRADE+4!, DELRADE+8!
%Y	2+61!, 131+22!, DELRADE+4!, DELRADE+8!
C	2+37!, 2+44!, 2+61!, 131+22!
CNT	RESEQ+1~, RESEQ+7, RESEQ+11
D	2+9!, 2+10!, 2+50!, 2+53!, 2+57!, 2+61!, 131+3!, 131+22!, RESEQ+1~, DELRADE+4! , DELRADE+8!
D0	2+37!, 2+44!, 2+50!, 2+53!, 2+57!, 2+61!, 131+22!, RESEQ+1~, DELRADE+4!, DELRADE+8!
D1	2+50!, 2+53!, 2+61!
DA	2+7!, 2+11, 2+22, 2+40, 2+47, 2+50!, 2+52, 2+53!, 2+57!, 2+58* , 2+61!, 131+13, 131+22!, RESEQ+1~, RESEQ+11, DELRADE+4!, DELRADE+5*, DELRADE+8!
DA(1	DELRADE+5*
DD	2+7!, 2+9!
DDC	Q13!
DDH	Q13!
DE	2+37!, 2+44!, 2+57!, 2+61!, 131+22!
DI	2+37!, 2+44!, 2+50!, 2+53!, 2+61!, 131+22!, RESEQ+1~, DELRADE+4!, DELRADE+8!
DIC	2+7!, 2+8, 2+9!, 2+50!, 2+53!, 2+57!, 131, 131+3!, RESEQ+1~, DELRADE+4! , DELRADE+8!
DIC("DR"	2+8*
DIC("S"	131+1*
DIC("W"	131+2*
DIC(0	2+8, 131
DIE	2+24, 2+37!, 2+40, 2+50!, 2+52, 2+53!, 2+57!, 2+58, 2+61!, 131+13* , 131+22!, RESEQ+1~, RESEQ+7, DELRADE+4!, DELRADE+5, DELRADE+8!
DIK	2+44!, 2+47*!
DINUM	2+7!, 2+9!
DIR	2+71!, 2+81!
DIR("?"	2+74, 2+75, 2+76, 2+77, 2+78, 2+79, 2+80*
DIR("A"	2+73*
DIR("B"	2+72*
DIR(0	2+72*
>> DIRUT	2+81
DISYS	Q13!
DLAYGO	2+7!, 2+8, 2+9!, 131, 131+3!
DO	2+7!, 2+9!
DQ	2+37!, 2+44!, 2+50!, 2+53!, 2+57!, 2+61!, 131+22!, RESEQ+1~, DELRADE+4!, DELRADE+8!
DR	2+24, 2+37!, 2+40, 2+44!, 2+50!, 2+52, 2+53!, 2+57!, 2+58, 2+61! , 131+13, 131+22!, RESEQ+1~, RESEQ+12, DELRADE+4!, DELRADE+6*, DELRADE+8!
DT	2+21, 2+34, 2+52
H	RESEQ+1~
I	Q13!, RESEQ+1~, RESEQ+7, RESEQ+8, RESEQ+10, RESEQ+11~
J	RESEQ+1~, RESEQ+9, RESEQ+10, RESEQ+11~
POP	Q13!
RA	LOW+5~, LOW+6*, LOW+7, LOW+8
RA713	Q13!
RAASK	2+5~
RACMDIFF	2+7!, 2+31, 2+71!
RACTIVE	2+3~, 2+20, 2+21, 2+33, 2+34
RADA	2+11, 2+14, 2+20, 2+25, 2+29, 2+31, 2+32, 2+33, 2+40, 2+47 , 2+49, 2+52, 2+55, 2+58, 2+66!, EXIT!, 13+2~, 131+6, 131+13, 131+14 , 131+20, 131+29, VRDIO~, VRDIO+7, VRDIO+8, VRDIO+9, VRDIO+11, DELRADE~, DELRADE+3, DELRADE+5
RADA(1	VRDIO+7*, VRDIO+8, VRDIO+9
RADA1	DELRADE+1~, DELRADE+3, DELRADE+5
RADIO	2+5~
RAENALL	2+3~, 2+4, 2+64, 13+2~, 131+19, 131+27
RAFILE	2+3~, 2+11, 2+14, 2+64, 2+66, 13+2~, 131+6, 131+19, 131+27, 131+29
RAHIT	LOW+5~, LOW+6, LOW+8, LOW+10
RAIMAG	2+61!
RAIMGTYI	13+2~, 13+3*, 131+12, RESEQ+8, RESEQ+10
RALOW	13+2~, 131+12*
RAMIS	2+61!
RAMIS713	13+2~
RAMIS713(0	131+14*, 131+18
RANEW71	2+4, 2+13, 2+36, 2+43, EXIT!
RANUC	VRDIO+7~
RANUC(0	VRDIO+9*, VRDIO+10, VRDIO+11, VRDIO+13
RAPNM	2+19*, 2+25!
RAPROC	2+61!
RAPROC(0	2+25*, 2+29, 2+32, 2+36, 2+43, 2+49, 2+55, 2+56, 2+59
RAPTY	2+5~
RAROUTE	2+5~
RARRY	VRDIO+12~, VRDIO+14
RARRY(1	VRDIO+12, VRDIO+13
RARRY(2	VRDIO+14*
RASTAT	2+3~, 2+21, 2+34, 2+49, 2+53, 2+64, 13+2~, 131+11, 131+12, 131+19* , 131+20, 131+23, 131+26, 131+27
RATRKCMA	2+7!, 2+31, 2+71!
RATRKCMB	2+7!, 2+22, 2+31, 2+71!
RAXIT	2+3~, 2+4, 2+6, 2+10, 2+17*
RAY	2+3~, 2+11, 2+64, 2+68, 13+2~, 131+6, 131+18, 131+19, 131+20*, 131+23 , 131+27
TXT	RESEQ+1~, RESEQ+17
TXT(1	RESEQ+3*
TXT(2	RESEQ+4, RESEQ+16
U	2+13, 2+19, 2+36, 2+43, 2+49, 2+53, 2+55, 2+56, 2+59
X	2+10!, 2+61!, EXIT!, 131+3!, 131+22!, RESEQ+1~, LOW~, LOW+7, DELRADE+4!, DELRADE+8!
>> XPDNM	RESEQ+2, RESEQ+12, RESEQ+15
Y	2+10!, 2+11, 2+13, 2+61!, 2+82, EXIT!, 13+3, 131+4, 131+6, 131+22! , DELRADE+4!, DELRADE+8!
Y(0	2+19, 131+11

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAMAIN2

Information

Source Information

Call Graph

Call Graph Total: 16

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: