[Home] [Help]
PACKAGE BODY: APPS.OE_7PC1_ORDER_INTAPPR
Source
1 PACKAGE BODY OE_7PC1_ORDER_INTAPPR 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) :='INTERNAL_APPROVAL_PROCESS';
18 l_wf_activity_status_code varchar2(8) :='COMPLETE';
19 l_wf_activity_result_code varchar2(30) :='APPROVED';
20 CURSOR C_VC IS
21 SELECT count(*)
22 FROM wf_item_activity_statuses w, wf_process_activities wpa
23 ,OE_AK_ORDER_HEADERS_V a
24 WHERE w.item_type = l_wf_item_type
25 AND w.process_activity = wpa.instance_id
26 AND wpa.activity_name = l_wf_activity_name
27 AND w.activity_status = l_wf_activity_status_code
28 AND w.activity_result_code = l_wf_activity_result_code
29 AND w.item_key = a.HEADER_ID || ''
30 AND a.HEADER_ID = OE_LINE_SCREDIT_SECURITY.g_record.HEADER_ID
31 ;
32
33
34 BEGIN
35 x_result := 0;
36 OPEN C_VC;
37 FETCH C_VC into l_valid_count;
38 CLOSE C_VC;
39 If (l_valid_count > 0) then
40 x_result := 1;
41 End If;
42 Return;
43 END Is_Valid;
44 END OE_7PC1_ORDER_INTAPPR;