DSSO PRINT RFQ/10-90

TITLEVALUE
NAMEDSSO PRINT RFQ/10-90
DESCRIPTIONThis RPC returns data for viewing/printing the ADP FL 10-90 Request for
Quote letter.
TAGPRINT
ROUTINEDSSOFOPR
INPUT PARAMETERSSEQUENCE NUMBER1
INPUT PARAMETERDSSO6654
DESCRIPTIONIEN of the PROS LETTER TRANSACTIONS (#665.4) file to be printed
PARAMETER TYPELITERAL
REQUIREDYES
MAXIMUM DATA LENGTH15
INPUT PARAMETERSSEQUENCE NUMBER2
INPUT PARAMETERDSSO6699
DESCRIPTIONIEN of PROSTHETICS SITE PARAMETERS (#669.9) file
PARAMETER TYPELITERAL
REQUIREDYES
MAXIMUM DATA LENGTH15
RETURN VALUE TYPEGLOBAL ARRAY
RETURN PARAMETER DESCRIPTIONOutput:
Error Messages: DSSORET(0)="-1^"_error message or "0^"_warning message
Successful Completion: returns a global array of sections containing
various data to be used in displaying an RFQ/10-90 letter.
DSSORET(n)= p1
where p1 = a line of data to be used in displaying the
RFQ/10-90 letter
The sections include:
$HEADER includes:
HDR^"REQUEST FOR QUOTATION"
REQDATE^date the letter was first generated (file
665.4 field #11)
$VENDOR - includes: (all from VENDOR (#440) file)
NAME^data (mandatory) NAME
ADDR1^data (if null, don?t return) ORDERING ADDRESS1
ADDR2^data (if null, don?t return) ORDERING ADDRESS2
ADDR3^data (if null, don?t return) ORDERING ADDRESS3
ADDR4^data (if null, don?t return) ORDERING ADDRESS4
CITY^data ORDERING CITY
STATE^data (abbreviation) ORDERING STATE
ZIP^data ORDERING ZIP CODE
PHONE^data VENDOR PHONE NUMBER
FAX^data FAX #
$FACILITY includes: (all from file 669.9)
REQSERVICE^"Prosthetics Service"
NAME^data NAME
ADDR1^data (only address line) STREET ADD1
CITY^data CITY
STATE^data (abbreviation) STATE^data
If STATE is blank, CITY will be
NAME (file 4, field .01).
ZIP^data ZIP CODE
$VETERAN:
NAME^data format: LAST, FIRST NAME from PATIENT
file (#2)
$BODY1:
Text for letter from template (one line for RFQ)

$BODY1-END
$BODY2: (from file 665.2)
Text for letter from template (6 lines for RFQ)
$BODY2-END
$SIGNATURE
SIG^data CHIEF SIG BLOCK
(file 669.9)
TITLE^data SIGNATURE BLOCK TITLE
(file 669.9)
$ITEMS
Each line in the ITEM multiple of the Pros Letter
Transactions file (#665.4) will be provided here.
If no ITEM exists in the multiple, "No items found."
will appear between $ITEM and $ITEM-END.
$ITEMS-END
$TRAILER
TRLR^FL 10-90 ADP
AVAILABILITY
INACTIVE
CLIENT MANAGER
WORD WRAP ONTRUE
VERSION
SUPPRESS RDV USER SETUP
APP PROXY ALLOWED