DSSO PRINT PC ORDER

TITLEVALUE
NAMEDSSO PRINT PC ORDER
DESCRIPTIONGets the contents of a Prosthetics 1358 (file 664) entry along with
station and vendor information and privacy statement, if requested, for
printing/faxing.
TAGPPCO
ROUTINEDSSOPPC
INPUT PARAMETERSSEQUENCE NUMBER1
INPUT PARAMETERDSSO664
DESCRIPTIONThe pointer to PROSTHETICS 1358 file (#664).
PARAMETER TYPELITERAL
REQUIREDNO
MAXIMUM DATA LENGTH30
INPUT PARAMETERSSEQUENCE NUMBER2
INPUT PARAMETERDSSOPO
DESCRIPTIONPurchase Card Reference (field 7.5 in file 664).
PARAMETER TYPELITERAL
REQUIREDNO
MAXIMUM DATA LENGTH30
INPUT PARAMETERSSEQUENCE NUMBER3
INPUT PARAMETERDSSOPRI
DESCRIPTION1=return Privacy statement
0 or null=no Privacy statement
PARAMETER TYPELITERAL
REQUIREDNO
MAXIMUM DATA LENGTH1
RETURN VALUE TYPEGLOBAL ARRAY
RETURN PARAMETER DESCRIPTIONReturns -1^error message if neither parameter 1 or 2 are sent or there is
no entry found, or the patient, vendor or station are blank in file 664.
Returns array for printing/faxing a PO in the following format:
array(n)=file 664 ien or subfile ien^field^E or I^data
array(n...)=all 664 data fields in the above format
array(n)="$$STATION$"
array(n...)=station name, address, and other parameters from file 669.9
array(n)="$$STATE ABBREVIATION$$"
array(n)=STATE ABBREVIATION (#1) from file 5 STATE file
array(n)="$$USE AS CITY IF NO STATE$$"
array(n)=INSTITUTION NAME (#.01) from file 4 INSTITUTION file
array(n)=STREET ADDR. 2 (#1.02) from file 4 INSTITUTION file
array(n)="$$VENDOR$$"
array(n...)=vendor name, address, phone/fax, and identifier numbers
If requested,
array(n)="$$PRIVACY STATEMENT$$"
array(n)=privacy statement text
AVAILABILITYAGREEMENT
INACTIVE
CLIENT MANAGER
WORD WRAP ONTRUE
VERSION
SUPPRESS RDV USER SETUP
APP PROXY ALLOWED