[Home] [Help]
PACKAGE BODY: APPS.GMP_WPS_WRAPPER_PKG
Source
1 PACKAGE BODY gmp_wps_wrapper_pkg as
2 /* $Header: GMPWSCHB.pls 120.2 2005/10/26 10:56:56 asatpute noship $ */
3
4 G_log_text VARCHAR2(1000) := NULL;
5
6 /*=========================================================================
7 | PROCEDURE NAME |
8 | gmp_wps_sched_exec |
9 | |
10 | TYPE |
11 | public |
12 | |
13 | DESCRIPTION |
14 | The following procedure is used to execute the scheduler engine |
15 | Output Parameters |
16 | None |
17 | |
18 | HISTORY Rajesh Patangya on 17 Aug'2002 |
19 | Rajesh Patangya on 18th Nov'2003 B2696452 Addition of firm window |
20 | |
21 ==========================================================================*/
22
23 PROCEDURE gmp_wps_sched_exec(
24 errbuf OUT NOCOPY VARCHAR2,
25 retcode OUT NOCOPY NUMBER,
26 P_ORGANIZATION_ID IN VARCHAR2,
27 P_SCHEDULING_MODE IN VARCHAR2,
28 P_WIP_ENTITY_ID IN NUMBER,
29 P_SCHEDULING_DIR IN VARCHAR2,
30 P_MIDPT_OPERATION IN NUMBER,
31 P_START_DATE IN NUMBER,
32 P_END_DATE IN NUMBER,
33 P_HORIZON_START IN VARCHAR2,
34 P_HORIZON_LENGTH IN NUMBER,
35 P_USE_RESOURCE_CONS IN NUMBER,
36 P_USE_MATERIAL_CONS IN NUMBER,
37 P_CONNECT_TO_COMM IN NUMBER,
38 P_IP_ADDRESS IN NUMBER,
39 P_PORT_NUMBER IN NUMBER,
40 P_USER_ID IN NUMBER,
41 P_IDENT IN VARCHAR2,
42 P_USE_SUBSTITUTE_RES IN VARCHAR2,
43 P_CHOSEN_OPERATION IN NUMBER,
44 P_CHOSEN_SUBST_GROUP IN NUMBER,
45 P_ENTITY_TYPE IN NUMBER,
46 P_MIDPT_OPERATION_RES IN NUMBER,
47 P_INSTANCE_ID IN NUMBER,
48 P_SERIAL_NUMBER IN VARCHAR2,
49 P_FIRM_WINDOW_CUTOFF IN NUMBER ) IS
50
51 X_conc_id NUMBER;
52 X_status BOOLEAN;
53 X_ri_where VARCHAR2(1000);
54 X_horizon_start VARCHAR2(35);
55 DIFF NUMBER;
56 l_matl_cons NUMBER ;
57
58 BEGIN
59
60 X_horizon_start := NULL;
61
62 FND_FILE.PUT_LINE(FND_FILE.LOG,'Organization_id '|| P_ORGANIZATION_ID);
63 FND_FILE.PUT_LINE(FND_FILE.LOG,'Scheduling Mode '||P_SCHEDULING_MODE);
64 FND_FILE.PUT_LINE(FND_FILE.LOG,'Batches '||P_SCHEDULING_DIR);
65 FND_FILE.PUT_LINE(FND_FILE.LOG,'Batch id '||to_char(P_WIP_ENTITY_ID));
66 FND_FILE.PUT_LINE(FND_FILE.LOG,P_SCHEDULING_DIR );
67 FND_FILE.PUT_LINE(FND_FILE.LOG,'Horizone Date ' ||P_HORIZON_START);
68
69 DIFF := trunc(SYSDATE) -
70 to_date(substr(P_HORIZON_START,1,10),'YYYY/MM/DD');
71 BEGIN
72 SELECT decode(material_constrained,1,1,-1)
73 INTO l_matl_cons
74 FROM wip_parameters
75 WHERE organization_id = P_ORGANIZATION_ID ;
76 EXCEPTION
77 WHEN OTHERS THEN
78 FND_FILE.PUT_LINE(FND_FILE.LOG,'Could Not get Matl Cons Indicator for ' ||P_ORGANIZATION_ID );
79 END ;
80 IF DIFF > 0 THEN
81 FND_FILE.PUT_LINE(FND_FILE.LOG,'Horizon Date must be grater than system Date');
82 retcode:=2;
83 ELSE
84 /* Used fnd_number to for NLS issue B3732806 Rajesh Patangya 03-AUG-04 */
85 X_horizon_start := fnd_number.number_to_canonical(
86 wip_datetimes.DT_to_float (
87 to_date(P_HORIZON_START,'YYYY/MM/DD HH24:MI:SS')
88 )) ;
89
90 -- request is submitted to the concurrent manager
91 X_conc_id := FND_REQUEST.SUBMIT_REQUEST('WPS','WPCWFS',
92 '', -- description
93 TO_CHAR(sysdate,'YYYY/MM/DD HH24:MI:SS'), -- start date
94 FALSE,
95 P_ORGANIZATION_ID,
96 P_SCHEDULING_MODE,
97 to_char(P_WIP_ENTITY_ID) ,
98 P_SCHEDULING_DIR,
99 to_char(P_MIDPT_OPERATION) ,
100 to_char(P_START_DATE) ,
101 to_char(P_END_DATE) ,
102 X_HORIZON_START,
103 to_char(P_HORIZON_LENGTH),
104 to_char(P_USE_RESOURCE_CONS),
105 to_char(l_matl_cons),
106 to_char(P_CONNECT_TO_COMM),
107 to_char(P_IP_ADDRESS),
108 to_char(P_PORT_NUMBER) ,
109 to_char(P_USER_ID),
110 P_IDENT,
111 P_USE_SUBSTITUTE_RES,
112 to_char(P_CHOSEN_OPERATION),
113 to_char(P_CHOSEN_SUBST_GROUP),
114 to_char(P_ENTITY_TYPE) ,
115 to_char(P_MIDPT_OPERATION_RES),
116 to_char(P_INSTANCE_ID),
117 P_SERIAL_NUMBER,
118 to_char(P_FIRM_WINDOW_CUTOFF), /* B2696452 Addition of firm window */
119 chr(0),
120 '','','','','',
121 '','','','','','','','','','',
122 '','','','','','','','','','',
123 '','','','','','','','','','',
124 '','','','','','','','','','',
125 '','','','','','','','','','',
126 '','','','','','','','','','',
127 '','','','','','','','','','');
128
129 IF X_conc_id = 0 THEN
130 G_log_text := FND_MESSAGE.GET;
131 FND_FILE.PUT_LINE ( FND_FILE.LOG,G_log_text);
132 retcode:=2;
133 ELSE
134 COMMIT ;
135 END IF;
136 END IF ;
137 EXCEPTION
138 WHEN no_data_found THEN
139 errbuf := 'No Data Found Sql Error:' ||to_char(sqlcode);
140 retcode := 1; /* Warning */
141
142 WHEN others THEN
143 errbuf := 'Execution failed Sql Error:' ||to_char(sqlcode);
144 retcode := 1; /* Warning */
145 NULL ;
146 END gmp_wps_sched_exec;
147
148 END gmp_wps_wrapper_pkg;