1: PACKAGE BODY AHL_PRD_MTLTXN_PVT AS
2: /* $Header: AHLVMTXB.pls 120.28.12010000.4 2008/11/26 11:31:26 jkjain ship $ */
3:
4: G_DEBUG VARCHAR2(1):=AHL_DEBUG_PUB.is_log_enabled;
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_PRD_MTLTXN_PVT';
1: PACKAGE BODY AHL_PRD_MTLTXN_PVT AS
2: /* $Header: AHLVMTXB.pls 120.28.12010000.4 2008/11/26 11:31:26 jkjain ship $ */
3:
4: G_DEBUG VARCHAR2(1):=AHL_DEBUG_PUB.is_log_enabled;
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_PRD_MTLTXN_PVT';
6: G_AHL_PRD_RECEPIENT VARCHAR2(30) := FND_PROFILE.VALUE('AHL_PRD_MTX_RECEPIENT');
7:
8: -- Hard coded string used in this proc
9: -- These are the profile names used to populate service request record default values
2548: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2549: fnd_log.string
2550: (
2551: fnd_log.level_statement,
2552: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.Validate_Txn_Rec',
2553: 'p_x_ahl_mtltxn_rec.Inventory_Item_Id : ' || p_x_ahl_mtltxn_rec.Inventory_Item_Id
2554: );
2555: fnd_log.string
2556: (
2554: );
2555: fnd_log.string
2556: (
2557: fnd_log.level_statement,
2558: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.Validate_Txn_Rec',
2559: 'p_x_ahl_mtltxn_rec.Wip_Entity_Id : ' || p_x_ahl_mtltxn_rec.Wip_Entity_Id
2560: );
2561: fnd_log.string
2562: (
2560: );
2561: fnd_log.string
2562: (
2563: fnd_log.level_statement,
2564: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.Validate_Txn_Rec',
2565: 'p_x_ahl_mtltxn_rec.Serial_Number : ' || p_x_ahl_mtltxn_rec.Serial_Number
2566: );
2567: /*
2568: fnd_log.string
2567: /*
2568: fnd_log.string
2569: (
2570: fnd_log.level_statement,
2571: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.Validate_Txn_Rec',
2572: 'l_wip_location : ' || l_wip_location
2573: );*/
2574: END IF;
2575:
2824: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2825: fnd_log.string
2826: (
2827: fnd_log.level_statement,
2828: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.Validate_Txn_Rec',
2829: 'Validating disposition ID'
2830: );
2831: END IF;
2832:
2855: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2856: fnd_log.string
2857: (
2858: fnd_log.level_statement,
2859: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.Validate_Txn_Rec',
2860: 'Disposition ID:' || p_x_ahl_mtltxn_rec.disposition_id
2861: );
2862: END IF;
2863:
4024: -- IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4025: -- fnd_log.string
4026: -- (
4027: -- fnd_log.level_statement,
4028: -- 'ahl.plsql.AHL_PRD_MTLTXN_PVT.GET_WORKORD_NET_QTY',
4029: -- 'l_net_qty -> ' || l_net_qty
4030: -- );
4031: -- END IF;
4032:
4302: --SYSDATE,
4303: D.QUANTITY, --GOES TO THE ISSUE QTY UI
4304: D.NET_QUANTITY, --GOES TO THE RETURN QTY
4305: -- JKJAIN FP ER # 6436303 - start
4306: AHL_PRD_MTLTXN_PVT.GET_WORKORD_NET_QTY(D.WORKORDER_ID,D.INVENTORY_ITEM_ID,V.ORGANIZATION_ID) Wo_Net_Total_Qty,
4307: -- JKJAIN FP ER # 6436303 - end
4308: W.wip_entity_id,
4309: (select inv_locator_id from ahl_visits_b where visit_id = w.visit_id) inv_locator_id
4310: FROM
4381: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4382: fnd_log.string
4383: (
4384: fnd_log.level_procedure,
4385: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getDispositionReturn.begin',
4386: 'At the start of PLSQL procedure'
4387: );
4388: END IF;
4389:
4473: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4474: fnd_log.string
4475: (
4476: fnd_log.level_statement,
4477: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getDispositionReturn',
4478: 'l_disp_rec.workorder_name: ' || l_disp_rec.workorder_name
4479: );
4480: fnd_log.string
4481: (
4479: );
4480: fnd_log.string
4481: (
4482: fnd_log.level_statement,
4483: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getDispositionReturn',
4484: 'l_disp_rec.workorder_id: ' || l_disp_rec.workorder_id
4485: );
4486: fnd_log.string
4487: (
4485: );
4486: fnd_log.string
4487: (
4488: fnd_log.level_statement,
4489: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getDispositionReturn',
4490: 'l_disp_rec.disposition_id: ' || l_disp_rec.disposition_id
4491: );
4492: fnd_log.string
4493: (
4491: );
4492: fnd_log.string
4493: (
4494: fnd_log.level_statement,
4495: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getDispositionReturn',
4496: 'l_disp_rec.ITEM_NUMBER: ' || l_disp_rec.ITEM_NUMBER
4497: );
4498: fnd_log.string
4499: (
4497: );
4498: fnd_log.string
4499: (
4500: fnd_log.level_statement,
4501: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getDispositionReturn',
4502: 'l_disp_rec.serial_number: ' || l_disp_rec.serial_number
4503: );
4504: fnd_log.string
4505: (
4503: );
4504: fnd_log.string
4505: (
4506: fnd_log.level_statement,
4507: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getDispositionReturn',
4508: 'l_disp_rec.ISSUEQTY: ' || l_disp_rec.quantity
4509: );
4510: fnd_log.string
4511: (
4509: );
4510: fnd_log.string
4511: (
4512: fnd_log.level_statement,
4513: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getDispositionReturn',
4514: 'Net Qty: ' || l_disp_rec.Net_Quantity
4515: );
4516: END IF; -- fnd_log.level_statement
4517:
4522: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4523: fnd_log.string
4524: (
4525: fnd_log.level_procedure,
4526: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getDispositionReturn.begin',
4527: 'At the start of PLSQL procedure'
4528: );
4529: END IF;
4530: END getDispositionReturn;
4647: MTL.CONCATENATED_SEGMENTS,
4648: TXNS.INVENTORY_ITEM_ID,
4649: MTL.DESCRIPTION,
4650: TXNS.SERIAL_NUMBER ,
4651: AHL_PRD_MTLTXN_PVT.GET_ISSUED_QTY(TXNS.ORGANIZATION_ID, TXNS.INVENTORY_ITEM_ID,TXNS.WORKORDER_OPERATION_ID) ISSUEQTY,
4652: -- JKJAIN FP ER # 6436303 - start
4653: AHL_PP_MATERIALS_PVT.GET_NET_QTY(TXNS.ORGANIZATION_ID, TXNS.INVENTORY_ITEM_ID,TXNS.WORKORDER_OPERATION_ID) Net_Total_Qty,
4654: -- JKJAIN FP ER # 6436303 - end
4655: TXNS.UOM,
4729: B.CONCATENATED_SEGMENTS ,
4730: A.INVENTORY_ITEM_ID,
4731: B.DESCRIPTION,
4732: A.SERIAL_NUMBER ,
4733: AHL_PRD_MTLTXN_PVT.GET_WORKORD_LEVEL_QTY(c_wid, c_itemid, c_ORG_ID, c_lotNumber, c_rev, c_SNO) issWoQty,
4734: -- JKJAIN FP ER # 6436303 - start
4735: AHL_PRD_MTLTXN_PVT.GET_WORKORD_NET_QTY(c_wid,c_itemid,c_ORG_ID) Wo_Net_Total_Qty,
4736: -- JKJAIN FP ER # 6436303 - end
4737: A.UOM ,
4731: B.DESCRIPTION,
4732: A.SERIAL_NUMBER ,
4733: AHL_PRD_MTLTXN_PVT.GET_WORKORD_LEVEL_QTY(c_wid, c_itemid, c_ORG_ID, c_lotNumber, c_rev, c_SNO) issWoQty,
4734: -- JKJAIN FP ER # 6436303 - start
4735: AHL_PRD_MTLTXN_PVT.GET_WORKORD_NET_QTY(c_wid,c_itemid,c_ORG_ID) Wo_Net_Total_Qty,
4736: -- JKJAIN FP ER # 6436303 - end
4737: A.UOM ,
4738: UOM.unit_of_measure,
4739: WO_STS.MEANING JOB_STATUS_MEANING,
4814: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4815: fnd_log.string
4816: (
4817: fnd_log.level_procedure,
4818: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getMtlTxnsReturns.begin',
4819: 'At the start of PLSQL procedure'
4820: );
4821: END IF;
4822: FOR l_mtlTxn_rec IN getMtlTxnsReturnsCur
4983: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4984: fnd_log.string
4985: (
4986: fnd_log.level_statement,
4987: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getMtlTxnsReturns',
4988: 'l_mtlWoRtns_rec.workorder_id: ' || l_mtlWoRtns_rec.workorder_id
4989: );
4990: fnd_log.string
4991: (
4989: );
4990: fnd_log.string
4991: (
4992: fnd_log.level_statement,
4993: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getMtlTxnsReturns',
4994: 'l_mtlWoRtns_rec.job_number: ' || l_mtlWoRtns_rec.job_number
4995: );
4996: fnd_log.string
4997: (
4995: );
4996: fnd_log.string
4997: (
4998: fnd_log.level_statement,
4999: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getMtlTxnsReturns',
5000: 'l_mtlWoRtns_rec.CONCATENATED_SEGMENTS: ' || l_mtlWoRtns_rec.CONCATENATED_SEGMENTS
5001: );
5002: fnd_log.string
5003: (
5001: );
5002: fnd_log.string
5003: (
5004: fnd_log.level_statement,
5005: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getMtlTxnsReturns',
5006: 'l_mtlWoRtns_rec.serial_number: ' || l_mtlWoRtns_rec.serial_number
5007: );
5008: fnd_log.string
5009: (
5007: );
5008: fnd_log.string
5009: (
5010: fnd_log.level_statement,
5011: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getMtlTxnsReturns',
5012: 'l_mtlWoRtns_rec.issWoQty: ' || l_mtlWoRtns_rec.issWoQty
5013: );
5014: fnd_log.string
5015: (
5013: );
5014: fnd_log.string
5015: (
5016: fnd_log.level_statement,
5017: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.l_mtlWoRtns_rec',
5018: 'l_mtlWoRtns_rec.Net_Quantity: ' || l_qty
5019: );
5020:
5021: END IF; -- debug messages.
5029: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5030: fnd_log.string
5031: (
5032: fnd_log.level_procedure,
5033: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getMtlTxnsReturns.end',
5034: 'At the end of PLSQL procedure'
5035: );
5036: END IF;
5037:
5164: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5165: fnd_log.string
5166: (
5167: fnd_log.level_procedure,
5168: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getMtlNotIssued.Begin',
5169: 'At the Start of PLSQL procedure'
5170: );
5171: END IF;
5172:
5218: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5219: fnd_log.string
5220: (
5221: fnd_log.level_statement,
5222: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getMtlNotIssued',
5223: 'l_mtl_txn_rec.workorder_id: ' || l_mtl_txn_rec.workorder_id
5224: );
5225: fnd_log.string
5226: (
5224: );
5225: fnd_log.string
5226: (
5227: fnd_log.level_statement,
5228: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getMtlNotIssued',
5229: 'l_mtl_txn_rec.job_number: ' || l_mtl_txn_rec.job_number
5230: );
5231: fnd_log.string
5232: (
5230: );
5231: fnd_log.string
5232: (
5233: fnd_log.level_statement,
5234: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getMtlNotIssued',
5235: 'l_mtl_txn_rec.CONCATENATED_SEGMENTS: ' || l_mtl_txn_rec.CONCATENATED_SEGMENTS
5236: );
5237: fnd_log.string
5238: (
5236: );
5237: fnd_log.string
5238: (
5239: fnd_log.level_statement,
5240: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getMtlNotIssued',
5241: 'l_mtl_txn_rec.ISSUEQTY is zero '
5242: );
5243: fnd_log.string
5244: (
5242: );
5243: fnd_log.string
5244: (
5245: fnd_log.level_statement,
5246: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getMtlNotIssued',
5247: 'l_mtl_txn_rec.Net Qty: ' || l_mtl_txn_rec.Quantity
5248: );
5249: END IF; -- debug messages.
5250:
5256: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5257: fnd_log.string
5258: (
5259: fnd_log.level_procedure,
5260: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getMtlNotIssued.end',
5261: 'At the end of PLSQL procedure'
5262: );
5263: END IF;
5264:
5287: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5288: fnd_log.string
5289: (
5290: fnd_log.level_procedure,
5291: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.GET_MTL_TRANS_RETURN.begin',
5292: 'At the start of PLSQL procedure'
5293: );
5294: END IF;
5295: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5295: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5296: fnd_log.string
5297: (
5298: fnd_log.level_statement,
5299: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.GET_MTL_TRANS_RETURNS',
5300: 'P_prd_Mtltxn_criteria_rec.JOB_NUMBER : ' || P_prd_Mtltxn_criteria_rec.JOB_NUMBER
5301: );
5302: fnd_log.string
5303: (
5301: );
5302: fnd_log.string
5303: (
5304: fnd_log.level_statement,
5305: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.GET_MTL_TRANS_RETURNS',
5306: 'P_prd_Mtltxn_criteria_rec.ORGANIZATION_NAME : ' || P_prd_Mtltxn_criteria_rec.ORGANIZATION_NAME
5307: );
5308: fnd_log.string
5309: (
5307: );
5308: fnd_log.string
5309: (
5310: fnd_log.level_statement,
5311: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.GET_MTL_TRANS_RETURNS',
5312: 'P_prd_Mtltxn_criteria_rec.PRIORITY : ' || P_prd_Mtltxn_criteria_rec.PRIORITY
5313: );
5314: fnd_log.string
5315: (
5313: );
5314: fnd_log.string
5315: (
5316: fnd_log.level_statement,
5317: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.GET_MTL_TRANS_RETURNS',
5318: 'P_prd_Mtltxn_criteria_rec.VISIT_NUMBER : ' || P_prd_Mtltxn_criteria_rec.VISIT_NUMBER
5319: );
5320: fnd_log.string
5321: (
5319: );
5320: fnd_log.string
5321: (
5322: fnd_log.level_statement,
5323: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.GET_MTL_TRANS_RETURNS',
5324: 'P_prd_Mtltxn_criteria_rec.DEPARTMENT_NAME : ' || P_prd_Mtltxn_criteria_rec.DEPARTMENT_NAME
5325: );
5326: fnd_log.string
5327: (
5325: );
5326: fnd_log.string
5327: (
5328: fnd_log.level_statement,
5329: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.GET_MTL_TRANS_RETURNS',
5330: 'P_prd_Mtltxn_criteria_rec.CONCATENATED_SEGMENTS : ' || P_prd_Mtltxn_criteria_rec.CONCATENATED_SEGMENTS
5331: );
5332: fnd_log.string
5333: (
5331: );
5332: fnd_log.string
5333: (
5334: fnd_log.level_statement,
5335: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.GET_MTL_TRANS_RETURNS',
5336: 'P_prd_Mtltxn_criteria_rec.DISPOSITION_NAME : ' || P_prd_Mtltxn_criteria_rec.DISPOSITION_NAME
5337: );
5338: fnd_log.string
5339: (
5337: );
5338: fnd_log.string
5339: (
5340: fnd_log.level_statement,
5341: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.GET_MTL_TRANS_RETURNS',
5342: 'P_prd_Mtltxn_criteria_rec.INCIDENT_NUMBER : ' || P_prd_Mtltxn_criteria_rec.INCIDENT_NUMBER
5343: );
5344:
5345: END IF;
5368: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5369: fnd_log.string
5370: (
5371: fnd_log.level_statement,
5372: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.GET_MTL_TRANS_RETURNS', 'After getMtlTxnsReturns x_ahl_mtltxn_tbl.count : ' || x_ahl_mtltxn_tbl.count
5373: );
5374: END IF;
5375:
5376: getDispositionReturn
5382: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5383: fnd_log.string
5384: (
5385: fnd_log.level_statement,
5386: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.GET_MTL_TRANS_RETURNS', 'After getDispositionReturn x_ahl_mtltxn_tbl.count : ' || x_ahl_mtltxn_tbl.count
5387: );
5388: END IF;
5389:
5390: ELSE
5397: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5398: fnd_log.string
5399: (
5400: fnd_log.level_statement,
5401: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.GET_MTL_TRANS_RETURNS', 'After getDispositionReturn x_ahl_mtltxn_tbl.count : ' || x_ahl_mtltxn_tbl.count
5402: );
5403: END IF;
5404: END IF;
5405:
5417: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5418: fnd_log.string
5419: (
5420: fnd_log.level_statement,
5421: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.GET_MTL_TRANS_RETURNS',
5422: 'After getMtlNotIssued x_ahl_mtltxn_tbl.count : ' || x_ahl_mtltxn_tbl.count
5423: );
5424: END IF;
5425:
5426: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5427: fnd_log.string
5428: (
5429: fnd_log.level_procedure,
5430: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.GET_MTL_TRANS_RETURN.end',
5431: 'At the end of PLSQL procedure'
5432: );
5433: END IF;
5434:
5909:
5910: END Get_MTL_LocatorSegs;
5911:
5912:
5913: END AHL_PRD_MTLTXN_PVT ;