DSIYEQ01 EQVAL VAL EQUIP

TITLEVALUE
NAMEDSIYEQ01 EQVAL VAL EQUIP
DESCRIPTIONEQVAL

Validate whether or not an equipment entry is valid
TAGEQVAL
ROUTINEDSIYEQ01
INPUT PARAMETERSSEQUENCE NUMBER1
INPUT PARAMETERFORCE
DESCRIPTIONFORCE

Send an "S" if the serial number should be forced if it is a dupe.
PARAMETER TYPELITERAL
REQUIREDNO
MAXIMUM DATA LENGTH1

INPUT PARAMETERSSEQUENCE NUMBER2
INPUT PARAMETERDSIYDAT
DESCRIPTIONDSIYDAT

For each field, send:

DSIYDAT(FIELD#)=INTERNAL^EXTERNAL
PARAMETER TYPELIST
REQUIREDYES
MAXIMUM DATA LENGTH200

RETURN VALUE TYPEARRAY
RETURN PARAMETER DESCRIPTIONRETURN PARAMETER

DSIYRET(1) = 1 if equipment validated correctly

DSIYRET(1) = -1 if errors

DSIYRET(1) = "D" if dupes exist

DSIYRET(2..NN) = additional information on errors or dupes
AVAILABILITY
INACTIVE
CLIENT MANAGER
WORD WRAP ON
VERSION
SUPPRESS RDV USER SETUP
APP PROXY ALLOWED