DBA Data[Home] [Help]

APPS.GMD_ROUTINGS_PUB dependencies on GMD_ROUTINGS

Line 1: PACKAGE BODY GMD_ROUTINGS_PUB AS

1: PACKAGE BODY GMD_ROUTINGS_PUB AS
2: /* $Header: GMDPROUB.pls 120.4.12010000.2 2008/11/12 18:16:40 rnalla ship $ */
3:
4:
5: --Bug 3222090, NSRIVAST 20-FEB-2004, BEGIN

Line 27: /* header (fm_rout_hdr or gmd_routings) table is successfully. */

23: /* */
24: /* DESCRIPTION: */
25: /* */
26: /* API returns (x_return_code) = 'S' if the insert into routing */
27: /* header (fm_rout_hdr or gmd_routings) table is successfully. */
28: /* */
29: /* History : */
30: /* Shyam 07/29/2002 Initial implementation */
31: /* P.Raghu 08/27/2003 Bug#3068013 K is intialized with 1. */

Line 43: , p_routings IN gmd_routings%ROWTYPE

39: (
40: p_api_version IN NUMBER := 1
41: , p_init_msg_list IN BOOLEAN := TRUE
42: , p_commit IN BOOLEAN := FALSE
43: , p_routings IN gmd_routings%ROWTYPE
44: , p_routings_step_tbl IN GMD_ROUTINGS_PUB.gmd_routings_step_tab
45: , p_routings_step_dep_tbl IN GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab
46: , x_message_count OUT NOCOPY NUMBER
47: , x_message_list OUT NOCOPY VARCHAR2

Line 44: , p_routings_step_tbl IN GMD_ROUTINGS_PUB.gmd_routings_step_tab

40: p_api_version IN NUMBER := 1
41: , p_init_msg_list IN BOOLEAN := TRUE
42: , p_commit IN BOOLEAN := FALSE
43: , p_routings IN gmd_routings%ROWTYPE
44: , p_routings_step_tbl IN GMD_ROUTINGS_PUB.gmd_routings_step_tab
45: , p_routings_step_dep_tbl IN GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab
46: , x_message_count OUT NOCOPY NUMBER
47: , x_message_list OUT NOCOPY VARCHAR2
48: , x_return_status OUT NOCOPY VARCHAR2

Line 45: , p_routings_step_dep_tbl IN GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab

41: , p_init_msg_list IN BOOLEAN := TRUE
42: , p_commit IN BOOLEAN := FALSE
43: , p_routings IN gmd_routings%ROWTYPE
44: , p_routings_step_tbl IN GMD_ROUTINGS_PUB.gmd_routings_step_tab
45: , p_routings_step_dep_tbl IN GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab
46: , x_message_count OUT NOCOPY NUMBER
47: , x_message_list OUT NOCOPY VARCHAR2
48: , x_return_status OUT NOCOPY VARCHAR2
49: ) IS

Line 63: l_routing_qty gmd_routings.routing_qty%TYPE := 0;

59: l_oprn_vers gmd_operations.oprn_vers%TYPE;
60: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
61: l_return_from_routing_hdr VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
62: l_return_from_routing_step VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
63: l_routing_qty gmd_routings.routing_qty%TYPE := 0;
64: l_process_loss gmd_routings.process_loss%TYPE := 0;
65: l_routing_class_um fm_rout_cls.uom%TYPE;
66: l_stepdep_tbl GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab;
67: l_step_dep_tab GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab;

Line 64: l_process_loss gmd_routings.process_loss%TYPE := 0;

60: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
61: l_return_from_routing_hdr VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
62: l_return_from_routing_step VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
63: l_routing_qty gmd_routings.routing_qty%TYPE := 0;
64: l_process_loss gmd_routings.process_loss%TYPE := 0;
65: l_routing_class_um fm_rout_cls.uom%TYPE;
66: l_stepdep_tbl GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab;
67: l_step_dep_tab GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab;
68:

Line 66: l_stepdep_tbl GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab;

62: l_return_from_routing_step VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
63: l_routing_qty gmd_routings.routing_qty%TYPE := 0;
64: l_process_loss gmd_routings.process_loss%TYPE := 0;
65: l_routing_class_um fm_rout_cls.uom%TYPE;
66: l_stepdep_tbl GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab;
67: l_step_dep_tab GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab;
68:
69: --kkillams,bug 3408799
70: l_entity_status GMD_API_GRP.status_rec_type;

Line 67: l_step_dep_tab GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab;

63: l_routing_qty gmd_routings.routing_qty%TYPE := 0;
64: l_process_loss gmd_routings.process_loss%TYPE := 0;
65: l_routing_class_um fm_rout_cls.uom%TYPE;
66: l_stepdep_tbl GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab;
67: l_step_dep_tab GMD_ROUTINGS_PUB.gmd_routings_step_dep_tab;
68:
69: --kkillams,bug 3408799
70: l_entity_status GMD_API_GRP.status_rec_type;
71:

Line 104: l_routings_rec gmd_routings%ROWTYPE;

100: l_routing_qty_cnv NUMBER;
101:
102:
103: /* get a record type */
104: l_routings_rec gmd_routings%ROWTYPE;
105:
106: /* Define Exceptions */
107: routing_creation_failure EXCEPTION;
108: routing_step_creation_failure EXCEPTION;

Line 146: IF NOT FND_API.compatible_api_call ( gmd_routings_PUB.m_api_version

142: RAISE setup_failure;
143: END IF;
144:
145: /* Make sure we are call compatible */
146: IF NOT FND_API.compatible_api_call ( gmd_routings_PUB.m_api_version
147: ,p_api_version
148: ,'INSERT_ROUTING'
149: ,gmd_routings_PUB.m_pkg_name) THEN
150: RAISE invalid_version;

Line 149: ,gmd_routings_PUB.m_pkg_name) THEN

145: /* Make sure we are call compatible */
146: IF NOT FND_API.compatible_api_call ( gmd_routings_PUB.m_api_version
147: ,p_api_version
148: ,'INSERT_ROUTING'
149: ,gmd_routings_PUB.m_pkg_name) THEN
150: RAISE invalid_version;
151: END IF;
152:
153: IF p_routings.routing_no IS NULL THEN

Line 251: the unique key for this table (gmd_routings_b). */

247: END IF;
248:
249: /* Validation 1. Check if this routing that is created does not exists
250: in the the database. The routing_id is the PK or Routing_no and version is
251: the unique key for this table (gmd_routings_b). */
252: GMDRTVAL_PUB.check_routing(pRouting_no => p_routings.routing_no
253: ,pRouting_vers => p_routings.routing_vers
254: ,xRouting_id => l_routing_id
255: ,xReturn_status => l_return_status);

Line 378: GMD_ROUTINGS_PVT.insert_routing

374: to create step dependencies for this routing. Routing details/Steps API
375: should take care of this. */
376: IF (p_routings_step_tbl.count > 0) THEN
377: /* Step 1 : Create Routing header */
378: GMD_ROUTINGS_PVT.insert_routing
379: ( p_routings => l_routings_rec
380: , x_message_count => x_message_count
381: , x_message_list => x_message_list
382: , x_return_status => x_return_status

Line 501: --Add this code after the call to gmd_routings_pkg.insert_row.

497: --Getting the default status for the owner orgn code or null orgn of recipe from parameters table
498: gmd_api_grp.get_status_details (V_entity_type => 'ROUTING',
499: V_orgn_id => p_routings.owner_organization_id, --W.r.t. bug 4004501
500: X_entity_status => l_entity_status);
501: --Add this code after the call to gmd_routings_pkg.insert_row.
502: IF (l_entity_status.entity_status > 100) THEN
503: Gmd_status_pub.modify_status ( p_api_version => 1
504: , p_init_msg_list => TRUE
505: , p_entity_name =>'ROUTING'

Line 566: fnd_msg_pub.add_exc_msg (gmd_routings_PUB.m_pkg_name, l_api_name);

562: ,p_data => x_message_list);
563: WHEN OTHERS THEN
564: ROLLBACK TO SAVEPOINT create_routing;
565: x_return_status := FND_API.g_ret_sts_unexp_error;
566: fnd_msg_pub.add_exc_msg (gmd_routings_PUB.m_pkg_name, l_api_name);
567: IF (l_debug = 'Y') THEN
568: gmd_debug.put_line (m_pkg_name||'.'||l_api_name||':'||'When others exception:'||SQLERRM);
569: END IF;
570: fnd_msg_pub.count_and_get (

Line 583: /* header (fm_rout_hdr or gmd_routings) table is successfully. */

579: /* */
580: /* DESCRIPTION: */
581: /* */
582: /* API returns (x_return_code) = 'S' if the update into routing */
583: /* header (fm_rout_hdr or gmd_routings) table is successfully. */
584: /* */
585: /* History : */
586: /* Shyam 07/29/2002 Initial implementation */
587: /* RLNAGARA 25-Apr-2008 B6997624 Check if the fixed process loss uom is valid*/

Line 593: , p_routing_id IN gmd_routings.routing_id%TYPE := NULL

589: PROCEDURE update_routing
590: ( p_api_version IN NUMBER := 1
591: , p_init_msg_list IN BOOLEAN := TRUE
592: , p_commit IN BOOLEAN := FALSE
593: , p_routing_id IN gmd_routings.routing_id%TYPE := NULL
594: , p_routing_no IN gmd_routings.routing_no%TYPE := NULL
595: , p_routing_vers IN gmd_routings.routing_vers%TYPE := NULL
596: , p_update_table IN update_tbl_type
597: , x_message_count OUT NOCOPY NUMBER

Line 594: , p_routing_no IN gmd_routings.routing_no%TYPE := NULL

590: ( p_api_version IN NUMBER := 1
591: , p_init_msg_list IN BOOLEAN := TRUE
592: , p_commit IN BOOLEAN := FALSE
593: , p_routing_id IN gmd_routings.routing_id%TYPE := NULL
594: , p_routing_no IN gmd_routings.routing_no%TYPE := NULL
595: , p_routing_vers IN gmd_routings.routing_vers%TYPE := NULL
596: , p_update_table IN update_tbl_type
597: , x_message_count OUT NOCOPY NUMBER
598: , x_message_list OUT NOCOPY VARCHAR2

Line 595: , p_routing_vers IN gmd_routings.routing_vers%TYPE := NULL

591: , p_init_msg_list IN BOOLEAN := TRUE
592: , p_commit IN BOOLEAN := FALSE
593: , p_routing_id IN gmd_routings.routing_id%TYPE := NULL
594: , p_routing_no IN gmd_routings.routing_no%TYPE := NULL
595: , p_routing_vers IN gmd_routings.routing_vers%TYPE := NULL
596: , p_update_table IN update_tbl_type
597: , x_message_count OUT NOCOPY NUMBER
598: , x_message_list OUT NOCOPY VARCHAR2
599: , x_return_status OUT NOCOPY VARCHAR2

Line 604: l_routing_id gmd_routings.routing_id%TYPE;

600: ) IS
601:
602: /* Local variable section */
603: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ROUTING';
604: l_routing_id gmd_routings.routing_id%TYPE;
605: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
606: l_cur_status gmd_status.status_code%TYPE;
607: l_owner_id gmd_routings.owner_id%TYPE;
608: l_owner_orgn_id NUMBER;

Line 607: l_owner_id gmd_routings.owner_id%TYPE;

603: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ROUTING';
604: l_routing_id gmd_routings.routing_id%TYPE;
605: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
606: l_cur_status gmd_status.status_code%TYPE;
607: l_owner_id gmd_routings.owner_id%TYPE;
608: l_owner_orgn_id NUMBER;
609:
610: /* Define record type that hold the routing data */
611: l_old_routing_rec gmd_routings%ROWTYPE;

Line 611: l_old_routing_rec gmd_routings%ROWTYPE;

607: l_owner_id gmd_routings.owner_id%TYPE;
608: l_owner_orgn_id NUMBER;
609:
610: /* Define record type that hold the routing data */
611: l_old_routing_rec gmd_routings%ROWTYPE;
612:
613: /* Cursor section */
614: Cursor get_cur_status(vRouting_id gmd_routings.routing_id%TYPE ) IS
615: Select routing_status

Line 614: Cursor get_cur_status(vRouting_id gmd_routings.routing_id%TYPE ) IS

610: /* Define record type that hold the routing data */
611: l_old_routing_rec gmd_routings%ROWTYPE;
612:
613: /* Cursor section */
614: Cursor get_cur_status(vRouting_id gmd_routings.routing_id%TYPE ) IS
615: Select routing_status
616: From gmd_routings
617: Where routing_id = vRouting_id;
618:

Line 616: From gmd_routings

612:
613: /* Cursor section */
614: Cursor get_cur_status(vRouting_id gmd_routings.routing_id%TYPE ) IS
615: Select routing_status
616: From gmd_routings
617: Where routing_id = vRouting_id;
618:
619: CURSOR get_old_routing_rec(vRouting_id gmd_routings.routing_id%TYPE) IS
620: Select *

Line 619: CURSOR get_old_routing_rec(vRouting_id gmd_routings.routing_id%TYPE) IS

615: Select routing_status
616: From gmd_routings
617: Where routing_id = vRouting_id;
618:
619: CURSOR get_old_routing_rec(vRouting_id gmd_routings.routing_id%TYPE) IS
620: Select *
621: From gmd_routings
622: Where Routing_id = vRouting_id;
623:

Line 621: From gmd_routings

617: Where routing_id = vRouting_id;
618:
619: CURSOR get_old_routing_rec(vRouting_id gmd_routings.routing_id%TYPE) IS
620: Select *
621: From gmd_routings
622: Where Routing_id = vRouting_id;
623:
624: /* Define Exceptions */
625: routing_update_failure EXCEPTION;

Line 654: IF NOT FND_API.compatible_api_call ( GMD_ROUTINGS_PUB.m_api_version

650: RAISE setup_failure;
651: END IF;
652:
653: /* Make sure we are call compatible */
654: IF NOT FND_API.compatible_api_call ( GMD_ROUTINGS_PUB.m_api_version
655: ,p_api_version
656: ,l_api_name
657: ,GMD_ROUTINGS_PUB.m_pkg_name) THEN
658: RAISE invalid_version;

Line 657: ,GMD_ROUTINGS_PUB.m_pkg_name) THEN

653: /* Make sure we are call compatible */
654: IF NOT FND_API.compatible_api_call ( GMD_ROUTINGS_PUB.m_api_version
655: ,p_api_version
656: ,l_api_name
657: ,GMD_ROUTINGS_PUB.m_pkg_name) THEN
658: RAISE invalid_version;
659: END IF;
660:
661: /* Validation 1. Check if this routing that is updated does exists

Line 663: the unique key for this table (gmd_routings_b). */

659: END IF;
660:
661: /* Validation 1. Check if this routing that is updated does exists
662: in the the database. The routing_id is the PK or Routing_no and version is
663: the unique key for this table (gmd_routings_b). */
664: IF p_routing_id IS NOT NULL THEN
665: l_routing_id := p_routing_id;
666: ELSE
667: GMDRTVAL_PUB.check_routing(pRouting_no => p_routing_no

Line 785: GMD_ROUTINGS_PVT.update_routing

781: END IF;
782: END LOOP;
783:
784: /* Call the Routing Pvt API */
785: GMD_ROUTINGS_PVT.update_routing
786: ( p_routing_id => l_routing_id
787: , p_update_table => p_update_table
788: , x_message_count => x_message_count
789: , x_message_list => x_message_list

Line 839: fnd_msg_pub.add_exc_msg (gmd_routings_PUB.m_pkg_name, l_api_name);

835: ,p_data => x_message_list);
836: WHEN OTHERS THEN
837: ROLLBACK TO SAVEPOINT update_routing;
838: x_return_status := FND_API.g_ret_sts_unexp_error;
839: fnd_msg_pub.add_exc_msg (gmd_routings_PUB.m_pkg_name, l_api_name);
840: IF (l_debug = 'Y') THEN
841: gmd_debug.put_line (m_pkg_name||'.'||l_api_name||':'||'When others exception:'||SQLERRM);
842: END IF;
843: fnd_msg_pub.count_and_get (

Line 856: /* header (fm_rout_hdr or gmd_routings) table is successfully. */

852: /* */
853: /* DESCRIPTION: */
854: /* */
855: /* API returns (x_return_code) = 'S' if the delete into routing */
856: /* header (fm_rout_hdr or gmd_routings) table is successfully. */
857: /* */
858: /* History : */
859: /* Shyam 07/29/2002 Initial implementation */
860: /* kkillams 02/17/2004 Added new validation which checks whether */

Line 868: , p_routing_id IN gmd_routings.routing_id%TYPE := NULL

864: PROCEDURE delete_routing
865: ( p_api_version IN NUMBER := 1
866: , p_init_msg_list IN BOOLEAN := TRUE
867: , p_commit IN BOOLEAN := FALSE
868: , p_routing_id IN gmd_routings.routing_id%TYPE := NULL
869: , p_routing_no IN gmd_routings.routing_no%TYPE := NULL
870: , p_routing_vers IN gmd_routings.routing_vers%TYPE := NULL
871: , x_message_count OUT NOCOPY NUMBER
872: , x_message_list OUT NOCOPY VARCHAR2

Line 869: , p_routing_no IN gmd_routings.routing_no%TYPE := NULL

865: ( p_api_version IN NUMBER := 1
866: , p_init_msg_list IN BOOLEAN := TRUE
867: , p_commit IN BOOLEAN := FALSE
868: , p_routing_id IN gmd_routings.routing_id%TYPE := NULL
869: , p_routing_no IN gmd_routings.routing_no%TYPE := NULL
870: , p_routing_vers IN gmd_routings.routing_vers%TYPE := NULL
871: , x_message_count OUT NOCOPY NUMBER
872: , x_message_list OUT NOCOPY VARCHAR2
873: , x_return_status OUT NOCOPY VARCHAR2

Line 870: , p_routing_vers IN gmd_routings.routing_vers%TYPE := NULL

866: , p_init_msg_list IN BOOLEAN := TRUE
867: , p_commit IN BOOLEAN := FALSE
868: , p_routing_id IN gmd_routings.routing_id%TYPE := NULL
869: , p_routing_no IN gmd_routings.routing_no%TYPE := NULL
870: , p_routing_vers IN gmd_routings.routing_vers%TYPE := NULL
871: , x_message_count OUT NOCOPY NUMBER
872: , x_message_list OUT NOCOPY VARCHAR2
873: , x_return_status OUT NOCOPY VARCHAR2
874: ) IS

Line 883: l_routing_id gmd_routings.routing_id%TYPE;

879: WHERE routing_id = cp_routing_id
880: AND delete_mark = 0;
881: /* Local variable section */
882: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_ROUTING';
883: l_routing_id gmd_routings.routing_id%TYPE;
884: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
885: l_count NUMBER;
886:
887: /* Define a table type */

Line 888: l_update_table GMD_ROUTINGS_PUB.UPDATE_TBL_TYPE;

884: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
885: l_count NUMBER;
886:
887: /* Define a table type */
888: l_update_table GMD_ROUTINGS_PUB.UPDATE_TBL_TYPE;
889:
890:
891: /* Define Exceptions */
892: routing_delete_failure EXCEPTION;

Line 919: IF NOT FND_API.compatible_api_call ( GMD_ROUTINGS_PUB.m_api_version

915: RAISE setup_failure;
916: END IF;
917:
918: /* Make sure we are call compatible */
919: IF NOT FND_API.compatible_api_call ( GMD_ROUTINGS_PUB.m_api_version
920: ,p_api_version
921: ,l_api_name
922: ,GMD_ROUTINGS_PUB.m_pkg_name) THEN
923: x_return_status := FND_API.G_RET_STS_ERROR;

Line 922: ,GMD_ROUTINGS_PUB.m_pkg_name) THEN

918: /* Make sure we are call compatible */
919: IF NOT FND_API.compatible_api_call ( GMD_ROUTINGS_PUB.m_api_version
920: ,p_api_version
921: ,l_api_name
922: ,GMD_ROUTINGS_PUB.m_pkg_name) THEN
923: x_return_status := FND_API.G_RET_STS_ERROR;
924: RAISE invalid_version;
925: END IF;
926:

Line 929: the unique key for this table (gmd_routings_b). */

925: END IF;
926:
927: /* Validation :. Check if this routing that is deleted does exists
928: in the the database. The routing_id is the PK or Routing_no and version is
929: the unique key for this table (gmd_routings_b). */
930: IF p_routing_id IS NOT NULL THEN
931: l_routing_id := p_routing_id;
932: ELSE
933: GMDRTVAL_PUB.check_routing(pRouting_no => p_routing_no

Line 960: GMD_ROUTINGS_PUB.update_routing

956:
957: l_update_table(1).P_COL_TO_UPDATE := 'DELETE_MARK';
958: l_update_table(1).P_VALUE := '1';
959:
960: GMD_ROUTINGS_PUB.update_routing
961: ( p_routing_id => l_routing_id
962: , p_update_table => l_update_table
963: , p_commit => FALSE
964: , x_message_count => x_message_count

Line 1015: fnd_msg_pub.add_exc_msg (gmd_routings_PUB.m_pkg_name, l_api_name);

1011: ,p_data => x_message_list);
1012: WHEN OTHERS THEN
1013: ROLLBACK TO SAVEPOINT delete_routing;
1014: x_return_status := FND_API.g_ret_sts_unexp_error;
1015: fnd_msg_pub.add_exc_msg (gmd_routings_PUB.m_pkg_name, l_api_name);
1016: IF (l_debug = 'Y') THEN
1017: gmd_debug.put_line (m_pkg_name||'.'||l_api_name||':'||'When others exception:'||SQLERRM);
1018: END IF;
1019: fnd_msg_pub.count_and_get (

Line 1032: /* header (fm_rout_hdr or gmd_routings) table is successfully. */

1028: /* */
1029: /* DESCRIPTION: */
1030: /* */
1031: /* API returns (x_return_code) = 'S' if the delete into routing */
1032: /* header (fm_rout_hdr or gmd_routings) table is successfully. */
1033: /* */
1034: /* History : */
1035: /* Shyam 07/29/2002 Initial implementation */
1036: /* =============================================================== */

Line 1041: , p_routing_id IN gmd_routings.routing_id%TYPE := NULL

1037: PROCEDURE undelete_routing
1038: ( p_api_version IN NUMBER := 1
1039: , p_init_msg_list IN BOOLEAN := TRUE
1040: , p_commit IN BOOLEAN := FALSE
1041: , p_routing_id IN gmd_routings.routing_id%TYPE := NULL
1042: , p_routing_no IN gmd_routings.routing_no%TYPE := NULL
1043: , p_routing_vers IN gmd_routings.routing_vers%TYPE := NULL
1044: , x_message_count OUT NOCOPY NUMBER
1045: , x_message_list OUT NOCOPY VARCHAR2

Line 1042: , p_routing_no IN gmd_routings.routing_no%TYPE := NULL

1038: ( p_api_version IN NUMBER := 1
1039: , p_init_msg_list IN BOOLEAN := TRUE
1040: , p_commit IN BOOLEAN := FALSE
1041: , p_routing_id IN gmd_routings.routing_id%TYPE := NULL
1042: , p_routing_no IN gmd_routings.routing_no%TYPE := NULL
1043: , p_routing_vers IN gmd_routings.routing_vers%TYPE := NULL
1044: , x_message_count OUT NOCOPY NUMBER
1045: , x_message_list OUT NOCOPY VARCHAR2
1046: , x_return_status OUT NOCOPY VARCHAR2

Line 1043: , p_routing_vers IN gmd_routings.routing_vers%TYPE := NULL

1039: , p_init_msg_list IN BOOLEAN := TRUE
1040: , p_commit IN BOOLEAN := FALSE
1041: , p_routing_id IN gmd_routings.routing_id%TYPE := NULL
1042: , p_routing_no IN gmd_routings.routing_no%TYPE := NULL
1043: , p_routing_vers IN gmd_routings.routing_vers%TYPE := NULL
1044: , x_message_count OUT NOCOPY NUMBER
1045: , x_message_list OUT NOCOPY VARCHAR2
1046: , x_return_status OUT NOCOPY VARCHAR2
1047: ) IS

Line 1051: l_routing_id gmd_routings.routing_id%TYPE;

1047: ) IS
1048:
1049: /* Local variable section */
1050: l_api_name CONSTANT VARCHAR2(30) := 'UNDELETE_ROUTING';
1051: l_routing_id gmd_routings.routing_id%TYPE;
1052: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1053:
1054: /* Define a table type */
1055: l_update_table GMD_ROUTINGS_PUB.UPDATE_TBL_TYPE;

Line 1055: l_update_table GMD_ROUTINGS_PUB.UPDATE_TBL_TYPE;

1051: l_routing_id gmd_routings.routing_id%TYPE;
1052: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1053:
1054: /* Define a table type */
1055: l_update_table GMD_ROUTINGS_PUB.UPDATE_TBL_TYPE;
1056:
1057: /* Define Exceptions */
1058: routing_undelete_failure EXCEPTION;
1059: invalid_version EXCEPTION;

Line 1084: IF NOT FND_API.compatible_api_call ( GMD_ROUTINGS_PUB.m_api_version

1080: RAISE setup_failure;
1081: END IF;
1082:
1083: /* Make sure we are call compatible */
1084: IF NOT FND_API.compatible_api_call ( GMD_ROUTINGS_PUB.m_api_version
1085: ,p_api_version
1086: ,l_api_name
1087: ,GMD_ROUTINGS_PUB.m_pkg_name) THEN
1088: x_return_status := FND_API.G_RET_STS_ERROR;

Line 1087: ,GMD_ROUTINGS_PUB.m_pkg_name) THEN

1083: /* Make sure we are call compatible */
1084: IF NOT FND_API.compatible_api_call ( GMD_ROUTINGS_PUB.m_api_version
1085: ,p_api_version
1086: ,l_api_name
1087: ,GMD_ROUTINGS_PUB.m_pkg_name) THEN
1088: x_return_status := FND_API.G_RET_STS_ERROR;
1089: RAISE invalid_version;
1090: END IF;
1091:

Line 1094: the unique key for this table (gmd_routings_b). */

1090: END IF;
1091:
1092: /* Validation :. Check if this routing that is deleted does exists
1093: in the the database. The routing_id is the PK or Routing_no and version is
1094: the unique key for this table (gmd_routings_b). */
1095: IF p_routing_id IS NOT NULL THEN
1096: l_routing_id := p_routing_id;
1097: ELSE
1098: GMDRTVAL_PUB.check_routing(pRouting_no => p_routing_no

Line 1111: UPDATE gmd_routings_b

1107: RAISE routing_undelete_failure;
1108: END IF;
1109: END IF;
1110:
1111: UPDATE gmd_routings_b
1112: SET delete_mark = 0
1113: WHERE routing_id = l_routing_id;
1114:
1115: fnd_msg_pub.count_and_get (

Line 1156: fnd_msg_pub.add_exc_msg (gmd_routings_PUB.m_pkg_name, l_api_name);

1152: ,p_data => x_message_list);
1153: WHEN OTHERS THEN
1154: ROLLBACK TO SAVEPOINT undelete_routing;
1155: x_return_status := FND_API.g_ret_sts_unexp_error;
1156: fnd_msg_pub.add_exc_msg (gmd_routings_PUB.m_pkg_name, l_api_name);
1157: IF (l_debug = 'Y') THEN
1158: gmd_debug.put_line (m_pkg_name||'.'||l_api_name||':'||'When others exception:'||SQLERRM);
1159: END IF;
1160: fnd_msg_pub.count_and_get (

Line 1167: END GMD_ROUTINGS_PUB;

1163: ,p_data => x_message_list);
1164: END undelete_routing;
1165:
1166:
1167: END GMD_ROUTINGS_PUB;