DSSO PRINT SIMP/DTLD PC ORDER

TITLEVALUE
NAMEDSSO PRINT SIMP/DTLD PC ORDER
DESCRIPTIONThis RPC gets the contents of a Procurement & Accounting Transactions
(file 442) entry, Control Point Activity (file 410) entry, selected
station data from the Admin. Activity Site Parameters (file 411)
entry, Vendor (file 440) entry, and selected User (file 200) data for
printing/faxing simplified and detailed purchase card orders for the
input purchase order number or IEN. Use RPC DSSO PRINT PC ORDER to
return data for Prosthetics purchase card orders.
TAGPPRC
ROUTINEDSSOPRC
INPUT PARAMETERSSEQUENCE NUMBER1
INPUT PARAMETERDSSOPRC
DESCRIPTIONThis is the pointer to the Procurement & Accounting Transactions File
(file 442) for the requested purchase order number.
PARAMETER TYPELITERAL
REQUIREDNO
MAXIMUM DATA LENGTH30
INPUT PARAMETERSSEQUENCE NUMBER2
INPUT PARAMETERDSSOPON
DESCRIPTIONThis field may contain the long (XXX-XXXXXX) or short (XXXXXX) versions
of the Purchase Order Number (field #.01 in file 442).
PARAMETER TYPELITERAL
REQUIREDNO
MAXIMUM DATA LENGTH30
RETURN VALUE TYPEGLOBAL ARRAY
RETURN PARAMETER DESCRIPTIONReturns -1^error message if:
1) neither parameter 1 or 2 are sent
2) there is no entry found in file 442 - Procurement & Accounting
Transactions file
3) the user is not found in file 200 - New Person file
4) site parameters have not been established in file 411 - Admin.
Activity Site Parameters file
5) no entry is found in file 411 - Admin. Activity Site Parameters file
6) no vendor is present for this purchase order number in file 442 -
Procurement & Accounting Transactions file
7) no authorized buyer exists for this purchase order in file 442 -
Procurement & Accounting Transactions file

Returns array for printing/faxing a simplified or detailed purchase card
order in the following format:

array(n)="$$TITLE LINE DATE/TIME$$^Aug 08, 2019@16:36:54" $Horolog date
used as current date/time for title line
array(n)="$$442-PO DATA$$"
array(n)=file or subfile #^file 442 ien or subfile ien^field^E or I^data
array(n...)=a subset of all 442 data fields in the above format
*NOTE* - File 442 field #1.4, external format, includes a "-" and the
numeric portion of field #1 FCP (i.e. - "442^99999595,^1.4
^E^36X0160-910")
File 442 field #5.2, external format, includes file 49 field
#1.5 Mail Symbol in parentheses (i.e. - "442^99999595,^5.2
^E^PROSTHETICS AND SENSORY AIDS(121)")
File 442 field #8, external format, is pre-formatted for both
Supply and Fiscal values (i.e. - "442^99999595,^8^E^SOURCE
CODE: SUPPLY- COMB.2,4,6 FISCAL-3")
File 442 field #46 PURCHASE CARD NUMBER external format has a
caret and the PURCHASE CARD NAME (file 440.5, field 10)
appended
File 442 field #99999999, external format, is the FCP/PRJ value
from file 420 field 27 FCP/PRJ that is to be displayed after
the BOC information.
array(n)="$$410-2237 DATA$$" (file 410 entries are optional)
array(n)=file or subfile #^file 410 ien or subfile ien^field^E or I^data
array(n...)=field #.01 TRANSACTION NUMBER in the above format
array(n...)=field 451 PURCHASE CARD RECORD
array(n)="$$STATION$$"
array(n)=file 411 ien^field^E or I^data
array(n...)=selected file 411 and subfile 411.01 data fields in the above
format
array(n)="$$VENDOR$$"
array(n)=file 440 ien or subfile ien^field^E^data - external values
only
array(n...)=selected 440 data fields in the above format
array(n)="$$USER$$"
array(n...)=file 200 NAME (#.01) in format file 200 ien^field^E^data
- external values only
array(n...)="$$END$$"
AVAILABILITYAGREEMENT
INACTIVE
CLIENT MANAGER
WORD WRAP ONTRUE
VERSION
SUPPRESS RDV USER SETUP
APP PROXY ALLOWED