PACKAGE BODY: APPS.MTH_SRC_PKG

Source

1 PACKAGE BODY MTH_SRC_PKG AS
2 /*$Header: mthsrcb.pls 120.0.12020000.1 2012/07/24 16:12:30 sasuren noship $*/
3 
4 PROCEDURE MTH_INVOKE_EAM_WORK_REQUEST (p_event_id IN NUMBER,
5                                        p_asset_number IN varchar2,
6                                        p_asset_group_id IN NUMBER,
7                                        p_organization_id IN NUMBER)
8 AS
9   l_wr_rec WIP_EAM_WORK_REQUESTS%ROWTYPE;
10   l_work_request_id NUMBER;
11   l_return_status VARCHAR2(50);
12   l_msg_count NUMBER;
13   l_msg_data VARCHAR2(50);
14   v_desc varchar2(50);
15   v_mode varchar2(30) := 'CREATE';
16   v_user_id NUMBER := -1;
17 
18 BEGIN
19   l_wr_rec.work_request_priority_id := 1.0;
20   l_wr_rec.expected_resolution_date := SYSDATE+1;
21   l_wr_rec.organization_id := p_organization_id;
22   l_wr_rec.asset_number := p_asset_number;
23   l_wr_rec.asset_group := p_asset_group_id;
24   v_desc :=  'moc_event_id_' || p_event_id;
25 
26   WIP_EAM_WORKREQUEST_PUB.WORK_REQUEST_IMPORT
27           ( p_mode => v_mode,
28             p_work_request_rec => l_wr_rec,
29             p_request_log => v_desc,
30             p_user_id => v_user_id,
31             x_work_request_id => l_work_request_id,
32             x_return_status => l_return_status ,
33             x_msg_count => l_msg_count,
34             x_msg_data => l_msg_data
35            );
36 
37 END MTH_INVOKE_EAM_WORK_REQUEST;
38 
39 END MTH_SRC_PKG;
40