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.

APPS.MSD_DPE dependencies on MSD_DPE

Line 1: PACKAGE BODY MSD_DPE AS

1: PACKAGE BODY MSD_DPE AS
2: /* $Header: msddpprb.pls 120.0 2005/05/25 20:25:29 appldev noship $ */
3:
4: -- Constants
5:

Line 127: MSD_DPE.display_message(dispMesg , SECTION);

123: -- get current plan's name
124: planName := Demand_Plan_Name;
125:
126: dispMesg := 'Beginning Purge for demand plan ' || planName || ' (Plan ID = ' || PlanID || ').';
127: MSD_DPE.display_message(dispMesg , SECTION);
128:
129: --
130: if ((DelIfWFActive = 'YES') and (DelIfconFail = 'YES')) then
131:

Line 134: MSD_DPE.display_message(dispMesg , INFORMATION);

130: if ((DelIfWFActive = 'YES') and (DelIfconFail = 'YES')) then
131:
132: -- delete all databases for this plan if no one in use
133: dispMesg := 'Deleting Express Demand Planning Engine databases.';
134: MSD_DPE.display_message(dispMesg , INFORMATION);
135:
136: MSD_DPE.DeleteBuildDBS(errbuf, retText, ExpRetcode,
137: inPlan => PlanID,
138: Demand_Plan_Name => Demand_Plan_Name,

Line 136: MSD_DPE.DeleteBuildDBS(errbuf, retText, ExpRetcode,

132: -- delete all databases for this plan if no one in use
133: dispMesg := 'Deleting Express Demand Planning Engine databases.';
134: MSD_DPE.display_message(dispMesg , INFORMATION);
135:
136: MSD_DPE.DeleteBuildDBS(errbuf, retText, ExpRetcode,
137: inPlan => PlanID,
138: Demand_Plan_Name => Demand_Plan_Name,
139: Shared_DB_Prefix => Shared_DB_Prefix,
140: Code_Location => Code_Location,

Line 150: MSD_DPE.display_error_warning(errbuf, retText);

146:
147: if ExpRetcode = '2' or ExpRetcode = '1' then
148: retcode := '1';
149: --dispMesg := errbuf || retText;
150: MSD_DPE.display_error_warning(errbuf, retText);
151: errbuf := ' ';
152: else
153: retcode := '0';
154: end if;

Line 158: MSD_DPE.display_message(dispMesg , INFORMATION);

154: end if;
155:
156: -- purge all obsolete workfdlow data for current plan.
157: dispMesg := 'Purging Workflow Processes.';
158: MSD_DPE.display_message(dispMesg , INFORMATION);
159:
160: MSD_DPE.DeleteWorkflow (errbuf, WfRetcode, PlanID);
161: -- Warning when DelIfWFActive = 'YES'
162: if WFRetCode = '2' then

Line 160: MSD_DPE.DeleteWorkflow (errbuf, WfRetcode, PlanID);

156: -- purge all obsolete workfdlow data for current plan.
157: dispMesg := 'Purging Workflow Processes.';
158: MSD_DPE.display_message(dispMesg , INFORMATION);
159:
160: MSD_DPE.DeleteWorkflow (errbuf, WfRetcode, PlanID);
161: -- Warning when DelIfWFActive = 'YES'
162: if WFRetCode = '2' then
163: retcode := '1';
164: dispMesg := errbuf;

Line 165: MSD_DPE.display_message(dispMesg , INFORMATION);

161: -- Warning when DelIfWFActive = 'YES'
162: if WFRetCode = '2' then
163: retcode := '1';
164: dispMesg := errbuf;
165: MSD_DPE.display_message(dispMesg , INFORMATION);
166: errbuf := ' ';
167: end if;
168:
169: dispMesg := 'End of Purge processing.';

Line 170: MSD_DPE.display_message(dispMesg , SECTION);

166: errbuf := ' ';
167: end if;
168:
169: dispMesg := 'End of Purge processing.';
170: MSD_DPE.display_message(dispMesg , SECTION);
171: -- RETURN HERE!
172: return;
173: end if;
174:

Line 180: MSD_DPE.display_message(dispMesg , INFORMATION);

176:
177: if ((DelIfWFActive = 'NO') and (DelIfconFail = 'NO')) then
178:
179: dispMesg := 'Checking for active Workflow Processes.';
180: MSD_DPE.display_message(dispMesg , INFORMATION);
181: MSD_DPE.ActivityTest(errbuf, ActRetcode, PlanID);
182:
183: if ActRetCode = '2' then
184: retcode := '2';

Line 181: MSD_DPE.ActivityTest(errbuf, ActRetcode, PlanID);

177: if ((DelIfWFActive = 'NO') and (DelIfconFail = 'NO')) then
178:
179: dispMesg := 'Checking for active Workflow Processes.';
180: MSD_DPE.display_message(dispMesg , INFORMATION);
181: MSD_DPE.ActivityTest(errbuf, ActRetcode, PlanID);
182:
183: if ActRetCode = '2' then
184: retcode := '2';
185: dispMesg := errbuf;

Line 192: MSD_DPE.display_message(dispMesg , INFORMATION);

188: retcode := '0';
189: -- delete all databases for this plan if no one in use
190:
191: dispMesg := 'Deleting Express Demand Planning Engine databases.';
192: MSD_DPE.display_message(dispMesg , INFORMATION);
193:
194: MSD_DPE.DeleteBuildDBS(errbuf, retText, ExpRetCode,
195: inPlan => PlanID,
196: Demand_Plan_Name => Demand_Plan_Name,

Line 194: MSD_DPE.DeleteBuildDBS(errbuf, retText, ExpRetCode,

190:
191: dispMesg := 'Deleting Express Demand Planning Engine databases.';
192: MSD_DPE.display_message(dispMesg , INFORMATION);
193:
194: MSD_DPE.DeleteBuildDBS(errbuf, retText, ExpRetCode,
195: inPlan => PlanID,
196: Demand_Plan_Name => Demand_Plan_Name,
197: Shared_DB_Prefix => Shared_DB_Prefix,
198: Code_Location => Code_Location,

Line 207: MSD_DPE.display_error_warning(errbuf, retText);

203: Express_Connect_String => Express_Connect_String);
204:
205: if ExpRetcode = '2' then
206: retcode := '2';
207: MSD_DPE.display_error_warning(errbuf, retText);
208: errbuf := ' ';
209: raise SPLPROB_NODEL;
210: else
211: if ExpRetCode = '1' then

Line 213: MSD_DPE.display_error_warning(errbuf, retText);

209: raise SPLPROB_NODEL;
210: else
211: if ExpRetCode = '1' then
212: retcode := '1';
213: MSD_DPE.display_error_warning(errbuf, retText);
214: errbuf := ' ';
215: else
216: retcode := '0';
217: end if;

Line 221: MSD_DPE.display_message(dispMesg , INFORMATION);

217: end if;
218:
219: -- purge all obsolete workfdlow data for current plan.
220: dispMesg := 'Purging Workflow Processes.';
221: MSD_DPE.display_message(dispMesg , INFORMATION);
222:
223: MSD_DPE.DeleteWorkflow (errbuf, WfRetcode, PlanID);
224:
225: if WFRetCode = '2' then

Line 223: MSD_DPE.DeleteWorkflow (errbuf, WfRetcode, PlanID);

219: -- purge all obsolete workfdlow data for current plan.
220: dispMesg := 'Purging Workflow Processes.';
221: MSD_DPE.display_message(dispMesg , INFORMATION);
222:
223: MSD_DPE.DeleteWorkflow (errbuf, WfRetcode, PlanID);
224:
225: if WFRetCode = '2' then
226: retcode := '2';
227: dispMesg := errbuf;

Line 228: MSD_DPE.display_message(dispMesg , INFORMATION);

224:
225: if WFRetCode = '2' then
226: retcode := '2';
227: dispMesg := errbuf;
228: MSD_DPE.display_message(dispMesg , INFORMATION);
229: errbuf := ' ';
230: raise PROBWF_NODEL;
231: end if;
232:

Line 237: MSD_DPE.display_message(dispMesg , SECTION);

233: end if;
234: end if;
235:
236: dispMesg := 'End of Purge processing.';
237: MSD_DPE.display_message(dispMesg , SECTION);
238: -- RETURN HERE!
239: return;
240: end if;
241:

Line 248: MSD_DPE.display_message(dispMesg , INFORMATION);

244:
245: if ((DelIfWFActive = 'NO') and (DelIfconFail = 'YES')) then
246:
247: dispMesg := 'Checking for active Workflow Processes.';
248: MSD_DPE.display_message(dispMesg , INFORMATION);
249: MSD_DPE.ActivityTest(errbuf, ActRetcode, PlanID);
250:
251: if ActRetCode = '2' then
252: retcode := '2';

Line 249: MSD_DPE.ActivityTest(errbuf, ActRetcode, PlanID);

245: if ((DelIfWFActive = 'NO') and (DelIfconFail = 'YES')) then
246:
247: dispMesg := 'Checking for active Workflow Processes.';
248: MSD_DPE.display_message(dispMesg , INFORMATION);
249: MSD_DPE.ActivityTest(errbuf, ActRetcode, PlanID);
250:
251: if ActRetCode = '2' then
252: retcode := '2';
253: else

Line 258: MSD_DPE.display_message(dispMesg , INFORMATION);

254: retcode := '0';
255: -- delete all databases for this plan if no one in use
256:
257: dispMesg := 'Deleting Express Demand Planning Engine databases.';
258: MSD_DPE.display_message(dispMesg , INFORMATION);
259:
260: MSD_DPE.DeleteBuildDBS(errbuf, retText, ExpRetCode,
261: inPlan => PlanID,
262: Demand_Plan_Name => Demand_Plan_Name,

Line 260: MSD_DPE.DeleteBuildDBS(errbuf, retText, ExpRetCode,

256:
257: dispMesg := 'Deleting Express Demand Planning Engine databases.';
258: MSD_DPE.display_message(dispMesg , INFORMATION);
259:
260: MSD_DPE.DeleteBuildDBS(errbuf, retText, ExpRetCode,
261: inPlan => PlanID,
262: Demand_Plan_Name => Demand_Plan_Name,
263: Shared_DB_Prefix => Shared_DB_Prefix,
264: Code_Location => Code_Location,

Line 274: MSD_DPE.display_error_warning(errbuf, retText);

270:
271: if ExpRetcode = '2' or ExpRetcode = '1' then
272: retcode := '1';
273: --dispMesg := errbuf || retText;
274: MSD_DPE.display_error_warning(errbuf, retText);
275: errbuf := ' ';
276: else
277: retcode := '0';
278: end if;

Line 282: MSD_DPE.display_message(dispMesg , INFORMATION);

278: end if;
279:
280: -- purge all obsolete workfdlow data for current plan.
281: dispMesg := 'Purging Workflow Processes.';
282: MSD_DPE.display_message(dispMesg , INFORMATION);
283:
284: MSD_DPE.DeleteWorkflow (errbuf, WfRetcode, PlanID);
285:
286: if WFRetCode = '2' then

Line 284: MSD_DPE.DeleteWorkflow (errbuf, WfRetcode, PlanID);

280: -- purge all obsolete workfdlow data for current plan.
281: dispMesg := 'Purging Workflow Processes.';
282: MSD_DPE.display_message(dispMesg , INFORMATION);
283:
284: MSD_DPE.DeleteWorkflow (errbuf, WfRetcode, PlanID);
285:
286: if WFRetCode = '2' then
287: retcode := '2';
288: dispMesg := errbuf;

Line 289: MSD_DPE.display_message(dispMesg , INFORMATION);

285:
286: if WFRetCode = '2' then
287: retcode := '2';
288: dispMesg := errbuf;
289: MSD_DPE.display_message(dispMesg , INFORMATION);
290: errbuf := ' ';
291: raise PROBWF_NODEL;
292: end if;
293:

Line 297: MSD_DPE.display_message(dispMesg , SECTION);

293:
294: end if;
295:
296: dispMesg := 'End of Purge processing.';
297: MSD_DPE.display_message(dispMesg , SECTION);
298: -- RETURN HERE!
299: return;
300: end if;
301:

Line 309: MSD_DPE.display_message(dispMesg , INFORMATION);

305: if ((DelIfWFActive = 'YES') and (DelIfconFail = 'NO')) then
306:
307: -- delete all databases for this plan if no one in use
308: dispMesg := 'Deleting Express Demand Planning Engine databases.';
309: MSD_DPE.display_message(dispMesg , INFORMATION);
310:
311: MSD_DPE.DeleteBuildDBS(errbuf, retText, ExpRetcode,
312: inPlan => PlanID,
313: Demand_Plan_Name => Demand_Plan_Name,

Line 311: MSD_DPE.DeleteBuildDBS(errbuf, retText, ExpRetcode,

307: -- delete all databases for this plan if no one in use
308: dispMesg := 'Deleting Express Demand Planning Engine databases.';
309: MSD_DPE.display_message(dispMesg , INFORMATION);
310:
311: MSD_DPE.DeleteBuildDBS(errbuf, retText, ExpRetcode,
312: inPlan => PlanID,
313: Demand_Plan_Name => Demand_Plan_Name,
314: Shared_DB_Prefix => Shared_DB_Prefix,
315: Code_Location => Code_Location,

Line 324: MSD_DPE.display_error_warning(errbuf, retText);

320: Express_Connect_String => Express_Connect_String);
321:
322: if ExpRetcode = '2' then
323: retcode := '2';
324: MSD_DPE.display_error_warning(errbuf, retText);
325: errbuf := ' ';
326: raise SPLPROB_NODEL;
327: else
328:

Line 331: MSD_DPE.display_error_warning(errbuf, retText);

327: else
328:
329: if ExpRetCode = '1' then
330: retcode := '1';
331: MSD_DPE.display_error_warning(errbuf, retText);
332: errbuf := ' ';
333: else
334: retcode := '0';
335: end if;

Line 339: MSD_DPE.display_message(dispMesg , INFORMATION);

335: end if;
336:
337: -- purge all obsolete workfdlow data for current plan.
338: dispMesg := 'Purging Workflow Processes.';
339: MSD_DPE.display_message(dispMesg , INFORMATION);
340:
341: MSD_DPE.DeleteWorkflow (errbuf, WfRetcode, PlanID);
342:
343: if WFRetCode = '2' then

Line 341: MSD_DPE.DeleteWorkflow (errbuf, WfRetcode, PlanID);

337: -- purge all obsolete workfdlow data for current plan.
338: dispMesg := 'Purging Workflow Processes.';
339: MSD_DPE.display_message(dispMesg , INFORMATION);
340:
341: MSD_DPE.DeleteWorkflow (errbuf, WfRetcode, PlanID);
342:
343: if WFRetCode = '2' then
344: retcode := '1';
345: dispMesg := errbuf;

Line 346: MSD_DPE.display_message(dispMesg , INFORMATION);

342:
343: if WFRetCode = '2' then
344: retcode := '1';
345: dispMesg := errbuf;
346: MSD_DPE.display_message(dispMesg , INFORMATION);
347: errbuf := ' ';
348: end if;
349:
350: end if;

Line 353: MSD_DPE.display_message(dispMesg , SECTION);

349:
350: end if;
351:
352: dispMesg := 'End of Purge processing.';
353: MSD_DPE.display_message(dispMesg , SECTION);
354: -- RETURN HERE!
355: return;
356: end if;
357: --

Line 365: MSD_DPE.display_message(dispMesg , INFORMATION);

361: when SPLPROB_NODEL then
362: retcode :='2';
363:
364: dispMesg := 'The demand plan databases have not been deleted.';
365: MSD_DPE.display_message(dispMesg , INFORMATION);
366:
367: dispMesg := 'End of Purge processing.';
368: MSD_DPE.display_message(dispMesg , SECTION);
369:

Line 368: MSD_DPE.display_message(dispMesg , SECTION);

364: dispMesg := 'The demand plan databases have not been deleted.';
365: MSD_DPE.display_message(dispMesg , INFORMATION);
366:
367: dispMesg := 'End of Purge processing.';
368: MSD_DPE.display_message(dispMesg , SECTION);
369:
370: dispMesg := 'The demand plan was not deleted.';
371: MSD_DPE.display_message(dispMesg , SECTION);
372: errbuf:= ' ';

Line 371: MSD_DPE.display_message(dispMesg , SECTION);

367: dispMesg := 'End of Purge processing.';
368: MSD_DPE.display_message(dispMesg , SECTION);
369:
370: dispMesg := 'The demand plan was not deleted.';
371: MSD_DPE.display_message(dispMesg , SECTION);
372: errbuf:= ' ';
373:
374:
375: when PROBWF_NODEL then

Line 378: MSD_DPE.display_message(dispMesg , INFORMATION);

374:
375: when PROBWF_NODEL then
376: retcode :='2';
377: dispMesg := 'Problem encountered when purging Workflow processes.';
378: MSD_DPE.display_message(dispMesg , INFORMATION);
379:
380: dispMesg := 'End of Purge processing.';
381: MSD_DPE.display_message(dispMesg , SECTION);
382:

Line 381: MSD_DPE.display_message(dispMesg , SECTION);

377: dispMesg := 'Problem encountered when purging Workflow processes.';
378: MSD_DPE.display_message(dispMesg , INFORMATION);
379:
380: dispMesg := 'End of Purge processing.';
381: MSD_DPE.display_message(dispMesg , SECTION);
382:
383: dispMesg := 'The demand plan was not deleted.';
384: MSD_DPE.display_message(dispMesg , SECTION);
385: errbuf:= ' ';

Line 384: MSD_DPE.display_message(dispMesg , SECTION);

380: dispMesg := 'End of Purge processing.';
381: MSD_DPE.display_message(dispMesg , SECTION);
382:
383: dispMesg := 'The demand plan was not deleted.';
384: MSD_DPE.display_message(dispMesg , SECTION);
385: errbuf:= ' ';
386:
387:
388: when others then

Line 393: MSD_DPE.display_message(dispMesg , INFORMATION);

389:
390: errbuf:=substr(sqlerrm, 1, 255);
391:
392: dispMesg := errbuf;
393: MSD_DPE.display_message(dispMesg , INFORMATION);
394:
395: -- dispMesg := 'The demand plan databases have not been deleted.';
396: -- MSD_DPE.display_message(dispMesg , INFORMATION);
397:

Line 396: -- MSD_DPE.display_message(dispMesg , INFORMATION);

392: dispMesg := errbuf;
393: MSD_DPE.display_message(dispMesg , INFORMATION);
394:
395: -- dispMesg := 'The demand plan databases have not been deleted.';
396: -- MSD_DPE.display_message(dispMesg , INFORMATION);
397:
398: dispMesg := 'End of Purge processing.';
399: MSD_DPE.display_message(dispMesg , SECTION);
400:

Line 399: MSD_DPE.display_message(dispMesg , SECTION);

395: -- dispMesg := 'The demand plan databases have not been deleted.';
396: -- MSD_DPE.display_message(dispMesg , INFORMATION);
397:
398: dispMesg := 'End of Purge processing.';
399: MSD_DPE.display_message(dispMesg , SECTION);
400:
401: if ((DelIfWFActive = 'NO') or (DelIfconFail = 'NO')) then
402: retcode :='2';
403: dispMesg := 'The demand plan was not deleted.';

Line 404: MSD_DPE.display_message(dispMesg , SECTION);

400:
401: if ((DelIfWFActive = 'NO') or (DelIfconFail = 'NO')) then
402: retcode :='2';
403: dispMesg := 'The demand plan was not deleted.';
404: MSD_DPE.display_message(dispMesg , SECTION);
405: else
406: retcode :='1';
407: end if;
408: errbuf:= ' ';

Line 752: MSD_DPE.DeleteWorkflow(errbuf, retcode, inPlan);

748: retcode varchar2(2);
749: errbuf varchar2(100);
750:
751: BEGIN
752: MSD_DPE.DeleteWorkflow(errbuf, retcode, inPlan);
753: return;
754:
755: exception
756: when others then

Line 757: RAISE_APPLICATION_ERROR(-20100, 'Error in MSD_DPE.CallDelWF');

753: return;
754:
755: exception
756: when others then
757: RAISE_APPLICATION_ERROR(-20100, 'Error in MSD_DPE.CallDelWF');
758: END;
759:
760: --+++++++++++++++++++++++++++++++++++++++++
761: --

Line 779: MSD_DPE.display_message(dispMesg , INFORMATION);

775:
776: BEGIN
777:
778: dispMesg := errbuf;
779: MSD_DPE.display_message(dispMesg , INFORMATION);
780:
781: messageText := retText;
782:
783: if (messageText is not NULL) then

Line 788: MSD_DPE.display_message(dispMesg , INFORMATION);

784: --check if retText is too long and has a '++' separator,
785: pos := instr(messageText, '++');
786: while pos > 0 loop
787: dispMesg := substr(messageText, 1, pos-1);
788: MSD_DPE.display_message(dispMesg , INFORMATION);
789: messageText := substr(messageText, pos+2);
790: pos := instr(messageText, '++');
791: end loop;
792:

Line 794: MSD_DPE.display_message(dispMesg , INFORMATION);

790: pos := instr(messageText, '++');
791: end loop;
792:
793: dispMesg := messageText;
794: MSD_DPE.display_message(dispMesg , INFORMATION);
795: end if;
796:
797: return;
798:

Line 804: end MSD_DPE;

800:
801: --+++++++++++++++++++++++++++++++++++++++++
802:
803:
804: end MSD_DPE;