Routine: RANPRO4

Information

RANPRO4 ;BPFO/CLT - RADIOLOGY NEW PROCEDURE UTILITIES ; 27 Oct 2016 4:32 PM

Package	Total	Call Graph
VA FileMan	4	C^%DTC ^DIE $$GET1^DIQ ^DIR
Radiology Nuclear Medicine	3	MRPF^RANPRO5 MTCH^RANPROU2 EN^RAXMLSND
Kernel	2	$$NS^XUAF4 $$KSP^XUPARAM
M XML Parser	1	$$XMLHDR^MXMLUTL
MailMan	1	^XMD

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: 1

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RANPRO

Entry Points

Name	Comments	DBIA/ICR reference
EN(RADA)	;PRIMARY ENTRY POINT
GOOD	;ACCEPT ENTRY AND ASSIGN CPT
CPTEN	;Enter the CPT code
MSG	;SEND A MESSAGE TO GATEKEEPER
MSG1	;MESSAGE TO NTRT
XML	; NTRT message for ISAAC ; Need P1 ISAAC SCHEMA NAME ; Need P2 ISAAC SCHEMA PATH ; get the schemea name and the schema path
DEACT	;BLOCK INACTIVATION DATE
END	;KILL LOCAL VARIABLES AND END
MSGRAN(RADA)	; entry from RANPRO after file to 71 to send NTRT message

External References

Name	Field # of Occurrence
C^%DTC	DEACT+4
^DIE	CPTEN+12, CPTEN+18, MSG1+8
$$GET1^DIQ	XML+5, XML+6
^DIR	GOOD+12, CPTEN+5
$$XMLHDR^MXMLUTL	XML+15
MRPF^RANPRO5	CPTEN+7
MTCH^RANPROU2	CPTEN+9
EN^RAXMLSND	XML+32
^XMD	MSG+15, MSG1+35
$$NS^XUAF4	MSG1+6
$$KSP^XUPARAM	MSG1+6, MSG1+30, MSG1+31, XML+20, XML+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GOOD+12
Function Call: WRITE	Prompt: !!,"The CPT code is needed to match to an entry within the MASTER",!,"RADIOLOGY PROCEDURE file." Line Location: CPTEN+2
Function Call: WRITE	Prompt: !!,"The CPT code for this procedure is ",RACPT,"." Line Location: CPTEN+3
Function Call: WRITE	Prompt: ! Line Location: CPTEN+5
Function Call: WRITE	Prompt: !!,*7,"No MRPF match made.",!! Line Location: CPTEN+8
Function Call: WRITE	Prompt: !?3,"You have mapped this procedure to "_$P($G(^RAMRPF(71.99,RAPROIEN,0)),U,1) Line Location: CPTEN+13
Routine Call	DIE Line Location: CPTEN+12 CPTEN+18 MSG1+8
Routine Call	DIR Line Location: GOOD+12 CPTEN+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RAMIS(71 - [#71]	CPTEN+9, MSG1+5, MSG1+23, MSG1+27, MSG1+33*, XML+22
^RAMRPF(71.11 - [#71.11]	GOOD+1, GOOD+7, CPTEN+6, MSG+2, MSG+12, MSG+14, MSG+17, DEACT+5
^RAMRPF(71.98 - [#71.98]	GOOD+9, CPTEN+12, CPTEN+17, MSG+1, MSG+5, MSG+16, MSG1+2, MSG1+16, MSG1+37, DEACT+2 , DEACT+3
^RAMRPF(71.99 - [#71.99]	CPTEN+12, CPTEN+13
^TMP("RA7111DA"	GOOD+6, MSG+11, MSG1+22
^XTMP("RAMAIN4"	EN+4, GOOD+12

Label References

Name	Line Occurrences
END	GOOD+12, CPTEN+1, CPTEN+5, CPTEN+8, CPTEN+10, MSG+19
MSG1	MSGRAN+1
XML	MSG1+37

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	XML+4~, XML+7, XML+8, XML+12, XML+16
C	XML+4~
DA	EN+3, CPTEN+7, CPTEN+12, CPTEN+16, MSG1+8~!
DIE	CPTEN+12, CPTEN+16, MSG1+8~*!
DIE(0	CPTEN+12, CPTEN+16
DIR	EN+1~, GOOD+5!, GOOD+7!, CPTEN+4!
DIR("A"	GOOD+5!, GOOD+7, GOOD+10, CPTEN+4*
DIR("B"	GOOD+5!, GOOD+11*
DIR(0	GOOD+5!, GOOD+7, CPTEN+4
DIROUT	CPTEN+5!
DIRUT	CPTEN+5!
DR	CPTEN+12, CPTEN+17, CPTEN+18, MSG1+8~!
DT	CPTEN+12, CPTEN+18, MSG1+33, DEACT+3
DUOUT	CPTEN+5!, CPTEN+8
DUZ	MSG+4, MSG1+15, XML+31
P1	EN+2~, XML+4~, XML+5, XML+7, XML+8, XML+12
P2	EN+2~, XML+4~, XML+6, XML+9, XML+10, XML+11*, XML+12
>> RA7111DA	GOOD+6, GOOD+7, MSG+11, MSG+12, MSG1+22*
RA71IEN	XML+30~, XML+31*, XML+33!
RA901	EN+2~, CPTEN+17*, CPTEN+18
RACODE	EN+1~
>> RACPT	CPTEN+3, CPTEN+4, CPTEN+5, CPTEN+6*
RADA	EN~, EN+3, EN+4, GOOD+1, CPTEN+6, CPTEN+7, CPTEN+12, CPTEN+16, MSG+1, MSG+2 , MSG+14, MSG+16, MSG+17, MSG1+5, MSG1+8, MSG1+23, MSG1+27, MSG1+29, MSG1+33, XML+22 , XML+24, XML+31, DEACT+5, MSGRAN~
RADUZ	XML+30~, XML+31*, XML+33!
RAFAC	EN+1~, MSG1+4~, MSG1+6, MSG1+9, MSG1+20, MSG1+38!, XML+19
RAFN	EN+1~, MSG1+4~, MSG1+9*, MSG1+18, MSG1+20, MSG1+38!, XML+19
RAGOLD	EN+1~, CPTEN+7*
RAMATCH	EN+1~, CPTEN+7
>> RAMTCH	CPTEN+9*
RANEWPRO	EN+1~, END+2
RANM	EN+1~, EN+4*, XML+21
>> RANMSG	MSG+18*
RANOT	EN+1~
>> RANQUIT	CPTEN+8, CPTEN+9, CPTEN+10
RAPLUSY	EN+1~
>> RAPNM	EN+4
RAPROIEN	EN+1~, CPTEN+9, CPTEN+12, CPTEN+13
RAS	XML+30~, XML+31*, XML+33!
>> RASEED	GOOD+9*, GOOD+10
RATXT	MSG+2~, MSG1+4~, MSG1+38!, XML+14!, XML+33!, END+1!
RATXT(1	MSG+6, MSG1+18, XML+15*
RATXT(10	MSG1+31, XML+25
RATXT(11	XML+26*
RATXT(12	XML+27*
RATXT(2	MSG1+19, XML+16
RATXT(3	MSG+7, MSG1+20, XML+17*
RATXT(4	MSG+8, MSG1+21, XML+18*
RATXT(5	MSG+9, MSG1+23, XML+19*
RATXT(6	MSG1+26, XML+20
RATXT(7	MSG+12, MSG1+27, XML+21*
RATXT(8	MSG+14, MSG1+29, XML+22*
RATXT(9	MSG1+30, XML+24
RATYPE	EN+1~, GOOD+1*, GOOD+4
>> RAX	CPTEN+1
>> RAXTMPNM	XML+28*
U	GOOD+1, GOOD+7, GOOD+9, CPTEN+6, CPTEN+12, CPTEN+13, CPTEN+17, MSG+1, MSG+2, MSG+5 , MSG+12, MSG+14, MSG+16, MSG+17, MSG1+2, MSG1+5, MSG1+9, MSG1+16, MSG1+23, MSG1+27 , MSG1+33, MSG1+37, XML+22, DEACT+2, DEACT+3, DEACT+5
X	CPTEN+1, CPTEN+6, DEACT+5, END+1!
>> X1	DEACT+3*
>> X2	DEACT+3*
XMDUN	EN+1~, MSG1+4~, MSG1+38!, END+1!
XMDUZ	MSG1+4~, MSG1+38!, END+1!
XMDUZ("G.RADNTRT"	MSG1+14*
XMSUB	MSG+2~, MSG+3, MSG1+4~, MSG1+11, MSG1+38!, XML+13*, XML+28
XMTEXT	MSG+2~, MSG+15, MSG1+4~, MSG1+35, MSG1+38!
XMY	MSG+2~, MSG1+4~, MSG1+38!
XMY(	MSG+4, MSG+5, MSG1+15, MSG1+16
XMY("G.RADIOL	OGY NTRT@DOMAIN.EXT" , MSG1+12*
XMY("G.RADNTRT"	MSG1+13*
XMZ	MSG1+4~, MSG1+38!, END+1!
Y	GOOD+12, END+1!
Y(0	CPTEN+8, CPTEN+12, CPTEN+14

Customize PDF page

Package: Radiology Nuclear Medicine