16: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amsvbomb.pls';
17:
18:
19: TYPE bill_details_rec_type IS RECORD(
20: Assembly_Item_Id NUMBER := FND_API.G_MISS_NUM
21: ,Component_Item_Id NUMBER := FND_API.G_MISS_NUM
22: ,Assembly_Item_Name VARCHAR2(81) := FND_API.G_MISS_CHAR
23: ,Component_Item_Name VARCHAR2(81) := FND_API.G_MISS_CHAR
24: ,Header_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
17:
18:
19: TYPE bill_details_rec_type IS RECORD(
20: Assembly_Item_Id NUMBER := FND_API.G_MISS_NUM
21: ,Component_Item_Id NUMBER := FND_API.G_MISS_NUM
22: ,Assembly_Item_Name VARCHAR2(81) := FND_API.G_MISS_CHAR
23: ,Component_Item_Name VARCHAR2(81) := FND_API.G_MISS_CHAR
24: ,Header_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
25: ,Component_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
18:
19: TYPE bill_details_rec_type IS RECORD(
20: Assembly_Item_Id NUMBER := FND_API.G_MISS_NUM
21: ,Component_Item_Id NUMBER := FND_API.G_MISS_NUM
22: ,Assembly_Item_Name VARCHAR2(81) := FND_API.G_MISS_CHAR
23: ,Component_Item_Name VARCHAR2(81) := FND_API.G_MISS_CHAR
24: ,Header_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
25: ,Component_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
26: ,Header_org_id NUMBER :=FND_API.G_MISS_NUM
19: TYPE bill_details_rec_type IS RECORD(
20: Assembly_Item_Id NUMBER := FND_API.G_MISS_NUM
21: ,Component_Item_Id NUMBER := FND_API.G_MISS_NUM
22: ,Assembly_Item_Name VARCHAR2(81) := FND_API.G_MISS_CHAR
23: ,Component_Item_Name VARCHAR2(81) := FND_API.G_MISS_CHAR
24: ,Header_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
25: ,Component_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
26: ,Header_org_id NUMBER :=FND_API.G_MISS_NUM
27: ,Header_org_code VARCHAR2(3) :=FND_API.G_MISS_CHAR
20: Assembly_Item_Id NUMBER := FND_API.G_MISS_NUM
21: ,Component_Item_Id NUMBER := FND_API.G_MISS_NUM
22: ,Assembly_Item_Name VARCHAR2(81) := FND_API.G_MISS_CHAR
23: ,Component_Item_Name VARCHAR2(81) := FND_API.G_MISS_CHAR
24: ,Header_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
25: ,Component_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
26: ,Header_org_id NUMBER :=FND_API.G_MISS_NUM
27: ,Header_org_code VARCHAR2(3) :=FND_API.G_MISS_CHAR
28: ,Effectivity_date DATE := FND_API.G_MISS_DATE
21: ,Component_Item_Id NUMBER := FND_API.G_MISS_NUM
22: ,Assembly_Item_Name VARCHAR2(81) := FND_API.G_MISS_CHAR
23: ,Component_Item_Name VARCHAR2(81) := FND_API.G_MISS_CHAR
24: ,Header_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
25: ,Component_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
26: ,Header_org_id NUMBER :=FND_API.G_MISS_NUM
27: ,Header_org_code VARCHAR2(3) :=FND_API.G_MISS_CHAR
28: ,Effectivity_date DATE := FND_API.G_MISS_DATE
29: ,Component_Item_Num NUMBER := FND_API.G_MISS_NUM
22: ,Assembly_Item_Name VARCHAR2(81) := FND_API.G_MISS_CHAR
23: ,Component_Item_Name VARCHAR2(81) := FND_API.G_MISS_CHAR
24: ,Header_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
25: ,Component_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
26: ,Header_org_id NUMBER :=FND_API.G_MISS_NUM
27: ,Header_org_code VARCHAR2(3) :=FND_API.G_MISS_CHAR
28: ,Effectivity_date DATE := FND_API.G_MISS_DATE
29: ,Component_Item_Num NUMBER := FND_API.G_MISS_NUM
30: ,Object_Id NUMBER := FND_API.G_MISS_NUM
23: ,Component_Item_Name VARCHAR2(81) := FND_API.G_MISS_CHAR
24: ,Header_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
25: ,Component_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
26: ,Header_org_id NUMBER :=FND_API.G_MISS_NUM
27: ,Header_org_code VARCHAR2(3) :=FND_API.G_MISS_CHAR
28: ,Effectivity_date DATE := FND_API.G_MISS_DATE
29: ,Component_Item_Num NUMBER := FND_API.G_MISS_NUM
30: ,Object_Id NUMBER := FND_API.G_MISS_NUM
31: ,Transaction_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
24: ,Header_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
25: ,Component_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
26: ,Header_org_id NUMBER :=FND_API.G_MISS_NUM
27: ,Header_org_code VARCHAR2(3) :=FND_API.G_MISS_CHAR
28: ,Effectivity_date DATE := FND_API.G_MISS_DATE
29: ,Component_Item_Num NUMBER := FND_API.G_MISS_NUM
30: ,Object_Id NUMBER := FND_API.G_MISS_NUM
31: ,Transaction_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
32: );
25: ,Component_Trans_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
26: ,Header_org_id NUMBER :=FND_API.G_MISS_NUM
27: ,Header_org_code VARCHAR2(3) :=FND_API.G_MISS_CHAR
28: ,Effectivity_date DATE := FND_API.G_MISS_DATE
29: ,Component_Item_Num NUMBER := FND_API.G_MISS_NUM
30: ,Object_Id NUMBER := FND_API.G_MISS_NUM
31: ,Transaction_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
32: );
33:
26: ,Header_org_id NUMBER :=FND_API.G_MISS_NUM
27: ,Header_org_code VARCHAR2(3) :=FND_API.G_MISS_CHAR
28: ,Effectivity_date DATE := FND_API.G_MISS_DATE
29: ,Component_Item_Num NUMBER := FND_API.G_MISS_NUM
30: ,Object_Id NUMBER := FND_API.G_MISS_NUM
31: ,Transaction_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
32: );
33:
34: G_MISS_BILL_DETAILS_REC bill_details_rec_type;
27: ,Header_org_code VARCHAR2(3) :=FND_API.G_MISS_CHAR
28: ,Effectivity_date DATE := FND_API.G_MISS_DATE
29: ,Component_Item_Num NUMBER := FND_API.G_MISS_NUM
30: ,Object_Id NUMBER := FND_API.G_MISS_NUM
31: ,Transaction_Type VARCHAR2(10) := FND_API.G_MISS_CHAR
32: );
33:
34: G_MISS_BILL_DETAILS_REC bill_details_rec_type;
35:
45: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
46:
47: PROCEDURE get_transaction_type (
48: P_Api_Version_Number IN NUMBER,
49: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
50: X_Return_Status OUT NOCOPY VARCHAR2,
51: X_Msg_Count OUT NOCOPY NUMBER,
52: X_Msg_Data OUT NOCOPY VARCHAR2,
53: P_bill_detls_rec_type_in IN BILL_DETAILS_REC_TYPE := G_MISS_BILL_DETAILS_REC,
99:
100: BEGIN
101:
102: -- Initialize message list if p_init_msg_list is set to TRUE.
103: IF FND_API.to_Boolean( p_init_msg_list )
104: THEN
105: FND_MSG_PUB.initialize;
106: END IF;
107:
105: FND_MSG_PUB.initialize;
106: END IF;
107:
108: -- Initialize API return status to SUCCESS
109: x_return_status := FND_API.G_RET_STS_SUCCESS;
110:
111:
112: l_dummy := 'N';
113: l_comp_dummy := 'N';
167:
168: EXCEPTION
169:
170:
171: WHEN FND_API.g_exc_error THEN
172: ROLLBACK TO create_bom;
173: x_return_status := FND_API.g_ret_sts_error;
174:
175: -- Standard call to get message count and if count is 1, get message info.
169:
170:
171: WHEN FND_API.g_exc_error THEN
172: ROLLBACK TO create_bom;
173: x_return_status := FND_API.g_ret_sts_error;
174:
175: -- Standard call to get message count and if count is 1, get message info.
176: FND_MSG_PUB.count_and_get(
177: p_encoded => FND_API.g_false,
173: x_return_status := FND_API.g_ret_sts_error;
174:
175: -- Standard call to get message count and if count is 1, get message info.
176: FND_MSG_PUB.count_and_get(
177: p_encoded => FND_API.g_false,
178: p_count => x_msg_count,
179: p_data => x_msg_data
180: );
181:
184:
185: AMS_UTILITY_PVT.debug_message('ERROR IN GETTING TRANSACTION TYPE');
186: END IF;
187: WHEN others THEN
188: Raise fnd_api.g_exc_error;
189:
190: END get_transaction_type;
191:
192:
198:
199:
200: PROCEDURE Ams_Process_BOM (
201: P_Api_Version_Number IN NUMBER,
202: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
203: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
204: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
205:
206: X_Return_Status OUT NOCOPY VARCHAR2,
199:
200: PROCEDURE Ams_Process_BOM (
201: P_Api_Version_Number IN NUMBER,
202: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
203: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
204: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
205:
206: X_Return_Status OUT NOCOPY VARCHAR2,
207: X_Msg_Count OUT NOCOPY NUMBER,
200: PROCEDURE Ams_Process_BOM (
201: P_Api_Version_Number IN NUMBER,
202: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
203: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
204: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
205:
206: X_Return_Status OUT NOCOPY VARCHAR2,
207: X_Msg_Count OUT NOCOPY NUMBER,
208: X_Msg_Data OUT NOCOPY VARCHAR2,
210: P_bom_rec_type IN BOM_REC_TYPE := G_MISS_BOM_REC_TYPE,
211:
212: P_bom_comp_rec_type IN BOM_COMP_REC_TYPE := G_MISS_BOM_COMP_REC_TYPE,
213:
214: P_Last_Update_Date IN DATE := FND_API.G_MISS_DATE,
215: P_Last_Update_By IN NUMBER := FND_API.G_MISS_NUM
216:
217: ) IS
218:
211:
212: P_bom_comp_rec_type IN BOM_COMP_REC_TYPE := G_MISS_BOM_COMP_REC_TYPE,
213:
214: P_Last_Update_Date IN DATE := FND_API.G_MISS_DATE,
215: P_Last_Update_By IN NUMBER := FND_API.G_MISS_NUM
216:
217: ) IS
218:
219: l_bom_header_rec Bom_Bo_Pub.Bom_Head_Rec_Type;
321: BEGIN
322:
323: SAVEPOINT create_bom;
324:
325: IF FND_API.to_boolean(p_init_msg_list) THEN
326: FND_MSG_PUB.initialize;
327: END IF;
328:
329: -- get the asm item name
364:
365: );
366: --Dbms_output.put_line('THE RETURN STATUS FROM TRANS '||l_return_status);
367:
368: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
369: FOR i IN 1..x_Msg_count LOOP
370: -- l_message :=
371: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
372: THEN
373: FND_MESSAGE.set_name('AMS', 'AMS_GET_TRANSACTION_TYPE_ERR');
374: END IF;
375:
376: END LOOP;
377: RAISE FND_API.g_exc_error;
378: ELSE
379: l_bill_details_rec_in.Component_trans_type := l_bill_details_rec_out.component_trans_type;
380: l_bill_details_rec_in.Header_trans_type := l_bill_details_rec_out.Header_trans_type;
381: END IF;
401: THEN
402: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
403: FND_MSG_PUB.add;
404: END IF;
405: RAISE FND_API.g_exc_error;
406:
407: END IF;
408:
409: END IF;
540:
541: END LOOP;
542:
543: IF (x_return_status <> 'S') THEN
544: RAISE FND_API.g_exc_error;
545: END IF;
546:
547: IF (FND_API.to_boolean(p_commit)) THEN
548: COMMIT;
543: IF (x_return_status <> 'S') THEN
544: RAISE FND_API.g_exc_error;
545: END IF;
546:
547: IF (FND_API.to_boolean(p_commit)) THEN
548: COMMIT;
549: END IF;
550:
551: FND_MSG_PUB.count_and_get
549: END IF;
550:
551: FND_MSG_PUB.count_and_get
552: (
553: p_encoded => FND_API.g_false,
554: p_count => x_msg_count,
555: p_data => x_msg_data
556: );
557:
556: );
557:
558: EXCEPTION
559:
560: WHEN FND_API.g_exc_error THEN
561: ROLLBACK TO create_bom;
562: x_return_status := FND_API.g_ret_sts_error;
563: FND_MSG_PUB.count_and_get(
564: p_encoded => FND_API.g_false,
558: EXCEPTION
559:
560: WHEN FND_API.g_exc_error THEN
561: ROLLBACK TO create_bom;
562: x_return_status := FND_API.g_ret_sts_error;
563: FND_MSG_PUB.count_and_get(
564: p_encoded => FND_API.g_false,
565: p_count => x_msg_count,
566: p_data => x_msg_data
560: WHEN FND_API.g_exc_error THEN
561: ROLLBACK TO create_bom;
562: x_return_status := FND_API.g_ret_sts_error;
563: FND_MSG_PUB.count_and_get(
564: p_encoded => FND_API.g_false,
565: p_count => x_msg_count,
566: p_data => x_msg_data
567: );
568: