DSIYUTL1 EQUPDT UPDATE EQUIP

TITLEVALUE
NAMEDSIYUTL1 EQUPDT UPDATE EQUIP
DESCRIPTIONDSIYUTL1

RPC to validate entries and update the Equipment Management file
^ENG(6914)

ASSUMPTIONS:
- GUI will grab all current data on an edit and return all fields for
EDIT
- GUI will only send fields with new data for an ADD
- Some information sent as internal/some as external
- DSIYDAT(field#)=Internal Value ^ External Value

- Considered "all or nothing" if there are errors, update does not
happen
- If this is a NEW entry and problems, node will be deleted if created
TAGEQUPDT
ROUTINEDSIYUTL1
INPUT PARAMETERSSEQUENCE NUMBER1
INPUT PARAMETERFORCE
DESCRIPTIONFORCE

If sent as "S" forces the system to allow the user to enter a duplicate
serial number.
Not Required - defaults to "" if nothing sent and does nothing.
PARAMETER TYPELITERAL
REQUIREDNO
MAXIMUM DATA LENGTH1

INPUT PARAMETERSSEQUENCE NUMBER2
INPUT PARAMETERDSIYDAT
DESCRIPTIONDSIYDAT

Array which contains all of the fields to be updated

DSIYDAT(FIELD#) = INTERNAL^EXTERNAL values for that field.
DSIYDAT(.01) must be the IEN if editing, if blank, it is assumed
to be a new piece of equipment
PARAMETER TYPELIST
REQUIREDYES
MAXIMUM DATA LENGTH60

RETURN VALUE TYPEARRAY
RETURN PARAMETER DESCRIPTIONRETURN PARAMETER

DSIYRET(1)="1^IEN for successful return"
DSIYRET(1)="-1^Error description" for unsuccessful return
DSIYRET(1)="0^Warning Message" for warnings

CRITICAL ERRORS
DSIYRET(2..X)=FIELD^ERROR MESSAGE^CRITICAL

WARNING MESSAGES (Note $P(DSIYRET(1),U,1)=1) if all errors are warnings
DSIYRET(2..X)= ^WARNING MESSAGE^WARNING

There can be a mix of CRITICAL and WARNING messages within a return
AVAILABILITY
INACTIVE
CLIENT MANAGER
WORD WRAP ON
VERSION
SUPPRESS RDV USER SETUP
APP PROXY ALLOWED