[Home] [Help]
PACKAGE BODY: APPS.PA_RBS_ASGMT_PKG
Source
1 PACKAGE BODY PA_RBS_ASGMT_PKG AS
2 /* $Header: PARASGTB.pls 120.0 2005/06/03 13:33:52 appldev noship $*/
3
4 -- Standard who
5 g_last_updated_by NUMBER(15) := FND_GLOBAL.USER_ID;
6 g_last_update_date DATE := SYSDATE;
7 g_creation_date DATE := SYSDATE;
8 g_created_by NUMBER(15) := FND_GLOBAL.USER_ID;
9 -- g_last_update_login NUMBER(15) := FND_GLOBAL.LOG_ID;
10
11 /**************************************************************
12 * Procedure : Insert_Row
13 * Description : The purpose of this procedure is to
14 * Insert into the Pa_rbs_prj_assignments table
15 * the values passed as parameters from the
16 * PA_RBS_ASGMT_PVT pkg.
17 ****************************************************************/
18 PROCEDURE Insert_Row(
19 p_rbs_assignment_id IN NUMBER,
20 p_rbs_header_id IN NUMBER,
21 p_rbs_version_id IN NUMBER DEFAULT NULL,
22 p_project_id IN NUMBER,
23 p_wp_usage_flag IN VARCHAR2 DEFAULT 'N',
24 p_fp_usage_flag IN VARCHAR2 DEFAULT 'N',
25 p_prog_rep_usage_flag IN VARCHAR2 DEFAULT 'N',
26 p_primary_rep_flag IN VARCHAR2 DEFAULT 'N',
27 x_return_status OUT NOCOPY VARCHAR2 )
28 IS
29 BEGIN
30 INSERT INTO pa_rbs_prj_assignments
31 (RBS_PRJ_ASSIGNMENT_ID,
32 PROJECT_ID,
33 RBS_VERSION_ID,
34 RBS_HEADER_ID,
35 REPORTING_USAGE_FLAG,
36 WP_USAGE_FLAG,
37 FP_USAGE_FLAG,
38 PROG_REP_USAGE_FLAG,
39 PRIMARY_REPORTING_RBS_FLAG,
40 ASSIGNMENT_STATUS,
41 LAST_UPDATE_DATE,
42 LAST_UPDATED_BY,
43 CREATION_DATE,
44 CREATED_BY,
45 LAST_UPDATE_LOGIN,
46 RECORD_VERSION_NUMBER)
47 VALUES
48 (p_rbs_assignment_id,
49 p_project_id,
50 p_rbs_version_id,
51 p_rbs_header_id,
52 'Y',
53 p_wp_usage_flag,
54 p_fp_usage_flag,
55 p_prog_rep_usage_flag,
56 p_primary_rep_flag,
57 'ACTIVE',
58 SYSDATE,
59 FND_GLOBAL.USER_ID,
60 SYSDATE,
61 FND_GLOBAL.USER_ID,
62 FND_GLOBAL.LOGIN_ID,
63 1);
64 EXCEPTION
65 WHEN OTHERS THEN
66 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
67 RETURN;
68 END Insert_Row;
69 /***************************/
70 /**************************************************************
71 * Procedure : Update_Row
72 * Description : The purpose of this procedure is to
73 * Update the Pa_rbs_prj_assignments table
74 * the values passed as parameters from the
75 * PA_RBS_ASGMT_PVT pkg.
76 ****************************************************************/
77 PROCEDURE Update_Row(
78 p_rbs_prj_assignment_id IN NUMBER,
79 p_wp_usage_flag IN VARCHAR2 DEFAULT 'N',
80 p_fp_usage_flag IN VARCHAR2 DEFAULT 'N',
81 p_prog_rep_usage_flag IN VARCHAR2 DEFAULT 'N',
82 p_primary_rep_flag IN VARCHAR2 DEFAULT 'N',
83 p_record_version_number IN Number,
84 x_return_status OUT NOCOPY VARCHAR2 )
85 IS
86
87 BEGIN
88 x_return_status := FND_API.G_RET_STS_SUCCESS;
89 UPDATE pa_rbs_prj_assignments
90 SET reporting_usage_flag = 'Y',
91 wp_usage_flag = p_wp_usage_flag,
92 fp_usage_flag = p_fp_usage_flag,
93 prog_rep_usage_flag = p_prog_rep_usage_flag,
94 primary_reporting_rbs_flag = p_primary_rep_flag,
95 last_update_date = SYSDATE,
96 last_updated_by = FND_GLOBAL.USER_ID,
97 last_update_login = FND_GLOBAL.LOGIN_ID,
98 record_version_number = record_version_number +1
99 WHERE Rbs_prj_assignment_id = p_rbs_prj_assignment_id
100 AND assignment_status = 'ACTIVE'
101 AND NVL(record_version_number, 0) =
102 NVL(p_record_version_number, 0);
103 IF SQL%NOTFOUND THEN
104 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
105 RETURN;
106 END IF;
107 EXCEPTION
108 WHEN OTHERS THEN
109 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
110 RETURN;
111 END Update_Row;
112
113 /**************************************************************
114 * Procedure : Delete_Row
115 * Description : The purpose of this procedure is to
116 * delete the row in Pa_rbs_prj_assignments table
117 * based on the p_rbs_prj_assignment_id parameter
118 * passed from the Pa_rbs_asgmt_Pvt.Delete_Rbs_assignment
119 * procedure.
120 ****************************************************************/
121 PROCEDURE Delete_Row(
122 p_rbs_prj_assignment_id IN NUMBER,
123 x_return_status OUT NOCOPY VARCHAR2)
124 IS
125 BEGIN
126 /***********************************************
127 * Delete the record.
128 **********************************************/
129 DELETE FROM pa_rbs_prj_assignments
130 WHERE RBS_PRJ_ASSIGNMENT_ID = p_rbs_prj_assignment_id;
131
132 IF SQL%NOTFOUND THEN
133 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134 RETURN;
135 END IF;
136 EXCEPTION
137 WHEN OTHERS THEN
138 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
139 RETURN;
140 END Delete_Row;
141
142
143 END PA_RBS_ASGMT_PKG;