Routine: RA84PRE

Package	Total	Call Graph
VA FileMan	5	(CREIXN,DELIX)^DDMOD $$FIND1^DIC UPDATE^DIE ^DIK ($$GET1,GETS)^DIQ
Kernel	4	$$FMADD^XLFDT ($$PATCH,BMES)^XPDUTL $$KSP^XUPARAM $$CREATE^XUSAP
MailMan	1	^XMD

Name	Comments	DBIA/ICR reference
EN	; entry point for the pre-install logic
XREF	;REGARDLESS OF WHETHER FILE 78.3 HAS BEEN UPDATED, delete the traditional cross-reference
NS	;Create the new-style cross-reference on the PRIMARY DIAGNOSTIC CODE (70.03,13) field.
PCLKUP()	;PERSON CLASS lookup screened by INACTIVATED field on file 8932.1
ERR	;display the error text associated with our failed event

Name	Field # of Occurrence
CREIXN^DDMOD	NS+22
DELIX^DDMOD	XREF+26
$$FIND1^DIC	EN+39, XREF+10, PCLKUP+7
UPDATE^DIE	EN+64, EN+86, EN+125
^DIK	EN+14
$$GET1^DIQ	EN+105
GETS^DIQ	EN+40, EN+59
$$FMADD^XLFDT	EN+85
^XMD	EN+112
$$PATCH^XPDUTL	EN+11
BMES^XPDUTL	EN+51, EN+78, EN+112, EN+128, XREF+13, XREF+17, XREF+44, NS+44, ERR+11
$$KSP^XUPARAM	EN+105
$$CREATE^XUSAP	EN+22

FileNo	Call Tags
^DD("IX" - [#.11]	FIND1^DIC
^VA(200 - [#200]	FIND1^DIC, GETS^DIQ
^DIC(4 - [#4]	GET1^DIQ
70.03	DELIX^DDMOD
^USC(8932.1 - [#8932.1]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^DD(70.03	XREF+22
^DD(74.01	EN+11
^RA(78.3 - [#78.3]	EN+101

Name	Line Occurrences
$$PCLKUP	EN+72
ERR	EN+67, EN+89
NS	XREF+25
XREF	EN+133

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+12~
DA	EN+12~, EN+13*
DA(1	EN+13*
DIC	EN+12~
DIERR	EN+16~, EN+61!, EN+71!, EN+82!, EN+91!, XREF+19!, NS+4!
DIFROM	EN+111~
DIK	EN+12~, EN+13*
DT	EN+85
I	XREF+20~, XREF+27, XREF+29, XREF+30, XREF+31, XREF+33, XREF+40, XREF+41, XREF+42, NS+4~ , NS+22, NS+24, NS+30, NS+35, NS+40, NS+41, NS+42
J	NS+4~, NS+26*, NS+27, NS+34
J1	NS+28~, NS+29, NS+30
RAAPU	EN+16~, EN+17*, EN+22, EN+24, EN+28, EN+29, EN+44
RACNT	ERR+3~, ERR+4, ERR+5, ERR+8*
RAERR	EN+16~, EN+61!, EN+71!, EN+82!, EN+91!, EN+126, XREF+8~, XREF+19!, NS+4!
RAERR("DIERR"	EN+67, EN+89, XREF+11, XREF+12, XREF+39, NS+39, PCLKUP+8, ERR+5, ERR+6, ERR+7 , ERR+8
RAFAC	EN+16~, EN+105*, EN+107, EN+109
RAFDA	EN+16~, EN+61!, EN+71!, EN+82!, EN+91!, XREF+19!
RAFDA(	EN+63, EN+84, EN+85, EN+122, EN+123, EN+124
RAFLD	EN+16~, EN+40, EN+42
RAFLG	EN+16~, EN+101*, EN+104
RAFMC	EN+16~, EN+17*, EN+22
RAI	XREF+20~, XREF+32, XREF+33, ERR+3~, ERR+4, ERR+5*, ERR+6, ERR+7, ERR+8
RAIEN	EN+16~, EN+24, EN+39, EN+40, EN+42, EN+57, EN+58, EN+59, EN+62, EN+63 , EN+82, EN+83, EN+84, EN+85, EN+101, EN+120, EN+121, EN+122, EN+123, EN+124 , EN+125, EN+127, XREF+19!
RAIEN(1	EN+125*
RAJ	ERR+3~, ERR+6*, ERR+7, ERR+8
RAMOWIC	XREF+20~, NS+4~
RAMOWIC(	XREF+28, XREF+31, XREF+32, XREF+33
RAMOWIC("DIEZ"	NS+27, NS+29, NS+30
RAMOWIC("DIKZ"	NS+34, NS+35
RAOPT	EN+16~, EN+17*, EN+22
>> RAPCLASS	EN+72*, EN+73, EN+75, EN+76, EN+84
RARSLT	NS+4~, NS+22, NS+24
RARY	EN+16~, EN+58!, EN+60, EN+61!, EN+116!
RARY(	EN+121, EN+122, EN+123, EN+124, EN+127
RARY(1000	EN+117*
RARY(1001	EN+118*
RARY(1002	EN+119*
RARY(1003	EN+120*
RARY(200	EN+42
RARY(999	EN+116*
>> RASULT	PCLKUP+7*, PCLKUP+8
RATXT	EN+16~, EN+51, EN+52!, EN+78!, EN+112, EN+128, XREF+11!, XREF+13!, XREF+15!, XREF+17! , XREF+19!, XREF+44, NS+4!, NS+44, ERR+3!, ERR+11!
RATXT(	XREF+29, XREF+30, XREF+31, XREF+33, XREF+40, XREF+41, XREF+42, NS+22, NS+24, NS+30 , NS+35, NS+40, NS+41, NS+42, ERR+5, ERR+8
RATXT(0	XREF+44, NS+44
RATXT(1	EN+24, EN+28, EN+44, EN+75, EN+76, EN+107, EN+127, XREF+12, XREF+16, ERR+3
RATXT(2	EN+29, EN+45, EN+77, EN+108, EN+127, XREF+17
RATXT(3	EN+30, EN+46, EN+128*
RATXT(4	EN+31, EN+47
RATXT(5	EN+32, EN+48
RAVALUE	XREF+8~, XREF+10
RAVALUE(1	XREF+8*
RAVALUE(2	XREF+8*
RAX	EN+16~, EN+67, EN+89, XREF+20~, XREF+27*, XREF+28, XREF+30, XREF+31, XREF+32, XREF+33 , ERR+3
RAXEC	PCLKUP+6~*
RAXREF	NS+4~, NS+22
RAXREF("ACTIVITY"	NS+7*
RAXREF("DESCR"	NS+9, NS+10, NS+11, NS+12, NS+13, NS+14, NS+15*
RAXREF("EXECUTION"	NS+6*
RAXREF("FILE"	NS+5*
RAXREF("KILL	CONDITION" , NS+16*
RAXREF("KILL"	NS+17*
RAXREF("NAME"	NS+5*
RAXREF("ROOT	FILE" , NS+6*
RAXREF("SET C	ONDITION" , NS+18*
RAXREF("SET"	NS+19*
RAXREF("SHORT	DESCR" , NS+8*
RAXREF("TYPE"	NS+5*
RAXREF("USE"	NS+6*
RAXREF("VAL"	NS+15*
RAXREF("WHOLE	KILL" , NS+20*
RAY	EN+16~, EN+22, EN+24, EN+27, EN+37, EN+57, EN+82!, EN+91!, XREF+8~, XREF+10 , XREF+15, XREF+20, XREF+22, XREF+25, XREF+26
RAZ	EN+16~, EN+58*, EN+82
U	EN+76, EN+122, EN+123, EN+124, EN+127, NS+24, NS+30
X	EN+12~
XMDUN	EN+106~
XMDUZ	EN+106~*
XMSUB	EN+106~, EN+109*
XMTEXT	EN+106~, EN+109*
XMY	EN+106~
XMY("VAOITVHITRadiologyFacilityLevelApplicationIssues@domain.ext"	EN+110*
XMZ	EN+106~
>> XPDABORT	EN+27, EN+42, EN+43, EN+52, XREF+39, XREF+47, NS+39
Y	EN+12~

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RA84PRE

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: