[Home] [Help]
1: PACKAGE BODY HZ_MO_GLOBAL_CACHE as
2: /*$Header: ARHMOGCB.pls 120.8 2006/04/17 22:54:56 dmmehta noship $ */
3:
4: ---------------------------------------------
5: -- declaration of private global variables.
4: ---------------------------------------------
5: -- declaration of private global variables.
6: ---------------------------------------------
7:
8: TYPE G_Cache_Type IS TABLE OF HZ_MO_GLOBAL_CACHE.GlobalsRecord
9: INDEX BY BINARY_INTEGER;
10:
11: G_Cache G_Cache_Type;
12:
9: INDEX BY BINARY_INTEGER;
10:
11: G_Cache G_Cache_Type;
12:
13: G_Cust_Gen_Cache HZ_MO_GLOBAL_CACHE.cust_num_gen_rec;
14:
15: --logging related
16: MOD_PKG VARCHAR2(30) := 'hz.plsql.HZ_MO_GLOBAL_CACHE';
17: MOD_validate_orgid_pub_api VARCHAR2(50) := MOD_PKG || '.validate_orgid_pub_api';
12:
13: G_Cust_Gen_Cache HZ_MO_GLOBAL_CACHE.cust_num_gen_rec;
14:
15: --logging related
16: MOD_PKG VARCHAR2(30) := 'hz.plsql.HZ_MO_GLOBAL_CACHE';
17: MOD_validate_orgid_pub_api VARCHAR2(50) := MOD_PKG || '.validate_orgid_pub_api';
18:
19:
20: --------------------------------------
54:
55: PROCEDURE populate
56: IS
57: i PLS_INTEGER;
58: l_gt HZ_MO_GLOBAL_CACHE.GlobalsTable;
59: BEGIN
60: G_Cache.DELETE;
61: retrieve_globals(l_gt);
62:
173:
174: FUNCTION get_org_attributes (
175: p_org_id IN NUMBER
176: )
177: RETURN hz_mo_global_cache.GlobalsRecord
178: IS
179: BEGIN
180: IF G_Cache.exists(p_org_id) THEN
181: Return(G_Cache(p_org_id));
224: p_org_id IN NUMBER
225: )
226: RETURN varchar2
227: IS
228: L_Param_Rec HZ_MO_GLOBAL_CACHE.GlobalsRecord;
229:
230: BEGIN
231: L_Param_Rec := Get_Org_Attributes(p_org_id);
232: RETURN L_Param_Rec.auto_site_numbering;
261: p_org_id IN NUMBER
262: )
263: RETURN varchar2
264: IS
265: L_Param_Rec HZ_MO_GLOBAL_CACHE.GlobalsRecord;
266:
267: BEGIN
268: L_Param_Rec := get_Org_Attributes(p_org_id);
269: RETURN L_Param_Rec.Default_country;
273: p_org_id IN NUMBER
274: )
275: RETURN number
276: IS
277: L_Param_Rec HZ_MO_GLOBAL_CACHE.GlobalsRecord;
278: BEGIN
279: L_Param_Rec := get_Org_Attributes(p_org_id);
280: RETURN L_Param_Rec.Location_structure_ID;
281: END;
283: p_org_id IN NUMBER
284: )
285: RETURN varchar2
286: IS
287: L_Param_Rec HZ_MO_GLOBAL_CACHE.GlobalsRecord;
288: BEGIN
289: L_Param_Rec := get_Org_Attributes(p_org_id);
290: RETURN L_Param_Rec.Tax_method;
291: END;
319: p_org_id IN NUMBER
320: )
321: RETURN number
322: IS
323: L_Param_Rec HZ_MO_GLOBAL_CACHE.GlobalsRecord;
324:
325: BEGIN
326: L_Param_Rec := get_Org_Attributes(p_org_id);
327: RETURN L_Param_Rec.chart_of_accounts_id;
356: p_org_id IN NUMBER
357: )
358: RETURN number
359: IS
360: L_Param_Rec HZ_MO_GLOBAL_CACHE.GlobalsRecord;
361:
362: BEGIN
363: L_Param_Rec := get_Org_Attributes(p_org_id);
364: RETURN L_Param_Rec.set_of_books_id;
466: --
467: BEGIN
468: BEGIN
469: -- Bug 5107334 : get current org_id, if NULL, get default org_id
470: L_org_id := nvl(mo_global.get_current_org_id, mo_utils.get_default_org_id);
471: EXCEPTION
472: WHEN OTHERS
473: THEN
474: RAISE FND_API.G_EXC_ERROR;
520:
521: FUNCTION get_address_validation( p_org_id IN NUMBER )
522: RETURN varchar2
523: IS
524: L_Param_Rec HZ_MO_GLOBAL_CACHE.GlobalsRecord;
525: BEGIN
526: L_Param_Rec := get_org_Attributes(p_org_id);
527: RETURN L_Param_Rec.Address_Val;
528:
532: /**
533: * PROCEDURE validate_orgid_pub_api
534: *
535: * DESCRIPTION
536: * Wrapper around MO_GLOBAL.validate_orgid_pub_api
537: * Extra functionality -
538: * IF passed ORG_ID is null
539: * + no default org_id based on profile was found by MO_GLOBAL
540: * {
535: * DESCRIPTION
536: * Wrapper around MO_GLOBAL.validate_orgid_pub_api
537: * Extra functionality -
538: * IF passed ORG_ID is null
539: * + no default org_id based on profile was found by MO_GLOBAL
540: * {
541: * IF security settings allow user access to set of OUs
542: * RETURN one OU from that set and set STATUS = 'R' (random)
543: * ELSE
540: * {
541: * IF security settings allow user access to set of OUs
542: * RETURN one OU from that set and set STATUS = 'R' (random)
543: * ELSE
544: * Allow default behavior. Bubble up MO_GLOBAL raised exception
545: * }
546: *
547: * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
548: *
582: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ORG_ID='||ORG_ID);
583: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ERROR_MESG_SUPPR='||ERROR_MESG_SUPPR);
584: END IF;
585:
586: --call mo_global api
587: MO_GLOBAL.validate_orgid_pub_api(
588: ORG_ID,
589: ERROR_MESG_SUPPR,
590: STATUS);
583: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'ERROR_MESG_SUPPR='||ERROR_MESG_SUPPR);
584: END IF;
585:
586: --call mo_global api
587: MO_GLOBAL.validate_orgid_pub_api(
588: ORG_ID,
589: ERROR_MESG_SUPPR,
590: STATUS);
591:
589: ERROR_MESG_SUPPR,
590: STATUS);
591:
592: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
593: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'successfully executed MO_GLOBAL.validate_orgid_pub_api()');
594: END IF;
595:
596:
597: --process output
615: FROM
616: hr_operating_units hr,
617: ar_system_parameters s
618: WHERE
619: mo_global.check_access(hr.organization_id) = 'Y'
620: AND hr.organization_id = s.org_id
621: AND s.set_of_books_id > 0
622: AND rownum < 2;
623:
634: EXCEPTION
635: WHEN no_data_found THEN
636:
637: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
638: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'caught exception no_data_found in sql=SELECT hr.organization_id,hr.name FROM hr_operating_units hr WHERE mo_global.check_access(hr.organization_id) = "Y" AND rownum < 2');
639: END IF;
640:
641: --if an org is still not available let default behavior persist
642:
662:
663: WHEN others THEN
664:
665: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
666: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'caught exception in MO_GLOBAL.validate_orgid_pub_api()');
667: END IF;
668:
669: --note there is similar handling in main block of this api to handle case ERROR_MESG_SUPPR = "N'
670: IF ORG_ID is null THEN
684: FROM
685: hr_operating_units hr,
686: ar_system_parameters s
687: WHERE
688: mo_global.check_access(hr.organization_id) = 'Y'
689: AND hr.organization_id = s.org_id
690: AND s.set_of_books_id > 0
691: AND rownum < 2;
692:
724: EXCEPTION
725: WHEN no_data_found THEN
726:
727: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
728: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,MOD_validate_orgid_pub_api,'caught exception no_data_found in sql=SELECT hr.organization_id,hr.name FROM hr_operating_units hr WHERE mo_global.check_access(hr.organization_id) = "Y" AND rownum < 2');
729: END IF;
730:
731: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
732: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,MOD_validate_orgid_pub_api,'ERROR: raising APP_EXCEPTION.RAISE_EXCEPTION');
784: p_org_id IN NUMBER
785: )
786: RETURN varchar2
787: IS
788: L_Param_Rec HZ_MO_GLOBAL_CACHE.GlobalsRecord;
789:
790: BEGIN
791: L_Param_Rec := get_Org_Attributes(p_org_id);
792: RETURN L_Param_Rec.reciprocal_flag;
824: l_return_status VARCHAR2(2000);
825: --
826: BEGIN
827: BEGIN
828: L_org_id := nvl(mo_global.get_current_org_id, mo_utils.get_default_org_id);
829: EXCEPTION
830: WHEN OTHERS
831: THEN
832: NULL;
882: l_return_status VARCHAR2(2000);
883: --
884: BEGIN
885: BEGIN
886: L_org_id := nvl(mo_global.get_current_org_id, mo_utils.get_default_org_id);
887: EXCEPTION
888: WHEN OTHERS
889: THEN
890: NULL;
909: RAISE;
910:
911: END get_default_grouping_rule_id;
912:
913: END HZ_MO_GLOBAL_CACHE;
914: