399: /* Cursor Definitions. */
400: /* =================== */
401: CURSOR Cur_get_routing_steps IS
402: SELECT distinct routingstep_no
403: FROM fm_rout_dep
404: WHERE routing_id = pparent_key;
405: X_rout_step_rec Cur_get_routing_steps%ROWTYPE;
406:
407: CURSOR Cur_get_batch_steps IS
411: X_batch_step_rec Cur_get_batch_steps%ROWTYPE;
412:
413: CURSOR Cur_check_rout_step_depen (V_routingstep_no NUMBER) IS
414: SELECT max(routingstep_no)
415: FROM (SELECT * FROM FM_ROUT_DEP WHERE routing_id = pparent_key)
416: START WITH routingstep_no = V_routingstep_no
417: CONNECT BY (PRIOR dep_routingstep_no = routingstep_no)
418: AND (PRIOR routing_id = routing_id);
419:
498: l_user_id NUMBER;
499:
500: /* Record Buffers. */
501: /*=================*/
502: l_rout_dep FM_ROUT_DEP%ROWTYPE;
503: /* Exceptions. */
504: /* ================ */
505: missing_details EXCEPTION;
506: insert_failure EXCEPTION;
505: missing_details EXCEPTION;
506: insert_failure EXCEPTION;
507: BEGIN
508: l_user_id := FND_PROFILE.VALUE('USER_ID');
509: DELETE FROM fm_rout_dep
510: WHERE routing_id = prouting_id;
511: OPEN Cur_get_routing_steps;
512: FETCH Cur_get_routing_steps INTO X_rout_step_rec;
513: IF Cur_get_routing_steps%FOUND THEN
537: l_rout_dep.last_update_date := SYSDATE;
538: l_rout_dep.creation_date := SYSDATE;
539: l_rout_dep.transfer_pct := 100;
540:
541: IF NOT FM_ROUT_DEP_DBL.insert_row (l_rout_dep) THEN
542: CLOSE Cur_get_routing_steps;
543: RAISE INSERT_FAILURE;
544: END IF;
545: END IF;
617: l_user_id NUMBER;
618:
619: /* Record Buffers. */
620: /*=================*/
621: l_rout_dep FM_ROUT_DEP%ROWTYPE;
622: /* Exceptions. */
623: /* ================ */
624: missing_details EXCEPTION;
625: insert_failure EXCEPTION;
624: missing_details EXCEPTION;
625: insert_failure EXCEPTION;
626: BEGIN
627: l_user_id := FND_PROFILE.VALUE('USER_ID');
628: DELETE FROM fm_rout_dep
629: WHERE routing_id = prouting_id;
630: OPEN Cur_get_routing_steps;
631: FETCH Cur_get_routing_steps INTO X_rout_step_rec;
632: IF Cur_get_routing_steps%FOUND THEN
656: l_rout_dep.last_update_date := SYSDATE;
657: l_rout_dep.creation_date := SYSDATE;
658: l_rout_dep.transfer_pct := 100;
659:
660: IF NOT FM_ROUT_DEP_DBL.insert_row (l_rout_dep) THEN
661: CLOSE Cur_get_routing_steps;
662: RAISE INSERT_FAILURE;
663: END IF;
664: END IF;
1083: /* ==================================================================== */
1084:
1085: PROCEDURE check_deprouting (prouting_id IN gmd_routings.routing_id%TYPE
1086: ,proutingStep_no IN fm_rout_dtl.routingStep_no%TYPE
1087: ,pdeproutingStep_no IN fm_rout_dep.dep_routingStep_no%TYPE
1088: ,x_return_status OUT NOCOPY VARCHAR2) IS
1089:
1090: /* Cursor Definitions. */
1091: /* =================== */
1092: CURSOR Cur_step_no IS
1093: SELECT 1
1094: FROM SYS.DUAL
1095: WHERE EXISTS (SELECT 1
1096: FROM fm_rout_dep
1097: WHERE routing_id = prouting_id
1098: AND routingstep_no = proutingStep_no
1099: AND dep_routingstep_no = pdeproutingStep_no);
1100: