DBA Data[Home] [Help]

APPS.GMD_CUSTOMER_TESTS_PVT dependencies on GMD_CUSTOMER_TESTS

Line 1: package body GMD_CUSTOMER_TESTS_PVT as

1: package body GMD_CUSTOMER_TESTS_PVT as
2: /* $Header: GMDVTCUB.pls 115.5 2002/12/03 17:10:05 cnagarba noship $*/
3:
4: procedure INSERT_ROW (
5: X_ROWID in out nocopy ROWID,

Line 17: cursor C is select ROWID from GMD_CUSTOMER_TESTS_B

13: X_LAST_UPDATE_DATE in DATE,
14: X_LAST_UPDATED_BY in NUMBER,
15: X_LAST_UPDATE_LOGIN in NUMBER
16: ) is
17: cursor C is select ROWID from GMD_CUSTOMER_TESTS_B
18: where TEST_ID = X_TEST_ID
19: and CUST_ID = X_CUST_ID
20: ;
21: begin

Line 23: insert into GMD_CUSTOMER_TESTS_B (

19: and CUST_ID = X_CUST_ID
20: ;
21: begin
22:
23: insert into GMD_CUSTOMER_TESTS_B (
24: TEST_ID,
25: CUST_ID,
26: REPORT_PRECISION,
27: TEXT_CODE,

Line 45: insert into GMD_CUSTOMER_TESTS_TL (

41: NVL(X_LAST_UPDATED_BY,FND_GLOBAL.USER_ID),
42: NVL(X_LAST_UPDATE_LOGIN,FND_GLOBAL.LOGIN_ID)
43: );
44:
45: insert into GMD_CUSTOMER_TESTS_TL (
46: TEST_ID,
47: CUST_ID,
48: CUST_TEST_DISPLAY,
49: CREATION_DATE,

Line 71: from GMD_CUSTOMER_TESTS_TL T

67: from FND_LANGUAGES L
68: where L.INSTALLED_FLAG in ('I', 'B')
69: and not exists
70: (select NULL
71: from GMD_CUSTOMER_TESTS_TL T
72: where T.TEST_ID = X_TEST_ID
73: and T.CUST_ID = X_CUST_ID
74: and T.LANGUAGE = L.LANGUAGE_CODE);
75:

Line 87: FUNCTION INSERT_ROW(p_customer_tests_rec IN GMD_CUSTOMER_TESTS%ROWTYPE) RETURN BOOLEAN IS

83:
84: end INSERT_ROW;
85:
86:
87: FUNCTION INSERT_ROW(p_customer_tests_rec IN GMD_CUSTOMER_TESTS%ROWTYPE) RETURN BOOLEAN IS
88: l_rowid ROWID;
89: BEGIN
90: GMD_CUSTOMER_TESTS_PVT.INSERT_ROW(
91: X_ROWID => l_rowid,

Line 90: GMD_CUSTOMER_TESTS_PVT.INSERT_ROW(

86:
87: FUNCTION INSERT_ROW(p_customer_tests_rec IN GMD_CUSTOMER_TESTS%ROWTYPE) RETURN BOOLEAN IS
88: l_rowid ROWID;
89: BEGIN
90: GMD_CUSTOMER_TESTS_PVT.INSERT_ROW(
91: X_ROWID => l_rowid,
92: X_TEST_ID => p_customer_tests_rec.TEST_ID,
93: X_CUST_ID => p_customer_tests_rec.CUST_ID,
94: X_REPORT_PRECISION => p_customer_tests_rec.REPORT_PRECISION,

Line 107: FND_MESSAGE.Set_Token('PACKAGE','GMD_CUSTOMER_TESTS_PVT.INSERT_ROW');

103: RETURN TRUE;
104:
105: EXCEPTION WHEN OTHERS THEN
106: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
107: FND_MESSAGE.Set_Token('PACKAGE','GMD_CUSTOMER_TESTS_PVT.INSERT_ROW');
108: FND_MESSAGE.Set_Token('ERROR', SUBSTR(SQLERRM,1,100));
109: FND_MESSAGE.Set_Token('POSITION','010' );
110: FND_MSG_PUB.ADD;
111: RETURN FALSE;

Line 124: from GMD_CUSTOMER_TESTS_B

120: ) is
121: cursor c is select
122: REPORT_PRECISION,
123: TEXT_CODE
124: from GMD_CUSTOMER_TESTS_B
125: where TEST_ID = X_TEST_ID
126: and CUST_ID = X_CUST_ID
127: for update of TEST_ID nowait;
128: recinfo c%rowtype;

Line 133: from GMD_CUSTOMER_TESTS_TL

129:
130: cursor c1 is select
131: CUST_TEST_DISPLAY,
132: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
133: from GMD_CUSTOMER_TESTS_TL
134: where TEST_ID = X_TEST_ID
135: and CUST_ID = X_CUST_ID
136: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
137: for update of TEST_ID nowait;

Line 183: update GMD_CUSTOMER_TESTS_B set

179: X_LAST_UPDATED_BY in NUMBER,
180: X_LAST_UPDATE_LOGIN in NUMBER
181: ) is
182: begin
183: update GMD_CUSTOMER_TESTS_B set
184: REPORT_PRECISION = X_REPORT_PRECISION,
185: TEXT_CODE = X_TEXT_CODE,
186: LAST_UPDATE_DATE = NVL(X_LAST_UPDATE_DATE,SYSDATE),
187: LAST_UPDATED_BY = NVL(X_LAST_UPDATED_BY,FND_GLOBAL.USER_ID),

Line 196: update GMD_CUSTOMER_TESTS_TL set

192: if (sql%notfound) then
193: raise no_data_found;
194: end if;
195:
196: update GMD_CUSTOMER_TESTS_TL set
197: CUST_TEST_DISPLAY = X_CUST_TEST_DISPLAY,
198: LAST_UPDATE_DATE = NVL(X_LAST_UPDATE_DATE,SYSDATE),
199: LAST_UPDATED_BY = NVL(X_LAST_UPDATED_BY,FND_GLOBAL.USER_ID),
200: LAST_UPDATE_LOGIN = NVL(X_LAST_UPDATE_LOGIN,FND_GLOBAL.LOGIN_ID),

Line 216: delete from GMD_CUSTOMER_TESTS_TL

212: P_TEST_ID IN NUMBER,
213: P_CUST_ID IN NUMBER) RETURN BOOLEAN IS
214: begin
215: IF P_TEST_ID IS NOT NULL AND P_CUST_ID IS NOT NULL THEN
216: delete from GMD_CUSTOMER_TESTS_TL
217: where TEST_ID = P_TEST_ID
218: and CUST_ID = P_CUST_ID;
219:
220: if (sql%notfound) then

Line 224: delete from GMD_CUSTOMER_TESTS_B

220: if (sql%notfound) then
221: raise no_data_found;
222: end if;
223:
224: delete from GMD_CUSTOMER_TESTS_B
225: where TEST_ID = P_TEST_ID
226: and CUST_ID = P_CUST_ID;
227:
228: if (sql%notfound) then

Line 232: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_CUSTOMER_TESTS');

228: if (sql%notfound) then
229: raise no_data_found;
230: end if;
231: ELSE
232: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_CUSTOMER_TESTS');
233: RETURN FALSE;
234: END IF;
235:
236: RETURN TRUE;

Line 241: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_CUSTOMER_TESTS');

237:
238: EXCEPTION
239: WHEN NO_DATA_FOUND
240: THEN
241: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_CUSTOMER_TESTS');
242: RETURN FALSE;
243: WHEN OTHERS THEN
244: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_CUSTOMER_TESTS_PVT.DELETE_ROW','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');
245: RETURN FALSE;

Line 244: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_CUSTOMER_TESTS_PVT.DELETE_ROW','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');

240: THEN
241: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_CUSTOMER_TESTS');
242: RETURN FALSE;
243: WHEN OTHERS THEN
244: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_CUSTOMER_TESTS_PVT.DELETE_ROW','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');
245: RETURN FALSE;
246: end DELETE_ROW;
247:
248: procedure ADD_LANGUAGE

Line 251: delete from GMD_CUSTOMER_TESTS_TL T

247:
248: procedure ADD_LANGUAGE
249: is
250: begin
251: delete from GMD_CUSTOMER_TESTS_TL T
252: where not exists
253: (select NULL
254: from GMD_CUSTOMER_TESTS_B B
255: where B.TEST_ID = T.TEST_ID

Line 254: from GMD_CUSTOMER_TESTS_B B

250: begin
251: delete from GMD_CUSTOMER_TESTS_TL T
252: where not exists
253: (select NULL
254: from GMD_CUSTOMER_TESTS_B B
255: where B.TEST_ID = T.TEST_ID
256: and B.CUST_ID = T.CUST_ID
257: );
258:

Line 259: update GMD_CUSTOMER_TESTS_TL T set (

255: where B.TEST_ID = T.TEST_ID
256: and B.CUST_ID = T.CUST_ID
257: );
258:
259: update GMD_CUSTOMER_TESTS_TL T set (
260: CUST_TEST_DISPLAY
261: ) = (select
262: B.CUST_TEST_DISPLAY
263: from GMD_CUSTOMER_TESTS_TL B

Line 263: from GMD_CUSTOMER_TESTS_TL B

259: update GMD_CUSTOMER_TESTS_TL T set (
260: CUST_TEST_DISPLAY
261: ) = (select
262: B.CUST_TEST_DISPLAY
263: from GMD_CUSTOMER_TESTS_TL B
264: where B.TEST_ID = T.TEST_ID
265: and B.CUST_ID = T.CUST_ID
266: and B.LANGUAGE = T.SOURCE_LANG)
267: where (

Line 275: from GMD_CUSTOMER_TESTS_TL SUBB, GMD_CUSTOMER_TESTS_TL SUBT

271: ) in (select
272: SUBT.TEST_ID,
273: SUBT.CUST_ID,
274: SUBT.LANGUAGE
275: from GMD_CUSTOMER_TESTS_TL SUBB, GMD_CUSTOMER_TESTS_TL SUBT
276: where SUBB.TEST_ID = SUBT.TEST_ID
277: and SUBB.CUST_ID = SUBT.CUST_ID
278: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
279: and (SUBB.CUST_TEST_DISPLAY <> SUBT.CUST_TEST_DISPLAY

Line 282: insert into GMD_CUSTOMER_TESTS_TL (

278: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
279: and (SUBB.CUST_TEST_DISPLAY <> SUBT.CUST_TEST_DISPLAY
280: ));
281:
282: insert into GMD_CUSTOMER_TESTS_TL (
283: TEST_ID,
284: CUST_ID,
285: CUST_TEST_DISPLAY,
286: CREATION_DATE,

Line 304: from GMD_CUSTOMER_TESTS_TL B, FND_LANGUAGES L

300: B.LAST_UPDATE_DATE,
301: B.LAST_UPDATE_LOGIN,
302: L.LANGUAGE_CODE,
303: B.SOURCE_LANG
304: from GMD_CUSTOMER_TESTS_TL B, FND_LANGUAGES L
305: where L.INSTALLED_FLAG in ('I', 'B')
306: and B.LANGUAGE = userenv('LANG')
307: and not exists
308: (select NULL

Line 309: from GMD_CUSTOMER_TESTS_TL T

305: where L.INSTALLED_FLAG in ('I', 'B')
306: and B.LANGUAGE = userenv('LANG')
307: and not exists
308: (select NULL
309: from GMD_CUSTOMER_TESTS_TL T
310: where T.TEST_ID = B.TEST_ID
311: and T.CUST_ID = B.CUST_ID
312: and T.LANGUAGE = L.LANGUAGE_CODE);
313: end ADD_LANGUAGE;

Line 326: FROM gmd_customer_tests_b

322:
323: IF P_TEST_ID IS NOT NULL AND P_CUST_ID IS NOT NULL THEN
324: SELECT test_id
325: INTO dummy
326: FROM gmd_customer_tests_b
327: WHERE test_id = p_test_id
328: AND cust_id = p_cust_id
329: FOR UPDATE OF test_id NOWAIT ;
330: ELSE

Line 331: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_CUSTOMER_TESTS');

327: WHERE test_id = p_test_id
328: AND cust_id = p_cust_id
329: FOR UPDATE OF test_id NOWAIT ;
330: ELSE
331: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_CUSTOMER_TESTS');
332: RETURN FALSE;
333: END IF;
334:
335: RETURN TRUE;

Line 340: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_CUSTOMER_TESTS');

336:
337: EXCEPTION
338: WHEN NO_DATA_FOUND
339: THEN
340: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_CUSTOMER_TESTS');
341: RETURN FALSE;
342: WHEN OTHERS
343: THEN
344: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_CUSTOMER_TESTS_PVT.LOCK_ROW','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');

Line 344: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_CUSTOMER_TESTS_PVT.LOCK_ROW','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');

340: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_CUSTOMER_TESTS');
341: RETURN FALSE;
342: WHEN OTHERS
343: THEN
344: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_CUSTOMER_TESTS_PVT.LOCK_ROW','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');
345: RETURN FALSE;
346: END lock_row;
347:
348: end GMD_CUSTOMER_TESTS_PVT;

Line 348: end GMD_CUSTOMER_TESTS_PVT;

344: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_CUSTOMER_TESTS_PVT.LOCK_ROW','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');
345: RETURN FALSE;
346: END lock_row;
347:
348: end GMD_CUSTOMER_TESTS_PVT;