PACKAGE BODY: APPS.OE_2PC2_ORDLINS_PURREL

Source

1 PACKAGE BODY OE_2PC2_ORDLINS_PURREL 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) :='OEOL';
17  l_wf_activity_name varchar2(30) :='PUR_REL_THE_LINE';
18  l_wf_activity_status_code varchar2(8) :='COMPLETE';
19  l_wf_activity_result_code varchar2(30) :='COMPLETE';
20    CURSOR C_VC  IS 
21    SELECT count(*) 
22    FROM wf_item_activity_statuses  w, wf_process_activities wpa
23    WHERE w.item_type     = l_wf_item_type
24    AND w.process_activity = wpa.instance_id
25    AND wpa.activity_name = l_wf_activity_name
26    AND w.activity_status = l_wf_activity_status_code
27    AND w.activity_result_code = l_wf_activity_result_code
28    AND   w.item_key IN 
29                     ( SELECT b.LINE_ID || ''
30                          FROM OE_AK_ORDER_LINES_V b 
31    WHERE  b.HEADER_ID =  OE_LINE_SECURITY.g_record.HEADER_ID
32                     );
33  
34    CURSOR C_RSC IS 
35    SELECT count(*) 
36    FROM OE_AK_ORDER_LINES_V b 
37    WHERE  b.HEADER_ID =  OE_LINE_SECURITY.g_record.HEADER_ID
38 ;
39  
40 BEGIN 
41    x_result := 0; 
42    OPEN C_VC; 
43    FETCH C_VC into l_valid_count; 
44    CLOSE C_VC; 
45    If (l_valid_count > 0)  then 
46       If (p_scope = 'ALL')  then 
47          OPEN C_RSC; 
48          FETCH C_RSC into l_set_count; 
49          CLOSE C_RSC; 
50          If (l_valid_count = l_set_count) then 
51             x_result := 1; 
52          End If; 
53       Else 
54          x_result := 1; 
55       End If; 
56    End If; 
57    Return; 
58 END Is_Valid;
59 END OE_2PC2_ORDLINS_PURREL;