[Home] [Help]
PACKAGE BODY: APPS.AMS_GEN_SUP_LIST_PVT
Source
1 PACKAGE BODY AMS_Gen_Sup_List_PVT AS
2 /* $Header: amsvsplb.pls 115.6 2003/02/15 00:00:11 gjoby ship $ */
3
4 -----------------------------------------------------------
5 -- PACKAGE
6 -- AMS_Gen_Sup_List_PVT
7 --
8 -- PROCEDURES
9 --
10 -- HISTORY
11 -- 30-MAY-2001 vbhandar Created.
12 ------------------------------------------------------------
13
14 G_PKG_NAME CONSTANT VARCHAR2(30) := 'AMS_Gen_Sup_List_PVT';
15
16 -----------------------------------------------------------
17 -- PROCEDURE
18 -- Schedule_Suppression_List
19 -- HISTORY
20 -----------------------------------------------------------
21 AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
22 AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
23 AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
24
25 PROCEDURE Schedule_Suppression_List(
26 errbuf OUT NOCOPY VARCHAR2,
27 retcode OUT NOCOPY NUMBER
28
29 )
30 IS
31 L_API_VERSION CONSTANT NUMBER := 1.0;
32
33 l_list_header_id NUMBER;
34 l_list_name VARCHAR2(240);
35 l_return_status VARCHAR2(1);
36 l_cnt NUMBER := 0 ;
37 l_msg_count NUMBER;
38 l_msg_data VARCHAR2(4000);
39
40 CURSOR c_sup_list IS
41 SELECT list_header_id,list_name
42 FROM ams_list_headers_vl
43 WHERE list_type='SUPPRESSION'
44 AND STATUS_CODE NOT IN('ARCHIVED','CANCELLED');
45
46 BEGIN
47
48 FND_FILE.PUT_LINE(FND_FILE.LOG,'Start Suppression List Generation ');
49
50 OPEN c_sup_list;
51 LOOP
52 FETCH c_sup_list INTO l_list_header_id,l_list_name ;
53 EXIT WHEN c_sup_list%NOTFOUND;
54
55 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Suppression list Header Id : '||l_list_header_id );
56 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Suppression list Header Name : '||l_list_name );
57
58 errbuf:= 'Suppression List Generation';
59 retcode:=0;
60
61
62 AMS_ListGeneration_PKG.Generate_List (
63 p_api_version => L_API_VERSION,
64 p_init_msg_list => FND_API.g_true,
65 p_commit => FND_API.g_true,
66 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
67 p_list_header_id => l_list_header_id,
68 x_return_status => l_return_status,
69 x_msg_count => l_msg_count,
70 x_msg_data => l_msg_data
71
72 );
73
74 IF l_return_status <> FND_API.g_ret_sts_success THEN
75 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
76 FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
77 FND_MSG_PUB.Add;
78 FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION in list gen package: AMS_Gen_Sup_List_PVT.Schedule_Suppression_List ');
79
80 l_msg_count := FND_MSG_PUB.count_msg;
81 FOR i IN 1..FND_MSG_PUB.count_msg LOOP
82 l_msg_data := FND_MSG_PUB.get(i, FND_API.G_FALSE);
83 FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : AMS_Gen_Sup_List_PVT.Schedule_Suppression_List '|| l_msg_data);
84 END LOOP;
85
86 -- clear message buffer
87 l_return_status := FND_API.g_ret_sts_success ;
88 FND_MSG_PUB.initialize;
89 END IF;
90
91 END LOOP;
92 CLOSE c_sup_list;
93
94
95 FND_FILE.PUT_LINE(FND_FILE.LOG,'End Suppression List Generation ');
96
97 EXCEPTION
98 WHEN FND_API.G_EXC_ERROR THEN
99 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
100 FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
101 FND_MSG_PUB.Add;
102 FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION in list gen package: AMS_Gen_Sup_List_PVT.Schedule_Suppression_List ');
103
104 l_msg_count := FND_MSG_PUB.count_msg;
105 FOR i IN 1..FND_MSG_PUB.count_msg LOOP
106 l_msg_data := FND_MSG_PUB.get(i, FND_API.G_FALSE);
107 FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : AMS_Gen_Sup_List_PVT.Schedule_Suppression_List '|| l_msg_data);
108 END LOOP;
109
110 -- clear message buffer
111 FND_MSG_PUB.initialize;
112
113 WHEN FND_FILE.UTL_FILE_ERROR THEN
114 errbuf:= substr(FND_MESSAGE.get,1,254);
115 retcode:=2;
116
117 WHEN OTHERS THEN
118 FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : AMS_Gen_Sup_List_PVT.Schedule_Suppression_List ');
119 FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
120 errbuf:= substr(SQLERRM,1,254);
121 retcode:=SQLCODE;
122 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
123 FND_MESSAGE.Set_Token('ROW','Error in Suppression List Generation ' || SQLERRM||' '||SQLCODE);
124
125
126 END Schedule_Suppression_List;
127
128
129 END AMS_Gen_Sup_List_PVT;