1 PACKAGE BODY gmp_dp_utils as
2 /* $Header: GMPDPUTB.pls 120.1 2005/09/08 06:57:22 rpatangy noship $ */
3
4 --+==========================================================================+
5 --| PROCEDURE NAME
6 --| opm_forecast_interface
7 --|
8 --| DESCRIPTION
9 --| Just a wrapper function
10 --| Input Parameters
11 --| pforecast VARCHAR2
12 --| p_org_id NUMBER
13 --| p_user_id NUMBER
14 --|
15 --| Pseudo Code
16 --| Check if a forecast designator has been provided,
17 --| If Not Get all process org designators
18 --| And do the processing for each of the designator
19 --| Else
20 --| Do the processing for the designator passsed in
21 --| End If
22 --|
23 --| Please note that the user is NOT allowed to specify only the warehouse
24 --| (and not the designator)
25 --| But the user is allowed to specify the warehosue along with adesignator
26 --|
27 --| Pseudo logic for processing of a designator
28 --| Check if forecast code already exist in OPM
29 --| Yes : Delete rows or the one or allwarehouses
30 --| No : Create header
31 --|
32 --| Get the rows from mrp_forecast interace for one or
33 --| multiple organizations-ids
34 --|
35 --| Insert into the fc_fcst_dtl table
36 --|
37 --| Keep a count and commit after every 500 ??
38 --|
39 --| Update the mrp_forecast_interface table
40 --|
41 --+==========================================================================+
42
43 PROCEDURE opm_forecast_interface (
44 errbuf OUT NOCOPY varchar2,
45 retcode OUT NOCOPY varchar2,
46 pforecast IN VARCHAR2,
47 porg_id IN number ,
48 p_user_id IN number )
49 IS
50
51 BEGIN
52
53 errbuf := 'This functionality is obsolete in R12.0';
54 retcode := 0;
55 END opm_forecast_interface ;
56
57 --+==========================================================================+
58 --| PROCEDURE NAME |
59 --| truncate_forecast_names |
60 --| |
61 --| TYPE |
62 --| public |
63 --| |
64 --| DESCRIPTION |
65 --| |
66 --| This function is used to truncate all of the forcast names to 10 |
67 --| characters long and make them unique for the demand planner interface |
68 --| |
69 --| Input Parameters |
70 --| None |
71 --| |
72 --| Output Parameters |
73 --| |
74 --| AUTHOR |
75 --| Matthew Craig 5-Oct-2000 |
76 --| |
77 --| HISTORY |
78 --| |
79 --| |
80 --+==========================================================================+
81
82 PROCEDURE truncate_forecast_names(
83 errbuf OUT NOCOPY VARCHAR2,
84 retcode OUT NOCOPY VARCHAR2,
85 p_user_id IN NUMBER)
86 IS
87
88 BEGIN
89
90 errbuf := 'This functionality is obsolete in R12.0';
91 retcode := 0;
92
93 END truncate_forecast_names;
94
95 END gmp_dp_utils;