Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: RAO7UTL

Package: Radiology Nuclear Medicine

Routine: RAO7UTL


Information

RAO7UTL ;HISC/GJC,SS-Utilities for HL7 messages. ;9/5/97 08:55

Source Information

Source file <RAO7UTL.m>

Entry Points

Name Comments DBIA/ICR reference
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
MSH(X) ; Set up the 'MSH' segment.
; 'X' is passed in and identifies the message type.
MSA(X,Y) ; Set up the 'MSA' segment. P18
; 'X' is passed in and identifies the message ID.
; 'Y' is acknowledgement code
MFI(X) ; Set up the 'MFI' segment
PID(Y) ; Create 'pid' segment
PV1(Y) ; Create 'pv1' segment
PURGE
PURGE1 ; kill only whole file update variables
DIAG(X,Y,Z) ; Pass back an "A" if any Dx code has 'Yes' in the 'Generate
; Abnormal Alert' field.
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.
STR(X) ; Pass back a predetermined # of '|' or other field separator
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
MSG(RAPROTO,RAMSG) ; ship HL7 messages to CPRS from this entry point
; input: RAPROTO - protocol to execute
; RAMSG - message (in HL7 format)
UPDATP(RAY) ;update the parent procedure when a descendent is
SVBEFOR(RAPATN,RAINVDT,RACIEN) ;P18;send radfn,radti,racni (instead of racn and new sequencing of params
; RAPRIEN() holds "before" values

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P(RAY,U,2)_" is a descendent procedure, updating parent(s)..."
  • Line Location: UPDATP+4
Info |  Source |  Entry Points |  Interaction Calls