Routine: RANPRO

Package	Total	Call Graph
Radiology Nuclear Medicine	8	$$USUAL^RADD2 (21,22)^RAMAIN2 (TRKCMA,TRKCMB)^RAMAINU CMINTEG^RAMAINU1 (EN,MSGRAN)^RANPRO4 PROC^RAO7MFN $$ORQUIK^RAORDU $$EN1^RAPSAPI
VA FileMan	7	EN^DDIOL ^DIC FILE^DICN ^DIE (,IX)^DIK GETS^DIQ ^DIR
Kernel	1	$$DT^XLFDT

Name	Comments	DBIA/ICR reference
EN	; Main entry point - driver for PROCEDURE prompt loop
EN2	; Loop entry point for PROCEDURE prompt
TEMP	;ENTER THE TEMPORARY NEW PROCEDURE INTO 71.11
MV	;MOVE TEMPORARY ENTRY TO PERMANENT ENTRY ; changes for RA5.0138
ORDITM	;ORDERABLE ITEM ENTRY
TD	;DELETE THE TEMPORARY FILE ENTRY
END	;ROUTINE END
OLD	;EXISTING PROCEDUREX ^%
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.
DELRADE(RADA)	; Delete the Default Radiopharmaceuticals multiple
SEARCH(RAINPUT,RAOUTPUT)	; Search file 71 for RAINPUT ; INPUT : RAINPUT = Input value to use in search of file 71 ; OUTPUT : RAOUTPUT = Y array, from ^DIC, of entry selected from file 71

Name	Field # of Occurrence
EN^DDIOL	EN2+14, VRDIO+7, VRDIO+14
^DIC	OLD+3, SEARCH+9
FILE^DICN	TEMP+4, MV+10, MV+25, MV+30, MV+36, MV+45, MV+50, MV+56, MV+65, MV+70 , MV+76, MV+86, MV+95
^DIE	TEMP+8, TEMP+15, MV+17, MV+20, MV+22, MV+40, MV+60, MV+80, MV+90, MV+115 , MV+119, DELRADE+6
^DIK	TD+4
IX^DIK	MV+100
GETS^DIQ	MV+7
^DIR	EN2+12, EN2+24
$$USUAL^RADD2	VRDIO+11
21^RAMAIN2	OLD+4
22^RAMAIN2	EN+5
TRKCMA^RAMAINU	MV+107
TRKCMB^RAMAINU	TEMP+12
CMINTEG^RAMAINU1	MV+106
EN^RANPRO4	TEMP+22
MSGRAN^RANPRO4	ORDITM+12
PROC^RAO7MFN	ORDITM+10
$$ORQUIK^RAORDU	ORDITM+10
$$EN1^RAPSAPI	VRDIO+13
$$DT^XLFDT	MV+114

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Not able to create entry in temporary area" Line Location: TEMP+5
Function Call: WRITE	Prompt: !,"Nothing Saved" Line Location: TEMP+10
Function Call: WRITE	Prompt: !,"Nothing Saved" Line Location: TEMP+16
Function Call: WRITE	Prompt: !!,"This procedure was not created as a DETAILED exam and will not be matched",!,"to the MASTER RADIOLOGY PROCEDURE FILE." Line Location: TEMP+20
Function Call: WRITE	Prompt: !!,"No CPT Code has been entered. This new procedure will be deleted.",*7 Line Location: TEMP+23
Function Call: WRITE	Prompt: !?5,$C(7),"Procedure Type: ",$S($P(RAPROC(0),"^",6)="S":"SERIES",1:"DETAILED")," ...no CPT code entered..." Line Location: TEMP+28
Function Call: WRITE	Prompt: !?5,"...will delete the record at this time.",! Line Location: TEMP+29
Function Call: WRITE	Prompt: !,"Not Able to Create File 71 entry" Line Location: MV+11
Function Call: WRITE	Prompt: !!,"Temporary new procedure entry has been moved to the permanent ",!,"RAD/NUC MED PROCEDURE file." Line Location: MV+98
Function Call: WRITE	Prompt: !!?5,"Inactivating this parent procedure - no descendents.",!,$C(7) Line Location: MV+113
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: MV+120
Function Call: WRITE	Prompt: !,"Updating ORDERABLE ITEMS file" Line Location: ORDITM+1
Function Call: WRITE	Prompt: !,"Deleting temporary entry in file 71.11" Line Location: TD+1
Function Call: WRITE	Prompt: !!?3,"Deleting default radiopharmaceuticals for this procedure...",! Line Location: DELRADE+2
Function Call: WRITE	Prompt: ! Line Location: SEARCH+9
Function Call: WRITE	Prompt: !?5,"This record is currently being edited by another user." Line Location: SEARCH+21
Function Call: WRITE	Prompt: !?5,"Try again later!",$C(7) Line Location: SEARCH+22
Routine Call	DIC Line Location: OLD+3 SEARCH+9
Routine Call	DIE Line Location: TEMP+8 TEMP+15 MV+17 MV+20 MV+22 MV+40 MV+60 MV+80 MV+90 MV+115 MV+119 DELRADE+6
Routine Call	DIR Line Location: EN2+12 EN2+24

FileNo	Call Tags
^RAMIS(71 - [#71]	Classic Fileman Calls
^RAMRPF(71.11 - [#71.11]	Classic Fileman Calls, GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^RA(79.2 - [#79.2]	MV+116
^RAMIS(	SEARCH+20
^RAMIS(71 - [#71]	EN2+23, MV+103, MV+108, MV+109, MV+111, MV+116, ORDITM+5, ORDITM+9, VRDIO+8, VRDIO+9 , DELRADE+3, SEARCH+15
^RAMPRF(71.11	TEMP+11, TEMP+25
^RAMRPF(71.11 - [#71.11]	TEMP+10, TEMP+17, TEMP+19, TEMP+22, TEMP+23, TEMP+24, TD+5!
^TMP("RA7111DA"	TEMP+6!*, TEMP+18, MV+3, TD+2, TD+6!
^XTMP("RAMAIN4"	EN2+6!, END+5!

Name	Line Occurrences
DELRADE	MV+108
EN2	EN+4
END	EN2+29, EN2+30, TEMP+1, TEMP+2, TEMP+5, OLD+5, SEARCH+4
OLD	TEMP+1
SEARCH	EN2+16
TD	TEMP+10, TEMP+16, TEMP+22, TEMP+23, TEMP+27, MV+11
VRDIO	MV+116

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	MV+118!, DELRADE+4!, DELRADE+8!
%X	DELRADE+4!, DELRADE+8!
%Y	DELRADE+4!, DELRADE+8!
A	EN2+2~, MV+29, MV+34, MV+35, MV+38, MV+44, MV+49, MV+54, MV+55, MV+58 , MV+64, MV+69, MV+74, MV+75, MV+78, MV+84, MV+85, MV+88, MV+94, END+2!
AA	EN2+3~, MV+7, MV+10, MV+16, MV+17, MV+19, MV+21, MV+24, MV+25, END+3!
ARY	EN2+2~, MV+7!, END+2!
ARY(	MV+10, MV+17, MV+19, MV+21, MV+24, MV+25, MV+27, MV+28, MV+32, MV+33 , MV+42, MV+43, MV+47, MV+48, MV+52, MV+53, MV+62, MV+63, MV+67, MV+68 , MV+72, MV+73, MV+82, MV+83, MV+92, MV+93
B	EN2+2~, MV+24, MV+25, MV+29, MV+34, MV+35, MV+38, MV+44, MV+49, MV+54 , MV+55, MV+58, MV+64, MV+69, MV+74, MV+75, MV+78, MV+84, MV+85, MV+88 , MV+94*, END+2!
C	EN2+2~, MV+25, MV+29, MV+30, MV+35, MV+36, MV+44, MV+45, MV+49, MV+50 , MV+55, MV+56, MV+64, MV+65, MV+69, MV+70, MV+75, MV+76, MV+85, MV+86 , MV+94*, MV+95, END+2!
D	EN2+2~, MV+38, MV+39, MV+58, MV+59, MV+78, MV+79, MV+88, MV+89, MV+112! , MV+115!, MV+118!, END+2!, DELRADE+4!, DELRADE+8!
D0	MV+112!, MV+115!, MV+118!, DELRADE+4!, DELRADE+8!
D1	MV+112!, MV+115!
DA	EN2+3~, TEMP+8, TEMP+12, TEMP+15, TEMP+17, MV+10, MV+11, MV+12, MV+17, MV+19 , MV+21, MV+25, MV+30, MV+36, MV+45, MV+50, MV+56, MV+65, MV+70, MV+76 , MV+86, MV+95, MV+100!, MV+112!, MV+114, MV+115!, MV+118!, MV+119, TD+4, TD+5 , END+3!, OLD+2, OLD+3, DELRADE+4!, DELRADE+5, DELRADE+8!, SEARCH+20
DA(1	MV+24, MV+27, MV+32, MV+42, MV+47, MV+52, MV+62, MV+67, MV+72, MV+82 , MV+92, DELRADE+5
DD	EN2+3~, TEMP+4!, MV+25!, MV+30!, MV+36!, MV+45!, MV+50!, MV+56!, MV+65!, MV+70! , MV+76!, MV+86!, MV+95!, END+3!, SEARCH+5~
DE	MV+118!
DI	MV+112!, MV+115!, DELRADE+4!, DELRADE+8!
DIC	EN2+3~, TEMP+4!, TEMP+6!, MV+10!, MV+25!, MV+30!, MV+36!, MV+45!, MV+50!, MV+56! , MV+65!, MV+70!, MV+76!, MV+86!, MV+95!, MV+112!, MV+115!, MV+118!, END+3!, OLD+3 , DELRADE+4!, DELRADE+8!, SEARCH+5~, SEARCH+8*
DIC(0	TEMP+4, MV+10, MV+25, MV+30, MV+36, MV+45, MV+50, MV+56, MV+65, MV+70 , MV+76, MV+86, MV+95, SEARCH+8
DIE	EN2+3~, TEMP+8, TEMP+15, MV+17, MV+19, MV+37, MV+57, MV+77, MV+87, MV+112! , MV+114, MV+115!, MV+118!, MV+119, END+3!, DELRADE+4!, DELRADE+5*, DELRADE+8!
DIK	EN2+4~, MV+100!, TD+4!, END+4!
DINUM	SEARCH+5~
DIR	EN2+3~, EN2+9!, EN2+24!, END+3!
DIR("A"	EN2+10, EN2+24
DIR("B"	EN2+24*
DIR("PRE"	EN2+11*
DIR(0	EN2+10, EN2+24
DLAYGO	SEARCH+5~
DO	EN2+3~, TEMP+4!, MV+25!, MV+30!, MV+36!, MV+45!, MV+50!, MV+56!, MV+65!, MV+70! , MV+76!, MV+86!, MV+95!, END+3!, SEARCH+5~
DQ	MV+112!, MV+115!, MV+118!, DELRADE+4!, DELRADE+8!
DR	EN2+3~, TEMP+8, TEMP+15, MV+17!, MV+19!, MV+21!, MV+24!, MV+37, MV+39, MV+40 , MV+57, MV+59, MV+60, MV+77, MV+79, MV+80, MV+87, MV+89, MV+90, MV+112! , MV+114, MV+115!, MV+118!, MV+119, END+3!, DELRADE+4!, DELRADE+6, DELRADE+8!
DT	TEMP+11, TEMP+25, MV+109, MV+114, ORDITM+6, TD+5
DTOUT	EN2+4~, END+4!, SEARCH+5~, SEARCH+13
DUOUT	EN2+4~, END+4!, SEARCH+5~, SEARCH+13
E	EN2+2~, MV+38, MV+39, MV+58, MV+59, MV+78, MV+79, MV+88, MV+89, END+2!
EE	EN2+3~, MV+28!, MV+33!, MV+43!, MV+48!, MV+53!, MV+63!, MV+68!, MV+73!, MV+83! , MV+93!, END+3!
EE(	MV+28, MV+33, MV+43, MV+48, MV+53, MV+63, MV+68, MV+73, MV+83, MV+93
F	EN2+2~, MV+39, MV+59, MV+79, MV+89, END+2!
I	EN2+1~, MV+19, MV+21, END+1!
RA65	EN+2~
RA7111DA	EN2+1~, TEMP+6, TEMP+8, TEMP+15, TEMP+18, TEMP+19, TEMP+22, TEMP+23, TEMP+24, MV+3* , MV+7, MV+16, TD+2*, TD+3, TD+4, END+1!
RACMDIFF	EN2+2~, MV+107, END+2!
RACODE	EN2+1~, END+1!
RACODE1	EN2+3~, END+3!
RACPT	EN2+1~, TEMP+17*, TEMP+22, END+1!
RACTIVE	EN2+2~, TEMP+11, TEMP+25, MV+109*, END+2!
RADA	EN2+1~, TEMP+6, TEMP+10, TEMP+11, TEMP+17, TEMP+22, TEMP+24, TEMP+25, MV+12, MV+17 , MV+19, MV+21, MV+24, MV+27, MV+32, MV+42, MV+47, MV+52, MV+62, MV+67 , MV+72, MV+82, MV+92, MV+97, MV+100, MV+103, MV+106, MV+107, MV+108, MV+109 , MV+111, MV+114, MV+116, MV+119, ORDITM+3!, ORDITM+5, ORDITM+8, ORDITM+9, ORDITM+12, ORDITM+13! , END+1!, OLD+2, OLD+3, VRDIO~, VRDIO+7, VRDIO+8, VRDIO+9, VRDIO+11, VRDIO+17*, DELRADE~ , DELRADE+3, DELRADE+5
RADA(1	VRDIO+7*, VRDIO+8, VRDIO+9, VRDIO+17!
RADA1	DELRADE+1~, DELRADE+3, DELRADE+5
RADANEW1	EN2+3~, MV+12, MV+97, ORDITM+5, END+3!
RADIO	EN+2~
RADUZ	EN2+4~, END+4!
RAENALL	EN2+2~, ORDITM+3!, ORDITM+8, ORDITM+10, ORDITM+13!, END+2!, SEARCH+6
RAEND	EN2+3~, EN2+9!, EN2+26*, EN2+29, EN2+30, TEMP+2, END+3!
RAEXC	EN+2~
RAFILE	EN2+2~, ORDITM+3!, ORDITM+8, ORDITM+10, ORDITM+13!, END+2!, SEARCH+5~, SEARCH+20
RAFN	EN2+4~, END+4!
RAFOUND	EN2+3~, EN2+8, EN2+19, EN2+21, END+3!
RAIMAG	EN+2~
RAINADT	EN2+4~, ORDITM+3!, ORDITM+5*, ORDITM+6, ORDITM+13!, END+4!
RAINPUT	SEARCH~, SEARCH+4, SEARCH+7, SEARCH+14, SEARCH+15, SEARCH+17*
RALRDA	EN2+2~, MV+24, MV+25, MV+27, MV+30, MV+32, MV+36, MV+37, MV+42, MV+45 , MV+47, MV+50, MV+52, MV+56, MV+57, MV+62, MV+65, MV+67, MV+70, MV+72* , MV+76, MV+77, MV+82, MV+86, MV+87, MV+92, MV+95, END+2!
RAMIS	EN+2~
RAMV	EN2+1~, EN2+5, EN2+23, EN2+26*, END+1!
RANEW	EN2+1~, EN2+7, EN2+8, EN2+23, EN2+25, EN2+26, EN2+29, TEMP+1, TEMP+22, END+1! , OLD+1, SEARCH+17*
RANEW71	EN2+2~, EN2+7, END+2!, SEARCH+6, SEARCH+17*
RANHIT	EN+2~, EN+3, EN+5, EN2+28
RANM	EN2+1~, EN2+12, EN2+15, EN2+18, EN2+20, EN2+21, EN2+23, EN2+24, TEMP+1, TEMP+4 , END+1!, OLD+3
RANMSG	EN2+3~, EN2+5*, ORDITM+12, END+3!
RANQUIT	EN+2~, EN+3, EN+4, EN2+5, EN2+7, EN2+8, EN2+12, EN2+30, TEMP+22
RANUC	VRDIO+7~
RANUC(0	VRDIO+9*, VRDIO+10, VRDIO+11, VRDIO+13
RAOLDIEN	EN2+3~, END+3!
RAOUTPUT	SEARCH~, SEARCH+7, SEARCH+15, SEARCH+16, SEARCH+17, SEARCH+20, SEARCH+23!
RAP3	EN2+1~, MV+12*, MV+97, END+1!
RAPNM	EN2+1~, EN2+15, EN2+16, EN2+18, EN2+20, EN2+21, END+1!
RAPROC	EN2+2~, END+2!
RAPROC(0	TEMP+24, TEMP+27, TEMP+28, MV+103, MV+106, MV+108, MV+111, MV+116, MV+117, MV+120
RAPTY	EN+2~
RARMPF	EN+2~
RARRY	VRDIO+12~, VRDIO+14
RARRY(1	VRDIO+12, VRDIO+13
RARRY(2	VRDIO+14*
RAS	EN2+4~, END+4!
RASEED	EN2+1~, END+1!
RASTAT	EN2+2~, TEMP+11, TEMP+25, MV+109, MV+111, MV+115, ORDITM+3!, ORDITM+6*, ORDITM+10, ORDITM+13! , END+2!
RATRKCMA	EN2+2~, MV+107, END+2!
RATRKCMB	EN2+3~, TEMP+12, MV+107, END+3!
RATYP	EN2+1~, END+1!
RATYPE	EN2+1~, END+1!
RAX	EN2+1~, END+1!
RAXTMPNM	EN2+2~, END+2!
RAY	EN2+2~, ORDITM+3!, ORDITM+8, ORDITM+9, ORDITM+10, ORDITM+13!, END+2!, SEARCH+5~, SEARCH+19*, SEARCH+20
RAYY	EN2+1~, EN2+20, EN2+23, END+1!, OLD+2, OLD+3
U	TEMP+17, TEMP+19, TEMP+22, TEMP+23, TEMP+27, MV+111, MV+115, MV+116, MV+117, MV+120
X	EN2+1~, EN2+9!, EN2+12, EN2+14, TEMP+4!, TEMP+6!, MV+10, MV+25, MV+30, MV+36 , MV+45, MV+50, MV+56, MV+65, MV+70, MV+76, MV+86, MV+95, END+1!, OLD+3* , DELRADE+4!, DELRADE+8!, SEARCH+5~, SEARCH+7*, SEARCH+15, SEARCH+16
XMDUN	EN2+4~, END+4!
XX	EN2+4~, END+4!
Y	EN2+1~, EN2+9!, EN2+12, EN2+16!, EN2+17, EN2+18, EN2+19, EN2+20, EN2+21, EN2+24~ , EN2+25, EN2+26, TEMP+4!, TEMP+5, TEMP+6!, TEMP+16, MV+10, MV+11, MV+36, MV+56 , MV+76, MV+86, END+1!, OLD+3, DELRADE+4!, DELRADE+8!, SEARCH+5~, SEARCH+13, SEARCH+14, SEARCH+15* , SEARCH+16, SEARCH+17, SEARCH+19, SEARCH+20

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RANPRO

Information

Source Information

Call Graph

Call Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: