[Home] [Help]
1: Package BODY Csd_Process_Pvt AS
2: /* $Header: csdvintb.pls 120.39.12010000.3 2008/12/10 22:40:42 swai ship $ */
3:
4: -- ---------------------------------------------------------
5: -- Define global variables
4: -- ---------------------------------------------------------
5: -- Define global variables
6: -- ---------------------------------------------------------
7:
8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_PROCESS_PVT';
9: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdvintb.pls';
10: g_debug NUMBER := Csd_Gen_Utility_Pvt.g_debug_level;
11:
12: /* R12 Srl reservation changes, begin */
103: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
104: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
105: p_action IN VARCHAR2,
106: p_incident_id IN NUMBER := NULL,
107: p_service_request_rec IN Csd_Process_Pvt.SERVICE_REQUEST_REC,
108: x_incident_id OUT NOCOPY NUMBER,
109: x_incident_number OUT NOCOPY VARCHAR2,
110: x_return_status OUT NOCOPY VARCHAR2,
111: x_msg_count OUT NOCOPY NUMBER,
142: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
143: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
144: p_action IN VARCHAR2,
145: p_incident_id IN NUMBER := NULL,
146: p_service_request_rec IN Csd_Process_Pvt.SERVICE_REQUEST_REC,
147: p_notes_tbl IN Cs_Servicerequest_Pub.NOTES_TABLE,
148: x_incident_id OUT NOCOPY NUMBER,
149: x_incident_number OUT NOCOPY VARCHAR2,
150: x_return_status OUT NOCOPY VARCHAR2,
421: x_line_number NUMBER;
422:
423: -- Variables used in FND Log
424: l_error_level NUMBER := Fnd_Log.LEVEL_ERROR;
425: l_mod_name VARCHAR2(2000) := 'csd.plsql.csd_process_pvt.process_charge_lines';
426:
427: BEGIN
428: Debug('At the Beginning of process_charge_lines', l_mod_name, 1);
429:
1351: WHERE header_id = p_header_id;
1352:
1353: -- Variables used in FND Log
1354: l_error_level NUMBER := Fnd_Log.LEVEL_ERROR;
1355: l_mod_name VARCHAR2(2000) := 'csd.plsql.csd_process_pvt.process_sales_order';
1356:
1357: /* pick release rule api changes/srl reservations changes *
1358: */
1359: l_batch_rec WSH_PICKING_BATCHES_PUB.Batch_Info_Rec ;
2355: --R12 Development Changes End
2356:
2357: -- Variables used in FND Log
2358: l_error_level NUMBER := Fnd_Log.LEVEL_ERROR;
2359: l_mod_name VARCHAR2(2000) := 'csd.plsql.csd_process_pvt.create_product_txn';
2360: l_tmp_char VARCHAR2(1); --R12 Development Changes
2361: /* R12 SN reservations integration change Begin */
2362: l_ItemAttributes Csd_Logistics_Util.ItemAttributes_Rec_Type;
2363: l_auto_reserve_profile VARCHAR2(10);
4572: l_msg_index NUMBER;
4573: l_return_status VARCHAR2(1);
4574: l_estimate_Rec Cs_Charge_Details_Pub.charges_rec_type;
4575: l_prodtxn_db_attr Csd_Logistics_Util.PRODTXN_DB_ATTR_REC;
4576: l_order_Rec Csd_Process_Pvt.om_interface_rec;
4577: l_est_detail_id NUMBER;
4578: l_add_to_order_id NUMBER;
4579: l_add_to_order_flag VARCHAR2(1);
4580: l_transaction_type_id NUMBER;
4601: l_excep_level NUMBER := Fnd_Log.LEVEL_EXCEPTION;
4602: l_statement_level NUMBER := Fnd_Log.LEVEL_STATEMENT;
4603:
4604:
4605: l_mod_name VARCHAR2(2000) := 'csd.plsql.csd_process_pvt.update_product_txn';
4606:
4607: BEGIN
4608:
4609:
5399: BEGIN
5400: RETURN TMP_CUST_PROFILE_REC_TYPE;
5401: END GET_CUST_PROFILE_REC_TYPE;
5402: FUNCTION GET_CREATE_TASK_REC_TYPE
5403: RETURN Csd_Process_Pvt.CREATE_TASK_REC_TYPE IS
5404: TMP_CREATE_TASK_REC_TYPE Csd_Process_Pvt.CREATE_TASK_REC_TYPE;
5405: BEGIN
5406: RETURN TMP_CREATE_TASK_REC_TYPE;
5407: END GET_CREATE_TASK_REC_TYPE;
5400: RETURN TMP_CUST_PROFILE_REC_TYPE;
5401: END GET_CUST_PROFILE_REC_TYPE;
5402: FUNCTION GET_CREATE_TASK_REC_TYPE
5403: RETURN Csd_Process_Pvt.CREATE_TASK_REC_TYPE IS
5404: TMP_CREATE_TASK_REC_TYPE Csd_Process_Pvt.CREATE_TASK_REC_TYPE;
5405: BEGIN
5406: RETURN TMP_CREATE_TASK_REC_TYPE;
5407: END GET_CREATE_TASK_REC_TYPE;
5408:
5444: l_msg_index NUMBER;
5445: l_return_status VARCHAR2(1);
5446: l_task_id NUMBER;
5447: -- Task record
5448: l_create_task_rec Csd_Process_Pvt.CREATE_TASK_REC_TYPE := p_create_task_rec;
5449: BEGIN
5450: -- -----------------
5451: -- Begin create task
5452: -- -----------------
5471: -- Api body starts
5472: -- ---------------
5473: IF (g_debug > 0)
5474: THEN
5475: Csd_Gen_Utility_Pvt.ADD('CSD_PROCESS_PVT.create_task before jtf_tasks_pub.CREATE_TASK');
5476: END IF;
5477:
5478: -- ----------------------------------------
5479: -- Calling Public JTF API to create a Task
5539: X_TASK_ID => x_task_id);
5540:
5541: IF (g_debug > 0)
5542: THEN
5543: Csd_Gen_Utility_Pvt.ADD('CSD_PROCESS_PVT.create_task after jtf_tasks_pub.CREATE_TASK x_return_status' ||
5544: x_return_status);
5545: END IF;
5546:
5547: -- -------------------
5613: l_msg_index NUMBER;
5614: l_return_status VARCHAR2(1);
5615: l_task_id NUMBER;
5616: -- Task record
5617: l_create_task_rec Csd_Process_Pvt.CREATE_TASK_REC_TYPE := p_create_task_rec;
5618: BEGIN
5619: -- -----------------
5620: -- Begin update task
5621: -- -----------------
5640: -- Api body starts
5641: -- ---------------
5642: IF (g_debug > 0)
5643: THEN
5644: Csd_Gen_Utility_Pvt.ADD('CSD_PROCESS_PVT.update_task before jtf_tasks_pub.UPDATE_TASK');
5645: END IF;
5646:
5647: -- ----------------------------------------
5648: -- Calling Public JTF API to Update a Task
5709: X_MSG_DATA => x_msg_data);
5710:
5711: IF (g_debug > 0)
5712: THEN
5713: Csd_Gen_Utility_Pvt.ADD('CSD_PROCESS_PVT.update_task after jtf_tasks_pub.UPDATE_TASK x_return_status' ||
5714: x_return_status);
5715: END IF;
5716:
5717: -- -------------------
5745: END IF;
5746: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5747: p_data => x_msg_data);
5748: END update_task;
5749: FUNCTION GET_ADDRESS_REC_TYPE RETURN Csd_Process_Pvt.ADDRESS_REC_TYPE IS
5750: TMP_ADDRESS_REC_TYPE Csd_Process_Pvt.ADDRESS_REC_TYPE;
5751: BEGIN
5752: RETURN TMP_ADDRESS_REC_TYPE;
5753: END GET_ADDRESS_REC_TYPE;
5746: Fnd_Msg_Pub.Count_And_Get(p_count => x_msg_count,
5747: p_data => x_msg_data);
5748: END update_task;
5749: FUNCTION GET_ADDRESS_REC_TYPE RETURN Csd_Process_Pvt.ADDRESS_REC_TYPE IS
5750: TMP_ADDRESS_REC_TYPE Csd_Process_Pvt.ADDRESS_REC_TYPE;
5751: BEGIN
5752: RETURN TMP_ADDRESS_REC_TYPE;
5753: END GET_ADDRESS_REC_TYPE;
5754:
6457: PROCEDURE Create_repair_task_hist(p_api_version IN NUMBER,
6458: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_true,
6459: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6460: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6461: p_task_activity_rec IN Csd_Process_Pvt.TASK_ACTIVITY_REC,
6462: x_return_status OUT NOCOPY VARCHAR2,
6463: x_msg_count OUT NOCOPY NUMBER,
6464: x_msg_data OUT NOCOPY VARCHAR2)
6465:
6757: PROCEDURE Update_repair_task_hist(p_api_version IN NUMBER,
6758: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_true,
6759: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6760: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6761: p_task_activity_rec IN Csd_Process_Pvt.TASK_ACTIVITY_REC,
6762: x_return_status OUT NOCOPY VARCHAR2,
6763: x_msg_count OUT NOCOPY NUMBER,
6764: x_msg_data OUT NOCOPY VARCHAR2) IS
6765: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_AND_WRITE';
8010: /* x_return_status Standard Out parameter */
8011: /* x_msg_count Standard in parameter */
8012: /* x_msg_data Standard in parameter , */
8013: /* x_product_txn_rec in out record variable of type */
8014: /* csd_process_pvt.product_txn_rec ) ; */
8015: /*---------------------------------------------------------------------------------*/
8016: PROCEDURE update_iro_product_txn(p_api_version IN NUMBER,
8017: p_commit IN VARCHAR2,
8018: p_init_msg_list IN VARCHAR2,
8016: PROCEDURE update_iro_product_txn(p_api_version IN NUMBER,
8017: p_commit IN VARCHAR2,
8018: p_init_msg_list IN VARCHAR2,
8019: p_validation_level IN NUMBER,
8020: x_product_txn_rec IN OUT nocopy Csd_Process_Pvt.product_txn_rec,
8021: x_return_status OUT nocopy VARCHAR2,
8022: x_msg_count OUT nocopy NUMBER,
8023: x_msg_data OUT nocopy VARCHAR2) IS
8024:
8027: l_msg_count NUMBER;
8028: l_msg_data VARCHAR2(2000);
8029: l_msg_index NUMBER;
8030: l_check VARCHAR2(1);
8031: l_order_rec Csd_Process_Pvt.om_interface_rec;
8032: l_est_detail_id NUMBER := NULL;
8033: l_incident_id NUMBER := NULL;
8034: l_party_id NUMBER := NULL;
8035: l_account_id NUMBER := NULL;
8077: -- examples : 4- exception internal software failure condition
8078: l_exception_level NUMBER := Fnd_Log.level_exception;
8079: -- examples : 5- error end user erros
8080: l_error_level NUMBER := Fnd_Log.level_error;
8081: l_module_name VARCHAR2(240) := 'csd.plsql.csd_process_pvt.update_iro_product_txn';
8082:
8083: -- a variable whose value tells us whether order header can be pick released or not.
8084: l_order_to_be_pickreleased VARCHAR2(1) := C_NO;
8085: -- a variable whose value tells us whether order header can be shipped or not.
8566: Fnd_Log.string(l_statement_level,
8567: l_module_name,
8568: 'Calling process_sales_order to release so');
8569: END IF;
8570: Csd_Process_Pvt.process_sales_order(p_api_version => 1.0,
8571: p_commit => Fnd_Api.g_false,
8572: p_init_msg_list => Fnd_Api.g_true,
8573: p_validation_level => Fnd_Api.g_valid_level_full,
8574: p_action => C_Action_Pick_Release,
8581: IF l_exception_level >= l_debug_level
8582: THEN
8583: Fnd_Log.string(l_exception_level,
8584: l_module_name,
8585: 'csd_process_pvt.process_sales_order failed');
8586: END IF;
8587: RAISE release_order_excep;
8588: ELSE
8589: IF l_statement_level >= l_debug_level
8777: Fnd_Log.string(l_statement_level,
8778: l_module_name,
8779: 'Calling Process Sales Order API');
8780: END IF;
8781: Csd_Process_Pvt.process_sales_order(p_api_version => 1.0,
8782: p_commit => Fnd_Api.g_false,
8783: p_init_msg_list => Fnd_Api.g_true,
8784: p_validation_level => Fnd_Api.g_valid_level_full,
8785: p_action => C_Action_Ship,
8976: p_repair_line_id IN NUMBER,
8977: x_return_status OUT NOCOPY VARCHAR2,
8978: x_msg_count OUT NOCOPY NUMBER,
8979: x_msg_data OUT NOCOPY VARCHAR2,
8980: x_Logistics_KeyAttr_Tbl OUT NOCOPY Csd_Process_Pvt.Logistics_KeyAttr_Tbl_Type) IS
8981: l_api_name CONSTANT VARCHAR2(30) := 'Create_Default_Prod_Txn_Wrapr';
8982: l_api_version CONSTANT NUMBER := 1.0;
8983: l_msg_count NUMBER;
8984: l_msg_data VARCHAR2(2000);
9256: l_msg_index NUMBER;
9257: l_return_status VARCHAR2(1);
9258:
9259: -- Task record
9260: l_create_task_rec Csd_Process_Pvt.REPAIR_TASK_REC := p_create_repair_task_rec;
9261: l_applicable_qa_plans VARCHAR2(1);
9262: l_plan_txn_ids VARCHAR2(5000);
9263: l_dummy_char VARCHAR2(32000);
9264:
9273: -- examples : 4- exception internal software failure condition
9274: l_exception_level NUMBER := Fnd_Log.level_exception;
9275: -- examples : 5- error end user erros
9276: l_error_level NUMBER := Fnd_Log.level_error;
9277: l_module_name VARCHAR2(240) := 'csd.plsql.csd_process_pvt.create_repair_task';
9278:
9279: BEGIN
9280: -- -----------------
9281: -- Begin create repair task
9466: l_msg_index NUMBER;
9467: l_return_status VARCHAR2(1);
9468:
9469: -- Task record
9470: l_update_task_rec Csd_Process_Pvt.REPAIR_TASK_REC := p_update_repair_task_rec;
9471: l_applicable_qa_plans VARCHAR2(1);
9472: l_dummy_char VARCHAR2(32000);
9473: l_plan_txn_ids VARCHAR2(5000);
9474:
9483: -- examples : 4- exception internal software failure condition
9484: l_exception_level NUMBER := Fnd_Log.level_exception;
9485: -- examples : 5- error end user erros
9486: l_error_level NUMBER := Fnd_Log.level_error;
9487: l_module_name VARCHAR2(240) := 'csd.plsql.csd_process_pvt.update_repair_task';
9488:
9489: BEGIN
9490: -- -----------------
9491: -- Begin update repair task
9644: p_data => x_msg_data);
9645:
9646: END UPDATE_REPAIR_TASK;
9647:
9648: FUNCTION GET_REPAIR_TASK_REC RETURN Csd_Process_Pvt.REPAIR_TASK_REC IS
9649: TMP_REPAIR_TASK_REC Csd_Process_Pvt.REPAIR_TASK_REC;
9650: BEGIN
9651: RETURN TMP_REPAIR_TASK_REC;
9652: END GET_REPAIR_TASK_REC;
9645:
9646: END UPDATE_REPAIR_TASK;
9647:
9648: FUNCTION GET_REPAIR_TASK_REC RETURN Csd_Process_Pvt.REPAIR_TASK_REC IS
9649: TMP_REPAIR_TASK_REC Csd_Process_Pvt.REPAIR_TASK_REC;
9650: BEGIN
9651: RETURN TMP_REPAIR_TASK_REC;
9652: END GET_REPAIR_TASK_REC;
9653: END Csd_Process_Pvt;
9649: TMP_REPAIR_TASK_REC Csd_Process_Pvt.REPAIR_TASK_REC;
9650: BEGIN
9651: RETURN TMP_REPAIR_TASK_REC;
9652: END GET_REPAIR_TASK_REC;
9653: END Csd_Process_Pvt;