Routine: PSXRXQU

Information

PSXRXQU ;BIR/BAB,WPB-CMOP RX QUEUE File Utility ;15-Nov-2013 13:10;DU

Source file <PSXRXQU.m>

Package	Total	Caller Graph
CMOP	2	PSXBLD PSXRSYU

Name	Comments	DBIA/ICR reference
LOADMSG	; set RXs HL7 text into PSXMSG 'T', set PSXBAT 1////1
STAT	;Display status of CMOP RX QUEUE
SET	;
STRIP(X)	;EP Strip control characters out and replace with " " ; $A(124) = Pipe Character '\|'
ACKN	;Flag message as Acknowledged
PID	; build patients PID HL7 segment
NEWMSG	;Increment & create entry in RX QUEUE file, put pid/demog in 'T' ; return PSXMSG, PSX=3
PURGE	;Purge 550.1 of any entries w/Message Status "IN TRANSITION"
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
MSH	; build patients MSH HL7 segment
QMSG	;Queue message for transmission
PROC	;Flag message as Processed

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
Routine Call	DIE Line Location: QMSG+2
Routine Call	DIC Line Location: NEWMSG+5

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	PID+1
^PS(55 - [#55]	PID+6, PID+8
^PS(59.7 - [#59.7]	PID+9
^PSX(550.1 - [#550.1]	PURGE+1, MSH+2, PID+1, PID+4, PID+10, PID+11, PID+22, LOADMSG+2, LOADMSG+4, LOADMSG+7* , LOADMSG+8, QMSG+1, QMSG+2, STAT+1, STAT+2, RXMSG+1

Name	Line Occurrences
$$STRIP	MSH+4
SET	SET+3

Name	Field # of Occurrence
>> %	NEWMSG+4
BEG	ACKN+1!
DA	PURGE+1, PURGE+2!, QMSG+1, QMSG+2!, SET+2*, SET+3!
DA(1	SET+2*
DD	NEWMSG+4!, SET+1!
>> DFN	PID+6, PID+8
DIC	NEWMSG+4, NEWMSG+5!, SET+1!, SET+2, SET+3!
DIC("DR"	NEWMSG+4, SET+2, SET+3!
DIC(0	NEWMSG+4, SET+2
DIE	QMSG+1*, QMSG+2!
DIK	PURGE+1*, PURGE+2!
>> DLAYGO	NEWMSG+4*
DO	NEWMSG+4!, SET+1!
DR	QMSG+1*, QMSG+2!
DTOUT	NEWMSG+5!
DUOUT	NEWMSG+5!
I	MSH+4, STRIP+2~, STRIP+3
MSG	PURGE+1*, PURGE+2!
>> PSSWSITE	PID+9
>> PSX	LOADMSG+1, LOADMSG+2, LOADMSG+4, LOADMSG+7, LOADMSG+8
PSX1	STAT+1~, STAT+2, STAT+3, STAT+4
PSX2	STAT+1~, STAT+2*, STAT+3
PSXLANG	PID+6, PID+7, PID+8, PID+9, PID+10!
>> PSXMSG	NEWMSG+3*, MSH+2, PID+1, PID+4, PID+10, PID+11, PID+22, LOADMSG+2, LOADMSG+4, LOADMSG+7 , LOADMSG+8, QMSG+1, RXMSG+1, SET+2
>> PSXNM	PID+1
PSXORD	LOADMSG+6, QMSG+2!
PSXORD(	LOADMSG+7
PSXORD("E"	LOADMSG+4, LOADMSG+5!
PSXORD("M"	LOADMSG+2, LOADMSG+3!
>> PSXRXMDA	SET+4*
PSXTS	MSH+2!
>> RX	SET+2
>> RXF	SET+2
TDT	PID+19, PID+20, PID+21, PID+22, PID+23!
TDT1	PID+21*, PID+23!
TDT2	PID+21*, PID+23!
TDT3	PID+21*, PID+23!
>> VA("PID"	PID+11
VADM	PID+23!, LOADMSG+9!
VADM(2	MSH+3, PID+1
VAPA	PID+23!, LOADMSG+9!
VAPA(	MSH+4, MSH+5
VAPA(1	PID+1
VAPA(10	PID+19
VAPA(11	PID+1
VAPA(2	PID+1
VAPA(3	PID+20, PID+22
VAPA(4	PID+1
VAPA(5	PID+1
VAPA(8	PID+3
X	NEWMSG+3, LOADMSG+2, LOADMSG+3!, LOADMSG+4, LOADMSG+5!, LOADMSG+7, STAT+1~, SET+2, SET+3!, STRIP~ , STRIP+3, STRIP+4
X1	MSH+3*, PID+1, PID+23!, LOADMSG+9!
>> XX	PID+3*, PID+4
>> Y	SET+3, SET+4
YT	MSH+5*, PID+23!
Z	STRIP+2~, STRIP+3*