Routine: MAGNUTL2

Information

MAGNUTL2 ;OIT/NST - VistRad subroutines for RPC calls ; NOV 19, 2018@1:42PM

Package	Total	Call Graph
Imaging	6	PRIOR1^MAGJEX2 FACLIST^MAGJLST1 GETEXAM2^MAGJUTL1 $$RACPRS^MAGNU003 $$CPTIENS^MAGNUTL3 CRTITEM^MAGVIM01
Kernel	1	$$STA^XUAF4
Master Patient Index VistA	1	($$GETICN,GETICN)^MPIF001
VA FileMan	1	$$GET1^DIQ

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

Package	Total	Caller Graph
Imaging	3	MAG PRECACHE MAGJEX2 MAGNPCHE
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
PRECACHE	; Entry point from HL7 processing, to initiate precache at ; time of radiology "Register Patient for Exam" RA REG protocol ; ZEXCEPT: RACANC,RADFN,RADTI,RACNI ;Set by calling code for assumption
CACHE(RARPT)	; cache this case's images ; Input: RARPT: IEN in RAD/NUC MED REPORTS file (#74)
NWRKITEM(MAGOUT,RARPT)	;Create New MAG WORK ITEM ; RARPT - IEN in RAD/NUC MED REPORTS file (#74)
CPTWI(RADFN,RADTI,RACNI,MAGDATA)
GCPRSID(RARPT)	; return SITE, ICN, CPRSContextID
ALLCPTS()	;Returns value of PRECACHE ON RAD EXAM REG field (#351) from IMAGING SITE PARAMETERS (#2006.1) entry for user's division

External References

Name	Field # of Occurrence
$$GET1^DIQ	PRECACHE+20, NWRKITEM+8, GCPRSID+5, ALLCPTS+5
PRIOR1^MAGJEX2	PRECACHE+25
FACLIST^MAGJLST1	CPTWI+13
GETEXAM2^MAGJUTL1	PRECACHE+10, CPTWI+6
$$RACPRS^MAGNU003	NWRKITEM+6, GCPRSID+3
$$CPTIENS^MAGNUTL3	PRECACHE+18
CRTITEM^MAGVIM01	NWRKITEM+33, CPTWI+46
$$GETICN^MPIF001	NWRKITEM+17, CPTWI+23, GCPRSID+10
GETICN^MPIF001	NWRKITEM+16, CPTWI+22, GCPRSID+10
$$STA^XUAF4	NWRKITEM+27, CPTWI+40, GCPRSID+7, ALLCPTS+3

Used in HL7 Interface

HL7 Protocol Name	Call Tags
MAG PRECACHE	PRECACHE

FileNo	Call Tags
^MAG(2006.1 - [#2006.1]	GET1^DIQ
2006.14	GET1^DIQ
^RARPT - [#74]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^MAG(2006.1 - [#2006.1]	ALLCPTS+3
^TMP($J	PRECACHE+9!, PRECACHE+11, PRECACHE+12!, CPTWI+5!, CPTWI+7, CPTWI+8!

Label References

Name	Line Occurrences
$$ALLCPTS	PRECACHE+14
CPTWI	PRECACHE+26
NWRKITEM	CACHE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABORT	PRECACHE+7~, PRECACHE+8, PRECACHE+16, PRECACHE+17, PRECACHE+20*, PRECACHE+21
ALLCPTS	PRECACHE+7~, PRECACHE+14*, PRECACHE+15, PRECACHE+16
CPTIENS	PRECACHE+7~, PRECACHE+18*, PRECACHE+19, PRECACHE+20
CRTAPP	NWRKITEM+3~, NWRKITEM+31, NWRKITEM+33, CPTWI+2~, CPTWI+44, CPTWI+46
CRTUSR	NWRKITEM+3~, NWRKITEM+29, NWRKITEM+33, CPTWI+2~, CPTWI+42, CPTWI+46
DFN	NWRKITEM+3~, NWRKITEM+8, NWRKITEM+15, NWRKITEM+17, GCPRSID+1~, GCPRSID+5, GCPRSID+10, GCPRSID+11
DUZ	NWRKITEM+29, CPTWI+42
DUZ(2	NWRKITEM+10, CPTWI+17, GCPRSID+7, ALLCPTS+3
ICN	NWRKITEM+3~, NWRKITEM+17, NWRKITEM+18, CPTWI+2~, CPTWI+23, CPTWI+24, GCPRSID+1~, GCPRSID+9, GCPRSID+10, GCPRSID+11
ISPIEN	ALLCPTS+2~, ALLCPTS+3*, ALLCPTS+4, ALLCPTS+5
J	NWRKITEM+3~, NWRKITEM+13, NWRKITEM+14, NWRKITEM+15, NWRKITEM+18, NWRKITEM+20, CPTWI+2~, CPTWI+20, CPTWI+21, CPTWI+24 , CPTWI+29, CPTWI+32, CPTWI+33*
MAGCPT	PRECACHE+7~, PRECACHE+13, PRECACHE+15, PRECACHE+18, CPTWI+1~, CPTWI+9, CPTWI+10, CPTWI+32
MAGCTXID	NWRKITEM+3~, NWRKITEM+6, NWRKITEM+7, NWRKITEM+14, GCPRSID+1~, GCPRSID+3, GCPRSID+4, GCPRSID+11
MAGDATA	PRECACHE+7~, PRECACHE+11, PRECACHE+13, PRECACHE+26, CPTWI~, CPTWI+4, CPTWI+7, CPTWI+9
MAGI	CPTWI+1~, CPTWI+27, CPTWI+28, CPTWI+29
MAGOUT	CACHE+3~, CACHE+4, NWRKITEM~, NWRKITEM+7*, NWRKITEM+33, CPTWI+1~, CPTWI+13, CPTWI+46
MAGOUT(	CPTWI+28, CPTWI+29
MAGOUT(0	CPTWI+14
MAGRET	PRECACHE+7~, PRECACHE+10, CPTWI+1~, CPTWI+6
MSGTAGS	NWRKITEM+3~, NWRKITEM+33, CPTWI+2~, CPTWI+46
MSGTAGS(	NWRKITEM+14, NWRKITEM+15, NWRKITEM+18, NWRKITEM+20, CPTWI+21, CPTWI+24, CPTWI+29, CPTWI+32, CPTWI+33*
PLACEID	NWRKITEM+3~, NWRKITEM+10, NWRKITEM+27, NWRKITEM+33, CPTWI+2~, CPTWI+17, CPTWI+40, CPTWI+46, GCPRSID+1~, GCPRSID+7* , GCPRSID+11
PRIORITY	NWRKITEM+3~, NWRKITEM+25, NWRKITEM+33, CPTWI+2~, CPTWI+38, CPTWI+46
>> RACANC	PRECACHE+5
RACNI	PRECACHE+6, PRECACHE+10, PRECACHE+25, PRECACHE+26, CPTWI~, CPTWI+6
RADFN	PRECACHE+6, PRECACHE+10, PRECACHE+25, PRECACHE+26, CPTWI~, CPTWI+6, CPTWI+13, CPTWI+21, CPTWI+23
RADTI	PRECACHE+6, PRECACHE+10, PRECACHE+25, PRECACHE+26, CPTWI~, CPTWI+6
RARPT	CACHE~, CACHE+4, NWRKITEM~, NWRKITEM+6, NWRKITEM+8, GCPRSID~, GCPRSID+3, GCPRSID+5
RET	PRECACHE+23~*, PRECACHE+25
SSEP	NWRKITEM+3~, NWRKITEM+5, NWRKITEM+7, CPTWI+2~, CPTWI+16
STATUS	NWRKITEM+3~, NWRKITEM+24, NWRKITEM+33, CPTWI+2~, CPTWI+37, CPTWI+46
SUBTYPE	NWRKITEM+3~, NWRKITEM+23, NWRKITEM+33, CPTWI+2~, CPTWI+36, CPTWI+46
TYPE	NWRKITEM+3~, NWRKITEM+22, NWRKITEM+33, CPTWI+2~, CPTWI+35, CPTWI+46
U	PRECACHE+13, PRECACHE+25, CPTWI+9

Marked Items

Name	Field # of Occurrence
$T(GETICN^MPIF001	NWRKITEM+16, CPTWI+22, GCPRSID+10

Customize PDF page

Package: Imaging