PACKAGE BODY: APPS.OE_1019PC2_LINE_CANLINE

Source

1 PACKAGE BODY OE_1019PC2_LINE_CANLINE 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.CANCELLED_FLAG = 'Y'
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_CANLINE;