184:
185:
186: BEGIN
187: /* Submit the request to look for changed snapshots and drop these snapshots */
188: lv_request_id_drop := FND_REQUEST.SUBMIT_REQUEST(
189: 'MSC',
190: 'MSCDROPS',
191: NULL,
192: NULL,
217:
218: /* Only if the Drop Snapshot Process is successfull then call the create snapshots */
219:
220: if lv_success THEN --drop snapshots success
221: lv_request_id_wsm := FND_REQUEST.SUBMIT_REQUEST(
222: 'MSC',
223: 'MSCWSMSN',
224: NULL,
225: NULL,
226: FALSE); -- sub request
227: commit;
228: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_wsm||' :Creates WSM Snapshot Logs and Snapshots');
229:
230: lv_request_id_bom := FND_REQUEST.SUBMIT_REQUEST(
231: 'MSC',
232: 'MSCBOMSN',
233: NULL,
234: NULL,
235: FALSE); -- sub request
236: commit;
237: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_bom||' :Creates BOM Snapshot Logs and Snapshots');
238:
239: lv_request_id_inv := FND_REQUEST.SUBMIT_REQUEST(
240: 'MSC',
241: 'MSCINVSN',
242: NULL,
243: NULL,
244: FALSE); -- sub request
245: commit;
246: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_inv||' :Creates INV Snapshot Logs and Snapshots');
247:
248: lv_request_id_csp := FND_REQUEST.SUBMIT_REQUEST(
249: 'MSC',
250: 'MSCCSPSN',
251: NULL,
252: NULL,
253: FALSE); -- sub request
254: commit;
255: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_csp||' :Creates CSP Snapshot Logs and Snapshots');
256:
257: lv_request_id_mrp := FND_REQUEST.SUBMIT_REQUEST(
258: 'MSC',
259: 'MSCMRPSN',
260: NULL,
261: NULL,
262: FALSE); -- sub request
263: commit;
264: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_mrp||' :Creates MRP Snapshot Logs and Snapshots');
265:
266: lv_request_id_pox := FND_REQUEST.SUBMIT_REQUEST(
267: 'MSC',
268: 'MSCPOXSN',
269: NULL,
270: NULL,
271: FALSE); -- sub request
272: commit;
273: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_pox||' :Creates PO Snapshot Logs and Snapshots');
274:
275: lv_request_id_ont := FND_REQUEST.SUBMIT_REQUEST(
276: 'MSC',
277: 'MSCONTSN',
278: NULL,
279: NULL,
280: FALSE); -- sub request
281: commit;
282: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_ont||' :Creates OE Snapshot Logs and Snapshots');
283:
284: lv_request_id_wsh := FND_REQUEST.SUBMIT_REQUEST(
285: 'MSC',
286: 'MSCWSHSN',
287: NULL,
288: NULL,
291: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_wsh||' :Creates WSH Snapshot Logs and Snapshots');
292:
293: IF MRP_CL_FUNCTION.CHECK_AHL_VER = 1 THEN
294:
295: lv_request_id_ahl := FND_REQUEST.SUBMIT_REQUEST(
296: 'MSC',
297: 'MSCAHLSN',
298: NULL,
299: NULL,
301: commit;
302: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_ahl||' :Creates AHL Snapshot Logs and Snapshots');
303:
304: /* ds change: change start */
305: lv_request_id_eam := FND_REQUEST.SUBMIT_REQUEST(
306: 'MSC',
307: 'MSCEAMSN',
308: NULL,
309: NULL,
326:
327: wait_for_request(lv_request_id_mrp, 10, lv_out);
328: if lv_success THEN
329:
330: lv_request_id_wip := FND_REQUEST.SUBMIT_REQUEST(
331: 'MSC',
332: 'MSCWIPSN',
333: NULL,
334: NULL,
385: end if;
386: /* Only if the Snapshot creation Process is successfull then create trigs, views,synms */
387:
388: if lv_success THEN --create snapshots success
389: lv_request_id_syn := FND_REQUEST.SUBMIT_REQUEST(
390: 'MSC',
391: 'MSCSYNMS',
392: NULL,
393: NULL,
400: if lv_out = 2 THEN lv_success := FALSE ; end if;
401: end if;
402:
403: IF lv_success THEN -- Only when Synonyms creation succcess
404: lv_request_id_view := FND_REQUEST.SUBMIT_REQUEST(
405: 'MSC',
406: 'MSCVIEWS',
407: NULL,
408: NULL,
409: FALSE); -- sub request
410: commit;
411: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_view||' :Creates Views used by Collections Process');
412:
413: lv_request_id_trig := FND_REQUEST.SUBMIT_REQUEST(
414: 'MSC',
415: 'MSCTRIGS',
416: NULL,
417: NULL,
647:
648: END IF;
649:
650: IF V_REMOTE_CALL THEN
651: result := FND_REQUEST.SET_MODE(TRUE);
652: v_request_id := FND_REQUEST.SUBMIT_REQUEST(
653: 'MRP',
654: 'MSRFWOR',
655: NULL,
648: END IF;
649:
650: IF V_REMOTE_CALL THEN
651: result := FND_REQUEST.SET_MODE(TRUE);
652: v_request_id := FND_REQUEST.SUBMIT_REQUEST(
653: 'MRP',
654: 'MSRFWOR',
655: NULL,
656: NULL,
665: pInstance_ID,
666: pInstance_Code,
667: pa2m_dblink);
668: ELSE
669: v_request_id := FND_REQUEST.SUBMIT_REQUEST(
670: 'MRP',
671: 'MSRFWOR',
672: NULL,
673: NULL,
1768:
1769: IF (g_REFRESH_TYPE <> 'I' ) THEN
1770:
1771: lv_req_id.EXTEND(1);
1772: v_request_id := FND_REQUEST.SUBMIT_REQUEST(
1773: 'MSC',
1774: 'MSCCLRFS',
1775: NULL,
1776: NULL,
3338: indx number := 0;
3339: BEGIN
3340: -- setup
3341: indx := indx + 1;
3342: lv_request_id_views(indx) := FND_REQUEST.SUBMIT_REQUEST(
3343: 'MSC',
3344: 'MSCVWSTP',
3345: NULL,
3346: NULL,
3349: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_views(indx)||' :Creates Setup Views used by Collections Process');
3350: --
3351: -- Item
3352: indx := indx + 1;
3353: lv_request_id_views(indx) := FND_REQUEST.SUBMIT_REQUEST(
3354: 'MSC',
3355: 'MSCVWITM',
3356: NULL,
3357: NULL,
3360: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_views(indx)||' :Creates Item Views used by Collections Process');
3361: --
3362: -- BOM
3363: indx := indx + 1;
3364: lv_request_id_views(indx) := FND_REQUEST.SUBMIT_REQUEST(
3365: 'MSC',
3366: 'MSCVWBOM',
3367: NULL,
3368: NULL,
3371: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_views(indx)||' :Creates BOM Views used by Collections Process');
3372: --
3373: -- Routing
3374: indx := indx + 1;
3375: lv_request_id_views(indx) := FND_REQUEST.SUBMIT_REQUEST(
3376: 'MSC',
3377: 'MSCVWRTG',
3378: NULL,
3379: NULL,
3382: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_views(indx)||' :Creates Routing Views used by Collections Process');
3383: --
3384: -- WIP
3385: indx := indx + 1;
3386: lv_request_id_views(indx) := FND_REQUEST.SUBMIT_REQUEST(
3387: 'MSC',
3388: 'MSCVWWIP',
3389: NULL,
3390: NULL,
3393: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_views(indx)||' :Creates WIP Views used by Collections Process');
3394: --
3395: -- Demand
3396: indx := indx + 1;
3397: lv_request_id_views(indx) := FND_REQUEST.SUBMIT_REQUEST(
3398: 'MSC',
3399: 'MSCVWDEM',
3400: NULL,
3401: NULL,
3405: --
3406:
3407: -- Supply
3408: indx := indx + 1;
3409: lv_request_id_views(indx) := FND_REQUEST.SUBMIT_REQUEST(
3410: 'MSC',
3411: 'MSCVWSUP',
3412: NULL,
3413: NULL,
3416: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_views(indx)||' :Creates Supply Views used by Collections Process');
3417: --
3418: -- Other
3419: indx := indx + 1;
3420: lv_request_id_views(indx) := FND_REQUEST.SUBMIT_REQUEST(
3421: 'MSC',
3422: 'MSCVWOTH',
3423: NULL,
3424: NULL,
3427: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_views(indx)||' :Creates Other Views used by Collections Process');
3428: --
3429: -- Repair Order
3430: indx := indx + 1;
3431: lv_request_id_views(indx) := FND_REQUEST.SUBMIT_REQUEST(
3432: 'MSC',
3433: 'MSCVWRPO',
3434: NULL,
3435: NULL,
3439: --
3440: -- CMRO
3441: IF CHECK_USAF_FLAG = 1 THEN
3442: indx := indx + 1;
3443: lv_request_id_views(indx) := FND_REQUEST.SUBMIT_REQUEST(
3444: 'MSC',
3445: 'MSCVWAHL',
3446: NULL,
3447: NULL,
3452: --
3453: --EAM
3454: IF CHECK_USAF_FLAG = 1 THEN
3455: indx := indx + 1;
3456: lv_request_id_views(indx) := FND_REQUEST.SUBMIT_REQUEST(
3457: 'MSC',
3458: 'MSCVWEAM',
3459: NULL,
3460: NULL,
3493: indx number := 0;
3494: BEGIN
3495: -- Item
3496: indx := indx + 1;
3497: lv_request_id_trigs(indx) := FND_REQUEST.SUBMIT_REQUEST(
3498: 'MSC',
3499: 'MSCTRITM',
3500: NULL,
3501: NULL,
3504: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_trigs(indx)||' :Creates Item Triggers used by Collections Process');
3505: --
3506: -- BOM
3507: indx := indx + 1;
3508: lv_request_id_trigs(indx) := FND_REQUEST.SUBMIT_REQUEST(
3509: 'MSC',
3510: 'MSCTRBOM',
3511: NULL,
3512: NULL,
3515: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_trigs(indx)||' :Creates BOM Triggers used by Collections Process');
3516: --
3517: -- Routing
3518: indx := indx + 1;
3519: lv_request_id_trigs(indx) := FND_REQUEST.SUBMIT_REQUEST(
3520: 'MSC',
3521: 'MSCTRRTG',
3522: NULL,
3523: NULL,
3526: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_trigs(indx)||' :Creates Routing Triggers used by Collections Process');
3527: --
3528: -- WIP
3529: indx := indx + 1;
3530: lv_request_id_trigs(indx) := FND_REQUEST.SUBMIT_REQUEST(
3531: 'MSC',
3532: 'MSCTRWIP',
3533: NULL,
3534: NULL,
3537: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_trigs(indx)||' :Creates WIP Triggers used by Collections Process');
3538: --
3539: -- Demand
3540: indx := indx + 1;
3541: lv_request_id_trigs(indx) := FND_REQUEST.SUBMIT_REQUEST(
3542: 'MSC',
3543: 'MSCTRDEM',
3544: NULL,
3545: NULL,
3549: --
3550:
3551: -- Supply
3552: indx := indx + 1;
3553: lv_request_id_trigs(indx) := FND_REQUEST.SUBMIT_REQUEST(
3554: 'MSC',
3555: 'MSCTRSUP',
3556: NULL,
3557: NULL,
3560: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_trigs(indx)||' :Creates Supply Triggers used by Collections Process');
3561: --
3562: -- Other
3563: indx := indx + 1;
3564: lv_request_id_trigs(indx) := FND_REQUEST.SUBMIT_REQUEST(
3565: 'MSC',
3566: 'MSCTROTH',
3567: NULL,
3568: NULL,
3571: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Request : '||lv_request_id_trigs(indx)||' :Creates Other Triggers used by Collections Process');
3572: --
3573: -- Repair Order
3574: indx := indx + 1;
3575: lv_request_id_trigs(indx) := FND_REQUEST.SUBMIT_REQUEST(
3576: 'MSC',
3577: 'MSCTRRPO',
3578: NULL,
3579: NULL,
3583: --
3584: -- CMRO
3585: IF CHECK_USAF_FLAG = 1 THEN
3586: indx := indx + 1;
3587: lv_request_id_trigs(indx) := FND_REQUEST.SUBMIT_REQUEST(
3588: 'MSC',
3589: 'MSCTRAHL',
3590: NULL,
3591: NULL,
3597: --
3598: --EAM
3599: IF CHECK_USAF_FLAG = 1 THEN
3600: indx := indx + 1;
3601: lv_request_id_trigs(indx) := FND_REQUEST.SUBMIT_REQUEST(
3602: 'MSC',
3603: 'MSCTREAM',
3604: NULL,
3605: NULL,