7: /* */
8: /* DESCRIPTION: */
9: /* */
10: /* API returns (x_return_code) = 'S' if the insert into resources */
11: /* header (cr_rsrc_mst ) table is successfully. */
12: /* */
13: /* History : */
14: /* Sridhar 03-SEP-2002 Initial implementation */
15: /* =============================================================== */
16: PROCEDURE insert_resources
17: ( p_api_version IN NUMBER := 1
18: , p_init_msg_list IN BOOLEAN := TRUE
19: , p_commit IN BOOLEAN := FALSE
20: , p_resources IN cr_rsrc_mst%ROWTYPE
21: , x_message_count OUT NOCOPY NUMBER
22: , x_message_list OUT NOCOPY VARCHAR2
23: , x_return_status IN OUT NOCOPY VARCHAR2
24: ) IS
29: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
30:
31:
32: /* get a record type */
33: l_resources_rec cr_rsrc_mst%ROWTYPE;
34:
35: /* Define Exceptions */
36: resource_creation_failure EXCEPTION;
37: RESOURCE_REQUIRED EXCEPTION;
90: THEN
91: l_resources_rec.capacity_tolerance := NULL;
92: END IF;
93: --
94: CR_RSRC_MST_PKG.insert_row
95: ( l_row_id,
96: l_resources_rec.resources,
97: l_resources_rec.resource_class,
98: l_resources_rec.trans_cnt,
170: /* */
171: /* DESCRIPTION: */
172: /* */
173: /* The following Procedure checks the Record and then Inserts */
174: /* the row into cr_rsrc_mst table and Returns S code if inserted */
175: /* Successfully */
176: /* */
177: /* History : */
178: /* Sgidugu 09/03/2002 Initial implementation */
191: x_message_list OUT NOCOPY VARCHAR2,
192: x_return_status OUT NOCOPY VARCHAR2) IS
193: CURSOR Cur_resources IS
194: SELECT COUNT(1)
195: FROM cr_rsrc_mst
196: where resources = p_resources
197: and delete_mark = 0;
198:
199: CURSOR Cur_std_usage_um IS
393: PROCEDURE update_resources
394: ( p_api_version IN NUMBER := 1
395: , p_init_msg_list IN BOOLEAN := TRUE
396: , p_commit IN BOOLEAN := FALSE
397: , p_resources IN cr_rsrc_mst%ROWTYPE
398: , x_message_count OUT NOCOPY NUMBER
399: , x_message_list OUT NOCOPY VARCHAR2
400: , x_return_status OUT NOCOPY VARCHAR2
401: ) IS
453: FND_MSG_PUB.ADD;
454: RAISE resource_update_failure;
455: ELSE
456: /* Update the Resource Data now */
457: CR_RSRC_MST_PKG.update_row(
458: p_resources.resources,
459: p_resources.resource_class,
460: p_resources.trans_cnt,
461: p_resources.delete_mark,
530: PROCEDURE delete_resources
531: ( p_api_version IN NUMBER := 1
532: , p_init_msg_list IN BOOLEAN := TRUE
533: , p_commit IN BOOLEAN := FALSE
534: , p_resources IN cr_rsrc_mst.resources%TYPE
535: , x_message_count OUT NOCOPY NUMBER
536: , x_message_list OUT NOCOPY VARCHAR2
537: , x_return_status OUT NOCOPY VARCHAR2
538: ) IS
537: , x_return_status OUT NOCOPY VARCHAR2
538: ) IS
539: CURSOR Cur_resources IS
540: SELECT count(1)
541: FROM cr_rsrc_mst
542: where resources = p_resources;
543:
544: l_counter number;
545:
580: GMD_DEBUG.PUT_LINE('Resource to be deleted Does Not Exist ');
581: FND_MSG_PUB.ADD;
582: RAISE resource_delete_failure;
583: ELSE
584: delete from cr_rsrc_mst_tl
585: where resources = p_resources;
586: --
587: delete from cr_rsrc_mst_b
588: where resources = p_resources;
583: ELSE
584: delete from cr_rsrc_mst_tl
585: where resources = p_resources;
586: --
587: delete from cr_rsrc_mst_b
588: where resources = p_resources;
589: l_return_status := 'S';
590: END IF;
591: --