[Home] [Help]
31: --| for bug# 3678706. |
32: --| 18/08/2004 aujain Modified size of variables retreiving FND Messages |
33: --| for Bug 3838706. |
34: --| 12/04/2004 shpandey Added a function Get_Err_Wip_Acc_Classes for |
35: --| supporting Wip Accounting Classes entity for R12 |
36: --| also modified procedure Validate_Locs for |
37: --| supporting report if model org does not have |
38: --| location attached to it. bug#4111958 |
39: --| 11/08/2005 nesoni Modified for bug #3575494 |
849: g_entity_names(g_entity_idx):=l_model_org_count;
850: Put_Report_Data;
851:
852: /*-----------------------------------
853: ---- WIP Accounting Classes -------
854: -----------------------------------*/
855: Init_Vars('WIP_ACCOUNTING_CLASSES');
856: g_entity_names := Get_Err_Wip_Acc_Classes;
857: Put_Report_Data;
851:
852: /*-----------------------------------
853: ---- WIP Accounting Classes -------
854: -----------------------------------*/
855: Init_Vars('WIP_ACCOUNTING_CLASSES');
856: g_entity_names := Get_Err_Wip_Acc_Classes;
857: Put_Report_Data;
858:
859: /*-----------------------------------
4424:
4425: --=============================================================================
4426: -- FUNCTION NAME : Get_Err_Wip_Acc_Classes
4427: -- PRE-CONDITIONS: None.
4428: -- DESCRIPTION : Validate Wip Accounting classes created for new org against
4429: -- those in model org.
4430: -- PARAMETERS : None.
4431: -- EXCEPTIONS : None.
4432: -- shpandey, added the function below for R12 development.
4435: IS
4436: l_api_name VARCHAR2(100):= ' Get_Err_Wip_Acc_Classes ';
4437: l_entity_arr_idx NUMBER := 1;
4438: l_entity_names Char_Array := Char_Array();
4439: --l_entity_type VARCHAR2(100):= ' WIP Accounting Classes ';
4440: l_class_code VARCHAR2(10);
4441: l_model_org_count NUMBER;
4442: l_new_org_count NUMBER:=0;
4443:
4445: , p_organization_id NUMBER
4446: )
4447: IS
4448: SELECT wac1.class_code
4449: FROM wip_accounting_classes wac1
4450: WHERE wac1.organization_id = p_model_org_id
4451: AND NOT EXISTS
4452: ( SELECT 'x'
4453: FROM wip_accounting_classes wac2
4449: FROM wip_accounting_classes wac1
4450: WHERE wac1.organization_id = p_model_org_id
4451: AND NOT EXISTS
4452: ( SELECT 'x'
4453: FROM wip_accounting_classes wac2
4454: WHERE wac2.organization_id = p_organization_id
4455: AND wac1.class_code = wac2.class_code
4456: );
4457:
4457:
4458: CURSOR l_cnt_csr ( p_org_id NUMBER )
4459: IS
4460: SELECT COUNT(wac.class_code)
4461: FROM wip_accounting_classes wac
4462: WHERE wac.organization_id = p_org_id;
4463:
4464: BEGIN
4465: