PACKAGE BODY: APPS.OE_6PC6_HDRADJS_DISSUR

Source

1 PACKAGE BODY OE_6PC6_HDRADJS_DISSUR 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_HEADER_PRCADJS_V a 
19    WHERE a.LIST_LINE_TYPE_CODE <> 'FREIGHT_CHARGE'
20    AND   (  a.PRICE_ADJUSTMENT_ID ) IN  
21                  ( SELECT  b.PRICE_ADJUSTMENT_ID
22    FROM OE_AK_HEADER_PRCADJS_V b 
23    WHERE   b.HEADER_ID =  OE_HEADER_ADJ_SECURITY.g_record.HEADER_ID
24                   );
25  
26    CURSOR C_RSC IS 
27    SELECT count(*) 
28    FROM OE_AK_HEADER_PRCADJS_V b 
29    WHERE   b.HEADER_ID =  OE_HEADER_ADJ_SECURITY.g_record.HEADER_ID
30 ;
31  
32 BEGIN 
33    x_result := 0; 
34    OPEN C_VC; 
35    FETCH C_VC into l_valid_count; 
36    CLOSE C_VC; 
37    If (l_valid_count > 0)  then 
38       If (p_scope = 'ALL')  then 
39          OPEN C_RSC; 
40          FETCH C_RSC into l_set_count; 
41          CLOSE C_RSC; 
42          If (l_valid_count = l_set_count) then 
43             x_result := 1; 
44          End If; 
45       Else 
46          x_result := 1; 
47       End If; 
48    End If; 
49    Return; 
50 END Is_Valid;
51 END OE_6PC6_HDRADJS_DISSUR;