DBIA 2292 ICR (2922)

Name

Value

NUMBER

2922

IA #

2922

DATE CREATED

1999/09/28

CUSTODIAL PACKAGE

PHARMACY BENEFITS MANAGEMENT

CUSTODIAL ISC

Birmingham

USAGE

Private

TYPE

Routine

ROUTINE

PSUDBQUE

NAME

DBIA 2292

GENERAL DESCRIPTION

This API provides the ability to easily double queue
tasks into a compute cycle (no device attatched) and a print cycle (device
attatched). The compute and print routines are identified with appropriate
variables and the tasking is handled by the API.

Optional variables are available to provide controlling various aspects the
jobs and process.

Documentation is also included in the end of the routine.

General processing protocol information

%ZIS with "PQM" is called by PSUDBQUE if '$D(PSUIOP).

The user will be asked to queue if queuing has not been
selected.

IO variables for printing as necessary are automatically
stored.

PSUxx input variables are killed after loading into a PSU
array.

PSUDBQUE can be nested.

The compute and print phases can call PSUDBQUE individually
(PSUIOP is required).

The appropriate %ZTSK node is killed.

The use of ^XTMP in the compute cycle for storage of
information for the print cycle is typical. Subscript values
stored in one of the namespace save variables are automatically
reloaded for the next cycle.
..

STATUS

Withdrawn

KEYWORDS

QUEUE
PSUDBQUE
DOUBLE

DURATION

Till Otherwise Agreed

PSUDBQUE

COMPONENT/ENTRY POINT

VARIABLES

VARIABLES	TYPE	VARIABLES DESCRIPTION
PSURC	Input	Required* The string of "label^routine" for the computing cycle. Format: S PSURC="COMPUTE^PSOCMOPR" * (Optional if PSURP is defined and only print queuing is desired)
PSURP	Input	Required* The string of "label^routine" for the printing cycle. Format: S PSURP="PRINT^PSOCMOPR" * (Optional if PSURC is defined and only compute queuing is desired)
PSURX	Input	Optional The string of "label^routine" for the exit cycle. Format: S PSURX="EXIT^PSOCMOPR" If XTMP is used it should be killed in the last of the print cycle and not here. ZTSK is handled by the API. An EXIT point is recomended particularly if the user is allowed to run the software in the foreground.
PSUNS	Input	PSUNS=namespace(s) of variables to be auto-loaded into ZTSAVE("namespace")="" Format: PSUNS ="DG;AUPN;PS;..." ; (will add '*'if missing). Or ="DG,AUPN,PS,..." ; (may be semi-colon or comma delimited) Or PSUNS("xxx")="" ZTSAVE variable arrays where xxx is as described for ZTSAVE("xxx")="".
PSUFQ	Input	Optional This controlls queuing. If $G(PSUFQ)=1 queuing is forced.
PSUDTH	Input	Optional Tasking date.time in FM format. User is not asked for date & time if this is set.
PSUIOP	Input	Optional A preselected device constructed with: ION_";"_IOST_";"_IOM_";"_IOSL.
PSUPAR	Input	Optional This variable holds the HOST File parameters to be used with PSUIOP if the host file is preselected. Note: S:$D(%ZIS("IOPAR") PSUPAR=%ZIS("IOPAR") is suggested if Host File access is permitted and preselected device is being used.

SUBSCRIBING PACKAGE

SUBSCRIBING PACKAGE	ISC
OUTPATIENT PHARMACY	Birmingham