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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSXRXQU

Package: CMOP

Routine: PSXRXQU


Information

PSXRXQU ;BIR/BAB,WPB-CMOP RX QUEUE File Utility ;22 Feb 2002 3:24 PM

Source Information

Source file <PSXRXQU.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Next Order Number to Transmit : ",$S(PSX2:PSX2,1:PSX1)
  • Line Location: STAT+3
Function Call: WRITE
  • Prompt: !!,"Last Order Number Generated : ",PSX1
  • Line Location: STAT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSX(550.1 - [#550.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call