PACKAGE BODY: APPS.OE_1PC1_ORDER_CUSTACC

Source

1 PACKAGE BODY OE_1PC1_ORDER_CUSTACC 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  l_wf_item_type varchar2(8) :='OENH';
17  l_wf_activity_name varchar2(30) :='CUSTOMER_ACCEPTED';
18  l_wf_activity_status_code varchar2(8) :='COMPLETE';
19    CURSOR C_VC  IS 
20    SELECT count(*) 
21    FROM wf_item_activity_statuses  w, wf_process_activities wpa
22    WHERE w.item_type     = l_wf_item_type
23    AND w.process_activity = wpa.instance_id
24    AND wpa.activity_name = l_wf_activity_name
25    AND w.activity_status = l_wf_activity_status_code
26    AND   w.item_key = OE_HEADER_SECURITY.g_record.HEADER_ID || ''
27 ;
28  
29  
30 BEGIN 
31    x_result := 0; 
32    OPEN C_VC; 
33    FETCH C_VC into l_valid_count; 
34    CLOSE C_VC; 
35    If (l_valid_count > 0)  then 
36       x_result := 1; 
37    End If; 
38    Return; 
39 END Is_Valid;
40 END OE_1PC1_ORDER_CUSTACC;