1: PACKAGE BODY GMD_OPERATION_ACTIVITIES_PVT AS
2: /* $Header: GMDVOPAB.pls 120.0 2005/05/25 19:18:18 appldev noship $
3: +=========================================================================+
4: | FILENAME |
5: | GMDVOPAB.pls |
13: | 27-DEC-2002 S.Dulyk Bug 2669986 Added break_ind and max_break cols |
14: | 20-FEB-2004 NSRIVAST Bug# 3222090,Removed call to |
15: | FND_PROFILE.VALUE('AFLOG_ENABLED') |
16: +=========================================================================+
17: API Name : GMD_OPERATION_ACTIVITIES_PVT
18: Type : Private
19: Function : This package contains private procedures used to create, modify, and delete operation activties
20: Pre-reqs : N/A
21: Parameters: Per function
52: Parameters
53: ================================================ */
54: PROCEDURE insert_operation_activity
55: ( p_oprn_id IN gmd_operations.oprn_id%TYPE
56: , p_oprn_activity IN gmd_operation_activities%ROWTYPE
57: , x_message_count OUT NOCOPY NUMBER
58: , x_message_list OUT NOCOPY VARCHAR2
59: , x_return_status OUT NOCOPY VARCHAR2) IS
60:
57: , x_message_count OUT NOCOPY NUMBER
58: , x_message_list OUT NOCOPY VARCHAR2
59: , x_return_status OUT NOCOPY VARCHAR2) IS
60:
61: v_activity gmd_operation_activities.activity%TYPE;
62: v_oprn_line_id gmd_operation_activities.oprn_line_id%TYPE;
63: l_errmsg VARCHAR2(240);
64: setup_failure EXCEPTION;
65: l_mesg_count NUMBER;
58: , x_message_list OUT NOCOPY VARCHAR2
59: , x_return_status OUT NOCOPY VARCHAR2) IS
60:
61: v_activity gmd_operation_activities.activity%TYPE;
62: v_oprn_line_id gmd_operation_activities.oprn_line_id%TYPE;
63: l_errmsg VARCHAR2(240);
64: setup_failure EXCEPTION;
65: l_mesg_count NUMBER;
66: l_mesg_list NUMBER;
87: gmd_debug.put_line('Begin Loop - in insert_operation_activity loop (private). '||
88: ' Curr Activity is ' || p_oprn_activity.activity);
89: END IF;
90:
91: insert into GMD_OPERATION_ACTIVITIES (
92: OPRN_LINE_ID,
93: OPRN_ID,
94: ACTIVITY ,
95: OFFSET_INTERVAL,
207: This particular procedure is used to update an
208: operation activity Parameters
209: ================================================ */
210: PROCEDURE update_operation_activity
211: ( p_oprn_line_id IN gmd_operation_activities.oprn_line_id%TYPE
212: , p_update_table IN gmd_operation_activities_pub.update_tbl_type
213: , x_message_count OUT NOCOPY NUMBER
214: , x_message_list OUT NOCOPY VARCHAR2
215: , x_return_status OUT NOCOPY VARCHAR2) IS
208: operation activity Parameters
209: ================================================ */
210: PROCEDURE update_operation_activity
211: ( p_oprn_line_id IN gmd_operation_activities.oprn_line_id%TYPE
212: , p_update_table IN gmd_operation_activities_pub.update_tbl_type
213: , x_message_count OUT NOCOPY NUMBER
214: , x_message_list OUT NOCOPY VARCHAR2
215: , x_return_status OUT NOCOPY VARCHAR2) IS
216:
213: , x_message_count OUT NOCOPY NUMBER
214: , x_message_list OUT NOCOPY VARCHAR2
215: , x_return_status OUT NOCOPY VARCHAR2) IS
216:
217: CURSOR retrieve_oprn_actv( p_oprn_line_id gmd_operation_activities.oprn_line_id%TYPE ) IS
218: SELECT *
219: FROM gmd_operation_activities
220: WHERE oprn_line_Id = p_oprn_line_id;
221:
215: , x_return_status OUT NOCOPY VARCHAR2) IS
216:
217: CURSOR retrieve_oprn_actv( p_oprn_line_id gmd_operation_activities.oprn_line_id%TYPE ) IS
218: SELECT *
219: FROM gmd_operation_activities
220: WHERE oprn_line_Id = p_oprn_line_id;
221:
222: v_oprn_actv_update_rec gmd_operation_activities%ROWTYPE;
223: l_errmsg VARCHAR2(240);
218: SELECT *
219: FROM gmd_operation_activities
220: WHERE oprn_line_Id = p_oprn_line_id;
221:
222: v_oprn_actv_update_rec gmd_operation_activities%ROWTYPE;
223: l_errmsg VARCHAR2(240);
224: setup_failure EXCEPTION;
225: BEGIN
226: IF (l_debug = 'Y') THEN
339: IF (l_debug = 'Y') THEN
340: gmd_debug.put_line('before update table - update_operation_activity private');
341: END IF;
342:
343: update GMD_OPERATION_ACTIVITIES
344: set ACTIVITY = v_oprn_actv_update_rec.activity,
345: OFFSET_INTERVAL = v_oprn_actv_update_rec.offset_interval,
346: ACTIVITY_FACTOR = v_oprn_actv_update_rec.activity_factor,
347: DELETE_MARK = v_oprn_actv_update_rec.delete_mark,
411: This particular procedure is used to delete an operation activity
412: Parameters
413: ================================================ */
414: PROCEDURE delete_operation_activity
415: ( p_oprn_line_id IN gmd_operation_activities.oprn_line_id%TYPE
416: , x_message_count OUT NOCOPY NUMBER
417: , x_message_list OUT NOCOPY VARCHAR2
418: , x_return_status OUT NOCOPY VARCHAR2) IS
419:
421: l_errmsg VARCHAR2(240);
422:
423: BEGIN
424: /* begin delete operation activity PVT*/
425: DELETE from GMD_OPERATION_ACTIVITIES
426: WHERE oprn_line_id = p_oprn_line_id;
427:
428: /* delete associated operation resources */
429: DELETE from GMD_OPERATION_RESOURCES
450:
451:
452: END delete_operation_activity;
453:
454: END GMD_OPERATION_ACTIVITIES_PVT;