[Home] [Help]
PACKAGE BODY: APPS.ASO_QUOTE_TMPL_INT
Source
1 PACKAGE BODY ASO_QUOTE_TMPL_INT AS
2 /* $Header: asoiqtmb.pls 120.1 2005/06/29 12:35:26 appldev ship $ */
3
4 -- Start of Comments
5 -- Package name : ASO_QUOTE_TMPL_INT
6 -- Purpose :
7 -- End of Comments
8
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30) := 'ASO_QUOTE_TMPL_INT';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'asoiqtmb.pls';
13
14 PROCEDURE Add_Template_To_Quote(
15 P_API_VERSION_NUMBER IN NUMBER,
16 P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
17 P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
18 P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
19 P_TEMPLATE_ID_TBL IN LIST_TEMPLATE_TBL_TYPE,
20 P_QUOTE_HEADER_ID IN NUMBER,
21 P_CONTROL_REC IN ASO_QUOTE_PUB.CONTROL_REC_TYPE := ASO_QUOTE_PUB.G_MISS_control_REC,
22 P_LAST_UPDATE_DATE IN DATE,
23 X_RETURN_STATUS OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
24 X_MSG_COUNT OUT NOCOPY /* file.sql.39 change */ NUMBER,
25 X_MSG_DATA OUT NOCOPY /* file.sql.39 change */ VARCHAR2
26 )
27 IS
28
29 l_QTE_HEADER_REC ASO_QUOTE_PUB.Qte_Header_Rec_Type:=ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec;
30
31 Begin
32
33 l_qte_header_rec := ASO_UTILITY_PVT.Query_Header_Row(p_quote_header_id);
34
35 Add_Template_To_Quote(
36 P_API_VERSION_NUMBER => 1.0,
37 P_INIT_MSG_LIST => FND_API.G_FALSE,
38 P_COMMIT => FND_API.G_FALSE,
39 P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
40 P_TEMPLATE_ID_TBL => p_template_id_tbl,
41 P_qte_header_rec => l_QTE_HEADER_REC,
42 P_CONTROL_REC => p_control_rec,
43 X_RETURN_STATUS => x_return_status,
44 X_MSG_COUNT => x_msg_count,
45 X_MSG_DATA => x_msg_data
46 );
47
48 End Add_Template_To_Quote;
49
50
51 PROCEDURE Add_Template_To_Quote(
52 P_API_VERSION_NUMBER IN NUMBER,
53 P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
54 P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
55 P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
56 P_TEMPLATE_ID_TBL IN LIST_TEMPLATE_TBL_TYPE,
57 P_QTE_HEADER_REC IN ASO_QUOTE_PUB.Qte_Header_Rec_Type := ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
58 P_CONTROL_REC IN ASO_QUOTE_PUB.CONTROL_REC_TYPE := ASO_QUOTE_PUB.G_MISS_control_REC,
59 X_RETURN_STATUS OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
60 X_MSG_COUNT OUT NOCOPY /* file.sql.39 change */ NUMBER,
61 X_MSG_DATA OUT NOCOPY /* file.sql.39 change */ VARCHAR2
62 )
63 IS
64 x_Qte_Line_Tbl ASO_QUOTE_PUB.Qte_Line_Tbl_Type := ASO_QUOTE_PUB.G_MISS_QTE_LINE_TBL;
65 x_Qte_Line_Dtl_Tbl ASO_QUOTE_PUB.Qte_Line_Dtl_Tbl_Type := ASO_QUOTE_PUB.G_MISS_Qte_Line_Dtl_TBL;
66 G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
67 G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
68
69 L_API_NAME VARCHAR2(50) := 'Add_Template_To_Quote';
70 L_API_VERSION CONSTANT NUMBER := 1.0;
71
72
73 BEGIN
74
75 -- Standard Start of API savepoint
76 SAVEPOINT Add_Template_To_Quote_INT;
77
78 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
79
80 IF aso_debug_pub.g_debug_flag = 'Y' THEN
81 aso_debug_pub.add('****** Start of Add_Template_To_Quote API ******', 1, 'Y');
82 END IF;
83
84 -- Standard call to check for call compatibility.
85 IF NOT FND_API.Compatible_API_Call(
86 L_API_VERSION ,
87 P_API_VERSION_NUMBER,
88 L_API_NAME ,
89 G_PKG_NAME
90 ) THEN
91 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
92 END IF;
93
94 -- Initialize message list if p_init_msg_list is set to TRUE.
95 IF FND_API.To_Boolean(p_init_msg_list) THEN
96 FND_Msg_Pub.initialize;
97 END IF;
98
99 -- Initialize API return status to success
100 x_return_status := FND_API.G_RET_STS_SUCCESS;
101
102 ASO_QUOTE_TMPL_PVT.Add_Template_To_Quote(
103 P_API_VERSION_NUMBER => 1.0,
104 P_INIT_MSG_LIST => FND_API.G_FALSE,
105 P_COMMIT => FND_API.G_FALSE,
106 P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
107 P_UPDATE_FLAG => 'Y',
108 P_TEMPLATE_ID_TBL => P_TEMPLATE_ID_TBL,
109 P_QTE_HEADER_REC => P_QTE_HEADER_REC,
110 P_CONTROL_REC => P_CONTROL_REC,
111 x_Qte_Line_Tbl => x_Qte_Line_Tbl,
112 x_Qte_Line_Dtl_Tbl => x_Qte_Line_Dtl_Tbl,
113 X_RETURN_STATUS => X_RETURN_STATUS,
114 X_MSG_COUNT => X_MSG_COUNT,
115 X_MSG_DATA => X_MSG_DATA
116 );
117
118
119 -- End of API body
120 IF aso_debug_pub.g_debug_flag = 'Y' THEN
121 aso_debug_pub.add('****** End of Add_Template_To_Quote API ******', 1, 'Y');
122 END IF;
123
124 IF x_return_status = FND_API.G_RET_STS_ERROR THEN
125 RAISE FND_API.G_EXC_ERROR;
126 ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
127 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128 END IF;
129
130 EXCEPTION
131 WHEN FND_API.G_EXC_ERROR THEN
132 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
133 P_API_NAME => L_API_NAME,
134 P_PKG_NAME => G_PKG_NAME,
135 P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR,
136 P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_INT,
137 P_SQLCODE => SQLCODE,
138 P_SQLERRM => SQLERRM,
139 X_MSG_COUNT => X_MSG_COUNT,
140 X_MSG_DATA => X_MSG_DATA,
141 X_RETURN_STATUS => X_RETURN_STATUS
142 );
143
144 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
145 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
146 P_API_NAME => L_API_NAME,
147 P_PKG_NAME => G_PKG_NAME,
148 P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
149 P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_INT,
150 P_SQLCODE => SQLCODE,
151 P_SQLERRM => SQLERRM,
152 X_MSG_COUNT => X_MSG_COUNT,
153 X_MSG_DATA => X_MSG_DATA,
154 X_RETURN_STATUS => X_RETURN_STATUS
155 );
156
157 WHEN OTHERS THEN
158 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
159 P_API_NAME => L_API_NAME,
160 P_PKG_NAME => G_PKG_NAME,
161 P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS,
162 P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_INT,
163 P_SQLCODE => SQLCODE,
164 P_SQLERRM => SQLERRM,
165 X_MSG_COUNT => X_MSG_COUNT,
166 X_MSG_DATA => X_MSG_DATA,
167 X_RETURN_STATUS => X_RETURN_STATUS
168 );
169
170 END Add_Template_To_Quote;
171
172
173 END ASO_QUOTE_TMPL_INT;
174