eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.AS_LEADS_LINES_LOG_PKG

Source


1 PACKAGE BODY AS_LEADS_LINES_LOG_PKG as
2  /* $Header: asxtlnlb.pls 120.2 2005/09/02 04:05:26 appldev ship $ */
3  PROCEDURE Insert_Row( p_lead_id    NUMBER,
4   p_lead_line_id                    NUMBER,
5   p_last_update_date                        DATE,
6   p_last_updated_by                         NUMBER,
7   p_last_update_login                       NUMBER,
8   p_creation_date                   DATE,
9   p_created_by                              NUMBER,
10   p_interest_type_id                        NUMBER,
11   p_primary_interest_code_id                NUMBER,
12   p_secondary_interest_code_id              NUMBER,
13   p_product_category_id                     NUMBER,
14   p_product_cat_set_id                      NUMBER,
15   p_inventory_item_id                       NUMBER,
16   p_organization                    NUMBER,
17   p_source_promotion_id                     NUMBER,
18   p_offer_id                                NUMBER,
19   p_org_id                          NUMBER,
20   p_forecast_date                   DATE,
21   p_rolling_forecast_flag           VARCHAR2,
22   p_endday_log_flag         VARCHAR2,
23   p_TRIGGER_MODE 	   	    VARCHAR2)
24  IS
25  l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
26 
27  BEGIN
28 
29   IF l_debug THEN
30   AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
31 	                      'asxtlnlb: In AS_LEADS_LINES_LOG_PKG Before Insert Statement');
32   END IF;
33   Insert into AS_LEAD_LINES_LOG (
34    log_id,
35    lead_id,
36    lead_line_id,
37    last_update_date,
38    last_updated_by,
39    last_update_login,
40    creation_date,
41    created_by,
42    log_mode,
43    interest_type_id,
44    primary_interest_code_id,
45    secondary_interest_code_id,
46    product_category_id,
47    product_cat_set_id,
48    inventory_item_id,
49    organization_id,
50    source_promotion_id,
51    offer_id,
52    org_id,
53    forecast_date,
54    rolling_forecast_flag,
55    endday_log_flag) VALUES (
56          AS_LEAD_LINES_LOG_S.nextval,
57   decode( p_lead_id, FND_API.G_MISS_NUM, NULL, p_lead_id),
58   decode( p_lead_line_id,FND_API.G_MISS_NUM, NULL, p_lead_line_id),
59   decode( p_last_update_date,FND_API.G_MISS_DATE, TO_DATE(NULL), p_last_update_date),
60   decode( p_last_updated_by,FND_API.G_MISS_NUM, NULL, p_last_updated_by),
61   decode( p_last_update_login,FND_API.G_MISS_NUM, NULL, p_last_update_login),
62   decode( p_creation_date,FND_API.G_MISS_DATE, TO_DATE(NULL), p_creation_date),
63   decode( p_created_by,FND_API.G_MISS_NUM, NULL, p_created_by),
64   p_TRIGGER_MODE,
65   decode( p_interest_type_id,FND_API.G_MISS_NUM, NULL, p_interest_type_id),
66   decode( p_primary_interest_code_id,FND_API.G_MISS_NUM, NULL, p_primary_interest_code_id),
67   decode( p_secondary_interest_code_id,FND_API.G_MISS_NUM, NULL, p_secondary_interest_code_id),
68   decode( p_product_category_id,FND_API.G_MISS_NUM, NULL, p_product_category_id),
69   decode( p_product_cat_set_id,FND_API.G_MISS_NUM, NULL, p_product_cat_set_id),
70   decode( p_inventory_item_id,FND_API.G_MISS_NUM, NULL, p_inventory_item_id),
71   decode( p_organization,FND_API.G_MISS_NUM, NULL, p_organization),
72   decode( p_source_promotion_id,FND_API.G_MISS_NUM, NULL, p_source_promotion_id),
73   decode( p_offer_id,FND_API.G_MISS_NUM, NULL, p_offer_id),
74   decode( p_org_id,FND_API.G_MISS_NUM, NULL, p_org_id),
75   decode( p_forecast_date,FND_API.G_MISS_DATE, TO_DATE(NULL), p_forecast_date),
76   decode( p_rolling_forecast_flag,FND_API.G_MISS_CHAR, NULL, p_rolling_forecast_flag),
77   decode( p_endday_log_flag,FND_API.G_MISS_CHAR, NULL, p_endday_log_flag));
78 
79 EXCEPTION
80 WHEN OTHERS THEN
81 	  -- dbms_output.put_line('In AS_LEADS_LINES_LOG_PKG After Insert Statement Seems some error');
82 	   -- dbms_output.put_line('Error Number:'||SQLCODE);
83 	  -- dbms_output.put_line('Error Message:'|| SUBSTR(SQLERRM, 1, 200));
84 
85 	  IF l_debug THEN
86 	  AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
87 	                      'asxtlnlb: In AS_LEADS_LINES_LOG_PKG After Insert Statement Seems some error');
88 	  AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
89 	                      'asxtlnlb: Error Number: '||SQLCODE||' and Error Message: ' || SUBSTR(SQLERRM, 1, 200));
90 	  END IF;
91  END Insert_Row;
92  PROCEDURE Update_Row(
93     p_lead_id                       NUMBER,
94     old_lead_line_id                NUMBER,
95     old_last_update_date            DATE,
96     new_last_update_date		    DATE,
97     p_last_updated_by               NUMBER,
98     p_last_update_login             NUMBER,
99     p_creation_date                 DATE,
100     p_created_by                    NUMBER,
101     p_interest_type_id              NUMBER,
102     p_primary_interest_code_id      NUMBER,
103     p_secondary_interest_code_id    NUMBER,
104     p_product_category_id           NUMBER,
105     p_product_cat_set_id            NUMBER,
106     p_inventory_item_id             NUMBER,
107     p_organization_id               NUMBER,
108     p_source_promotion_id           NUMBER,
109     p_offer_id                      NUMBER,
110     p_org_id                        NUMBER,
111     p_forecast_date                 DATE,
112     p_rolling_forecast_flag         VARCHAR2,
113     p_endday_log_flag       VARCHAR2,
114     p_TRIGGER_MODE 	   	    VARCHAR2)
115  IS
116 
117  l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
118  BEGIN
119     -- dbms_output.put_line('In AS_LEADS_LINES_LOG_PKG before Update_Row');
120     	  IF l_debug THEN
121     	  AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
122 	                      'asxtlnlb: In AS_LEADS_LINES_LOG_PKG before Update_Row');
123 	  END IF;
124     Update AS_LEAD_LINES_LOG
125     SET object_version_number =  nvl(object_version_number,0) + 1, lead_id = decode( p_lead_id, FND_API.G_MISS_NUM, NULL, p_lead_id),
126     last_update_date = decode( new_last_update_date,FND_API.G_MISS_DATE, TO_DATE(NULL), new_last_update_date),
127     last_updated_by = decode( p_last_updated_by,FND_API.G_MISS_NUM, NULL, p_last_updated_by),
128     last_update_login = decode( p_last_update_login,FND_API.G_MISS_NUM, NULL, p_last_update_login),
129     LOG_MODE = p_TRIGGER_MODE,
130     interest_type_id = decode( p_interest_type_id,FND_API.G_MISS_NUM, NULL, p_interest_type_id),
131     primary_interest_code_id = decode( p_primary_interest_code_id,FND_API.G_MISS_NUM, NULL, p_primary_interest_code_id),
132     secondary_interest_code_id = decode( p_secondary_interest_code_id,FND_API.G_MISS_NUM, NULL, p_secondary_interest_code_id),
133     product_category_id = decode( p_product_category_id,FND_API.G_MISS_NUM, NULL, p_product_category_id),
134     product_cat_set_id = decode( p_product_cat_set_id,FND_API.G_MISS_NUM, NULL, p_product_cat_set_id),
135     inventory_item_id = decode( p_inventory_item_id,FND_API.G_MISS_NUM, NULL, p_inventory_item_id),
136     organization_id =  decode( p_organization_id,FND_API.G_MISS_NUM, NULL, p_organization_id),
137     source_promotion_id = decode( p_source_promotion_id,FND_API.G_MISS_NUM, NULL, p_source_promotion_id),
138     offer_id = decode( p_offer_id,FND_API.G_MISS_NUM, NULL, p_offer_id),
139     org_id = decode( p_org_id,FND_API.G_MISS_NUM, NULL, p_org_id),
140     forecast_date = decode( p_forecast_date,FND_API.G_MISS_DATE, TO_DATE(NULL), p_forecast_date),
141     rolling_forecast_flag =   decode( p_rolling_forecast_flag,FND_API.G_MISS_CHAR, NULL, p_rolling_forecast_flag),
142     endday_log_flag =   decode( p_endday_log_flag,FND_API.G_MISS_CHAR, endday_log_flag, p_endday_log_flag)
143     WHERE LOG_ID = (SELECT max(log_id)
144                     	  from AS_LEAD_LINES_LOG
145             		  where lead_line_id = old_lead_line_id);
146 
147     If (SQL%NOTFOUND) then
148 	  -- dbms_output.put_line('In AS_LEADS_LINES_LOG_PKG after Update statement : Data No found seems');
149 	  -- dbms_output.put_line('Error Number:'||SQLCODE);
150 	  -- dbms_output.put_line('Error Message:'|| SUBSTR(SQLERRM, 1, 200));
151 	 IF l_debug THEN
152 	 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
153 	 	                      'asxtlnlb: In AS_LEADS_LINES_LOG_PKG after Update statement : Data No found seems');
154 	 AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
155 	                      'asxtlnlb: Error Number: '||SQLCODE||' and Error Message: ' || SUBSTR(SQLERRM, 1, 200));
156 	 END IF;
157         RAISE NO_DATA_FOUND;
158     End If;
159 END Update_Row;
160 
161  Procedure Delete_Row(p_old_lead_id	NUMBER,
162   		p_old_lead_line_id 	NUMBER,
163 		p_old_last_update_date      DATE,
164 		p_old_last_updated_by       NUMBER,
165 		p_old_last_update_login     NUMBER,
166 		p_old_creation_date         DATE,
167   		p_old_created_by            NUMBER,
168         p_endday_log_flag           VARCHAR2)
169  IS
170  l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
171 
172  BEGIN
173     /*
174     Update AS_LEAD_LINES_LOG
175     set object_version_number =  nvl(object_version_number,0) + 1, log_mode = 'D'
176     where lead_line_id = old_lead_line_id and last_update_date = old_last_update_date;
177     */
178    -- dbms_output.put_line('In AS_LEADS_LINES_LOG_PKG before Delete_Row');
179    -- dbms_output.put_line('Lead Id:'|| p_old_lead_id);
180    -- dbms_output.put_line('Lead line Id:'|| p_old_lead_line_id);
181    -- dbms_output.put_line('p_old_last_update_date:'|| p_old_last_update_date);
182    -- dbms_output.put_line('p_old_last_updated_by:'|| p_old_last_updated_by);
183    -- dbms_output.put_line('p_old_last_update_login:'|| p_old_last_update_login);
184    -- dbms_output.put_line('p_old_creation_date:'|| p_old_creation_date);
185    -- dbms_output.put_line('p_old_created_by:'|| p_old_created_by);
186 
187    Insert into AS_LEAD_LINES_LOG (
188    log_id,
189    lead_id,
190    lead_line_id,
191    last_update_date,
192    last_updated_by,
193    last_update_login,
194    creation_date,
195    created_by,
196    log_mode,
197    endday_log_flag
198   ) VALUES (
199    AS_LEAD_LINES_LOG_S.nextval,
200   decode( p_old_lead_id, FND_API.G_MISS_NUM, NULL, p_old_lead_id),
201   decode( p_old_lead_line_id,FND_API.G_MISS_NUM, NULL, p_old_lead_line_id),
202   sysdate,
203   decode( p_old_last_updated_by,FND_API.G_MISS_NUM, NULL, p_old_last_updated_by),
204   decode( p_old_last_update_login,FND_API.G_MISS_NUM, NULL, p_old_last_update_login),
205   decode( p_old_creation_date,FND_API.G_MISS_DATE, TO_DATE(NULL), p_old_creation_date),
206   decode( p_old_created_by,FND_API.G_MISS_NUM, NULL, p_old_created_by),
207   'D',
208   decode( p_endday_log_flag,FND_API.G_MISS_CHAR, NULL, p_endday_log_flag));
209 
210  EXCEPTION
211  WHEN OTHERS THEN
212 	  -- dbms_output.put_line('In AS_LEADS_LINES_LOG_PKG After Delete Statement Seems some error');
213 	  -- dbms_output.put_line('Error Number:'||SQLCODE);
214 	  -- dbms_output.put_line('Error Message:'|| SUBSTR(SQLERRM, 1, 200));
215 	  IF l_debug THEN
216 	  AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
217 	  	 	                      'asxtlnlb: In AS_LEADS_LINES_LOG_PKG After Delete Statement Seems some error');
218 	  AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
219 	                      'asxtlnlb: Error Number: '||SQLCODE||' and Error Message: ' || SUBSTR(SQLERRM, 1, 200));
220 	  END IF;
221 
222  END Delete_Row;
223 
224  END AS_LEADS_LINES_LOG_PKG;