1: PACKAGE BODY CSP_INV_LOC_ASSIGNMENTS_PKG AS
2: /* $Header: cspttreb.pls 120.0 2005/05/25 11:37:41 appldev noship $ */
3: -- Start of Comments
4: -- Package name : CSP_INV_LOC_ASSIGNMENTS_PKG
5: -- Purpose :
1: PACKAGE BODY CSP_INV_LOC_ASSIGNMENTS_PKG AS
2: /* $Header: cspttreb.pls 120.0 2005/05/25 11:37:41 appldev noship $ */
3: -- Start of Comments
4: -- Package name : CSP_INV_LOC_ASSIGNMENTS_PKG
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments
7: -- NOTE :
8: -- End of Comments
9:
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSP_INV_LOC_ASSIGNMENTS_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'cspttreb.pls';
13:
14: PROCEDURE Insert_Row(
15: px_CSP_INV_LOC_ASSIGNMENT_ID IN OUT NOCOPY NUMBER,
43: p_ATTRIBUTE14 VARCHAR2,
44: p_ATTRIBUTE15 VARCHAR2)
45:
46: IS
47: CURSOR C2 IS SELECT CSP_INV_LOC_ASSIGNMENTS_S1.nextval FROM sys.dual;
48: l_inv_loc_assignment CSP_INV_LOC_ASSIGNMENTS_PKG.inv_loc_assignments_rec_type;
49: l_return_status varchar2(100);
50: l_msg_count NUMBER;
51: l_msg_data varchar2(1000);
44: p_ATTRIBUTE15 VARCHAR2)
45:
46: IS
47: CURSOR C2 IS SELECT CSP_INV_LOC_ASSIGNMENTS_S1.nextval FROM sys.dual;
48: l_inv_loc_assignment CSP_INV_LOC_ASSIGNMENTS_PKG.inv_loc_assignments_rec_type;
49: l_return_status varchar2(100);
50: l_msg_count NUMBER;
51: l_msg_data varchar2(1000);
52: l_api_name_full varchar2(50) := 'CSP_INV_LOC_ASSIGNMENTS_PKG.INSERT_ROW';
48: l_inv_loc_assignment CSP_INV_LOC_ASSIGNMENTS_PKG.inv_loc_assignments_rec_type;
49: l_return_status varchar2(100);
50: l_msg_count NUMBER;
51: l_msg_data varchar2(1000);
52: l_api_name_full varchar2(50) := 'CSP_INV_LOC_ASSIGNMENTS_PKG.INSERT_ROW';
53: BEGIN
54: l_inv_loc_assignment.CSP_INV_LOC_ASSIGNMENT_ID := px_CSP_INV_LOC_ASSIGNMENT_ID;
55: l_inv_loc_assignment.CREATED_BY := p_CREATED_BY ;
56: l_inv_loc_assignment.CREATION_DATE := p_CREATION_DATE ;
81: l_inv_loc_assignment.ATTRIBUTE13 := p_ATTRIBUTE13;
82: l_inv_loc_assignment.ATTRIBUTE14 := p_ATTRIBUTE14;
83: l_inv_loc_assignment.ATTRIBUTE15 := p_ATTRIBUTE15;
84:
85: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
86: 'Insert_Row',
87: 'B', 'C') THEN
88: csp_inv_loc_assignments_cuhk.create_inventory_location_Pre
89: ( px_inv_loc_assignment => l_inv_loc_assignment ,
84:
85: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
86: 'Insert_Row',
87: 'B', 'C') THEN
88: csp_inv_loc_assignments_cuhk.create_inventory_location_Pre
89: ( px_inv_loc_assignment => l_inv_loc_assignment ,
90: x_return_status => l_return_status,
91: x_msg_count => l_msg_count,
92: x_msg_data => l_msg_data
101: END IF;
102: END IF;
103: -- Pre call to the Vertical Type User Hook
104: --
105: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
106: 'Insert_Row',
107: 'B', 'V') THEN
108: csp_inv_loc_assignments_vuhk.create_inventory_location_Pre
109: ( px_inv_loc_assignment => l_inv_loc_assignment ,
104: --
105: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
106: 'Insert_Row',
107: 'B', 'V') THEN
108: csp_inv_loc_assignments_vuhk.create_inventory_location_Pre
109: ( px_inv_loc_assignment => l_inv_loc_assignment ,
110: x_return_status => l_return_status,
111: x_msg_count => l_msg_count,
112: x_msg_data => l_msg_data
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;
122: END IF;
123:
124: csp_inv_loc_assignments_iuhk.create_inventory_location_Pre
125: ( x_return_status => l_return_status
126: ) ;
127:
128: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
140: CLOSE C2;
141: End If;
142: l_inv_loc_assignment.CSP_INV_LOC_ASSIGNMENT_ID := px_CSP_INV_LOC_ASSIGNMENT_ID;
143: user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID := l_inv_loc_assignment.CSP_INV_LOC_ASSIGNMENT_ID ;
144: INSERT INTO CSP_INV_LOC_ASSIGNMENTS(
145: CSP_INV_LOC_ASSIGNMENT_ID,
146: CREATED_BY,
147: CREATION_DATE,
148: LAST_UPDATED_BY,
203: decode( l_inv_loc_assignment.ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, l_inv_loc_assignment.ATTRIBUTE13),
204: decode( l_inv_loc_assignment.ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, l_inv_loc_assignment.ATTRIBUTE14),
205: decode( l_inv_loc_assignment.ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, l_inv_loc_assignment.ATTRIBUTE15));
206:
207: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
208: 'Insert_Row',
209: 'A', 'C') THEN
210: csp_inv_loc_assignments_cuhk.create_inventory_location_Post
211: ( px_inv_loc_assignment => l_inv_loc_assignment ,
206:
207: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
208: 'Insert_Row',
209: 'A', 'C') THEN
210: csp_inv_loc_assignments_cuhk.create_inventory_location_Post
211: ( px_inv_loc_assignment => l_inv_loc_assignment ,
212: x_return_status => l_return_status,
213: x_msg_count => l_msg_count,
214: x_msg_data => l_msg_data
223: END IF;
224: END IF;
225: -- Pre call to the Vertical Type User Hook
226: --
227: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
228: 'Insert_Row',
229: 'A', 'V') THEN
230: csp_inv_loc_assignments_vuhk.create_inventory_location_Post
231: ( px_inv_loc_assignment => l_inv_loc_assignment ,
226: --
227: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
228: 'Insert_Row',
229: 'A', 'V') THEN
230: csp_inv_loc_assignments_vuhk.create_inventory_location_Post
231: ( px_inv_loc_assignment => l_inv_loc_assignment ,
232: x_return_status => l_return_status,
233: x_msg_count => l_msg_count,
234: x_msg_data => l_msg_data
241: FND_MSG_PUB.Add;
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243: END IF;
244: END IF;
245: csp_inv_loc_assignments_iuhk.create_inventory_location_post
246: ( x_return_status => l_return_status
247: ) ;
248:
249: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
287: p_ATTRIBUTE14 VARCHAR2,
288: p_ATTRIBUTE15 VARCHAR2)
289:
290: IS
291: l_inv_loc_assignment CSP_INV_LOC_ASSIGNMENTS_PKG.inv_loc_assignments_rec_type;
292: l_return_status varchar2(100);
293: l_msg_count NUMBER;
294: l_msg_data varchar2(1000);
295: l_api_name_full varchar2(50) := 'CSP_INV_LOC_ASSIGNMENTS_PKG.UPDATE_ROW';
291: l_inv_loc_assignment CSP_INV_LOC_ASSIGNMENTS_PKG.inv_loc_assignments_rec_type;
292: l_return_status varchar2(100);
293: l_msg_count NUMBER;
294: l_msg_data varchar2(1000);
295: l_api_name_full varchar2(50) := 'CSP_INV_LOC_ASSIGNMENTS_PKG.UPDATE_ROW';
296: BEGIN
297:
298:
299: l_inv_loc_assignment.CSP_INV_LOC_ASSIGNMENT_ID := p_CSP_INV_LOC_ASSIGNMENT_ID;
326: l_inv_loc_assignment.ATTRIBUTE13 := p_ATTRIBUTE13;
327: l_inv_loc_assignment.ATTRIBUTE14 := p_ATTRIBUTE14;
328: l_inv_loc_assignment.ATTRIBUTE15 := p_ATTRIBUTE15;
329: user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID := l_inv_loc_assignment.CSP_INV_LOC_ASSIGNMENT_ID ;
330: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
331: 'Update_Row',
332: 'B', 'C') THEN
333: csp_inv_loc_assignments_cuhk.update_inventory_location_Pre
334: ( px_inv_loc_assignment => l_inv_loc_assignment ,
329: user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID := l_inv_loc_assignment.CSP_INV_LOC_ASSIGNMENT_ID ;
330: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
331: 'Update_Row',
332: 'B', 'C') THEN
333: csp_inv_loc_assignments_cuhk.update_inventory_location_Pre
334: ( px_inv_loc_assignment => l_inv_loc_assignment ,
335: x_return_status => l_return_status,
336: x_msg_count => l_msg_count,
337: x_msg_data => l_msg_data
346: END IF;
347: END IF;
348: -- Pre call to the Vertical Type User Hook
349: --
350: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
351: 'Update_Row',
352: 'B', 'V') THEN
353: csp_inv_loc_assignments_vuhk.update_inventory_location_Pre
354: ( px_inv_loc_assignment => l_inv_loc_assignment ,
349: --
350: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
351: 'Update_Row',
352: 'B', 'V') THEN
353: csp_inv_loc_assignments_vuhk.update_inventory_location_Pre
354: ( px_inv_loc_assignment => l_inv_loc_assignment ,
355: x_return_status => l_return_status,
356: x_msg_count => l_msg_count,
357: x_msg_data => l_msg_data
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
366: END IF;
367: END IF;
368:
369: csp_inv_loc_assignments_iuhk.update_inventory_location_Pre
370: ( x_return_status => l_return_status
371: ) ;
372:
373: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
377: FND_MSG_PUB.Add;
378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
379: END IF;
380:
381: Update CSP_INV_LOC_ASSIGNMENTS
382: SET
383: CREATED_BY = decode( l_inv_loc_assignment.CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, l_inv_loc_assignment.CREATED_BY),
384: CREATION_DATE = decode(l_inv_loc_assignment.CREATION_DATE,fnd_api.g_miss_date,creation_date,l_inv_loc_assignment.creation_date),
385: LAST_UPDATED_BY = decode( l_inv_loc_assignment.LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, l_inv_loc_assignment.LAST_UPDATED_BY),
414: If (SQL%NOTFOUND) then
415: RAISE NO_DATA_FOUND;
416: End If;
417:
418: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
419: 'Update_Row',
420: 'A', 'C') THEN
421: csp_inv_loc_assignments_cuhk.update_inventory_location_post
422: ( px_inv_loc_assignment => l_inv_loc_assignment ,
417:
418: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
419: 'Update_Row',
420: 'A', 'C') THEN
421: csp_inv_loc_assignments_cuhk.update_inventory_location_post
422: ( px_inv_loc_assignment => l_inv_loc_assignment ,
423: x_return_status => l_return_status,
424: x_msg_count => l_msg_count,
425: x_msg_data => l_msg_data
434: END IF;
435: END IF;
436: -- Pre call to the Vertical Type User Hook
437: --
438: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
439: 'Update_Row',
440: 'A', 'V') THEN
441: csp_inv_loc_assignments_vuhk.update_inventory_location_Post
442: ( px_inv_loc_assignment => l_inv_loc_assignment ,
437: --
438: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
439: 'Update_Row',
440: 'A', 'V') THEN
441: csp_inv_loc_assignments_vuhk.update_inventory_location_Post
442: ( px_inv_loc_assignment => l_inv_loc_assignment ,
443: x_return_status => l_return_status,
444: x_msg_count => l_msg_count,
445: x_msg_data => l_msg_data
452: FND_MSG_PUB.Add;
453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454: END IF;
455: END IF;
456: csp_inv_loc_assignments_iuhk.update_inventory_location_post
457: ( x_return_status => l_return_status
458: ) ;
459:
460: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
472: l_inv_loc_assignment_id NUMBER;
473: l_return_status varchar2(100);
474: l_msg_count NUMBER;
475: l_msg_data varchar2(1000);
476: l_api_name_full varchar2(50) := 'CSP_INV_LOC_ASSIGNMENTS_PKG.DELETE_ROW';
477: BEGIN
478: user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID := p_CSP_INV_LOC_ASSIGNMENT_ID ;
479: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
480: 'Delete_Row',
475: l_msg_data varchar2(1000);
476: l_api_name_full varchar2(50) := 'CSP_INV_LOC_ASSIGNMENTS_PKG.DELETE_ROW';
477: BEGIN
478: user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID := p_CSP_INV_LOC_ASSIGNMENT_ID ;
479: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
480: 'Delete_Row',
481: 'B', 'C') THEN
482: csp_inv_loc_assignments_cuhk.delete_inventory_location_pre
483: ( p_inv_loc_assignment_id => p_CSP_INV_LOC_ASSIGNMENT_ID ,
478: user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID := p_CSP_INV_LOC_ASSIGNMENT_ID ;
479: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
480: 'Delete_Row',
481: 'B', 'C') THEN
482: csp_inv_loc_assignments_cuhk.delete_inventory_location_pre
483: ( p_inv_loc_assignment_id => p_CSP_INV_LOC_ASSIGNMENT_ID ,
484: x_return_status => l_return_status,
485: x_msg_count => l_msg_count,
486: x_msg_data => l_msg_data
495: END IF;
496: END IF;
497: -- Pre call to the Vertical Type User Hook
498: --
499: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
500: 'Update_Row',
501: 'B', 'V') THEN
502: csp_inv_loc_assignments_vuhk.delete_inventory_location_pre
503: ( p_inv_loc_assignment_id => p_CSP_INV_LOC_ASSIGNMENT_ID ,
498: --
499: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
500: 'Update_Row',
501: 'B', 'V') THEN
502: csp_inv_loc_assignments_vuhk.delete_inventory_location_pre
503: ( p_inv_loc_assignment_id => p_CSP_INV_LOC_ASSIGNMENT_ID ,
504: x_return_status => l_return_status,
505: x_msg_count => l_msg_count,
506: x_msg_data => l_msg_data
513: FND_MSG_PUB.Add;
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
515: END IF;
516: END IF;
517: csp_inv_loc_assignments_iuhk.delete_inventory_location_Pre
518: ( x_return_status => l_return_status
519: ) ;
520:
521: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
525: FND_MSG_PUB.Add;
526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
527: END IF;
528:
529: DELETE FROM CSP_INV_LOC_ASSIGNMENTS
530: WHERE CSP_INV_LOC_ASSIGNMENT_ID = p_CSP_INV_LOC_ASSIGNMENT_ID;
531: If (SQL%NOTFOUND) then
532: RAISE NO_DATA_FOUND;
533: End If;
531: If (SQL%NOTFOUND) then
532: RAISE NO_DATA_FOUND;
533: End If;
534:
535: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
536: 'Delete_Row',
537: 'A', 'C') THEN
538: csp_inv_loc_assignments_cuhk.delete_inventory_location_post
539: ( p_inv_loc_assignment_id => p_CSP_INV_LOC_ASSIGNMENT_ID ,
534:
535: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
536: 'Delete_Row',
537: 'A', 'C') THEN
538: csp_inv_loc_assignments_cuhk.delete_inventory_location_post
539: ( p_inv_loc_assignment_id => p_CSP_INV_LOC_ASSIGNMENT_ID ,
540: x_return_status => l_return_status,
541: x_msg_count => l_msg_count,
542: x_msg_data => l_msg_data
551: END IF;
552: END IF;
553: -- Pre call to the Vertical Type User Hook
554: --
555: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
556: 'Delete_Row',
557: 'A', 'V') THEN
558: csp_inv_loc_assignments_vuhk.delete_inventory_location_Post
559: ( p_inv_loc_assignment_id => p_CSP_INV_LOC_ASSIGNMENT_ID ,
554: --
555: IF jtf_usr_hks.Ok_To_Execute('CSP_INV_LOC_ASSIGNMENTS_PKG',
556: 'Delete_Row',
557: 'A', 'V') THEN
558: csp_inv_loc_assignments_vuhk.delete_inventory_location_Post
559: ( p_inv_loc_assignment_id => p_CSP_INV_LOC_ASSIGNMENT_ID ,
560: x_return_status => l_return_status,
561: x_msg_count => l_msg_count,
562: x_msg_data => l_msg_data
570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
571: END IF;
572: END IF;
573:
574: csp_inv_loc_assignments_iuhk.delete_inventory_location_post
575: ( x_return_status => l_return_status
576: ) ;
577:
578: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
619:
620: IS
621: CURSOR C IS
622: SELECT *
623: FROM CSP_INV_LOC_ASSIGNMENTS
624: WHERE CSP_INV_LOC_ASSIGNMENT_ID = p_CSP_INV_LOC_ASSIGNMENT_ID
625: FOR UPDATE of CSP_INV_LOC_ASSIGNMENT_ID NOWAIT;
626: Recinfo C%ROWTYPE;
627: BEGIN
729: APP_EXCEPTION.RAISE_EXCEPTION;
730: End If;
731: END Lock_Row;
732:
733: End CSP_INV_LOC_ASSIGNMENTS_PKG;