PACKAGE BODY: APPS.OE_2PC2_LINE_RCVED

Source

1 PACKAGE BODY OE_2PC2_LINE_RCVED 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  
17  
18 BEGIN 
19    x_result := 0; 
20   IF OE_LINE_SECURITY.g_record.SHIPPED_QUANTITY IS NOT NULL 
21    AND   OE_LINE_SECURITY.g_record.SHIPPED_QUANTITY <> 0
22    AND   OE_LINE_SECURITY.g_record.LINE_CATEGORY_CODE = 'RETURN'
23   THEN 
24   l_valid_count := 1; 
25   END IF;
26    If (l_valid_count > 0)  then 
27       x_result := 1; 
28    End If; 
29    Return; 
30 END Is_Valid;
31 END OE_2PC2_LINE_RCVED;