[Home] [Help]
1: PACKAGE BODY aso_atp_int as
2: /* $Header: asoiatpb.pls 120.13 2006/09/18 23:34:36 skulkarn ship $ */
3:
4: -- API Name: Check_ATP
5: -- Type : Public
11: -- l_api_version_number.
12: -- 06/03/04 skulkarn - bug 3604265, changed description to segment1 in cursor
13: -- c_description
14:
15: G_PKG_NAME CONSTANT VARCHAR2(30):= 'ASO_ATP_INT';
16: G_FILE_NAME CONSTANT VARCHAR2(12) := 'asoiatpb.pls';
17:
18:
19: PROCEDURE Call_ATP_Commit (p_session_id OUT NOCOPY /* file.sql.39 change */ NUMBER, p_dblink IN VARCHAR2 )
117: END Extend_ATP;
118:
119:
120: PROCEDURE Populate_Output_Table( p_atp_rec IN MRP_ATP_PUB.ATP_REC_TYP,
121: x_aso_atp_tbl OUT NOCOPY ASO_ATP_INT.ATP_TBL_TYP,
122: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
123: AS
124:
125: l_index NUMBER;
389: p_entire_quote_flag IN VARCHAR2 :='N',
390: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
391: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
392: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
393: X_atp_tbl OUT NOCOPY /* file.sql.39 change */ aso_atp_int.atp_tbl_typ)
394: AS
395:
396: l_api_name CONSTANT VARCHAR2(30) := 'Do_Check_ATP' ;
397: l_api_version_number CONSTANT NUMBER := 1.0;
402: l_atp_rec_out mrp_atp_pub.atp_rec_typ;
403: l_atp_supply_demand mrp_atp_pub.atp_supply_demand_typ;
404: l_atp_period mrp_atp_pub.atp_period_typ;
405: l_atp_details mrp_atp_pub.atp_details_typ;
406: l_null_aso_atp_typ aso_atp_int.atp_rec_typ;
407: l_mrp_database_link Varchar2(128);
408: l_statement Varchar2(500);
409: l_ship_from_org_id Number ;
410: l_profile_name Varchar2(240);
418: l_qte_line_tbl aso_quote_pub.qte_line_tbl_type := p_qte_line_tbl;
419: l_shipment_tbl aso_quote_pub.shipment_tbl_type := p_shipment_tbl;
420: l_qte_line_rec aso_quote_pub.qte_line_rec_type;
421: l_shipment_rec aso_quote_pub.shipment_rec_type;
422: --l_aso_atp_tbl aso_atp_int.atp_tbl_typ;
423:
424: cursor c_description(p_inventory_item_id number,p_organization_id number) is
425: -- this cursor has been modified to select segment1 instead of description, see bug 3604265
426: select segment1
1145:
1146: End if;
1147:
1148: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1149: aso_debug_pub.add('do_check_atp: l_db_qte_line_rec.quote_line_i: '|| ASO_ATP_INT.ATPQUERY);
1150: aso_debug_pub.add('l_qte_line_tbl('||i||').quote_line_id: '|| l_qte_line_tbl(i).quote_line_id);
1151: END IF;
1152:
1153: if l_check_atp_for_whole_quote = fnd_api.g_false then
1156: l_db_qte_line_rec := l_qte_line_tbl(i);
1157: end if;
1158:
1159: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1160: aso_debug_pub.add('do_check_atp: ASO_ATP_INT.ATPQUERY: '|| ASO_ATP_INT.ATPQUERY);
1161: aso_debug_pub.add('do_check_atp: fnd_global.prog_appl_id: '|| fnd_global.prog_appl_id);
1162: aso_debug_pub.add('l_db_qte_line_rec.inventory_item_id: '|| l_db_qte_line_rec.inventory_item_id);
1163: aso_debug_pub.add('l_db_qte_line_rec.quantity: '|| l_db_qte_line_rec.quantity);
1164: aso_debug_pub.add('l_db_qte_line_rec.uom_code: '|| l_db_qte_line_rec.uom_code);
1165: aso_debug_pub.add('l_db_qte_line_rec.organization_id: '|| l_db_qte_line_rec.organization_id);
1166: aso_debug_pub.add('l_db_qte_line_rec.quote_header_id: '|| l_db_qte_line_rec.quote_header_id);
1167: END IF;
1168:
1169: l_atp_rec.action(i) := ASO_ATP_INT.ATPQUERY;
1170: l_atp_rec.calling_module(i) := fnd_global.prog_appl_id;
1171: l_atp_rec.inventory_item_id(i) := l_db_qte_line_rec.inventory_item_id;
1172: l_atp_rec.validation_org(i) := l_db_qte_line_rec.organization_id;
1173: l_atp_rec.identifier(i) := l_db_qte_line_rec.quote_line_id;
1969: p_entire_quote_flag IN VARCHAR2 := 'N',
1970: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1971: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1972: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1973: X_atp_tbl OUT NOCOPY /* file.sql.39 change */ aso_atp_int.atp_tbl_typ)
1974: AS
1975: l_api_name CONSTANT VARCHAR2(30) := 'Check_ATP' ;
1976: l_api_version_number CONSTANT NUMBER := 1.0;
1977: l_session_id number;
1980: l_atp_rec_out mrp_atp_pub.atp_rec_typ;
1981: l_atp_supply_demand mrp_atp_pub.atp_supply_demand_typ;
1982: l_atp_period mrp_atp_pub.atp_period_typ;
1983: l_atp_details mrp_atp_pub.atp_details_typ;
1984: l_null_aso_atp_typ aso_atp_int.atp_rec_typ;
1985: l_mrp_database_link Varchar2(128);
1986: l_statement Varchar2(500);
1987: l_ship_from_org_id Number ;
1988: l_profile_name Varchar2(240);
2278: End If;
2279:
2280: --have to populate action code. waiting for a reply back from mrp.
2281: --for now i have defined a variable in the specification.
2282: l_atp_rec.action(curr_index) := ASO_ATP_INT.ATPQUERY;
2283:
2284: -- 02/06/2001 - bug1630636 (ashukla)
2285: -- populate the calling module. This is the application_id for
2286: -- Oracle Oracle Capture.
2363: p_shipment_tbl IN ASO_QUOTE_PUB.shipment_tbl_type,
2364: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
2365: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
2366: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
2367: X_atp_tbl OUT NOCOPY /* file.sql.39 change */ aso_atp_int.atp_tbl_typ
2368: )
2369: IS
2370:
2371: l_qte_header_rec aso_quote_pub.qte_header_rec_type;
2374: x_return_status := fnd_api.g_ret_sts_success;
2375: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
2376:
2377: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2378: aso_debug_pub.add('ASO_ATP_INT: Check_Atp Begin', 1, 'Y');
2379: END IF;
2380:
2381: -- Initialize message list if p_init_msg_list is set to TRUE.
2382: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2654: ,X_RETURN_STATUS => X_RETURN_STATUS);
2655:
2656: End update_configuration;
2657:
2658: End aso_atp_int;