[Home] [Help]
1: package body PA_PROGRESS_ROLLUP_PKG as
2: /* $Header: PAPRPKGB.pls 120.3.12020000.2 2013/03/26 09:24:45 bpottipa ship $*/
3:
4: procedure INSERT_ROW(
5: X_PROGRESS_ROLLUP_ID IN OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
130:
131: BEGIN
132: IF X_PROGRESS_ROLLUP_ID IS NULL
133: THEN
134: select PA_PROGRESS_ROLLUP_S.nextval
135: into X_PROGRESS_ROLLUP_ID
136: from dual;
137: END IF;
138:
135: into X_PROGRESS_ROLLUP_ID
136: from dual;
137: END IF;
138:
139: insert into pa_progress_rollup(
140: PROGRESS_ROLLUP_ID
141: ,PROJECT_ID
142: ,OBJECT_ID
143: ,OBJECT_TYPE
391: );
392:
393: exception when others then
394: X_PROGRESS_ROLLUP_ID := NULL ; -- 4537865 RESET OUT PARAM
395: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_ROLLUP_PKG',
396: p_procedure_name => 'INSERT_ROW',
397: p_error_text => SUBSTRB(SQLERRM,1,240));
398: raise;
399: End insert_row;
524: , X_CBS_ELEMENT_ID IN NUMBER DEFAULT NULL --Added for CBS 16200605
525: ) IS
526:
527: BEGIN
528: UPDATE pa_progress_rollup
529: SET
530: PROJECT_ID = DECODE(X_PROJECT_ID, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
531: PROJECT_ID, X_PROJECT_ID )
532: ,OBJECT_ID = DECODE(X_OBJECT_ID, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
672: WHERE PROGRESS_ROLLUP_ID = X_PROGRESS_ROLLUP_ID
673: AND record_version_number = x_record_version_number;
674:
675: exception when others then
676: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_ROLLUP_PKG',
677: p_procedure_name => 'UPDATE_ROW',
678: p_error_text => SUBSTRB(SQLERRM,1,240));
679: raise;
680: End update_row;
681:
682: Procedure DELETE_ROW(
683: p_row_id VARCHAR2 ) IS
684: BEGIN
685: DELETE FROM pa_progress_rollup
686: WHERE rowid = p_row_id;
687: END DELETE_ROW;
688:
689: end PA_PROGRESS_ROLLUP_PKG;
685: DELETE FROM pa_progress_rollup
686: WHERE rowid = p_row_id;
687: END DELETE_ROW;
688:
689: end PA_PROGRESS_ROLLUP_PKG;
690: