DSIYUTL7 EQMAINT MAINT PERFMD

TITLEVALUE
NAMEDSIYUTL7 EQMAINT MAINT PERFMD
DESCRIPTIONEQMAINT
RPC to return equipment maintenance information for a piece of equipment,
will return a message indicating no maintenance if none was performed,
else the return value will be:

RET(#)=IEN^Date^Type of Maintenance^Work Order#^Status^Work Performed
TAGEQMAINT
ROUTINEDSIYUTL7
INPUT PARAMETERSSEQUENCE NUMBER1
INPUT PARAMETERIEN
DESCRIPTIONIEN
Required
IEN to the Equipment Management File ^ENG(6914)
PARAMETER TYPELITERAL
REQUIREDYES
MAXIMUM DATA LENGTH11

RETURN VALUE TYPEARRAY
RETURN PARAMETER DESCRIPTIONRETURN PARAMETER

DSIYRET(1)="0^No Maintenance Performed on this Piece of Equipment" if no
maintenance found,

Else

DSIYRET(#) = IEN^Date of Maintenance (internal VistA format)^Type of
Maintenance^Work Order #^Status^Work Performed (first 30 characters)
AVAILABILITYPUBLIC
INACTIVEACTIVE
CLIENT MANAGER
WORD WRAP ON
VERSION
SUPPRESS RDV USER SETUP
APP PROXY ALLOWED