1 PACKAGE BODY MSC_ATP_CUSTOM AS
2 /* $Header: MSCATPCB.pls 120.2 2007/12/12 10:21:43 sbnaik ship $ */
3 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('MSC_ATP_DEBUG'), 'N');
4
5 PROCEDURE Custom_Pre_Allocation (
6 p_plan_id IN NUMBER
7 ) IS
8
9 -- Enter the procedure variables here.
10 BEGIN
11
12 -- Enter the custom code here.
13 NULL;
14
15 EXCEPTION
16 WHEN others THEN
17 NULL;
18
19 END Custom_Pre_Allocation;
20
21
22 PROCEDURE Custom_Post_ATP_API ( p_atp_rec IN MRP_ATP_PUB.ATP_Rec_Typ,
23 x_atp_rec OUT NOCOPY MRP_ATP_PUB.ATP_Rec_Typ,
24 x_modify_flag OUT NOCOPY NUMBER,
25 x_return_status OUT NOCOPY VARCHAR2
26 )
27
28 /* Parameter Details
29 p_atp_rec -- Input table. This table contains information generated by ATP engine
30 x_atp_rec -- Output table. This table contains modified information
31 x_modify_flag -- This flag indicates whether information generated by ATP is modified in this API or not.
32 Values: 1- Information has been modified 2- No Changes
33
34 x_return_status -- Return Status from the API
35 */
36 IS
37 BEGIN
38 IF PG_DEBUG in ('Y', 'C') THEN
39 msc_sch_wb.atp_debug('Enter Custom_Post_ATP_API');
40 END IF;
41 -- initialize API return status to success
42 x_return_status := FND_API.G_RET_STS_SUCCESS;
43 x_modify_flag := 2;
44
45 --- Add code below to modify information generated by ATP engine.
46
47 --Finish Custom Code
48 IF PG_DEBUG in ('Y', 'C') THEN
49 msc_sch_wb.atp_debug('Exit Custom_Post_ATP_API');
50 END IF;
51
52 EXCEPTION
53 WHEN OTHERS THEN
54 x_return_status := FND_API.G_RET_STS_ERROR;
55 x_modify_flag := 2;
56 END Custom_Post_ATP_API;
57
58
59 END MSC_ATP_CUSTOM;