Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RAO7UTL

Package: Radiology Nuclear Medicine

Routine: RAO7UTL


Information

RAO7UTL ;HISC/GJC,SS-Utilities for HL7 messages. ; 20 Apr 2011 7:31 PM

Source Information

Source file <RAO7UTL.m>

Call Graph

Call Graph Total: 9

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  

Caller Graph

Caller Graph Total: 18

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  

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

External References

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

Interaction Calls

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

Label References

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

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All