5: -- Read the profile option that enables/disables the debug log
6: g_po_wf_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_WORKFLOW_ON'),'N');
7: g_fnd_debug CONSTANT VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
8: -- Debugging
9: g_debug_stmt CONSTANT BOOLEAN := po_debug.is_debug_stmt_on;
10: g_debug_unexp CONSTANT BOOLEAN := po_debug.is_debug_unexp_on;
11: --Bug#3497033
12: --g_currency_format_mask declared to pass in as the second parameter
13: --in FND_CURRENCY.GET_FORMAT_MASK
6: g_po_wf_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_WORKFLOW_ON'),'N');
7: g_fnd_debug CONSTANT VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
8: -- Debugging
9: g_debug_stmt CONSTANT BOOLEAN := po_debug.is_debug_stmt_on;
10: g_debug_unexp CONSTANT BOOLEAN := po_debug.is_debug_unexp_on;
11: --Bug#3497033
12: --g_currency_format_mask declared to pass in as the second parameter
13: --in FND_CURRENCY.GET_FORMAT_MASK
14: g_currency_format_mask NUMBER := 60;
11442: -- End standard API initialization
11443: l_progress := '001';
11444:
11445: IF g_debug_stmt THEN
11446: po_debug.debug_var(l_log_head,l_progress,'p_req_header_id',p_req_header_id );
11447: po_debug.debug_var(l_log_head,l_progress,'p_initiator',p_initiator);
11448: po_debug.debug_stmt(l_log_head, l_progress,'Placing the Sales order on hold');
11449: END IF;
11450:
11443: l_progress := '001';
11444:
11445: IF g_debug_stmt THEN
11446: po_debug.debug_var(l_log_head,l_progress,'p_req_header_id',p_req_header_id );
11447: po_debug.debug_var(l_log_head,l_progress,'p_initiator',p_initiator);
11448: po_debug.debug_stmt(l_log_head, l_progress,'Placing the Sales order on hold');
11449: END IF;
11450:
11451:
11444:
11445: IF g_debug_stmt THEN
11446: po_debug.debug_var(l_log_head,l_progress,'p_req_header_id',p_req_header_id );
11447: po_debug.debug_var(l_log_head,l_progress,'p_initiator',p_initiator);
11448: po_debug.debug_stmt(l_log_head, l_progress,'Placing the Sales order on hold');
11449: END IF;
11450:
11451:
11452: l_progress := '002';
11499: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
11500: END IF;
11501:
11502: IF g_debug_stmt THEN
11503: po_debug.debug_var(l_log_head,l_progress,'p_item_key',p_item_key );
11504: po_debug.debug_var(l_log_head,l_progress,'l_change_request_group_id',l_change_request_group_id);
11505: po_debug.debug_var(l_log_head,l_progress,'l_preparer_id',l_preparer_id );
11506: po_debug.debug_var(l_log_head,l_progress,'p_document_subtype',p_document_subtype );
11507: po_debug.debug_var(l_log_head,l_progress,'l_change_request_group_id',l_change_request_group_id);
11500: END IF;
11501:
11502: IF g_debug_stmt THEN
11503: po_debug.debug_var(l_log_head,l_progress,'p_item_key',p_item_key );
11504: po_debug.debug_var(l_log_head,l_progress,'l_change_request_group_id',l_change_request_group_id);
11505: po_debug.debug_var(l_log_head,l_progress,'l_preparer_id',l_preparer_id );
11506: po_debug.debug_var(l_log_head,l_progress,'p_document_subtype',p_document_subtype );
11507: po_debug.debug_var(l_log_head,l_progress,'l_change_request_group_id',l_change_request_group_id);
11508: po_debug.debug_var(l_log_head,l_progress,'l_req_num',l_req_num );
11501:
11502: IF g_debug_stmt THEN
11503: po_debug.debug_var(l_log_head,l_progress,'p_item_key',p_item_key );
11504: po_debug.debug_var(l_log_head,l_progress,'l_change_request_group_id',l_change_request_group_id);
11505: po_debug.debug_var(l_log_head,l_progress,'l_preparer_id',l_preparer_id );
11506: po_debug.debug_var(l_log_head,l_progress,'p_document_subtype',p_document_subtype );
11507: po_debug.debug_var(l_log_head,l_progress,'l_change_request_group_id',l_change_request_group_id);
11508: po_debug.debug_var(l_log_head,l_progress,'l_req_num',l_req_num );
11509: po_debug.debug_stmt(l_log_head, l_progress,'Starting POREQCHA workflow');
11502: IF g_debug_stmt THEN
11503: po_debug.debug_var(l_log_head,l_progress,'p_item_key',p_item_key );
11504: po_debug.debug_var(l_log_head,l_progress,'l_change_request_group_id',l_change_request_group_id);
11505: po_debug.debug_var(l_log_head,l_progress,'l_preparer_id',l_preparer_id );
11506: po_debug.debug_var(l_log_head,l_progress,'p_document_subtype',p_document_subtype );
11507: po_debug.debug_var(l_log_head,l_progress,'l_change_request_group_id',l_change_request_group_id);
11508: po_debug.debug_var(l_log_head,l_progress,'l_req_num',l_req_num );
11509: po_debug.debug_stmt(l_log_head, l_progress,'Starting POREQCHA workflow');
11510: END IF;
11503: po_debug.debug_var(l_log_head,l_progress,'p_item_key',p_item_key );
11504: po_debug.debug_var(l_log_head,l_progress,'l_change_request_group_id',l_change_request_group_id);
11505: po_debug.debug_var(l_log_head,l_progress,'l_preparer_id',l_preparer_id );
11506: po_debug.debug_var(l_log_head,l_progress,'p_document_subtype',p_document_subtype );
11507: po_debug.debug_var(l_log_head,l_progress,'l_change_request_group_id',l_change_request_group_id);
11508: po_debug.debug_var(l_log_head,l_progress,'l_req_num',l_req_num );
11509: po_debug.debug_stmt(l_log_head, l_progress,'Starting POREQCHA workflow');
11510: END IF;
11511:
11504: po_debug.debug_var(l_log_head,l_progress,'l_change_request_group_id',l_change_request_group_id);
11505: po_debug.debug_var(l_log_head,l_progress,'l_preparer_id',l_preparer_id );
11506: po_debug.debug_var(l_log_head,l_progress,'p_document_subtype',p_document_subtype );
11507: po_debug.debug_var(l_log_head,l_progress,'l_change_request_group_id',l_change_request_group_id);
11508: po_debug.debug_var(l_log_head,l_progress,'l_req_num',l_req_num );
11509: po_debug.debug_stmt(l_log_head, l_progress,'Starting POREQCHA workflow');
11510: END IF;
11511:
11512: po_reqapproval_init1.start_wf_process(
11505: po_debug.debug_var(l_log_head,l_progress,'l_preparer_id',l_preparer_id );
11506: po_debug.debug_var(l_log_head,l_progress,'p_document_subtype',p_document_subtype );
11507: po_debug.debug_var(l_log_head,l_progress,'l_change_request_group_id',l_change_request_group_id);
11508: po_debug.debug_var(l_log_head,l_progress,'l_req_num',l_req_num );
11509: po_debug.debug_stmt(l_log_head, l_progress,'Starting POREQCHA workflow');
11510: END IF;
11511:
11512: po_reqapproval_init1.start_wf_process(
11513: itemtype => p_item_type,
11533: END IF;
11534:
11535: l_progress := '004';
11536: IF g_debug_stmt THEN
11537: po_debug.debug_stmt(l_log_head, l_progress,'ending submit_internal_req_change');
11538: END IF;
11539: EXCEPTION
11540: WHEN fnd_api.g_exc_unexpected_error THEN
11541: x_return_status := fnd_api.g_ret_sts_unexp_error;
11757: */
11758: SAVEPOINT convertintosochange_sp;
11759: l_progress := '001';
11760: IF g_debug_stmt THEN
11761: po_debug.debug_begin(l_log_head);
11762: po_debug.debug_var(l_log_head, l_progress, 'p_chn_request_group_id', p_chn_request_group_id);
11763: po_debug.debug_var(l_log_head, l_progress, 'p_document_header_id', p_document_header_id);
11764: po_debug.debug_var(l_log_head, l_progress, 'p_document_line_id', p_document_line_id);
11765: po_debug.debug_var(l_log_head, l_progress, 'p_document_num', p_document_num);
11758: SAVEPOINT convertintosochange_sp;
11759: l_progress := '001';
11760: IF g_debug_stmt THEN
11761: po_debug.debug_begin(l_log_head);
11762: po_debug.debug_var(l_log_head, l_progress, 'p_chn_request_group_id', p_chn_request_group_id);
11763: po_debug.debug_var(l_log_head, l_progress, 'p_document_header_id', p_document_header_id);
11764: po_debug.debug_var(l_log_head, l_progress, 'p_document_line_id', p_document_line_id);
11765: po_debug.debug_var(l_log_head, l_progress, 'p_document_num', p_document_num);
11766: po_debug.debug_var(l_log_head, l_progress, 'p_old_quantity', p_old_quantity);
11759: l_progress := '001';
11760: IF g_debug_stmt THEN
11761: po_debug.debug_begin(l_log_head);
11762: po_debug.debug_var(l_log_head, l_progress, 'p_chn_request_group_id', p_chn_request_group_id);
11763: po_debug.debug_var(l_log_head, l_progress, 'p_document_header_id', p_document_header_id);
11764: po_debug.debug_var(l_log_head, l_progress, 'p_document_line_id', p_document_line_id);
11765: po_debug.debug_var(l_log_head, l_progress, 'p_document_num', p_document_num);
11766: po_debug.debug_var(l_log_head, l_progress, 'p_old_quantity', p_old_quantity);
11767: po_debug.debug_var(l_log_head, l_progress, 'p_new_quantity', p_new_quantity);
11760: IF g_debug_stmt THEN
11761: po_debug.debug_begin(l_log_head);
11762: po_debug.debug_var(l_log_head, l_progress, 'p_chn_request_group_id', p_chn_request_group_id);
11763: po_debug.debug_var(l_log_head, l_progress, 'p_document_header_id', p_document_header_id);
11764: po_debug.debug_var(l_log_head, l_progress, 'p_document_line_id', p_document_line_id);
11765: po_debug.debug_var(l_log_head, l_progress, 'p_document_num', p_document_num);
11766: po_debug.debug_var(l_log_head, l_progress, 'p_old_quantity', p_old_quantity);
11767: po_debug.debug_var(l_log_head, l_progress, 'p_new_quantity', p_new_quantity);
11768: po_debug.debug_var(l_log_head, l_progress, 'p_old_need_by_date', p_old_need_by_date);
11761: po_debug.debug_begin(l_log_head);
11762: po_debug.debug_var(l_log_head, l_progress, 'p_chn_request_group_id', p_chn_request_group_id);
11763: po_debug.debug_var(l_log_head, l_progress, 'p_document_header_id', p_document_header_id);
11764: po_debug.debug_var(l_log_head, l_progress, 'p_document_line_id', p_document_line_id);
11765: po_debug.debug_var(l_log_head, l_progress, 'p_document_num', p_document_num);
11766: po_debug.debug_var(l_log_head, l_progress, 'p_old_quantity', p_old_quantity);
11767: po_debug.debug_var(l_log_head, l_progress, 'p_new_quantity', p_new_quantity);
11768: po_debug.debug_var(l_log_head, l_progress, 'p_old_need_by_date', p_old_need_by_date);
11769: po_debug.debug_var(l_log_head, l_progress, 'p_new_need_by_date', p_new_need_by_date);
11762: po_debug.debug_var(l_log_head, l_progress, 'p_chn_request_group_id', p_chn_request_group_id);
11763: po_debug.debug_var(l_log_head, l_progress, 'p_document_header_id', p_document_header_id);
11764: po_debug.debug_var(l_log_head, l_progress, 'p_document_line_id', p_document_line_id);
11765: po_debug.debug_var(l_log_head, l_progress, 'p_document_num', p_document_num);
11766: po_debug.debug_var(l_log_head, l_progress, 'p_old_quantity', p_old_quantity);
11767: po_debug.debug_var(l_log_head, l_progress, 'p_new_quantity', p_new_quantity);
11768: po_debug.debug_var(l_log_head, l_progress, 'p_old_need_by_date', p_old_need_by_date);
11769: po_debug.debug_var(l_log_head, l_progress, 'p_new_need_by_date', p_new_need_by_date);
11770: po_debug.debug_var(l_log_head, l_progress, 'p_action_type', p_action_type);
11763: po_debug.debug_var(l_log_head, l_progress, 'p_document_header_id', p_document_header_id);
11764: po_debug.debug_var(l_log_head, l_progress, 'p_document_line_id', p_document_line_id);
11765: po_debug.debug_var(l_log_head, l_progress, 'p_document_num', p_document_num);
11766: po_debug.debug_var(l_log_head, l_progress, 'p_old_quantity', p_old_quantity);
11767: po_debug.debug_var(l_log_head, l_progress, 'p_new_quantity', p_new_quantity);
11768: po_debug.debug_var(l_log_head, l_progress, 'p_old_need_by_date', p_old_need_by_date);
11769: po_debug.debug_var(l_log_head, l_progress, 'p_new_need_by_date', p_new_need_by_date);
11770: po_debug.debug_var(l_log_head, l_progress, 'p_action_type', p_action_type);
11771: po_debug.debug_var(l_log_head, l_progress, 'p_mode', p_mode);
11764: po_debug.debug_var(l_log_head, l_progress, 'p_document_line_id', p_document_line_id);
11765: po_debug.debug_var(l_log_head, l_progress, 'p_document_num', p_document_num);
11766: po_debug.debug_var(l_log_head, l_progress, 'p_old_quantity', p_old_quantity);
11767: po_debug.debug_var(l_log_head, l_progress, 'p_new_quantity', p_new_quantity);
11768: po_debug.debug_var(l_log_head, l_progress, 'p_old_need_by_date', p_old_need_by_date);
11769: po_debug.debug_var(l_log_head, l_progress, 'p_new_need_by_date', p_new_need_by_date);
11770: po_debug.debug_var(l_log_head, l_progress, 'p_action_type', p_action_type);
11771: po_debug.debug_var(l_log_head, l_progress, 'p_mode', p_mode);
11772: END IF;
11765: po_debug.debug_var(l_log_head, l_progress, 'p_document_num', p_document_num);
11766: po_debug.debug_var(l_log_head, l_progress, 'p_old_quantity', p_old_quantity);
11767: po_debug.debug_var(l_log_head, l_progress, 'p_new_quantity', p_new_quantity);
11768: po_debug.debug_var(l_log_head, l_progress, 'p_old_need_by_date', p_old_need_by_date);
11769: po_debug.debug_var(l_log_head, l_progress, 'p_new_need_by_date', p_new_need_by_date);
11770: po_debug.debug_var(l_log_head, l_progress, 'p_action_type', p_action_type);
11771: po_debug.debug_var(l_log_head, l_progress, 'p_mode', p_mode);
11772: END IF;
11773:
11766: po_debug.debug_var(l_log_head, l_progress, 'p_old_quantity', p_old_quantity);
11767: po_debug.debug_var(l_log_head, l_progress, 'p_new_quantity', p_new_quantity);
11768: po_debug.debug_var(l_log_head, l_progress, 'p_old_need_by_date', p_old_need_by_date);
11769: po_debug.debug_var(l_log_head, l_progress, 'p_new_need_by_date', p_new_need_by_date);
11770: po_debug.debug_var(l_log_head, l_progress, 'p_action_type', p_action_type);
11771: po_debug.debug_var(l_log_head, l_progress, 'p_mode', p_mode);
11772: END IF;
11773:
11774: --calling the OM API for hold if called from reqschedule program
11767: po_debug.debug_var(l_log_head, l_progress, 'p_new_quantity', p_new_quantity);
11768: po_debug.debug_var(l_log_head, l_progress, 'p_old_need_by_date', p_old_need_by_date);
11769: po_debug.debug_var(l_log_head, l_progress, 'p_new_need_by_date', p_new_need_by_date);
11770: po_debug.debug_var(l_log_head, l_progress, 'p_action_type', p_action_type);
11771: po_debug.debug_var(l_log_head, l_progress, 'p_mode', p_mode);
11772: END IF;
11773:
11774: --calling the OM API for hold if called from reqschedule program
11775:
11839: , P_Cancel_ISO_Lines => FALSE
11840: );
11841:
11842: IF g_debug_stmt THEN
11843: po_debug.debug_var(l_log_head, l_progress,'returning from OM API Call_Process_Order_for_IReq for modification',l_return_status);
11844: END IF;
11845:
11846: ELSIF (p_action_type = 'CANCELLATION') THEN
11847:
11859: , X_return_status => l_return_status
11860: );
11861:
11862: IF g_debug_stmt THEN
11863: po_debug.debug_var(l_log_head, l_progress,'returning from OM API Call_Process_Order_for_IReq for cancellation',l_return_status);
11864: END IF;
11865:
11866: END IF;
11867:
11875: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
11876: END IF;
11877:
11878: IF g_debug_stmt THEN
11879: po_debug.debug_var(l_log_head, l_progress,'returning from OM API ',l_return_status);
11880: END IF;
11881:
11882:
11883: l_progress := '007';
11885: IF (l_return_status = fnd_api.g_ret_sts_success) THEN --return status from OM API
11886: -- for successful lines update the change request as accepted
11887: l_progress := '008';
11888: IF g_debug_stmt THEN
11889: po_debug.debug_stmt(l_log_head, l_progress,'for successful lines updating the change request as accepted');
11890: END IF;
11891:
11892: IF (p_action_type = 'MODIFICATION') THEN
11893:
11931: AND document_header_id = l_document_header_id
11932: AND document_line_id = p_document_line_id ;
11933:
11934: IF g_debug_stmt THEN
11935: po_debug.debug_stmt(l_log_head, l_progress,'UPDATED po_change_requests');
11936: END IF;
11937:
11938: req_line_CANCEL(p_req_line_id => p_document_line_id,
11939: x_return_status =>l_return_status);
11943: -- for unsuccessful lines update the change request as rejected
11944: l_progress := '013';
11945:
11946: IF g_debug_stmt THEN
11947: po_debug.debug_stmt(l_log_head, l_progress,'for unsuccessful lines rollback');
11948: po_debug.debug_stmt(l_log_head, l_progress,'update the change request as rejected');
11949: END IF;
11950:
11951: ROLLBACK TO convertintosochange_SP; -- revert the so changes
11944: l_progress := '013';
11945:
11946: IF g_debug_stmt THEN
11947: po_debug.debug_stmt(l_log_head, l_progress,'for unsuccessful lines rollback');
11948: po_debug.debug_stmt(l_log_head, l_progress,'update the change request as rejected');
11949: END IF;
11950:
11951: ROLLBACK TO convertintosochange_SP; -- revert the so changes
11952:
12082: -- Step 1: ADJUST the encumberance
12083: l_progress := '001';
12084:
12085: IF g_debug_stmt THEN
12086: po_debug.debug_var(l_log_head,l_progress,'p_req_line_id', p_req_line_id );
12087: po_debug.debug_var(l_log_head,l_progress,'p_delta_quantity', p_delta_quantity );
12088: po_debug.debug_var(l_log_head,l_progress,'p_uom', p_uom );
12089:
12090: END IF;
12083: l_progress := '001';
12084:
12085: IF g_debug_stmt THEN
12086: po_debug.debug_var(l_log_head,l_progress,'p_req_line_id', p_req_line_id );
12087: po_debug.debug_var(l_log_head,l_progress,'p_delta_quantity', p_delta_quantity );
12088: po_debug.debug_var(l_log_head,l_progress,'p_uom', p_uom );
12089:
12090: END IF;
12091: IF( p_req_line_id is not null) THEN
12084:
12085: IF g_debug_stmt THEN
12086: po_debug.debug_var(l_log_head,l_progress,'p_req_line_id', p_req_line_id );
12087: po_debug.debug_var(l_log_head,l_progress,'p_delta_quantity', p_delta_quantity );
12088: po_debug.debug_var(l_log_head,l_progress,'p_uom', p_uom );
12089:
12090: END IF;
12091: IF( p_req_line_id is not null) THEN
12092:
12104: where prl.requisition_line_id = p_req_line_id
12105: and prl.requisition_header_id = prh.requisition_header_id;
12106:
12107: IF g_debug_stmt THEN
12108: po_debug.debug_var(l_log_head,l_progress,'l_preparer_id',l_preparer_id );
12109: po_debug.debug_stmt(l_log_head, l_progress,'Populating encumbrance gt');
12110: END IF;
12111: l_distribution_id_tbl := po_tbl_number();
12112: l_progress := '003';
12105: and prl.requisition_header_id = prh.requisition_header_id;
12106:
12107: IF g_debug_stmt THEN
12108: po_debug.debug_var(l_log_head,l_progress,'l_preparer_id',l_preparer_id );
12109: po_debug.debug_stmt(l_log_head, l_progress,'Populating encumbrance gt');
12110: END IF;
12111: l_distribution_id_tbl := po_tbl_number();
12112: l_progress := '003';
12113:
12133:
12134: -- error handling after calling populate_encumbrance_gt
12135: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
12136: IF g_debug_stmt THEN
12137: po_debug.debug_stmt(l_log_head, l_progress,'error exists with funds check');
12138: END IF;
12139: RAISE fnd_api.g_exc_unexpected_error;
12140: END IF;
12141:
12146: -- values
12147: l_progress := '006';
12148:
12149: IF g_debug_stmt THEN
12150: po_debug.debug_stmt(l_log_head, l_progress,'after populating encumbrance gt');
12151: END IF;
12152:
12153: OPEN l_dist_tax_csr(p_req_line_id);
12154:
12163:
12164: l_new_quantity := l_old_quantity + p_delta_quantity;
12165:
12166: IF g_debug_stmt THEN
12167: po_debug.debug_var(l_log_head, l_progress,'l_req_dist_id', l_req_dist_id );
12168: po_debug.debug_var(l_log_head, l_progress,'l_new_price', l_new_price );
12169: po_debug.debug_var(l_log_head, l_progress, 'l_quantity', l_new_quantity);
12170: END IF;
12171:
12164: l_new_quantity := l_old_quantity + p_delta_quantity;
12165:
12166: IF g_debug_stmt THEN
12167: po_debug.debug_var(l_log_head, l_progress,'l_req_dist_id', l_req_dist_id );
12168: po_debug.debug_var(l_log_head, l_progress,'l_new_price', l_new_price );
12169: po_debug.debug_var(l_log_head, l_progress, 'l_quantity', l_new_quantity);
12170: END IF;
12171:
12172: po_rco_validation_pvt.calculate_disttax(1.0, l_cal_disttax_status, l_req_dist_id, l_new_price, l_new_quantity, NULL,
12165:
12166: IF g_debug_stmt THEN
12167: po_debug.debug_var(l_log_head, l_progress,'l_req_dist_id', l_req_dist_id );
12168: po_debug.debug_var(l_log_head, l_progress,'l_new_price', l_new_price );
12169: po_debug.debug_var(l_log_head, l_progress, 'l_quantity', l_new_quantity);
12170: END IF;
12171:
12172: po_rco_validation_pvt.calculate_disttax(1.0, l_cal_disttax_status, l_req_dist_id, l_new_price, l_new_quantity, NULL,
12173: l_rec_tax, l_nonrec_tax);
12176: l_new_tax := l_nonrec_tax;
12177: l_new_amount := l_new_price*l_new_quantity;
12178:
12179: IF g_debug_stmt THEN
12180: po_debug.debug_var(l_log_head, l_progress, 'l_rec_tax', l_rec_tax);
12181: po_debug.debug_var(l_log_head, l_progress, 'l_nonrec_tax', l_nonrec_tax);
12182: END IF;
12183:
12184: -- update new values in PO_ENCUMBRANCE_GT
12177: l_new_amount := l_new_price*l_new_quantity;
12178:
12179: IF g_debug_stmt THEN
12180: po_debug.debug_var(l_log_head, l_progress, 'l_rec_tax', l_rec_tax);
12181: po_debug.debug_var(l_log_head, l_progress, 'l_nonrec_tax', l_nonrec_tax);
12182: END IF;
12183:
12184: -- update new values in PO_ENCUMBRANCE_GT
12185: UPDATE po_encumbrance_gt
12193: adjustment_status = po_document_funds_grp.g_adjustment_status_new;
12194:
12195: l_progress := '009';
12196: IF g_debug_stmt THEN
12197: po_debug.debug_stmt(l_log_head, l_progress,'Updating po_encumbrance_gt NEW record');
12198: END IF;
12199:
12200:
12201:
12221:
12222: l_progress := '011';
12223:
12224: IF g_debug_stmt THEN
12225: po_debug.debug_stmt(l_log_head, l_progress, 'FUNDS ADJUST:' || l_fc_result_status ||' PO RETURN CODE:' || l_po_return_code);
12226: END IF;
12227:
12228: IF (l_fc_result_status = fnd_api.g_ret_sts_unexp_error) THEN
12229: IF g_debug_stmt THEN
12226: END IF;
12227:
12228: IF (l_fc_result_status = fnd_api.g_ret_sts_unexp_error) THEN
12229: IF g_debug_stmt THEN
12230: po_debug.debug_stmt(l_log_head, l_progress,'error exists with funds check');
12231: END IF;
12232: RAISE fnd_api.g_exc_unexpected_error;
12233: RETURN;
12234:
12234:
12235: ELSE
12236:
12237: IF g_debug_stmt THEN
12238: po_debug.debug_STmt(l_log_head, l_progress, 'after DO adjust of funds');
12239: END IF;
12240:
12241: IF (l_po_return_code = po_document_funds_grp.g_return_success) THEN
12242: x_return_status := fnd_api.g_ret_sts_success;
12253: IF (p_delta_quantity IS NOT NULL) THEN
12254:
12255: l_progress := '012';
12256: IF g_debug_stmt THEN
12257: po_debug.debug_STmt(l_log_head, l_progress, 'Updating the req line and dist with the quantity changes');
12258: END IF;
12259:
12260: UPDATE po_requisition_lines_all
12261: SET quantity = quantity + p_delta_quantity
12293: IF NOT l_bool_ret_sts THEN
12294: RAISE fnd_api.g_exc_unexpected_error;
12295: END IF;
12296: IF g_debug_stmt THEN
12297: po_debug.debug_STmt(l_log_head, l_progress, 'Updated the req line and dist and mtl_supply with the quantity changes');
12298: po_debug.debug_STmt(l_log_head, l_progress, 'Returning from update_reqline_quan_changes');
12299: END IF;
12300: END IF;
12301: END IF; -- IF( p_req_line_id is not null)
12294: RAISE fnd_api.g_exc_unexpected_error;
12295: END IF;
12296: IF g_debug_stmt THEN
12297: po_debug.debug_STmt(l_log_head, l_progress, 'Updated the req line and dist and mtl_supply with the quantity changes');
12298: po_debug.debug_STmt(l_log_head, l_progress, 'Returning from update_reqline_quan_changes');
12299: END IF;
12300: END IF;
12301: END IF; -- IF( p_req_line_id is not null)
12302:
12332:
12333: IF (p_need_by_date IS NOT NULL) THEN
12334: x_progress := '001';
12335: IF g_debug_stmt THEN
12336: po_debug.debug_var(l_log_head,x_progress,'p_need_by_date', p_need_by_date );
12337: po_debug.debug_var(l_log_head,x_progress,'p_req_line_id', p_req_line_id );
12338: END IF;
12339:
12340: UPDATE po_requisition_lines_all
12333: IF (p_need_by_date IS NOT NULL) THEN
12334: x_progress := '001';
12335: IF g_debug_stmt THEN
12336: po_debug.debug_var(l_log_head,x_progress,'p_need_by_date', p_need_by_date );
12337: po_debug.debug_var(l_log_head,x_progress,'p_req_line_id', p_req_line_id );
12338: END IF;
12339:
12340: UPDATE po_requisition_lines_all
12341: SET need_by_date = p_need_by_date
12361:
12362: END IF;
12363:
12364: IF g_debug_stmt THEN
12365: po_debug.debug_stmt(l_log_head, x_progress,'Need by updation successful');
12366: END IF;
12367:
12368: END update_req_line_date_changes;
12369:
12380: l_document_id number;
12381: BEGIN
12382: x_progress := '001';
12383: IF g_debug_stmt THEN
12384: po_debug.debug_var(l_log_head,x_progress,'p_req_line_id', p_req_line_id );
12385: po_debug.debug_stmt(l_log_head, x_progress,'Updating po_requisition_lines_all');
12386: END IF;
12387:
12388: --update po req lines as cancel flag y
12381: BEGIN
12382: x_progress := '001';
12383: IF g_debug_stmt THEN
12384: po_debug.debug_var(l_log_head,x_progress,'p_req_line_id', p_req_line_id );
12385: po_debug.debug_stmt(l_log_head, x_progress,'Updating po_requisition_lines_all');
12386: END IF;
12387:
12388: --update po req lines as cancel flag y
12389: UPDATE po_requisition_lines_all
12428: IF NOT l_bool_ret_sts THEN
12429: RAISE fnd_api.g_exc_unexpected_error;
12430: END IF;
12431: IF g_debug_stmt THEN
12432: po_debug.debug_stmt(l_log_head, x_progress,'Mtl_supply deleted and cancelling funds');
12433: END IF;
12434:
12435: -- cancel the encumbered funds
12436:
12453: );
12454:
12455: x_return_status := l_return_status;
12456: IF g_debug_stmt THEN
12457: po_debug.debug_var(l_log_head,x_progress,'l_return_status', l_return_status );
12458: po_debug.debug_stmt(l_log_head, x_progress,'Mtl_supply deleted and cancelling funds');
12459: END IF;
12460:
12461: END req_line_CANCEL;
12454:
12455: x_return_status := l_return_status;
12456: IF g_debug_stmt THEN
12457: po_debug.debug_var(l_log_head,x_progress,'l_return_status', l_return_status );
12458: po_debug.debug_stmt(l_log_head, x_progress,'Mtl_supply deleted and cancelling funds');
12459: END IF;
12460:
12461: END req_line_CANCEL;
12462: