PACKAGE BODY: APPS.MSC_ATP_REFRESH

Source

1 PACKAGE BODY  MSC_ATP_REFRESH AS
2 /* $Header: MSCATPRB.pls 120.0.12010000.1 2010/03/17 20:54:44 hulu noship $  */
3 
4 
5 procedure RefreshATPSnapshot (	userId IN NUMBER,
6                      		respId IN NUMBER,
7                      		appId IN NUMBER)
8 IS
9 l_request_id                    NUMBER;
10 BEGIN
11 
12 
13 	  --fnd_global.apps_initialize(1068,21634,724);
14 
15 	  fnd_global.apps_initialize(userId,respId,appId);
16 
17           l_request_id := FND_REQUEST.SUBMIT_REQUEST(
18                                         'MSC',
19                                         'MSCREFMV',
20                                         NULL,   -- description
21                                         NULL,   -- start time
22                                         FALSE,  -- sub request
23                                         'MSC_ATP_PLAN_SN',
24                                         724);
25          Commit;
26 
27          dbms_output.put_line('ReqId = ' || l_request_id);
28 
29 	 --return requestId  ;
30 EXCEPTION
31    WHEN OTHERS THEN
32              msc_util.msc_log ('Conc. program error : ' || sqlcode || ':' || sqlerrm);
33 	     --return -1;
34 
35    END;
36 
37 
38 END MSC_ATP_REFRESH;
39