1: PACKAGE BODY MRP_Validate_Sourcing_Rule AS
2: /* $Header: MRPLSRLB.pls 120.1 2005/06/16 11:42:12 ichoudhu noship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: MRPLSRLB.pls 120.1 2005/06/16 11:42:12 ichoudhu noship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'MRP_Validate_Sourcing_Rule';
7:
8: -- Procedure Entity
9:
10: PROCEDURE Entity
161: ( p_Sourcing_Rule_rec.Sourcing_Rule_Id <>
162: p_old_Sourcing_Rule_rec.Sourcing_Rule_Id OR
163: p_old_Sourcing_Rule_rec.Sourcing_Rule_Id IS NULL ))
164: THEN
165: IF NOT MRP_Validate.Sourcing_Rule
166: ( p_Sourcing_Rule_rec.Sourcing_Rule_Id
167: )
168: THEN
169: dbms_output.put_line ('Error Sourcing_Rule_Id');
1152: RETURN TRUE;
1153:
1154: END Val_Status;
1155:
1156: END MRP_Validate_Sourcing_Rule;