ГОС! Р ИСО 10303-203-2003
IN TYPEOF <х)))
THEN RETURN (FALSE);
END_IF;
OTHERWISE : RETURN (TRUE);
END_CASE ;
RETURN (TRUE):
END_FUNCTION; - - cc_dcsign_datc_time_corrclation
FUNCTION cc_dcsign_pcrson_and_organizatioii_corrclation
(c : cc_dcsign_pcrson_and_organization_assignmcnt) : BOOLEAN:
LOCAL
po_rolc : STRING;
END_LOC’AL ;
|Ю_го1с :■*e\pcrson_and_orgiumation_assignmcnl.rale.name;
CASE porolc OF
’requeslrccipienl’: IF SIZEOF (e.itcms) < >
SIZEOF (QUERY (x <■ e.itcms |
SIZEOF ( |‘CON
FIG
CONTROL DESIGN.’ 4
’CHANGE REQUEST’.
CONFIG CONTROL DESIGN.’ +
START_REQUEST’ | *
TYPEOF (x)) - 1))
THEN RETURN (FALSE);
ENDJF;
’initiator*: IF SIZEOF (e.itcms) < >
SIZEOF (QUERY (x <* e.itcms |
SIZEOF (I’CONFIG CONTROL DESIGN.’4
*CHANGE_REQUEST’.
CONFIG CONTROL DESIGN.’ +
’START_REQUEST‘,
CONFIG CONTROL DESIGN.’ *
’START WORK’,
C0NF1G_C0NTR0L_DESIGN7 *
’CHANGE’ ] *
TYPEOF (x)) - l)>
THEN RETURN (FALSE);
E N D JF;
’creator’; IF SIZEOF (e.itcms) < >
SIZEOF (QUERY (x <* e.itcms |
SIZEOF <(’CONFIG_CONTROL_DESlGN.’ 4
PRODUCT DEFINITION FORMATION’.
CONI IG_CONTROL_DESIGN.’ 4
’part_supplier’
’dcsign_supplicr’
PRODUCT_DEFINITION | *
TYPEOF (x)) *> 1))
THEN RETURN (FALSE) :
ENDJF;
: IF SIZEOF (e.itcms) < >
SIZEOF (QUERY (x <* e.itcms |
*CONFlG_CONTROL_DESIGN.’ +
PRODUCT DEFINITION FORMATION’
IN TYPEOF (x)))
THEN RETURN (FALSE) :
ENDJF;
: IF SIZEOF (e.itcms) < >
SIZEOF (QUERY (x <■ e.itcms |
CONFIG_CONTROL_DESIGN.’ *
PRODUCT DEFINITION FORMATION’
IN TYPEOF (x)))
THEN RETURN (FALSE);
END IF;
184