[Home] [Help]
PACKAGE BODY: APPS.PA_PROJ_PROGRESS_ATTR_PKG
Source
1 package body PA_PROJ_PROGRESS_ATTR_PKG as
2 /* $Header: PAPPPKGB.pls 120.2 2005/08/23 02:04:55 avaithia noship $*/
3
4 procedure INSERT_ROW(
5 X_PROJ_PROGRESS_ATTR_ID IN OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
6 ,X_PROJECT_ID IN NUMBER
7 ,X_OBJECT_TYPE IN VARCHAR2
8 ,X_OBJECT_ID IN NUMBER
9 ,X_LAST_UPDATE_DATE IN DATE
10 ,X_LAST_UPDATED_BY IN NUMBER
11 ,X_CREATION_DATE IN DATE
12 ,X_CREATED_BY IN NUMBER
13 ,X_LAST_UPDATE_LOGIN IN NUMBER
14 ,X_PROGRESS_CYCLE_ID IN NUMBER
15 ,X_WQ_ENABLE_FLAG IN VARCHAR2
16 ,X_REMAIN_EFFORT_ENABLE_FLAG IN VARCHAR2
17 ,X_PERCENT_COMP_ENABLE_FLAG IN VARCHAR2
18 ,X_NEXT_PROGRESS_UPDATE_DATE IN DATE
19 ,X_TASK_WEIGHT_BASIS_CODE IN VARCHAR2
20 ,X_ALLOW_COLLAB_PROG_ENTRY IN VARCHAR2
21 ,X_ALLW_PHY_PRCNT_CMP_OVERRIDES IN VARCHAR2
22 ,X_STRUCTURE_TYPE IN VARCHAR2
23 ) IS
24
25 BEGIN
26
27 IF X_PROJ_PROGRESS_ATTR_ID IS NULL
28 THEN
29 select PA_PROJ_PROGRESS_ATTR_S.nextval
30 into X_PROJ_PROGRESS_ATTR_ID
31 from dual;
32 END IF;
33
34 insert into PA_PROJ_PROGRESS_ATTR(
35 PROJ_PROGRESS_ATTR_ID
36 ,OBJECT_TYPE
37 ,OBJECT_ID
38 ,LAST_UPDATE_DATE
39 ,LAST_UPDATED_BY
40 ,CREATION_DATE
41 ,CREATED_BY
42 ,LAST_UPDATE_LOGIN
43 ,PROJECT_ID
44 ,PROGRESS_CYCLE_ID
45 ,WQ_ENABLE_FLAG
46 ,REMAIN_EFFORT_ENABLE_FLAG
47 ,PERCENT_COMP_ENABLE_FLAG
48 ,NEXT_PROGRESS_UPDATE_DATE
49 ,record_version_number
50 ,TASK_WEIGHT_BASIS_CODE
51 ,ALLOW_COLLAB_PROG_ENTRY
52 ,ALLOW_PHY_PRCNT_CMP_OVERRIDES
53 ,STRUCTURE_TYPE
54 ) VALUES(
55 X_PROJ_PROGRESS_ATTR_ID
56 ,X_OBJECT_TYPE
57 ,X_OBJECT_ID
58 ,X_LAST_UPDATE_DATE
59 ,X_LAST_UPDATED_BY
60 ,X_CREATION_DATE
61 ,X_CREATED_BY
62 ,X_LAST_UPDATE_LOGIN
63 ,X_PROJECT_ID
64 ,X_PROGRESS_CYCLE_ID
65 ,X_WQ_ENABLE_FLAG
66 ,X_REMAIN_EFFORT_ENABLE_FLAG
67 ,X_PERCENT_COMP_ENABLE_FLAG
68 ,X_NEXT_PROGRESS_UPDATE_DATE
69 ,1
70 ,X_TASK_WEIGHT_BASIS_CODE
71 ,X_ALLOW_COLLAB_PROG_ENTRY
72 ,X_ALLW_PHY_PRCNT_CMP_OVERRIDES
73 ,X_STRUCTURE_TYPE
74 );
75
76 exception when others then
77 -- RESET OUT param in Exception block : 4537865 - Start
78 X_PROJ_PROGRESS_ATTR_ID := NULL ;
79 -- End : 4537865
80 fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_PROGRESS_ATTR_PKG',
81 p_procedure_name => 'INSERT_ROW',
82 p_error_text => SUBSTRB(SQLERRM,1,240));
83 raise;
84 End INSERT_ROW;
85
86 procedure UPDATE_ROW(
87 X_PROJ_PROGRESS_ATTR_ID IN NUMBER
88 ,X_PROJECT_ID IN NUMBER
89 ,X_OBJECT_TYPE IN VARCHAR2
90 ,X_OBJECT_ID IN NUMBER
91 ,X_LAST_UPDATE_DATE IN DATE
92 ,X_LAST_UPDATED_BY IN NUMBER
93 ,X_LAST_UPDATE_LOGIN IN NUMBER
94 ,X_PROGRESS_CYCLE_ID IN NUMBER
95 ,X_WQ_ENABLE_FLAG IN VARCHAR2
96 ,X_REMAIN_EFFORT_ENABLE_FLAG IN VARCHAR2
97 ,X_PERCENT_COMP_ENABLE_FLAG IN VARCHAR2
98 ,X_NEXT_PROGRESS_UPDATE_DATE IN DATE
99 ,X_RECORD_VERSION_NUMBER IN NUMBER
100 ,X_TASK_WEIGHT_BASIS_CODE IN VARCHAR2
101 ,X_ALLOW_COLLAB_PROG_ENTRY IN VARCHAR2
102 ,X_ALLW_PHY_PRCNT_CMP_OVERRIDES IN VARCHAR2
103 ,X_STRUCTURE_TYPE IN VARCHAR2
104 ) IS
105
106 BEGIN
107 UPDATE PA_PROJ_PROGRESS_ATTR
108 SET
109 OBJECT_TYPE = DECODE( X_OBJECT_TYPE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
110 OBJECT_TYPE, X_OBJECT_TYPE )
111 ,OBJECT_ID = DECODE( X_OBJECT_ID, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
112 OBJECT_ID, X_OBJECT_ID )
113 ,LAST_UPDATE_DATE = X_LAST_UPDATE_DATE
114 ,LAST_UPDATED_BY = X_LAST_UPDATED_BY
115 ,LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
116 ,PROJECT_ID = DECODE( X_PROJECT_ID, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
117 PROJECT_ID, X_PROJECT_ID )
118 ,PROGRESS_CYCLE_ID = DECODE( X_PROGRESS_CYCLE_ID, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
119 PROGRESS_CYCLE_ID, X_PROGRESS_CYCLE_ID )
120 ,WQ_ENABLE_FLAG = DECODE( X_WQ_ENABLE_FLAG, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
121 WQ_ENABLE_FLAG, X_WQ_ENABLE_FLAG )
122 ,REMAIN_EFFORT_ENABLE_FLAG = DECODE( X_REMAIN_EFFORT_ENABLE_FLAG, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
123 REMAIN_EFFORT_ENABLE_FLAG, X_REMAIN_EFFORT_ENABLE_FLAG )
124 ,PERCENT_COMP_ENABLE_FLAG = DECODE( X_PERCENT_COMP_ENABLE_FLAG, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
125 PERCENT_COMP_ENABLE_FLAG, X_PERCENT_COMP_ENABLE_FLAG )
126 ,NEXT_PROGRESS_UPDATE_DATE = DECODE( X_NEXT_PROGRESS_UPDATE_DATE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,
127 NEXT_PROGRESS_UPDATE_DATE, X_NEXT_PROGRESS_UPDATE_DATE )
128 ,record_version_number = NVL( record_version_number, 1 ) + 1
129 ,TASK_WEIGHT_BASIS_CODE = DECODE(X_TASK_WEIGHT_BASIS_CODE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
130 TASK_WEIGHT_BASIS_CODE, X_TASK_WEIGHT_BASIS_CODE)
131 ,ALLOW_COLLAB_PROG_ENTRY = DECODE(X_ALLOW_COLLAB_PROG_ENTRY, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
132 ALLOW_COLLAB_PROG_ENTRY, X_ALLOW_COLLAB_PROG_ENTRY)
133 ,ALLOW_PHY_PRCNT_CMP_OVERRIDES = DECODE(X_ALLW_PHY_PRCNT_CMP_OVERRIDES, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
134 ALLOW_PHY_PRCNT_CMP_OVERRIDES, X_ALLW_PHY_PRCNT_CMP_OVERRIDES)
135 ,STRUCTURE_TYPE = DECODE(X_STRUCTURE_TYPE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
136 STRUCTURE_TYPE, X_STRUCTURE_TYPE)
137 WHERE PROJ_PROGRESS_ATTR_ID = X_PROJ_PROGRESS_ATTR_ID
138 AND record_version_number = X_RECORD_VERSION_NUMBER
139 ;
140
141
142 /* if (sql%notfound) then
143 x_return_status := FND_API.G_RET_STS_ERROR;
144 fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
145 fnd_msg_pub.add;
146 end if;*/
147
148
149 exception when others then
150 fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_PROGRESS_ATTR_PKG',
151 p_procedure_name => 'UPDATE_ROW',
152 p_error_text => SUBSTRB(SQLERRM,1,240));
153 raise;
154 End;
155
156 Procedure DELETE_ROW(
157 p_row_id VARCHAR2 ) IS
158 BEGIN
159 DELETE FROM PA_PROJ_PROGRESS_ATTR
160 WHERE rowid = p_row_id;
161 END DELETE_ROW;
162
163 end PA_PROJ_PROGRESS_ATTR_PKG;
164