41: )return CLOB
42:
43: IS
44:
45: l_xmlType XMLType:=null;
46: l_xmlType1 XMLType:=null;
47: l_xmlTypeOperation XMLType:=null;
48: l_xmlTypeResource XMLType:=null;
49: l_xmlTypeEmployee XMLType:=null;
42:
43: IS
44:
45: l_xmlType XMLType:=null;
46: l_xmlType1 XMLType:=null;
47: l_xmlTypeOperation XMLType:=null;
48: l_xmlTypeResource XMLType:=null;
49: l_xmlTypeEmployee XMLType:=null;
50: l_xmlTypeDirectMaterial XMLType:=null;
43: IS
44:
45: l_xmlType XMLType:=null;
46: l_xmlType1 XMLType:=null;
47: l_xmlTypeOperation XMLType:=null;
48: l_xmlTypeResource XMLType:=null;
49: l_xmlTypeEmployee XMLType:=null;
50: l_xmlTypeDirectMaterial XMLType:=null;
51: l_xmlTypeShortAttachment XMLType:=null;
44:
45: l_xmlType XMLType:=null;
46: l_xmlType1 XMLType:=null;
47: l_xmlTypeOperation XMLType:=null;
48: l_xmlTypeResource XMLType:=null;
49: l_xmlTypeEmployee XMLType:=null;
50: l_xmlTypeDirectMaterial XMLType:=null;
51: l_xmlTypeShortAttachment XMLType:=null;
52: l_xmlTypeOpShortAttachment XMLType:=null;
45: l_xmlType XMLType:=null;
46: l_xmlType1 XMLType:=null;
47: l_xmlTypeOperation XMLType:=null;
48: l_xmlTypeResource XMLType:=null;
49: l_xmlTypeEmployee XMLType:=null;
50: l_xmlTypeDirectMaterial XMLType:=null;
51: l_xmlTypeShortAttachment XMLType:=null;
52: l_xmlTypeOpShortAttachment XMLType:=null;
53: l_xmlTypeLongAttachment XMLType:=null;
46: l_xmlType1 XMLType:=null;
47: l_xmlTypeOperation XMLType:=null;
48: l_xmlTypeResource XMLType:=null;
49: l_xmlTypeEmployee XMLType:=null;
50: l_xmlTypeDirectMaterial XMLType:=null;
51: l_xmlTypeShortAttachment XMLType:=null;
52: l_xmlTypeOpShortAttachment XMLType:=null;
53: l_xmlTypeLongAttachment XMLType:=null;
54: l_xmlTypeOpLongAttachment XMLType:=null;
47: l_xmlTypeOperation XMLType:=null;
48: l_xmlTypeResource XMLType:=null;
49: l_xmlTypeEmployee XMLType:=null;
50: l_xmlTypeDirectMaterial XMLType:=null;
51: l_xmlTypeShortAttachment XMLType:=null;
52: l_xmlTypeOpShortAttachment XMLType:=null;
53: l_xmlTypeLongAttachment XMLType:=null;
54: l_xmlTypeOpLongAttachment XMLType:=null;
55: l_xmlTypefileattachment XMLType:=null;
48: l_xmlTypeResource XMLType:=null;
49: l_xmlTypeEmployee XMLType:=null;
50: l_xmlTypeDirectMaterial XMLType:=null;
51: l_xmlTypeShortAttachment XMLType:=null;
52: l_xmlTypeOpShortAttachment XMLType:=null;
53: l_xmlTypeLongAttachment XMLType:=null;
54: l_xmlTypeOpLongAttachment XMLType:=null;
55: l_xmlTypefileattachment XMLType:=null;
56: l_xmlTypeWorkRequest XMLType:=null;
49: l_xmlTypeEmployee XMLType:=null;
50: l_xmlTypeDirectMaterial XMLType:=null;
51: l_xmlTypeShortAttachment XMLType:=null;
52: l_xmlTypeOpShortAttachment XMLType:=null;
53: l_xmlTypeLongAttachment XMLType:=null;
54: l_xmlTypeOpLongAttachment XMLType:=null;
55: l_xmlTypefileattachment XMLType:=null;
56: l_xmlTypeWorkRequest XMLType:=null;
57: l_xmlTypeMeter XMLType:=null;
50: l_xmlTypeDirectMaterial XMLType:=null;
51: l_xmlTypeShortAttachment XMLType:=null;
52: l_xmlTypeOpShortAttachment XMLType:=null;
53: l_xmlTypeLongAttachment XMLType:=null;
54: l_xmlTypeOpLongAttachment XMLType:=null;
55: l_xmlTypefileattachment XMLType:=null;
56: l_xmlTypeWorkRequest XMLType:=null;
57: l_xmlTypeMeter XMLType:=null;
58: l_xmlTypeMaterial XMLType:=null;
51: l_xmlTypeShortAttachment XMLType:=null;
52: l_xmlTypeOpShortAttachment XMLType:=null;
53: l_xmlTypeLongAttachment XMLType:=null;
54: l_xmlTypeOpLongAttachment XMLType:=null;
55: l_xmlTypefileattachment XMLType:=null;
56: l_xmlTypeWorkRequest XMLType:=null;
57: l_xmlTypeMeter XMLType:=null;
58: l_xmlTypeMaterial XMLType:=null;
59: l_xmlTypeQualityPlan XMLType:=null;
52: l_xmlTypeOpShortAttachment XMLType:=null;
53: l_xmlTypeLongAttachment XMLType:=null;
54: l_xmlTypeOpLongAttachment XMLType:=null;
55: l_xmlTypefileattachment XMLType:=null;
56: l_xmlTypeWorkRequest XMLType:=null;
57: l_xmlTypeMeter XMLType:=null;
58: l_xmlTypeMaterial XMLType:=null;
59: l_xmlTypeQualityPlan XMLType:=null;
60: l_xmlTypeAssetBom XMLType :=null;
53: l_xmlTypeLongAttachment XMLType:=null;
54: l_xmlTypeOpLongAttachment XMLType:=null;
55: l_xmlTypefileattachment XMLType:=null;
56: l_xmlTypeWorkRequest XMLType:=null;
57: l_xmlTypeMeter XMLType:=null;
58: l_xmlTypeMaterial XMLType:=null;
59: l_xmlTypeQualityPlan XMLType:=null;
60: l_xmlTypeAssetBom XMLType :=null;
61: l_xmlTypeFailureData XMLType:=null;
54: l_xmlTypeOpLongAttachment XMLType:=null;
55: l_xmlTypefileattachment XMLType:=null;
56: l_xmlTypeWorkRequest XMLType:=null;
57: l_xmlTypeMeter XMLType:=null;
58: l_xmlTypeMaterial XMLType:=null;
59: l_xmlTypeQualityPlan XMLType:=null;
60: l_xmlTypeAssetBom XMLType :=null;
61: l_xmlTypeFailureData XMLType:=null;
62: l_xmlTemp XMLType:=null;
55: l_xmlTypefileattachment XMLType:=null;
56: l_xmlTypeWorkRequest XMLType:=null;
57: l_xmlTypeMeter XMLType:=null;
58: l_xmlTypeMaterial XMLType:=null;
59: l_xmlTypeQualityPlan XMLType:=null;
60: l_xmlTypeAssetBom XMLType :=null;
61: l_xmlTypeFailureData XMLType:=null;
62: l_xmlTemp XMLType:=null;
63: l_xmlTemp2 XMLType:=null;
56: l_xmlTypeWorkRequest XMLType:=null;
57: l_xmlTypeMeter XMLType:=null;
58: l_xmlTypeMaterial XMLType:=null;
59: l_xmlTypeQualityPlan XMLType:=null;
60: l_xmlTypeAssetBom XMLType :=null;
61: l_xmlTypeFailureData XMLType:=null;
62: l_xmlTemp XMLType:=null;
63: l_xmlTemp2 XMLType:=null;
64: l_xmlTemp3 XMLType:=null;
57: l_xmlTypeMeter XMLType:=null;
58: l_xmlTypeMaterial XMLType:=null;
59: l_xmlTypeQualityPlan XMLType:=null;
60: l_xmlTypeAssetBom XMLType :=null;
61: l_xmlTypeFailureData XMLType:=null;
62: l_xmlTemp XMLType:=null;
63: l_xmlTemp2 XMLType:=null;
64: l_xmlTemp3 XMLType:=null;
65: l_string varchar2(4000);
58: l_xmlTypeMaterial XMLType:=null;
59: l_xmlTypeQualityPlan XMLType:=null;
60: l_xmlTypeAssetBom XMLType :=null;
61: l_xmlTypeFailureData XMLType:=null;
62: l_xmlTemp XMLType:=null;
63: l_xmlTemp2 XMLType:=null;
64: l_xmlTemp3 XMLType:=null;
65: l_string varchar2(4000);
66: l_wip_entity_name varchar2(100);
59: l_xmlTypeQualityPlan XMLType:=null;
60: l_xmlTypeAssetBom XMLType :=null;
61: l_xmlTypeFailureData XMLType:=null;
62: l_xmlTemp XMLType:=null;
63: l_xmlTemp2 XMLType:=null;
64: l_xmlTemp3 XMLType:=null;
65: l_string varchar2(4000);
66: l_wip_entity_name varchar2(100);
67: l_organization_id number;
60: l_xmlTypeAssetBom XMLType :=null;
61: l_xmlTypeFailureData XMLType:=null;
62: l_xmlTemp XMLType:=null;
63: l_xmlTemp2 XMLType:=null;
64: l_xmlTemp3 XMLType:=null;
65: l_string varchar2(4000);
66: l_wip_entity_name varchar2(100);
67: l_organization_id number;
68: l_org_id number;
77:
78: -- FP 7493388 for Base Bug 7005666
79: l_inventory_id number;
80: l_asset_route_flag varchar2(20);
81: l_xmlTypeAssetroutecomp XMLType:=null;
82: -- for Bug 7005666
83:
84: cursor operation_cursor(p_wip_id number) is
85: SELECT XMLELEMENT("OPERATION", XMLFOREST(WO.OPERATION_SEQ_NUM as "OPSEQNUM",
614:
615: if p_operation_flag = 1 then
616: begin
617: for operation_record in operation_cursor(p_wip_entity_id(i)) loop
618: select XMLConcat(l_xmlTypeOperation,operation_record.Operation) into l_xmlTypeOperation from dual;
619: end loop;
620: select XMLELEMENT("OPERATION_LIST",l_xmlTypeOperation) into l_xmlTypeOperation from dual;
621: exception
622: when NO_DATA_FOUND then
616: begin
617: for operation_record in operation_cursor(p_wip_entity_id(i)) loop
618: select XMLConcat(l_xmlTypeOperation,operation_record.Operation) into l_xmlTypeOperation from dual;
619: end loop;
620: select XMLELEMENT("OPERATION_LIST",l_xmlTypeOperation) into l_xmlTypeOperation from dual;
621: exception
622: when NO_DATA_FOUND then
623: null;
624: end;
627: --Adding Materials
628: if p_material_flag = 1 then
629: begin
630: for material_record in material_cursor(p_wip_entity_id(i)) loop
631: select XMLConcat(l_xmlTypeMaterial,material_record.Material) into l_xmlTypeMaterial from dual;
632: end loop;
633: select XMLELEMENT("MATERIAL_LIST",l_xmlTypeMaterial) into l_xmlTypeMaterial from dual;
634: exception
635: when NO_DATA_FOUND then
629: begin
630: for material_record in material_cursor(p_wip_entity_id(i)) loop
631: select XMLConcat(l_xmlTypeMaterial,material_record.Material) into l_xmlTypeMaterial from dual;
632: end loop;
633: select XMLELEMENT("MATERIAL_LIST",l_xmlTypeMaterial) into l_xmlTypeMaterial from dual;
634: exception
635: when NO_DATA_FOUND then
636: null;
637: end;
640: --Adding Resources
641: if p_resource_flag = 1 then
642: begin
643: for resource_record in resource_cursor(p_wip_entity_id(i)) loop
644: select XMLConcat(l_xmlTypeResource,resource_record.Resources) into l_xmlTypeResource from dual;
645: end loop;
646: select XMLELEMENT("RESOURCE_LIST",l_xmlTypeResource) into l_xmlTypeResource from dual;
647: --Adding Employees
648: for employee_record in employee_cursor(p_wip_entity_id(i)) loop
642: begin
643: for resource_record in resource_cursor(p_wip_entity_id(i)) loop
644: select XMLConcat(l_xmlTypeResource,resource_record.Resources) into l_xmlTypeResource from dual;
645: end loop;
646: select XMLELEMENT("RESOURCE_LIST",l_xmlTypeResource) into l_xmlTypeResource from dual;
647: --Adding Employees
648: for employee_record in employee_cursor(p_wip_entity_id(i)) loop
649: select XMLConcat(l_xmlTypeEmployee,employee_record.Employees) into l_xmlTypeEmployee from dual;
650: end loop;
645: end loop;
646: select XMLELEMENT("RESOURCE_LIST",l_xmlTypeResource) into l_xmlTypeResource from dual;
647: --Adding Employees
648: for employee_record in employee_cursor(p_wip_entity_id(i)) loop
649: select XMLConcat(l_xmlTypeEmployee,employee_record.Employees) into l_xmlTypeEmployee from dual;
650: end loop;
651: select XMLELEMENT("EMPLOYEE_LIST",l_xmlTypeEmployee) into l_xmlTypeEmployee from dual;
652: select XMLConcat(l_xmlTypeResource,l_xmlTypeEmployee) into l_xmlTypeResource from dual;
653: exception
647: --Adding Employees
648: for employee_record in employee_cursor(p_wip_entity_id(i)) loop
649: select XMLConcat(l_xmlTypeEmployee,employee_record.Employees) into l_xmlTypeEmployee from dual;
650: end loop;
651: select XMLELEMENT("EMPLOYEE_LIST",l_xmlTypeEmployee) into l_xmlTypeEmployee from dual;
652: select XMLConcat(l_xmlTypeResource,l_xmlTypeEmployee) into l_xmlTypeResource from dual;
653: exception
654: when NO_DATA_FOUND then
655: null;
648: for employee_record in employee_cursor(p_wip_entity_id(i)) loop
649: select XMLConcat(l_xmlTypeEmployee,employee_record.Employees) into l_xmlTypeEmployee from dual;
650: end loop;
651: select XMLELEMENT("EMPLOYEE_LIST",l_xmlTypeEmployee) into l_xmlTypeEmployee from dual;
652: select XMLConcat(l_xmlTypeResource,l_xmlTypeEmployee) into l_xmlTypeResource from dual;
653: exception
654: when NO_DATA_FOUND then
655: null;
656: end;
659: --Adding Direct Materials
660: if p_direct_material_flag = 1 then
661: begin
662: for directmaterial_record in directmaterial_cursor(p_wip_entity_id(i)) loop
663: select XMLConcat(l_xmlTypeDirectMaterial,directmaterial_record.DirectMaterial) into l_xmlTypeDirectMaterial from dual;
664: end loop;
665: select XMLELEMENT("DIRECTMATERIAL_LIST",l_xmlTypeDirectMaterial) into l_xmlTypeDirectMaterial from dual;
666: exception
667: when NO_DATA_FOUND then
661: begin
662: for directmaterial_record in directmaterial_cursor(p_wip_entity_id(i)) loop
663: select XMLConcat(l_xmlTypeDirectMaterial,directmaterial_record.DirectMaterial) into l_xmlTypeDirectMaterial from dual;
664: end loop;
665: select XMLELEMENT("DIRECTMATERIAL_LIST",l_xmlTypeDirectMaterial) into l_xmlTypeDirectMaterial from dual;
666: exception
667: when NO_DATA_FOUND then
668: null;
669: end;
672: --Adding Work Order Short Text Attachments
673: if p_short_attachment_flag =1 then
674: begin
675: for attachment_record in shortattachment_cursor(p_wip_entity_id(i),l_org_id) loop
676: select XMLConcat(l_xmlTypeShortAttachment,attachment_record.ShortAttachment) into l_xmlTypeShortAttachment from dual;
677: end loop;
678: select XMLELEMENT("WOSHORTATTACHMENT_LIST",l_xmlTypeShortAttachment) into l_xmlTypeShortAttachment from dual;
679: exception
680: when NO_DATA_FOUND then
674: begin
675: for attachment_record in shortattachment_cursor(p_wip_entity_id(i),l_org_id) loop
676: select XMLConcat(l_xmlTypeShortAttachment,attachment_record.ShortAttachment) into l_xmlTypeShortAttachment from dual;
677: end loop;
678: select XMLELEMENT("WOSHORTATTACHMENT_LIST",l_xmlTypeShortAttachment) into l_xmlTypeShortAttachment from dual;
679: exception
680: when NO_DATA_FOUND then
681: null;
682: end;
683:
684: --Adding Operation Short Text Attachments
685: begin
686: for opattachment_record in opshortattachment(p_wip_entity_id(i),l_org_id) loop
687: select XMLConcat(l_xmlTypeOpShortAttachment,opattachment_record.OpShortAttachment) into l_xmlTypeOpShortAttachment from dual;
688: end loop;
689: select XMLELEMENT("OPSHORTATTACHMENT_LIST",l_xmlTypeOpShortAttachment) into l_xmlTypeOpShortAttachment from dual;
690: select XMLConcat(l_xmlTypeShortAttachment,l_xmlTypeOpShortAttachment) into l_xmlTypeShortAttachment from dual;
691: exception
685: begin
686: for opattachment_record in opshortattachment(p_wip_entity_id(i),l_org_id) loop
687: select XMLConcat(l_xmlTypeOpShortAttachment,opattachment_record.OpShortAttachment) into l_xmlTypeOpShortAttachment from dual;
688: end loop;
689: select XMLELEMENT("OPSHORTATTACHMENT_LIST",l_xmlTypeOpShortAttachment) into l_xmlTypeOpShortAttachment from dual;
690: select XMLConcat(l_xmlTypeShortAttachment,l_xmlTypeOpShortAttachment) into l_xmlTypeShortAttachment from dual;
691: exception
692: when NO_DATA_FOUND then
693: null;
686: for opattachment_record in opshortattachment(p_wip_entity_id(i),l_org_id) loop
687: select XMLConcat(l_xmlTypeOpShortAttachment,opattachment_record.OpShortAttachment) into l_xmlTypeOpShortAttachment from dual;
688: end loop;
689: select XMLELEMENT("OPSHORTATTACHMENT_LIST",l_xmlTypeOpShortAttachment) into l_xmlTypeOpShortAttachment from dual;
690: select XMLConcat(l_xmlTypeShortAttachment,l_xmlTypeOpShortAttachment) into l_xmlTypeShortAttachment from dual;
691: exception
692: when NO_DATA_FOUND then
693: null;
694: end;
700: for longattachment_record in longattachment_cursor(p_wip_entity_id(i),l_org_id) loop
701: select longattachment_record.LongAttachment into l_xmlTemp from dual;
702: select extractValue(l_xmlTemp,'/ALONGMEDIAID') into l_media_id from dual;
703: l_temp:=getLong(p_wip_entity_id(i),l_org_id,l_media_id,1);
704: select XMLConcat(l_xmlTemp,xmlType('
705: select XMLELEMENT("LONGATTACHMENT",l_xmlTemp) into l_xmlTemp from dual;
706: select XMLConcat(l_xmlTemp,l_xmlTypeLongAttachment) into l_xmlTypeLongAttachment from dual;
707: l_xmlTemp:=null;
708: end loop;
702: select extractValue(l_xmlTemp,'/ALONGMEDIAID') into l_media_id from dual;
703: l_temp:=getLong(p_wip_entity_id(i),l_org_id,l_media_id,1);
704: select XMLConcat(l_xmlTemp,xmlType('
705: select XMLELEMENT("LONGATTACHMENT",l_xmlTemp) into l_xmlTemp from dual;
706: select XMLConcat(l_xmlTemp,l_xmlTypeLongAttachment) into l_xmlTypeLongAttachment from dual;
707: l_xmlTemp:=null;
708: end loop;
709: select XMLELEMENT("WOLONGATTACHMENT_LIST",l_xmlTypeLongAttachment) into l_xmlTypeLongAttachment from dual;
710: exception
705: select XMLELEMENT("LONGATTACHMENT",l_xmlTemp) into l_xmlTemp from dual;
706: select XMLConcat(l_xmlTemp,l_xmlTypeLongAttachment) into l_xmlTypeLongAttachment from dual;
707: l_xmlTemp:=null;
708: end loop;
709: select XMLELEMENT("WOLONGATTACHMENT_LIST",l_xmlTypeLongAttachment) into l_xmlTypeLongAttachment from dual;
710: exception
711: when NO_DATA_FOUND then
712: null;
713: end;
717: for oplongattachment_record in oplongattachment_cursor(p_wip_entity_id(i),l_org_id) loop
718: select oplongattachment_record.OpLongAttachment into l_xmlTemp from dual;
719: select extractValue(l_xmlTemp,'/OPALONGMEDIAID') into l_media_id from dual;
720: l_temp:=getLong(p_wip_entity_id(i),l_org_id,l_media_id,2);
721: select XMLConcat(l_xmlTemp,xmlType('
722: select XMLELEMENT("OPLONGATTACHMENT",l_xmlTemp) into l_xmlTemp from dual;
723: select XMLConcat(l_xmlTemp,l_xmlTypeOpLongAttachment) into l_xmlTypeOpLongAttachment from dual;
724: l_xmlTemp:=null;
725: end loop;
719: select extractValue(l_xmlTemp,'/OPALONGMEDIAID') into l_media_id from dual;
720: l_temp:=getLong(p_wip_entity_id(i),l_org_id,l_media_id,2);
721: select XMLConcat(l_xmlTemp,xmlType('
722: select XMLELEMENT("OPLONGATTACHMENT",l_xmlTemp) into l_xmlTemp from dual;
723: select XMLConcat(l_xmlTemp,l_xmlTypeOpLongAttachment) into l_xmlTypeOpLongAttachment from dual;
724: l_xmlTemp:=null;
725: end loop;
726: select XMLELEMENT("OPLONGATTACHMENT_LIST",l_xmlTypeOpLongAttachment) into l_xmlTypeOpLongAttachment from dual;
727: select XMLConcat(l_xmlTypeLongAttachment,l_xmlTypeOpLongAttachment) into l_xmlTypeLongAttachment from dual;
722: select XMLELEMENT("OPLONGATTACHMENT",l_xmlTemp) into l_xmlTemp from dual;
723: select XMLConcat(l_xmlTemp,l_xmlTypeOpLongAttachment) into l_xmlTypeOpLongAttachment from dual;
724: l_xmlTemp:=null;
725: end loop;
726: select XMLELEMENT("OPLONGATTACHMENT_LIST",l_xmlTypeOpLongAttachment) into l_xmlTypeOpLongAttachment from dual;
727: select XMLConcat(l_xmlTypeLongAttachment,l_xmlTypeOpLongAttachment) into l_xmlTypeLongAttachment from dual;
728: exception
729: when NO_DATA_FOUND then
730: null;
723: select XMLConcat(l_xmlTemp,l_xmlTypeOpLongAttachment) into l_xmlTypeOpLongAttachment from dual;
724: l_xmlTemp:=null;
725: end loop;
726: select XMLELEMENT("OPLONGATTACHMENT_LIST",l_xmlTypeOpLongAttachment) into l_xmlTypeOpLongAttachment from dual;
727: select XMLConcat(l_xmlTypeLongAttachment,l_xmlTypeOpLongAttachment) into l_xmlTypeLongAttachment from dual;
728: exception
729: when NO_DATA_FOUND then
730: null;
731: end;
734: --Adding File Attachments
735: if p_file_attachment_flag = 1 then
736: begin
737: for fileattachment_record in fileattachment_cursor(p_wip_entity_id(i),l_org_id) loop
738: select XMLConcat(l_xmlTypefileattachment,fileattachment_record.FileAttachment) into l_xmlTypefileattachment from dual;
739: end loop;
740: select XMLELEMENT("FILEATTACHMENT_LIST",l_xmlTypefileattachment) into l_xmlTypefileattachment from dual;
741: exception
742: when NO_DATA_FOUND then
736: begin
737: for fileattachment_record in fileattachment_cursor(p_wip_entity_id(i),l_org_id) loop
738: select XMLConcat(l_xmlTypefileattachment,fileattachment_record.FileAttachment) into l_xmlTypefileattachment from dual;
739: end loop;
740: select XMLELEMENT("FILEATTACHMENT_LIST",l_xmlTypefileattachment) into l_xmlTypefileattachment from dual;
741: exception
742: when NO_DATA_FOUND then
743: null;
744: end;
747: --Adding Work Request
748: if p_work_request_flag =1 then
749: begin
750: for workrequest_record in workrequest_cursor(p_wip_entity_id(i),l_org_id) loop
751: select XMLConcat(l_xmlTypeWorkRequest,workrequest_record.WorkRequest) into l_xmlTypeWorkRequest from dual;
752: end loop;
753: select XMLELEMENT("WORKREQUEST_LIST",l_xmlTypeWorkRequest) into l_xmlTypeWorkRequest from dual;
754: exception
755: when NO_DATA_FOUND then
749: begin
750: for workrequest_record in workrequest_cursor(p_wip_entity_id(i),l_org_id) loop
751: select XMLConcat(l_xmlTypeWorkRequest,workrequest_record.WorkRequest) into l_xmlTypeWorkRequest from dual;
752: end loop;
753: select XMLELEMENT("WORKREQUEST_LIST",l_xmlTypeWorkRequest) into l_xmlTypeWorkRequest from dual;
754: exception
755: when NO_DATA_FOUND then
756: null;
757: end;
761: --Adding Meters
762: if p_meter_flag =1 then
763: begin
764: for meter_record in meter_cursor(p_wip_entity_id(i)) loop
765: select XMLConcat(l_xmlTypeMeter,meter_record.Meter) into l_xmlTypeMeter from dual;
766: end loop;
767: select XMLELEMENT("METER_LIST",l_xmlTypeMeter) into l_xmlTypeMeter from dual;
768: exception
769: when NO_DATA_FOUND then
763: begin
764: for meter_record in meter_cursor(p_wip_entity_id(i)) loop
765: select XMLConcat(l_xmlTypeMeter,meter_record.Meter) into l_xmlTypeMeter from dual;
766: end loop;
767: select XMLELEMENT("METER_LIST",l_xmlTypeMeter) into l_xmlTypeMeter from dual;
768: exception
769: when NO_DATA_FOUND then
770: null;
771: end;
800: null;
801: end;
802:
803: for qualityplan_record in qualityplan_cursor(p_quality_plan_flag,l_organization_id,l_wip_entity_name,l_asset_group,l_instance_number,l_serial_number,l_asset_activity) loop
804: select XMLConcat(l_xmlTypeQualityPlan,qualityplan_record.QualityPlan) into l_xmlTypeQualityPlan from dual;
805: select extractValue(l_xmlTypeQualityPlan,'/PLANID') into l_plan_id from dual;
806: l_xmlTemp2 := null;
807: for qplanelement_record in qplanelement_cursor(l_plan_id) loop
808: select qplanelement_record.QPlanElement into l_xmlTemp from dual;
801: end;
802:
803: for qualityplan_record in qualityplan_cursor(p_quality_plan_flag,l_organization_id,l_wip_entity_name,l_asset_group,l_instance_number,l_serial_number,l_asset_activity) loop
804: select XMLConcat(l_xmlTypeQualityPlan,qualityplan_record.QualityPlan) into l_xmlTypeQualityPlan from dual;
805: select extractValue(l_xmlTypeQualityPlan,'/PLANID') into l_plan_id from dual;
806: l_xmlTemp2 := null;
807: for qplanelement_record in qplanelement_cursor(l_plan_id) loop
808: select qplanelement_record.QPlanElement into l_xmlTemp from dual;
809: select XMLConcat(l_xmlTemp,xmlType('
805: select extractValue(l_xmlTypeQualityPlan,'/PLANID') into l_plan_id from dual;
806: l_xmlTemp2 := null;
807: for qplanelement_record in qplanelement_cursor(l_plan_id) loop
808: select qplanelement_record.QPlanElement into l_xmlTemp from dual;
809: select XMLConcat(l_xmlTemp,xmlType('
810: select XMLELEMENT("ELEMENT",l_xmlTemp) into l_xmlTemp from dual;
811: select XMLConcat(l_xmlTemp2,l_xmlTemp) into l_xmlTemp2 from dual;
812: end loop;
813: select XMLELEMENT("ELEMENT_LIST",l_xmlTemp2) into l_xmlTemp2 from dual;
810: select XMLELEMENT("ELEMENT",l_xmlTemp) into l_xmlTemp from dual;
811: select XMLConcat(l_xmlTemp2,l_xmlTemp) into l_xmlTemp2 from dual;
812: end loop;
813: select XMLELEMENT("ELEMENT_LIST",l_xmlTemp2) into l_xmlTemp2 from dual;
814: select XMLConcat(l_xmlTypeQualityPlan,l_xmlTemp2) into l_xmlTypeQualityPlan from dual;
815: select XMLELEMENT("QUALITYPLAN",l_xmlTypeQualityPlan) into l_xmlTypeQualityPlan from dual;
816: end loop;
817: select XMLELEMENT("QUALITYPLAN_LIST",l_xmlTypeQualityPlan) into l_xmlTypeQualityPlan from dual;
818:
811: select XMLConcat(l_xmlTemp2,l_xmlTemp) into l_xmlTemp2 from dual;
812: end loop;
813: select XMLELEMENT("ELEMENT_LIST",l_xmlTemp2) into l_xmlTemp2 from dual;
814: select XMLConcat(l_xmlTypeQualityPlan,l_xmlTemp2) into l_xmlTypeQualityPlan from dual;
815: select XMLELEMENT("QUALITYPLAN",l_xmlTypeQualityPlan) into l_xmlTypeQualityPlan from dual;
816: end loop;
817: select XMLELEMENT("QUALITYPLAN_LIST",l_xmlTypeQualityPlan) into l_xmlTypeQualityPlan from dual;
818:
819: exception
813: select XMLELEMENT("ELEMENT_LIST",l_xmlTemp2) into l_xmlTemp2 from dual;
814: select XMLConcat(l_xmlTypeQualityPlan,l_xmlTemp2) into l_xmlTypeQualityPlan from dual;
815: select XMLELEMENT("QUALITYPLAN",l_xmlTypeQualityPlan) into l_xmlTypeQualityPlan from dual;
816: end loop;
817: select XMLELEMENT("QUALITYPLAN_LIST",l_xmlTypeQualityPlan) into l_xmlTypeQualityPlan from dual;
818:
819: exception
820: when NO_DATA_FOUND then
821: null;
825: --Adding Asset BOM
826: if p_asset_bom_flag =1 then
827: begin
828: for assetbom_record in assetbom_cursor(p_wip_entity_id(i)) loop
829: select XMLConcat(l_xmlTypeAssetBom,assetbom_record.AssetBom) into l_xmlTypeAssetBom from dual;
830: end loop;
831: select XMLELEMENT("ASSETBOM_LIST",l_xmlTypeAssetBom) into l_xmlTypeAssetBom from dual;
832: exception
833: when NO_DATA_FOUND then
827: begin
828: for assetbom_record in assetbom_cursor(p_wip_entity_id(i)) loop
829: select XMLConcat(l_xmlTypeAssetBom,assetbom_record.AssetBom) into l_xmlTypeAssetBom from dual;
830: end loop;
831: select XMLELEMENT("ASSETBOM_LIST",l_xmlTypeAssetBom) into l_xmlTypeAssetBom from dual;
832: exception
833: when NO_DATA_FOUND then
834: null;
835: end;
840: if l_asset_route_flag = 'Y' then
841: begin
842:
843: for asset_route_record in assetroutecomp_cursor(l_serial_number,l_inventory_id) loop
844: select XMLConcat(l_xmlTypeAssetroutecomp,asset_route_record.AssetRoutecomp) into l_xmlTypeAssetroutecomp from dual;
845: end loop;
846: select XMLELEMENT("ASSETROUTECOMP_LIST",l_xmlTypeAssetroutecomp) into l_xmlTypeAssetroutecomp from dual;
847: exception
848: when NO_DATA_FOUND then
842:
843: for asset_route_record in assetroutecomp_cursor(l_serial_number,l_inventory_id) loop
844: select XMLConcat(l_xmlTypeAssetroutecomp,asset_route_record.AssetRoutecomp) into l_xmlTypeAssetroutecomp from dual;
845: end loop;
846: select XMLELEMENT("ASSETROUTECOMP_LIST",l_xmlTypeAssetroutecomp) into l_xmlTypeAssetroutecomp from dual;
847: exception
848: when NO_DATA_FOUND then
849: null;
850: end;
858: eafc.failure_code as "FAILURECODE",
859: eafc.cause_code as "CAUSECODE",
860: eafc.resolution_code as "RESOLUTIONCODE",
861: efs.set_name as "SETNAME",
862: eafc.comments as "COMMENTS")) into l_xmlTypeFailureData
863: from eam_asset_failures eaf,
864: eam_asset_failure_codes eafc,
865: eam_work_order_details ewod,
866: wip_discrete_jobs wdj,
949: when NO_DATA_FOUND then
950: null;
951: end;
952:
953: select XMLConcat(l_xmlType,
954: XMLELEMENT("WORKORDER",XMLATTRIBUTES(wewdv.wip_entity_id as "WIPENTITYID"),
955: XMLFOREST(wewdv.wip_entity_name as "NAME",
956: wewdv.description as "DESCRIPTION",
957: wewdv.work_order_status as "STATUS",
988: round((wewdv.scheduled_completion_date-wewdv.scheduled_start_date)*24,2) as "SCHEDULEDDURATION",
989: eps.name as "PMNAME",
990: fnd_date.date_to_displayDT(Convert_to_client_time(eps.base_date)) as "BASEDATE",
991: bd.description as "DEPTDESCRIPTION"),
992: XMLConcat(l_xmlTemp3,l_xmlTypeFailureData,l_xmlType1,l_xmlTypeOperation,l_xmlTypeMaterial,l_xmlTypeResource,l_xmlTypeDirectMaterial,l_xmlTypeShortAttachment,
993: l_xmlTypeLongAttachment,l_xmlTypefileattachment,l_xmlTypeWorkRequest,l_xmlTypeMeter,l_xmlTypeQualityPlan,l_xmlTypeAssetBom,l_xmlTypeAssetroutecomp))) AS "RESULT" into l_xmlType
994: from eam_work_orders_v wewdv ,mtl_system_items_b_kfv msi,eam_pm_schedulings eps,bom_departments bd,mfg_lookups lu1,mfg_lookups lu2
995: ,fnd_common_lookups flm1,fnd_common_lookups flm2,fnd_common_lookups flm3,fnd_common_lookups flm4 ,fnd_common_lookups flm5
996: where wewdv.wip_entity_id=p_wip_entity_id(i)
989: eps.name as "PMNAME",
990: fnd_date.date_to_displayDT(Convert_to_client_time(eps.base_date)) as "BASEDATE",
991: bd.description as "DEPTDESCRIPTION"),
992: XMLConcat(l_xmlTemp3,l_xmlTypeFailureData,l_xmlType1,l_xmlTypeOperation,l_xmlTypeMaterial,l_xmlTypeResource,l_xmlTypeDirectMaterial,l_xmlTypeShortAttachment,
993: l_xmlTypeLongAttachment,l_xmlTypefileattachment,l_xmlTypeWorkRequest,l_xmlTypeMeter,l_xmlTypeQualityPlan,l_xmlTypeAssetBom,l_xmlTypeAssetroutecomp))) AS "RESULT" into l_xmlType
994: from eam_work_orders_v wewdv ,mtl_system_items_b_kfv msi,eam_pm_schedulings eps,bom_departments bd,mfg_lookups lu1,mfg_lookups lu2
995: ,fnd_common_lookups flm1,fnd_common_lookups flm2,fnd_common_lookups flm3,fnd_common_lookups flm4 ,fnd_common_lookups flm5
996: where wewdv.wip_entity_id=p_wip_entity_id(i)
997: and msi.inventory_item_id(+)= wewdv.primary_item_id
1012: and flm4.lookup_code(+)=wewdv.notification_required
1013: and flm5.lookup_type(+) = 'EAM_YES_NO'
1014: and flm5.lookup_code(+)=wewdv.plan_maintenance;
1015:
1016: l_xmlTypeOperation:=null;
1017: l_xmlTypeMaterial:=null;
1018: l_xmlTypeResource:=null;
1019: l_xmlTypeEmployee:=null;
1020: l_xmlTypeDirectMaterial:=null;
1013: and flm5.lookup_type(+) = 'EAM_YES_NO'
1014: and flm5.lookup_code(+)=wewdv.plan_maintenance;
1015:
1016: l_xmlTypeOperation:=null;
1017: l_xmlTypeMaterial:=null;
1018: l_xmlTypeResource:=null;
1019: l_xmlTypeEmployee:=null;
1020: l_xmlTypeDirectMaterial:=null;
1021: l_xmlTypeShortAttachment:=null;
1014: and flm5.lookup_code(+)=wewdv.plan_maintenance;
1015:
1016: l_xmlTypeOperation:=null;
1017: l_xmlTypeMaterial:=null;
1018: l_xmlTypeResource:=null;
1019: l_xmlTypeEmployee:=null;
1020: l_xmlTypeDirectMaterial:=null;
1021: l_xmlTypeShortAttachment:=null;
1022: l_xmlTypeOpShortAttachment:=null;
1015:
1016: l_xmlTypeOperation:=null;
1017: l_xmlTypeMaterial:=null;
1018: l_xmlTypeResource:=null;
1019: l_xmlTypeEmployee:=null;
1020: l_xmlTypeDirectMaterial:=null;
1021: l_xmlTypeShortAttachment:=null;
1022: l_xmlTypeOpShortAttachment:=null;
1023: l_xmlTypeOpLongAttachment:=null;
1016: l_xmlTypeOperation:=null;
1017: l_xmlTypeMaterial:=null;
1018: l_xmlTypeResource:=null;
1019: l_xmlTypeEmployee:=null;
1020: l_xmlTypeDirectMaterial:=null;
1021: l_xmlTypeShortAttachment:=null;
1022: l_xmlTypeOpShortAttachment:=null;
1023: l_xmlTypeOpLongAttachment:=null;
1024: l_xmlTypeLongAttachment:=null;
1017: l_xmlTypeMaterial:=null;
1018: l_xmlTypeResource:=null;
1019: l_xmlTypeEmployee:=null;
1020: l_xmlTypeDirectMaterial:=null;
1021: l_xmlTypeShortAttachment:=null;
1022: l_xmlTypeOpShortAttachment:=null;
1023: l_xmlTypeOpLongAttachment:=null;
1024: l_xmlTypeLongAttachment:=null;
1025: l_xmlTypefileattachment:=null;
1018: l_xmlTypeResource:=null;
1019: l_xmlTypeEmployee:=null;
1020: l_xmlTypeDirectMaterial:=null;
1021: l_xmlTypeShortAttachment:=null;
1022: l_xmlTypeOpShortAttachment:=null;
1023: l_xmlTypeOpLongAttachment:=null;
1024: l_xmlTypeLongAttachment:=null;
1025: l_xmlTypefileattachment:=null;
1026: l_xmlTypeWorkRequest:=null;
1019: l_xmlTypeEmployee:=null;
1020: l_xmlTypeDirectMaterial:=null;
1021: l_xmlTypeShortAttachment:=null;
1022: l_xmlTypeOpShortAttachment:=null;
1023: l_xmlTypeOpLongAttachment:=null;
1024: l_xmlTypeLongAttachment:=null;
1025: l_xmlTypefileattachment:=null;
1026: l_xmlTypeWorkRequest:=null;
1027: l_xmlTypeMeter:=null;
1020: l_xmlTypeDirectMaterial:=null;
1021: l_xmlTypeShortAttachment:=null;
1022: l_xmlTypeOpShortAttachment:=null;
1023: l_xmlTypeOpLongAttachment:=null;
1024: l_xmlTypeLongAttachment:=null;
1025: l_xmlTypefileattachment:=null;
1026: l_xmlTypeWorkRequest:=null;
1027: l_xmlTypeMeter:=null;
1028: l_xmlTypeQualityPlan:=null;
1021: l_xmlTypeShortAttachment:=null;
1022: l_xmlTypeOpShortAttachment:=null;
1023: l_xmlTypeOpLongAttachment:=null;
1024: l_xmlTypeLongAttachment:=null;
1025: l_xmlTypefileattachment:=null;
1026: l_xmlTypeWorkRequest:=null;
1027: l_xmlTypeMeter:=null;
1028: l_xmlTypeQualityPlan:=null;
1029: l_xmlTypeAssetBom:=null;
1022: l_xmlTypeOpShortAttachment:=null;
1023: l_xmlTypeOpLongAttachment:=null;
1024: l_xmlTypeLongAttachment:=null;
1025: l_xmlTypefileattachment:=null;
1026: l_xmlTypeWorkRequest:=null;
1027: l_xmlTypeMeter:=null;
1028: l_xmlTypeQualityPlan:=null;
1029: l_xmlTypeAssetBom:=null;
1030: l_xmlTypeFailureData:=null;
1023: l_xmlTypeOpLongAttachment:=null;
1024: l_xmlTypeLongAttachment:=null;
1025: l_xmlTypefileattachment:=null;
1026: l_xmlTypeWorkRequest:=null;
1027: l_xmlTypeMeter:=null;
1028: l_xmlTypeQualityPlan:=null;
1029: l_xmlTypeAssetBom:=null;
1030: l_xmlTypeFailureData:=null;
1031: l_xmlTemp3:=null;
1024: l_xmlTypeLongAttachment:=null;
1025: l_xmlTypefileattachment:=null;
1026: l_xmlTypeWorkRequest:=null;
1027: l_xmlTypeMeter:=null;
1028: l_xmlTypeQualityPlan:=null;
1029: l_xmlTypeAssetBom:=null;
1030: l_xmlTypeFailureData:=null;
1031: l_xmlTemp3:=null;
1032: l_xmlTypeAssetroutecomp:=null;
1025: l_xmlTypefileattachment:=null;
1026: l_xmlTypeWorkRequest:=null;
1027: l_xmlTypeMeter:=null;
1028: l_xmlTypeQualityPlan:=null;
1029: l_xmlTypeAssetBom:=null;
1030: l_xmlTypeFailureData:=null;
1031: l_xmlTemp3:=null;
1032: l_xmlTypeAssetroutecomp:=null;
1033: end loop;
1026: l_xmlTypeWorkRequest:=null;
1027: l_xmlTypeMeter:=null;
1028: l_xmlTypeQualityPlan:=null;
1029: l_xmlTypeAssetBom:=null;
1030: l_xmlTypeFailureData:=null;
1031: l_xmlTemp3:=null;
1032: l_xmlTypeAssetroutecomp:=null;
1033: end loop;
1034:
1028: l_xmlTypeQualityPlan:=null;
1029: l_xmlTypeAssetBom:=null;
1030: l_xmlTypeFailureData:=null;
1031: l_xmlTemp3:=null;
1032: l_xmlTypeAssetroutecomp:=null;
1033: end loop;
1034:
1035: select XMLELEMENT("WORKORDER_LIST", l_xmlType) into l_xmlType from dual;
1036:
1031: l_xmlTemp3:=null;
1032: l_xmlTypeAssetroutecomp:=null;
1033: end loop;
1034:
1035: select XMLELEMENT("WORKORDER_LIST", l_xmlType) into l_xmlType from dual;
1036:
1037: return l_xmlType.getClobVal();
1038: -- End of API body.
1039:
1033: end loop;
1034:
1035: select XMLELEMENT("WORKORDER_LIST", l_xmlType) into l_xmlType from dual;
1036:
1037: return l_xmlType.getClobVal();
1038: -- End of API body.
1039:
1040:
1041: END getWoReportXML;