PACKAGE BODY: APPS.OE_1025PC2_LINE_INCITEM

Source

1 PACKAGE BODY OE_1025PC2_LINE_INCITEM 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_PAYMENT_SECURITY.g_record.LINE_ID
20    AND   a.ITEM_TYPE_CODE = 'INCLUDED'
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_1025PC2_LINE_INCITEM;