DSIYPO1 PPRC PRINT PC ORDER (3907)    REMOTE PROCEDURE (8994)

Name Value
NAME DSIYPO1 PPRC PRINT PC ORDER
TAG PPRC
ROUTINE DSIYPO1
RETURN VALUE TYPE GLOBAL ARRAY
AVAILABILITY AGREEMENT
WORD WRAP ON TRUE
DESCRIPTION
This 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.
INPUT PARAMETER
  • DSIYPRC
    PARAMETER TYPE:   LITERAL
    MAXIMUM DATA LENGTH:   30
    REQUIRED:   NO
    SEQUENCE NUMBER:   1
    DESCRIPTION:   
    This is the pointer to the Procurement & Accounting Transactions File 
    (file 442) for the requested purchase order number.
    
  • DSIYPON
    PARAMETER TYPE:   LITERAL
    MAXIMUM DATA LENGTH:   30
    REQUIRED:   NO
    SEQUENCE NUMBER:   2
    DESCRIPTION:   
    This field may contain the long (XXX-XXXXXX) or short (XXXXXX) versions 
    of the Purchase Order Number (field #.01 in file 442).
    
RETURN PARAMETER DESCRIPTION
Returns -1^error message if:
 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)="$$442-PO DATA$$"
 array(n)=file or subfile #^file 442 ien or subfile ien^field^E or I^data
 array(n...)=all 442 data fields in the above format
 1) neither parameter 1 or 2 are sent
 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...)=all 410 data fields in the above format
 array(n)="$$STATION$$"
 array(n)=file 411 ien^field^E or I^data
 array(n...)=selected file 411 data fields in the above format
 array(n)="$$VENDOR$$"
 array(n)=file 440 ien or subfile ien^field^E or I^data
 array(n...)=all 440 data fields in the above format
 array(n)="$$USER$$"
 2) there is no entry found in file 442 - Procurement & Accounting
 array(n...)=file 200 electronic signature and title of PA/PPM/AUTHORIZED
 BUYER in format file 200 ien^field^E or I^data
 array(n)="$$END$$"
 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 -