1: PACKAGE BODY CSC_PLAN_LINES_PUB as
2: /* $Header: cscpplnb.pls 115.12 2002/11/25 12:34:05 bhroy ship $ */
3: -- Start of Comments
4: -- Package name : CSC_PLAN_LINES_PUB
5: -- Purpose : Public package to insert, update and delete records from
1: PACKAGE BODY CSC_PLAN_LINES_PUB as
2: /* $Header: cscpplnb.pls 115.12 2002/11/25 12:34:05 bhroy ship $ */
3: -- Start of Comments
4: -- Package name : CSC_PLAN_LINES_PUB
5: -- Purpose : Public package to insert, update and delete records from
6: -- CSC_PLAN_LINES table.
7: -- History :
8: -- MM-DD-YYYY NAME MODIFICATIONS
18: -- NOTE :
19: -- End of Comments
20:
21:
22: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSC_PLAN_LINES_PUB';
23: G_FILE_NAME CONSTANT VARCHAR2(12) := 'cscpplnb.pls';
24:
25: -- Start of Comments
26: -- ***************** Private Conversion Routines Values -> Ids **************
41: -- private record type for all attributes.
42: --
43: -- End of Comments
44: PROCEDURE CONVERT_CSC_PLAN_LINES(
45: P_CSC_PLAN_LINES_Rec IN CSC_plan_lines_PUB.CSC_PLAN_LINES_Rec_Type,
46: x_pvt_CSC_PLAN_LINES_rec OUT NOCOPY CSC_plan_lines_PVT.CSC_PLAN_LINES_Rec_Type
47: )
48: IS
49: -- Hint: Declare cursor and local variables
193: X_Msg_Count OUT NOCOPY NUMBER,
194: X_Msg_Data OUT NOCOPY VARCHAR2
195: )
196: IS
197: l_csc_plan_lines_rec CSC_PLAN_LINES_PUB.CSC_PLAN_LINES_REC_TYPE;
198:
199: BEGIN
200: CONVERT_COLUMNS_TO_REC_TYPE(
201: P_ROW_ID => p_row_id,
392: X_Msg_Count OUT NOCOPY NUMBER,
393: X_Msg_Data OUT NOCOPY VARCHAR2)
394: IS
395:
396: l_csc_plan_lines_rec CSC_PLAN_LINES_PUB.CSC_PLAN_LINES_REC_TYPE;
397:
398: BEGIN
399: CONVERT_COLUMNS_TO_REC_TYPE(
400: P_ROW_ID => p_row_id,
649: APP_EXCEPTION.RAISE_EXCEPTION;
650:
651: End Delete_plan_lines;
652:
653: End CSC_PLAN_LINES_PUB;