RAO7UTL ;HISC/GJC,SS-Utilities for HL7 messages. ;9/5/97 08:55
Source file <RAO7UTL.m>
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|