Routine: PSXRPPL

Information

PSXRPPL ;BIR/WPB,BAB-Gathers data for the CMOP Transmission ;13 Mar 2002 10:31 AM

Source file <PSXRPPL.m>

Name	Comments	DBIA/ICR reference
SDT	;
EXIT	;
GETDATA	;Screens rxs and builds data
SET
DELETE	; deletes the CMOP STATUS field in PS(52.5, reindex 'AC' x-ref
CHKDFN	;
BEGIN	; Select print device
PROFILE
FDAMG	; Selects FDA Medication Guide Printer
PRT	; Print labels.
DFN
BLD	;
ACTLOG
LOCK
PPL
PPL1	; print patient labels
DQUE	; sets the CMOP indicator field, and printed field in 52.5
RX550215	; put RX into RX multiple TRANS 550.215 for PSXBAT
OERRLOCK(RXN)	; set XTMP for OERR/CPRS order locking
RXNSET	; set ^XTMP("ORLK-"_ORDER per IA 4001 needs RXN
RXNCLEAR	; needs RXN

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BEGIN+3
Function Call: WRITE	Prompt: !,"You must select a printer!",! Line Location: BEGIN+4
Function Call: WRITE	Prompt: !,"You must select a printer!",! Line Location: PROFILE+2
Function Call: WRITE	Prompt: $C(7),!,"You must select a valid FDA Medication Guide printer." Line Location: FDAMG+4

FileNo	Call Tags
^PS(52.5 - [#52.5]	Classic Fileman Calls, GET1^DIQ
^PSX(550.2 - [#550.2]	Classic Fileman Calls
^PS(59 - [#59]	GET1^DIQ