1 PACKAGE BODY OE_1019PC2_LINE_REGLINE 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.BLANKET_NUMBER = OE_BLANKET_LINE_SECURITY.g_record.ORDER_NUMBER
20 AND a.BLANKET_LINE_NUMBER = OE_BLANKET_LINE_SECURITY.g_record.LINE_NUMBER
21 AND a.LINE_CATEGORY_CODE = 'ORDER'
22 ;
23
24 CURSOR C_RSC IS
25 SELECT count(*)
26 FROM OE_AK_ORDER_LINES_V a
27 WHERE a.BLANKET_NUMBER = OE_BLANKET_LINE_SECURITY.g_record.ORDER_NUMBER
28 AND a.BLANKET_LINE_NUMBER = OE_BLANKET_LINE_SECURITY.g_record.LINE_NUMBER
29 ;
30
31 BEGIN
32 x_result := 0;
33 OPEN C_VC;
34 FETCH C_VC into l_valid_count;
35 CLOSE C_VC;
36 If (l_valid_count > 0) then
37 If (p_scope = 'ALL') then
38 OPEN C_RSC;
39 FETCH C_RSC into l_set_count;
40 CLOSE C_RSC;
41 If (l_valid_count = l_set_count) then
42 x_result := 1;
43 End If;
44 Else
45 x_result := 1;
46 End If;
47 End If;
48 Return;
49 END Is_Valid;
50 END OE_1019PC2_LINE_REGLINE;