Printer Look-up
By Nicholette E. Harris
A customer with multiple sites running Siemens solutions requested the ability to type in a printer name on screen PRDSPL01 and have all the applicable document groups returned on a separate screen. The
customer suggested the use of tcl PRSYALL to accomplish the task but this tcl assumes the document groups are already available in the auda, which is not the case. Furthermore, model processing references
PRPR1 has document group id as the key field.
Successful completion of the task requires bypassing Siemens programs and using a custom profile and logic in PRALC. First, %PRTR is added to screen PRDSPL01 as an input field and creates a new hospital
profile; in this case, PRHR1. This custom profile uses printer name as its key field and has fourteen fields to accommodate multiple document groups. (The new profile must be updated whenever a document group
is added or removed from a printer.)
Second, a profile data entry screen is created for populating the custom profile.
Third, PRALC is modified to include two new members to format the document group lines on PRDSPLP2. The set-up before reading PRALC includes a new tcl to assign the (%PRTR) value to PCALCID. %DOCG is
valued based on the value in %PRTR. If the value in %PRTR is found in PRHR1, the member is unloaded in the auda while logic in PRALC assigns the document groups to corresponding occurrences of %DOCG.
A modification is made to model tcl PRYSALL which included moving the dva of %PRMSTR to the conditional stack and calling the tcl that values PCALCID again:
WHERE "%PRTR" IS VALUED
THEN "%PRNT"="%PRTR",
$T=CUSTOMTCL
ELSE "%PRMSTR"='*'
A second custom tcl values PCALCID again and calls program CHPPDVAL. The following logic is executed to format each line:
IF "%DOCG" IS VALUED THEN
"%LINE01"="%DOCG" ||' 1PLY 99 NO';
This coding is repeated as necessary for each document group.
This is a quick and easy build for the customer who wishes to look up a single printer. The drawback is the additional maintenance required to sustain the new profile.
For further questions about this customization or any other query, contact your VCS consultant, call us at 610-444-1233, or email vcs@getvitalized.com.