1 PACKAGE BODY OE_2PC2_LINE_CLOSED 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 CURSOR C_VC IS
17 SELECT count(*)
18 FROM OE_AK_ORDER_LINES_V a
19 WHERE a.LINE_ID = OE_LINE_SECURITY.g_record.LINE_ID
20 AND a.OPEN_FLAG = 'N'
21 ;
22
23
24 BEGIN
25 x_result := 0;
26 OPEN C_VC;
27 FETCH C_VC into l_valid_count;
28 CLOSE C_VC;
29 If (l_valid_count > 0) then
30 x_result := 1;
31 End If;
32 Return;
33 END Is_Valid;
34 END OE_2PC2_LINE_CLOSED;