PSXRXQU ;BIR/BAB,WPB-CMOP RX QUEUE File Utility ;22 Feb 2002 3:24 PM
Source file <PSXRXQU.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PURGE | ;Purge 550.1 of any entries w/Message Status "IN TRANSITION"
|
|
NEWMSG | ;Increment & create entry in RX QUEUE file, put pid/demog in 'T' ; return PSXMSG, PSX=3
|
|
MSH | ; build patients MSH HL7 segment
|
|
PID | ; build patients PID HL7 segment
|
|
LOADMSG | ; set RXs HL7 text into PSXMSG 'T', set PSXBAT 1////1
|
|
QMSG | ;Queue message for transmission
|
|
ACKN | ;Flag message as Acknowledged
|
|
PROC | ;Flag message as Processed
|
|
STAT | ;Display status of CMOP RX QUEUE
|
|
SUSP | ; put RXs ien int 550.1 RX multiple
|
|
RXMSG | ; put RX ien into 550.1 RX multiple , returns PSXRXMDA DA within 'M'essage multiple
|
|
SET | ;
|
|
STRIP(X) | ;EP Strip control characters out and replace with " "
; $A(124) = Pipe Character '|' |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PSX(550.1 - [#550.1] | Classic Fileman Calls |