1 PACKAGE BODY OE_1PC1_ORDER_INTREJ AS
2 PROCEDURE Is_Valid
3 (
4 p_application_id in number,
5 p_entity_short_name in varchar2,
6 p_validation_entity_short_name in varchar2,
7 p_validation_tmplt_short_name in varchar2,
8 p_record_set_short_name in varchar2,
9 p_scope in varchar2,
10 x_result out nocopy number
11 )
12 IS
13 l_valid_count NUMBER := 0;
14 l_set_count NUMBER := 0;
15
16
17
18 BEGIN
19 x_result := 0;
20 IF OE_HEADER_SECURITY.g_record.FLOW_STATUS_CODE = 'DRAFT_INTERNAL_REJECTED'
21 THEN
22 l_valid_count := 1;
23 END IF;
24 If (l_valid_count > 0) then
25 x_result := 1;
26 End If;
27 Return;
28 END Is_Valid;
29 END OE_1PC1_ORDER_INTREJ;