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