[Home] [Help]
1: package body PA_PROGRESS_ROLLUP_PKG as
2: /* $Header: PAPRPKGB.pls 120.2 2005/08/23 06:04:03 avaithia noship $*/
3:
4: procedure INSERT_ROW(
5: X_PROGRESS_ROLLUP_ID IN OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
129:
130: BEGIN
131: IF X_PROGRESS_ROLLUP_ID IS NULL
132: THEN
133: select PA_PROGRESS_ROLLUP_S.nextval
134: into X_PROGRESS_ROLLUP_ID
135: from dual;
136: END IF;
137:
134: into X_PROGRESS_ROLLUP_ID
135: from dual;
136: END IF;
137:
138: insert into pa_progress_rollup(
139: PROGRESS_ROLLUP_ID
140: ,PROJECT_ID
141: ,OBJECT_ID
142: ,OBJECT_TYPE
389: );
390:
391: exception when others then
392: X_PROGRESS_ROLLUP_ID := NULL ; -- 4537865 RESET OUT PARAM
393: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_ROLLUP_PKG',
394: p_procedure_name => 'INSERT_ROW',
395: p_error_text => SUBSTRB(SQLERRM,1,240));
396: raise;
397: End insert_row;
521: ,X_SUBPRJ_EQPMT_ETC_RAWCOST_PC IN NUMBER
522: ) IS
523:
524: BEGIN
525: UPDATE pa_progress_rollup
526: SET
527: PROJECT_ID = DECODE(X_PROJECT_ID, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
528: PROJECT_ID, X_PROJECT_ID )
529: ,OBJECT_ID = DECODE(X_OBJECT_ID, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
669: WHERE PROGRESS_ROLLUP_ID = X_PROGRESS_ROLLUP_ID
670: AND record_version_number = x_record_version_number;
671:
672: exception when others then
673: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_ROLLUP_PKG',
674: p_procedure_name => 'UPDATE_ROW',
675: p_error_text => SUBSTRB(SQLERRM,1,240));
676: raise;
677: End update_row;
678:
679: Procedure DELETE_ROW(
680: p_row_id VARCHAR2 ) IS
681: BEGIN
682: DELETE FROM pa_progress_rollup
683: WHERE rowid = p_row_id;
684: END DELETE_ROW;
685:
686: end PA_PROGRESS_ROLLUP_PKG;
682: DELETE FROM pa_progress_rollup
683: WHERE rowid = p_row_id;
684: END DELETE_ROW;
685:
686: end PA_PROGRESS_ROLLUP_PKG;
687: