[Home] [Help]
1: PACKAGE BODY CSP_REQUIREMENT_LINES_PKG as
2: /* $Header: csptrqlb.pls 115.13 2004/03/24 22:57:57 phegde noship $ */
3: -- Start of Comments
4: -- Package name : CSP_REQUIREMENT_LINES_PKG
5: -- Purpose :
1: PACKAGE BODY CSP_REQUIREMENT_LINES_PKG as
2: /* $Header: csptrqlb.pls 115.13 2004/03/24 22:57:57 phegde noship $ */
3: -- Start of Comments
4: -- Package name : CSP_REQUIREMENT_LINES_PKG
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments
9: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSP_REQUIREMENT_LINES_PKG';
10: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csptrqlb.pls';
11: PROCEDURE Insert_Row(
12: px_REQUIREMENT_LINE_ID IN OUT NOCOPY NUMBER,
13: p_CREATED_BY NUMBER,
55: l_requirement_line CSP_REQUIREMENT_LINES_PVT.Requirement_line_Rec_Type;
56: l_return_status varchar2(100);
57: l_msg_count NUMBER;
58: l_msg_data varchar2(1000);
59: l_api_name_full varchar2(50) := 'CSP_REQUIREMENT_LINES_PKG.INSERT_ROW';
60: BEGIN
61: l_requirement_line.REQUIREMENT_LINE_ID := px_REQUIREMENT_LINE_ID ;
62: l_requirement_line.CREATED_BY := p_CREATED_BY;
63: l_requirement_line.CREATION_DATE := p_CREATION_DATE;
99: l_requirement_line.SHIPPING_METHOD_CODE :=p_SHIPPING_METHOD_CODE;
100: l_requirement_line.LOCAL_RESERVATION_ID :=p_LOCAL_RESERVATION_ID;
101: l_requirement_line.SOURCED_FROM :=p_SOURCED_FROM;
102:
103: IF jtf_usr_hks.Ok_To_Execute('CSP_REQUIREMENT_LINES_PKG',
104: 'Insert_Row',
105: 'B', 'C') THEN
106:
107: csp_requirement_lines_cuhk.Create_requirement_line_Pre
121:
122:
123: -- Pre call to the Vertical Type User Hook
124: --
125: IF jtf_usr_hks.Ok_To_Execute('CSP_REQUIREMENT_LINES_PKG',
126: 'Insert_Row',
127: 'B', 'V') THEN
128: csp_requirement_lines_vuhk.Create_requirement_line_Pre
129: ( px_requirement_line => l_requirement_line,
242: decode( l_requirement_line.LOCAL_RESERVATION_ID, FND_API.G_MISS_NUM, NULL, l_requirement_line.LOCAL_RESERVATION_ID),
243: decode( l_requirement_line.SOURCED_FROM, FND_API.G_MISS_CHAR, NULL, l_requirement_line.SOURCED_FROM)
244: );
245:
246: IF jtf_usr_hks.Ok_To_Execute('CSP_REQUIREMENT_LINES_PKG',
247: 'Insert_Row',
248: 'A', 'C') THEN
249:
250: csp_requirement_lines_cuhk.Create_requirement_line_post
266:
267:
268: -- Post call to the Vertical Type User Hook
269: --
270: IF jtf_usr_hks.Ok_To_Execute('CSP_REQUIREMENT_LINES_PKG',
271: 'Insert_Row',
272: 'A', 'V') THEN
273:
274: csp_requirement_lines_vuhk.Create_requirement_line_post
341: p_LOCAL_RESERVATION_ID NUMBER,
342: p_SOURCED_FROM VARCHAR2)
343: IS
344: l_requirement_line CSP_REQUIREMENT_lines_PVT.Requirement_LINE_Rec_Type;
345: l_api_name_full varchar2(50) := 'CSP_REQUIREMENT_LINES_PKG.UPDATE_ROW';
346: l_return_status varchar2(100);
347: l_msg_count NUMBER;
348: l_msg_data varchar2(1000);
349: BEGIN
388: l_requirement_line.SHIPPING_METHOD_CODE :=p_SHIPPING_METHOD_CODE;
389: l_requirement_line.LOCAL_RESERVATION_ID :=p_LOCAL_RESERVATION_ID;
390: l_requirement_line.SOURCED_FROM :=p_SOURCED_FROM;
391:
392: IF jtf_usr_hks.Ok_To_Execute('CSP_REQUIREMENT_LINES_PKG',
393: 'Update_Row',
394: 'B', 'C') THEN
395:
396: csp_requirement_lines_cuhk.update_requirement_line_Pre
410:
411:
412: -- Pre call to the Vertical Type User Hook
413: --
414: IF jtf_usr_hks.Ok_To_Execute('CSP_REQUIREMENT_LINES_PKG',
415: 'Update_Row',
416: 'B', 'V') THEN
417: csp_requirement_lines_vuhk.update_requirement_line_Pre
418: ( px_requirement_line => l_requirement_line,
486: where REQUIREMENT_LINE_ID = l_requirement_line.REQUIREMENT_LINE_ID;
487: If (SQL%NOTFOUND) then
488: RAISE NO_DATA_FOUND;
489: End If;
490: IF jtf_usr_hks.Ok_To_Execute('CSP_REQUIREMENT_LINES_PKG',
491: 'Update_Row',
492: 'A', 'C') THEN
493:
494: csp_requirement_lines_cuhk.update_requirement_line_post
508:
509:
510: -- Pre call to the Vertical Type User Hook
511: --
512: IF jtf_usr_hks.Ok_To_Execute('CSP_REQUIREMENT_LINES_PKG',
513: 'Update_Row',
514: 'A', 'V') THEN
515: csp_requirement_lines_vuhk.update_requirement_line_post
516: ( px_requirement_line => l_requirement_line,
543: IS
544: l_return_status varchar2(100);
545: l_msg_count NUMBER;
546: l_msg_data varchar2(1000);
547: l_api_name_full varchar2(50) := 'CSP_REQUIREMENT_LINES_PKG.DELETE_ROW';
548:
549: BEGIN
550: IF jtf_usr_hks.Ok_To_Execute('CSP_REQUIREMENT_LINES_PKG',
551: 'Delete_Row',
546: l_msg_data varchar2(1000);
547: l_api_name_full varchar2(50) := 'CSP_REQUIREMENT_LINES_PKG.DELETE_ROW';
548:
549: BEGIN
550: IF jtf_usr_hks.Ok_To_Execute('CSP_REQUIREMENT_LINES_PKG',
551: 'Delete_Row',
552: 'B', 'C') THEN
553:
554: csp_requirement_lines_cuhk.delete_requirement_line_Pre
568:
569:
570: -- Pre call to the Vertical Type User Hook
571: --
572: IF jtf_usr_hks.Ok_To_Execute('CSP_REQUIREMENT_LINES_PKG',
573: 'Delete_Row',
574: 'B', 'V') THEN
575: csp_requirement_lines_vuhk.delete_requirement_line_Pre
576: ( p_line_id => p_REQUIREMENT_LINE_ID,
603: WHERE REQUIREMENT_LINE_ID = p_REQUIREMENT_LINE_ID;
604: If (SQL%NOTFOUND) then
605: RAISE NO_DATA_FOUND;
606: End If;
607: IF jtf_usr_hks.Ok_To_Execute('CSP_REQUIREMENT_LINES_PKG',
608: 'Delete_Row',
609: 'A', 'C') THEN
610:
611: csp_requirement_lines_cuhk.delete_requirement_line_Post
625:
626:
627: -- Pre call to the Vertical Type User Hook
628: --
629: IF jtf_usr_hks.Ok_To_Execute('CSP_REQUIREMENT_LINES_PKG',
630: 'Delete_Row',
631: 'A', 'V') THEN
632: csp_requirement_lines_vuhk.delete_requirement_line_post
633: ( p_line_id => p_REQUIREMENT_LINE_ID,
851: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
852: APP_EXCEPTION.RAISE_EXCEPTION;
853: End If;
854: END Lock_Row;
855: End CSP_REQUIREMENT_LINES_PKG;