Routine: RAO7UTL

Package	Total	Call Graph
Kernel	4	$$NOW^XLFDT $$ABS^XLFMTH $$UP^XLFSTR MSG^XQOR
Radiology Nuclear Medicine	2	PROC^RAO7MFN STR70^RAUTL10
Health Level Seven	1	$$HLDATE^HLFNC
Order Entry Results Reporting	1	EN^ORERR
Registration	1	IN5^VADPT

Package

Total

Call Graph

Kernel

$$NOW^XLFDT $$ABS^XLFMTH $$UP^XLFSTR MSG^XQOR

Radiology Nuclear Medicine

PROC^RAO7MFN STR70^RAUTL10

Health Level Seven

$$HLDATE^HLFNC

Order Entry Results Reporting

EN^ORERR

Registration

IN5^VADPT

Package	Total	Caller Graph
Radiology Nuclear Medicine	18	RABWIBB RAMAIN2 RAO7CH RAO7CMP RAO7MFN RAO7NEW RAO7OKR RAO7OKS RAO7PURG RAO7RCH RAO7RO RAO7RON RAO7SCH RAO7UTL1 RAO7XX RAORD2 RAORD5 RARTVER

Package

Total

Caller Graph

Radiology Nuclear Medicine

RABWIBB  RAMAIN2  RAO7CH  RAO7CMP  RAO7MFN  RAO7NEW  RAO7OKR  RAO7OKS
RAO7PURG  RAO7RCH  RAO7RO  RAO7RON  RAO7SCH  RAO7UTL1  RAO7XX  RAORD2
RAORD5  RARTVER

Entry Points

Name	Comments	DBIA/ICR reference
MFI(X)	; Set up the 'MFI' segment
PV1(Y)	; Create 'pv1' segment
MSH(X)	; Set up the 'MSH' segment. ; 'X' is passed in and identifies the message type.
STR(X)	; Pass back a predetermined # of '\|' or other field separator
MSA(X,Y)	; Set up the 'MSA' segment. P18 ; 'X' is passed in and identifies the message ID. ; 'Y' is acknowledgement code
PURGE1	; kill only whole file update variables
PID(Y)	; Create 'pid' segment
PROCNDE(X)	; Check if the procedure has both an I-Type & Proc. Type ; assigned. Pass back '1' if either the I-Type -or- Proc. Type ; data is missing. '0' if everything is ok.
PURGE
EN1	; Entry point to define some basic HL7 variables
CMEDIA(IEN,RAPTYPE)	;Called from RAO7MFN when a procedure is updated
NONPAR(IEN)	;obtain contrast media data for a 'detailed' or 'series' proc ; Input: IEN=ien of the non-parent, non-broad procedure
SVBEFOR(RAPATN,RAINVDT,RACIEN)	;P18;send radfn,radti,racni (instead of racn and new sequencing of params ; RAPRIEN() holds "before" values
DIAG(X,Y,Z)	; Pass back an "A" if any Dx code has 'Yes' in the 'Generate ; Abnormal Alert' field.
UPDATP(RAY)	;update the parent procedure when a descendent is
MSG(RAPROTO,RAMSG)	; ship HL7 messages to CPRS from this entry point ; input: RAPROTO - protocol to execute ; RAMSG - message (in HL7 format)
CHKUSR(RADUZ)	; Check user status to 'DC' an order. ; pass back '0' if non-active Rad/Nuc Med user ; pass back '1' if active Rad/Nuc Med user
ERR(RATXT,RAMSG,RAVAR)	; Call CPRS utility to log 'soft' errors. ; Input: RATXT-text description of the error ; RAMSG-HL7 message array ; RAVAR-variables to be saved off

Name	Field # of Occurrence
$$HLDATE^HLFNC	MSH+3
EN^ORERR	ERR+4
PROC^RAO7MFN	UPDATP+16
STR70^RAUTL10	SVBEFOR+11
IN5^VADPT	PV1+5
$$NOW^XLFDT	MSH+3
$$ABS^XLFMTH	STR+4
$$UP^XLFSTR	DIAG+5, DIAG+11
MSG^XQOR	MSG+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$P(RAY,U,2)_" is a descendent procedure, updating parent(s)..." Line Location: UPDATP+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	MSH+3
^DIC(42 - [#42]	PV1+7
^DPT - [#2]	PID+1
^RA(78.3 - [#78.3]	DIAG+4, DIAG+10
^RADPT - [#70]	DIAG+3, DIAG+8, DIAG+9, SVBEFOR+3, SVBEFOR+17, SVBEFOR+20
^RAMIS(71 - [#71]	CMEDIA+11, CMEDIA+14, CMEDIA+15, CMEDIA+16, NONPAR+5, NONPAR+6, UPDATP+6, UPDATP+7, UPDATP+9, UPDATP+11 , UPDATP+17
^VA(200 - [#200]	CHKUSR+3, CHKUSR+4

Name	Line Occurrences
$$STR	MSH+3, MSA+4, PID+1, PV1+10
NONPAR	CMEDIA+18, CMEDIA+21

Name	Field # of Occurrence
^(	SVBEFOR+17, SVBEFOR+20
^("RAC"	CHKUSR+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	DIAG+2~, DIAG+8*, DIAG+9
AAH	DIAG+2~, DIAG+6, DIAG+7, DIAG+8, DIAG+12*, DIAG+14
DFN	PV1+2~, PV1+3*
DT	CMEDIA+17, CHKUSR+4, UPDATP+10
DUZ(2	MSH+3
H	NONPAR+4~, NONPAR+6*, NONPAR+7
I	EN1+1~, EN1+3, CMEDIA+12~, CMEDIA+14, CMEDIA+15, NONPAR+4~, NONPAR+5, NONPAR+6
I(0	CMEDIA+15*, CMEDIA+16, CMEDIA+18
IEN	CMEDIA~, CMEDIA+11, CMEDIA+14, CMEDIA+15, CMEDIA+21, NONPAR~, NONPAR+5, NONPAR+6
INA	CMEDIA+12~, CMEDIA+16, CMEDIA+17, CMEDIA+18
J	CMEDIA+12~, CMEDIA+22, NONPAR+7
RA	PV1+2~
RA("PV1"	PV1+4, PV1+7, PV1+8*, PV1+10
RA0	SVBEFOR+2~
RA1	SVBEFOR+2~
RA2	SVBEFOR+2~
RA3	SVBEFOR+2~
RA7003	DIAG+2~, DIAG+3*
RA7003(13	DIAG+3*, DIAG+4
RA71	PURGE1+1!
RA713	PURGE1+1!
RA783	DIAG+2~, DIAG+9*, DIAG+10
RA783(0	DIAG+4, DIAG+5, DIAG+10, DIAG+11
RA783(4	DIAG+5, DIAG+6, DIAG+11, DIAG+12
RACCOUNT	PV1+16!
RACIEN	SVBEFOR~, SVBEFOR+3, SVBEFOR+9, SVBEFOR+11, SVBEFOR+17, SVBEFOR+20
RACMCODE	PURGE1+1!
RACMNOR	PURGE1+1!
RACNT	MFI+1, MFI+2, MFI+3, MFI+4, PURGE!
RACOST	PURGE1+1!
RACPT	PURGE1+1!
RADATA	SVBEFOR+2~, SVBEFOR+3*, SVBEFOR+4, SVBEFOR+6, SVBEFOR+10
RADUZ	CHKUSR~, CHKUSR+3, CHKUSR+4
RAECH	EN1+1*, EN1+3, MSH+3, PURGE!
RAECH(	EN1+3*
RAECH(1	MFI+2
RAFNAME	MFI+2, PURGE!
RAFNUM	MFI+1, PURGE!
RAHLFS	EN1+1*, EN1+2, MSH+3, MSA+4, MFI+1, MFI+3, MFI+4, PV1+10, PURGE!
RAHLFS(0	EN1+2*, STR+1, STR+10, STR+12
RAIEN71	PURGE1+1!
RAIMGAB	PURGE1+1!
RAINADT	CHKUSR+3~*, CHKUSR+4
RAINCR	MFI+5, PURGE!
RAINVDT	SVBEFOR~, SVBEFOR+3, SVBEFOR+8, SVBEFOR+11, SVBEFOR+17, SVBEFOR+20
RAMFE	PURGE1+1!
RAMSG	ERR~, ERR+4, MSG~, MSG+3
RAMULT	PURGE1+1!
RAPATN	SVBEFOR~, SVBEFOR+3, SVBEFOR+7, SVBEFOR+11, SVBEFOR+17, SVBEFOR+20
RAPF	PV1+2~, PV1+10*, PV1+17
RAPHYAP	PURGE1+2!
RAPIEN	UPDATP+5~, UPDATP+6, UPDATP+7, UPDATP+9, UPDATP+11, UPDATP+16, UPDATP+17
RAPIEN("I"	UPDATP+9*, UPDATP+10
RAPIEN("S"	UPDATP+10*, UPDATP+16
RAPIEN(0	UPDATP+7*, UPDATP+8, UPDATP+13
RAPRCTY	PURGE1+2!
>> RAPRIEN	SVBEFOR+6*
>> RAPRIEN("CMOD"	SVBEFOR+16!, SVBEFOR+17*
>> RAPRIEN("TCOM"	SVBEFOR+19!, SVBEFOR+20*
>> RAPRIEN(1	SVBEFOR+7*
>> RAPRIEN(2	SVBEFOR+8*
>> RAPRIEN(3	SVBEFOR+9*
>> RAPRIEN(4	SVBEFOR+10*
>> RAPRIEN(5	SVBEFOR+12*
RAPROTO	MSG~, MSG+3
RAPTYPE	CMEDIA~, CMEDIA+9, CMEDIA+11, CMEDIA+13
RAQUIT	UPDATP+5~, UPDATP+6, UPDATP+12
RARMBED	PV1+2~, PV1+5*, PV1+8
RASUB	PURGE!
RATSTMP	PURGE!
RATXT	ERR~, ERR+4
RAVAR	MFI+1, MFI+2, MFI+3, MFI+4, PURGE!, ERR~, ERR+4
RAWARD	PV1+2~, PV1+5*, PV1+6, PV1+7
RAWARD(44	PV1+7*, PV1+8
RAX	SVBEFOR+2~, SVBEFOR+11, SVBEFOR+12, SVBEFOR+16, SVBEFOR+17, SVBEFOR+19, SVBEFOR+20
RAXIT	PURGE!
RAXT71	PURGE1+2!
RAY	UPDATP~, UPDATP+4, UPDATP+6
U	NONPAR+6, PV1+8, PROCNDE+3, UPDATP+4, UPDATP+8, UPDATP+13
VAIP	PV1+2~
VAIP("D"	PV1+3*
VAIP(5	PV1+5
VAIP(6	PV1+5
X	MSH~, MSH+2, MSH+3, MSA~, MSA+3, MSA+4, MFI~, MFI+3, DIAG~, DIAG+3 , DIAG+8, DIAG+9, PROCNDE~, STR~, STR+1, STR+4, STR+8, STR+10, STR+12
X(0	PROCNDE+3
Y	MSA~, MSA+4, PID~, PID+1, PV1~, PV1+3, PV1+4, DIAG~, DIAG+3, DIAG+8 , DIAG+9
Z	DIAG~, DIAG+3, DIAG+8, DIAG+9

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAO7UTL

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 18

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: