Routine: RAO7MFN

Information

RAO7MFN ;HISC/GJC-Create MFN orderable item update msg ; May 28, 2020@08:01:53

Package	Total	Call Graph
Kernel	4	$$NOW^XLFDT $$UP^XLFSTR MES^XPDUTL MSG^XQOR
Radiology Nuclear Medicine	3	^RACOMDEL $$NAMCODE^RACPTMSC ($$CMEDIA,$$MSH,$$PROCNDE,EN1,MFI,PURGE,PURGE1)^RAO7UTL
Health Level Seven	1	$$HLDATE^HLFNC
Order Entry Results Reporting	1	EN^ORMFN
VA FileMan	1	ENALL^DIK

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 11

Package	Total	Caller Graph
Radiology Nuclear Medicine	9	RA34PST RA45PST2 RA50PST RAIPS165 RAIPS213 RAMAIN2 RAMAIN3 RANPRO RAO7UTL
Order Entry Results Reporting	2	ORCPOST ORSETUP

Entry Points

Name	Comments	DBIA/ICR reference
PROC(RAENALL,RAFILE,RASTAT,RAY)	; Entry point to update a single procedure. ; 'RAY' <> is the same as 'Y' when passed back from DIC after ; lookup on file 71 & file 71.3 ; 'RAENALL'<> single procedure (0) or whole file update (1) flag ; 'RAFILE' <> file # of the file being edited (71 or 71.3) ; 'RASTAT' <> Procedure file (71) status: 0 inactive^1 active ; Com. Proc. file (71.3) Seq. # status: 0 inactive^1 active ; 1st piece: status before edit, 2nd piece: status after ; edit. ; This entry point can be called from 2^RAMAIN2 or 13^RAMAIN2 ; This routine assumes that RAVAR is defined as an array or global ; root in which to place the output.
ENALL	; Whole Rad/Nuc Med Procedure file update. Called only when Rad/Nuc ; Med or OE/RR are being installed.
PARM	;Send Div params for SUBMIT TO prompt and allowing BROAD procedures
MSGBODY(RASEQNUM)	;Build the HL7 message to be broadcast to CPRS RA5P158

External References

Name	Field # of Occurrence
ENALL^DIK	PARM+2, PARM+3
$$HLDATE^HLFNC	MSGBODY+20
EN^ORMFN	ENALL+28
^RACOMDEL	ENALL+5
$$NAMCODE^RACPTMSC	MSGBODY+6
$$CMEDIA^RAO7UTL	MSGBODY+19
$$MSH^RAO7UTL	PROC+63, ENALL+21
$$PROCNDE^RAO7UTL	PROC+38
EN1^RAO7UTL	PROC+18, ENALL+19
MFI^RAO7UTL	PROC+64, ENALL+22
PURGE^RAO7UTL	PROC+88
PURGE1^RAO7UTL	ENALL+23
$$NOW^XLFDT	PROC+15, ENALL+16
$$UP^XLFSTR	MSGBODY+39
MES^XPDUTL	ENALL+12
MSG^XQOR	PROC+87

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RA(79 - [#79]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	PROC+14, ENALL+20
^DIC(71	ENALL+10
^RA(79.2 - [#79.2]	MSGBODY+9
^RAMIS(	PROC+24, PROC+25, PROC+31
^RAMIS(71 - [#71]	PROC+34, PROC+35, PROC+58, PROC+75, PROC+76, PROC+80, PROC+81, ENALL+6, ENALL+23, ENALL+24 , ENALL+29
^RAMIS(71.3 - [#71.3]	PROC+26, PROC+27, ENALL+5
^RAMIS(71.4 - [#71.4]	MSGBODY+50

Label References

Name	Line Occurrences
MSGBODY	PROC+77, PROC+82, PROC+84
PROC	ENALL+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIK	PARM+2~, PARM+3~
DIK(1	PARM+2, PARM+3
DT	ENALL+25, MSGBODY+6
I	MSGBODY+37~, MSGBODY+41, MSGBODY+45, MSGBODY+46, MSGBODY+49, MSGBODY+50, MSGBODY+54, MSGBODY+55, MSGBODY+58*, MSGBODY+59
J	MSGBODY+37~, MSGBODY+41, MSGBODY+42, MSGBODY+43
K	MSGBODY+37~, MSGBODY+41, MSGBODY+43, MSGBODY+46, MSGBODY+50, MSGBODY+59
RA	ENALL+14~, ENALL+16, ENALL+23, ENALL+24, ENALL+26
RA("I"	ENALL+24*, ENALL+25
RA(0	ENALL+24*, ENALL+26
>> RA165	PROC+58
>> RA71	PROC+38
>> RA71("I"	PROC+25, PROC+35, PROC+76, PROC+81, MSGBODY+20
>> RA71(0	PROC+24, PROC+34, PROC+58, PROC+75, PROC+80, MSGBODY+6, MSGBODY+8, MSGBODY+9, MSGBODY+10, MSGBODY+11 , MSGBODY+19, MSGBODY+39
>> RA713(0	PROC+27, PROC+31, PROC+33, PROC+74, PROC+77, PROC+79, PROC+80, PROC+81, MSGBODY+16
>> RACMCODE	MSGBODY+19*, MSGBODY+32
>> RACMNOR	MSGBODY+12, MSGBODY+13, MSGBODY+16*, MSGBODY+33
RACNT	PROC+16, PROC+63, ENALL+14~, ENALL+16, ENALL+21, MSGBODY+21, MSGBODY+22, MSGBODY+23, MSGBODY+24, MSGBODY+25 , MSGBODY+26, MSGBODY+27, MSGBODY+28, MSGBODY+30, MSGBODY+31, MSGBODY+32, MSGBODY+33, MSGBODY+34, MSGBODY+46, MSGBODY+50 , MSGBODY+55, MSGBODY+59
>> RACOST	MSGBODY+11*, MSGBODY+31
>> RACPT(0	MSGBODY+6*, MSGBODY+22, MSGBODY+24
RAECH	PROC+18, ENALL+14~
RAECH(1	MSGBODY+23, MSGBODY+25, MSGBODY+26, MSGBODY+27, MSGBODY+28
RAENALL	PROC~, PROC+13, PROC+19, PROC+61, PROC+86, PROC+90, ENALL+14~, ENALL+16*, ENALL+26
RAFILE	PROC~, PROC+13, PROC+23, PROC+24, PROC+25, PROC+30, PROC+31, PROC+39, PROC+55, PROC+58 , PROC+72, ENALL+14~, ENALL+20*, ENALL+26, MSGBODY+7
RAFNAME	PROC+14, ENALL+14~, ENALL+20
RAFNUM	PROC+14, ENALL+14~, ENALL+20
RAHLFS	PROC+18, ENALL+14~, MSGBODY+21, MSGBODY+30, MSGBODY+31, MSGBODY+32, MSGBODY+33, MSGBODY+34, MSGBODY+46, MSGBODY+50 , MSGBODY+55, MSGBODY+59
>> RAIEN71	MSGBODY+7*, MSGBODY+19, MSGBODY+26, MSGBODY+38, MSGBODY+39, MSGBODY+44, MSGBODY+48, MSGBODY+52
>> RAIMGAB	MSGBODY+9*, MSGBODY+30
RAINACT	MSGBODY+20*, MSGBODY+21, MSGBODY+29!
RAINCR	PROC+16, PROC+62, PROC+63, PROC+90, ENALL+14~, ENALL+16, ENALL+21, MSGBODY+29, MSGBODY+45, MSGBODY+49 , MSGBODY+54, MSGBODY+58
>> RAMFE	PROC+42, PROC+46, PROC+50, PROC+55, PROC+58*, MSGBODY+21
>> RAMIS713(0	PROC+72, PROC+74, PROC+75, PROC+76
>> RAMULT	MSGBODY+38*, MSGBODY+39, MSGBODY+40, MSGBODY+42, MSGBODY+43, MSGBODY+44, MSGBODY+48, MSGBODY+52
>> RAPHYAP	MSGBODY+10*, MSGBODY+30
RAPMSG	MSGBODY+37~, MSGBODY+49, MSGBODY+53, MSGBODY+56*
>> RAPRCTY	MSGBODY+11*, MSGBODY+34
RASEQNUM	MSGBODY~, MSGBODY+12, MSGBODY+13, MSGBODY+16
RASTAT	PROC~, PROC+13, PROC+44, PROC+48, ENALL+14~, ENALL+20*, ENALL+26
RASUB	PROC+17, PROC+20, PROC+21, ENALL+15~, ENALL+17, ENALL+18
RASVIEN	PROC+33*, PROC+34, PROC+35, PROC+36!
RATSTMP	PROC+15, PROC+20, PROC+21, ENALL+15~, ENALL+16, ENALL+17, ENALL+18
RAVAR	PROC+19, PROC+20, PROC+63, ENALL+15~, ENALL+17, ENALL+21, MSGBODY+21, MSGBODY+22, MSGBODY+23, MSGBODY+24 , MSGBODY+25, MSGBODY+26, MSGBODY+27, MSGBODY+28, MSGBODY+30, MSGBODY+31, MSGBODY+32, MSGBODY+33, MSGBODY+34, MSGBODY+46 , MSGBODY+50, MSGBODY+55, MSGBODY+59
RAVARBLE	PROC+21, PROC+87, ENALL+18, ENALL+28!
RAXIT	PROC+14*, ENALL+15~
>> RAXT71	MSGBODY+8*, MSGBODY+27
RAY	PROC~, PROC+13, PROC+24, PROC+25, PROC+26, PROC+27, PROC+31, PROC+33, PROC+40, PROC+44 , PROC+48, PROC+58, PROC+72, PROC+79, ENALL+15~, ENALL+26*, MSGBODY+7
TXT	ENALL+8~, ENALL+12
TXT(1	ENALL+8*
TXT(2	ENALL+9, ENALL+10
TXT(3	ENALL+11*
U	PROC+72, PROC+79, MSGBODY+19
>> XPDNM	ENALL+3
>> XPDQUIT	ENALL+12*

Customize PDF page

Package: Radiology Nuclear Medicine