[Home] [Help]
10: type t_wa is table of varchar2(2000) index by binary_integer;
11: type t_waf is table of boolean index by binary_integer;
12:
13: -- the context hash. these are all the real initialized name/values we track.
14: z_context fnd_const.t_hashtable;
15: z_context_names t_wa;
16: z_context_values t_wa;
17:
18: -- the backup context hash. see restore.
15: z_context_names t_wa;
16: z_context_values t_wa;
17:
18: -- the backup context hash. see restore.
19: z_backup fnd_const.t_hashtable;
20: z_backup_names t_wa;
21: z_backup_values t_wa;
22:
23: -- initialization hash.
40: z_syscontext_values t_waf;
41:
42: -- a map for fnd_product_initialization
43: -- @todo deprecated?
44: z_conditions_map fnd_const.t_hashtable;
45: z_conditions_names t_wa;
46: z_conditions_values t_wa;
47:
48: --
107: begin
108:
109: debug_to_core := fnd_core_log.enabled <> 'N';
110:
111: dest := upper(sys_context(FND_CONST.FND,'FND_GLOBAL_DEBUG_LOGGING'));
112: debug_to_console := dest like '%CONSOLE%';
113: debug_to_table := dest like '%TABLE%';
114:
115: -- enables debug output if a destination is enabled.
204: -- ascii_chr - chr number in US7ASCII
205: --
206: function local_chr(ascii_chr in number) return varchar2 is
207: begin
208: return fnd_const.local_chr(ascii_chr);
209: end local_chr;
210:
211:
212: function newline return varchar2 is begin return fnd_const.newline; end;
208: return fnd_const.local_chr(ascii_chr);
209: end local_chr;
210:
211:
212: function newline return varchar2 is begin return fnd_const.newline; end;
213: function tab return varchar2 is begin return fnd_const.tab; end;
214:
215: --
216: -- log (Internal)
209: end local_chr;
210:
211:
212: function newline return varchar2 is begin return fnd_const.newline; end;
213: function tab return varchar2 is begin return fnd_const.tab; end;
214:
215: --
216: -- log (Internal)
217: --
225: debugger('ROUTINE:'||routine);
226: debugger('ERRNO:'||errcode);
227: debugger('REASON:'||errmsg);
228: end if;
229: fnd_message.set_name(FND_CONST.FND, 'SQL_PLSQL_ERROR');
230: fnd_message.set_token('ROUTINE', routine);
231: fnd_message.set_token('ERRNO', errcode);
232: fnd_message.set_token('REASON', errmsg);
233: end;
283: return nvl(to_number(get(name)),def);
284: end get_i;
285:
286: -- get an integer value from z_context
287: -- returns FND_CONST.UNDEFINED_I if null.
288: -- will throw value_error if not a number.
289: function get_i(name varchar2) return number
290: as
291: begin
288: -- will throw value_error if not a number.
289: function get_i(name varchar2) return number
290: as
291: begin
292: return get_i(name,FND_CONST.UNDEFINED_I);
293: end get_i;
294:
295: -- determines if a value is defined, not -1 nor null.
296: function is_defined(name varchar2) return boolean
295: -- determines if a value is defined, not -1 nor null.
296: function is_defined(name varchar2) return boolean
297: as
298: begin
299: return nvl(get(name),FND_CONST.UNDEFINED_S) <> FND_CONST.UNDEFINED_S;
300: end is_defined;
301:
302: -- determines if a value is undefined, -1 or null.
303: function is_undefined(name varchar2) return boolean
418: if is_debugging then
419: debugger('. fnd_context.init');
420: end if;
421:
422: fnd_context.init(FND_CONST.FND, name, value);
423: end if;
424:
425: return true;
426:
471: -- set the default integer value in z_context
472: procedure put_i(name varchar2)
473: as
474: begin
475: put(name,FND_CONST.UNDEFINED_S);
476: end put_i;
477:
478: -- set a value to -1.
479: procedure set_undefined(name varchar2)
479: procedure set_undefined(name varchar2)
480: as
481: begin
482: --debugger('undefining '||name);
483: put(name,FND_CONST.UNDEFINED_S);
484: end set_undefined;
485:
486: -- set a value on z_context from a profile value
487: -- if name isn't already defined
513:
514: if resp_context_change
515: or appl_context_change
516: then
517: clear(FND_CONST.APPLICATION_NAME);
518: clear(FND_CONST.RESP_NAME);
519: end if;
520:
521: end if;
514: if resp_context_change
515: or appl_context_change
516: then
517: clear(FND_CONST.APPLICATION_NAME);
518: clear(FND_CONST.RESP_NAME);
519: end if;
520:
521: end if;
522:
558: end if;
559:
560: -- no caching of APPLICATION_NAME
561: -- to avoid changing pragma in spec
562: --buffer := get(FND_CONST.APPLICATION_NAME);
563: --if buffer is null then
564:
565: -- Re-query every time in case of language change --
566: select a.application_name
569: where a.application_id = v_raid;
570:
571: -- no caching of APPLICATION_NAME
572: -- to avoid changing pragma in spec
573: --put_nosys(FND_CONST.APPLICATION_NAME,buffer);
574: --end if;
575:
576: return buffer;
577: exception
581:
582: -- APPLICATION_SHORT_NAME -
583: function application_short_name return varchar2 is
584: begin
585: return get(FND_CONST.APPLICATION_SHORT_NAME);
586: end application_short_name;
587:
588: -- BASE_LANGUAGE -
589: function base_language return varchar2 is
586: end application_short_name;
587:
588: -- BASE_LANGUAGE -
589: function base_language return varchar2 is
590: buffer fnd_languages.language_code%type := get(FND_CONST.BASE_LANGUAGE);
591: begin
592: if buffer is null then
593:
594: select language_code
595: into buffer
596: from fnd_languages
597: where installed_flag = 'B';
598:
599: put_nosys(FND_CONST.BASE_LANGUAGE,buffer);
600: end if;
601: return buffer;
602: exception
603: when no_data_found then
606:
607: -- CONC_LOGIN_ID -
608: function conc_login_id return number is
609: begin
610: return get_i(FND_CONST.CONC_LOGIN_ID);
611: end conc_login_id;
612:
613: -- CONC_PRIORITY_REQUEST -
614: function conc_priority_request return number is
612:
613: -- CONC_PRIORITY_REQUEST -
614: function conc_priority_request return number is
615: begin
616: return get_i(FND_CONST.CONC_PRIORITY_REQUEST,null);
617: end conc_priority_request;
618:
619: -- CONC_PROGRAM_ID -
620: function conc_program_id return number is
618:
619: -- CONC_PROGRAM_ID -
620: function conc_program_id return number is
621: begin
622: return get_i(FND_CONST.CONC_PROGRAM_ID);
623: end conc_program_id;
624:
625: -- CONC_PROCESS_ID -
626: function conc_process_id return number is
624:
625: -- CONC_PROCESS_ID -
626: function conc_process_id return number is
627: begin
628: return get_i(FND_CONST.CONC_PROCESS_ID);
629: end conc_process_id;
630:
631: -- CONC_QUEUE_ID -
632: function conc_queue_id return number is
630:
631: -- CONC_QUEUE_ID -
632: function conc_queue_id return number is
633: begin
634: return get_i(FND_CONST.CONC_QUEUE_ID);
635: end conc_queue_id;
636:
637: -- CONC_REQUEST_ID -
638: function conc_request_id return number is
636:
637: -- CONC_REQUEST_ID -
638: function conc_request_id return number is
639: begin
640: return get_i(FND_CONST.CONC_REQUEST_ID);
641: end conc_request_id;
642:
643: -- CURRENT_LANGUAGE -
644: function current_language return varchar2 is
648:
649: -- CUSTOMER_ID -
650: function customer_id return number is
651: begin
652: return get_i(FND_CONST.CUSTOMER_ID);
653: end customer_id;
654:
655: -- EMPLOYEE_ID -
656: function employee_id return number is
654:
655: -- EMPLOYEE_ID -
656: function employee_id return number is
657: begin
658: return get_i(FND_CONST.EMPLOYEE_ID);
659: end employee_id;
660:
661: -- FORM_ID -
662: function form_id return number is
660:
661: -- FORM_ID -
662: function form_id return number is
663: begin
664: return get_i(FND_CONST.FORM_ID);
665: end form_id;
666:
667: -- FORM_APPL_ID -
668: function form_appl_id return number is
666:
667: -- FORM_APPL_ID -
668: function form_appl_id return number is
669: begin
670: return get_i(FND_CONST.FORM_APPL_ID);
671: end form_appl_id;
672:
673: -- LANGUAGE_COUNT -
674: function language_count return number is
671: end form_appl_id;
672:
673: -- LANGUAGE_COUNT -
674: function language_count return number is
675: buffer number := get_i(FND_CONST.LANGUAGE_COUNT,null);
676: begin
677: if buffer is null then
678:
679: select count(1)
680: into buffer
681: from fnd_languages
682: where installed_flag in ('I', 'B');
683:
684: put_nosys(FND_CONST.LANGUAGE_COUNT,to_char(buffer));
685: end if;
686: return buffer;
687: exception
688: when no_data_found then
691:
692: -- LOGIN_ID -
693: function login_id return number is
694: begin
695: return get_i(FND_CONST.LOGIN_ID);
696: end login_id;
697:
698: -- ORG_ID -
699: function org_id return number is
697:
698: -- ORG_ID -
699: function org_id return number is
700: begin
701: return get_i(FND_CONST.ORG_ID);
702: end org_id;
703:
704: -- Fetches and caches ORG_NAME based on current ORG_ID
705: function org_name return varchar2 is
702: end org_id;
703:
704: -- Fetches and caches ORG_NAME based on current ORG_ID
705: function org_name return varchar2 is
706: v_org_name varchar2(2000) := get(FND_CONST.ORG_NAME);
707: v_org_id integer;
708: begin
709: if v_org_name is null then
710: v_org_id := org_id;
712: execute immediate 'select name
713: from hr_operating_units
714: where organization_id = :v_org_id'
715: into v_org_name using v_org_id;
716: put(FND_CONST.ORG_NAME,v_org_name);
717: end if;
718: end if;
719:
720: return(v_org_name);
719:
720: return(v_org_name);
721: exception
722: when others then
723: clear(FND_CONST.ORG_NAME);
724: return null;
725: end org_name;
726:
727: -- PARTY_ID -
726:
727: -- PARTY_ID -
728: function party_id return number is
729: begin
730: return get_i(FND_CONST.PARTY_ID);
731: end party_id;
732:
733: -- PER_BUSINESS_GROUP_ID -
734: function per_business_group_id return number is
732:
733: -- PER_BUSINESS_GROUP_ID -
734: function per_business_group_id return number is
735: begin
736: return get_i(FND_CONST.PER_BUSINESS_GROUP_ID);
737: end per_business_group_id;
738:
739: -- PER_SECURITY_PROFILE_ID -
740: function per_security_profile_id return number is
738:
739: -- PER_SECURITY_PROFILE_ID -
740: function per_security_profile_id return number is
741: begin
742: return get_i(FND_CONST.PER_SECURITY_PROFILE_ID);
743: end per_security_profile_id;
744:
745: -- PROG_APPL_ID -
746: function prog_appl_id return number is
744:
745: -- PROG_APPL_ID -
746: function prog_appl_id return number is
747: begin
748: return get_i(FND_CONST.PROG_APPL_ID);
749: end prog_appl_id;
750:
751: -- QUEUE_APPL_ID -
752: function queue_appl_id return number is
750:
751: -- QUEUE_APPL_ID -
752: function queue_appl_id return number is
753: begin
754: return get_i(FND_CONST.QUEUE_APPL_ID);
755: end queue_appl_id;
756:
757: -- RESP_APPL_ID - Return responsibility application id
758: function resp_appl_id return number is
756:
757: -- RESP_APPL_ID - Return responsibility application id
758: function resp_appl_id return number is
759: begin
760: return get_i(FND_CONST.RESP_APPL_ID);
761: end resp_appl_id;
762:
763: -- RESP_ID - Return responsibility id
764: function resp_id return number is
762:
763: -- RESP_ID - Return responsibility id
764: function resp_id return number is
765: begin
766: return get_i(FND_CONST.RESP_ID);
767: end resp_id;
768:
769: -- RESP_NAME -
770: function resp_name return varchar2 is
777: end if;
778:
779: -- no caching of RESP_NAME
780: -- to avoid changing pragma in spec
781: --buffer := get(FND_CONST.RESP_NAME);
782: --if buffer is null then
783:
784: -- Re-query every time in case of language change --
785: select r.responsibility_name
789: and r.application_id = v_raid;
790:
791: -- no caching of RESP_NAME
792: -- to avoid changing pragma in spec
793: --put_nosys(FND_CONST.RESP_NAME,buffer);
794: --end if;
795:
796: return buffer;
797: exception
797: exception
798: when no_data_found then
799: -- no caching of RESP_NAME
800: -- to avoid changing pragma in spec
801: --clear(FND_CONST.RESP_NAME);
802: return null;
803: end resp_name;
804:
805: -- RT_TEST_ID -
804:
805: -- RT_TEST_ID -
806: function rt_test_id return number is
807: begin
808: return get_i(FND_CONST.RT_TEST_ID);
809: end rt_test_id;
810:
811: -- SECURITY_GROUPS_ENABLED - Return true if security groups are enabled
812: function security_groups_enabled return boolean is
816:
817: -- SECURITY_GROUP_ID - Return security group id
818: function security_group_id return number is
819: begin
820: return get_i(FND_CONST.SECURITY_GROUP_ID,0);
821: end security_group_id;
822:
823: -- SECURITY_GROUP_ID_POLICY - Return security group id
824: function security_group_id_policy(d1 varchar2, d2 varchar2) return varchar2 is
822:
823: -- SECURITY_GROUP_ID_POLICY - Return security group id
824: function security_group_id_policy(d1 varchar2, d2 varchar2) return varchar2 is
825: begin
826: if is_undefined(FND_CONST.SECURITY_GROUP_ID) then
827: return null;
828: end if;
829: return '(security_group_id = SYS_CONTEXT(''FND'',''SECURITY_GROUP_ID''))';
830: end security_group_id_policy;
831:
832: -- SERVER_ID -
833: function server_id return number is
834: begin
835: return get_i(FND_CONST.SERVER_ID);
836: end server_id;
837:
838: -- SESSION_ID - Return responsibility id
839: function session_id return number is
837:
838: -- SESSION_ID - Return responsibility id
839: function session_id return number is
840: begin
841: return get_i(FND_CONST.SESSION_ID);
842: end session_id;
843:
844: -- SITE_ID -
845: function site_id return number is
843:
844: -- SITE_ID -
845: function site_id return number is
846: begin
847: return get_i(FND_CONST.SITE_ID);
848: end site_id;
849:
850: -- SUPPLIER_ID -
851: function supplier_id return number is
849:
850: -- SUPPLIER_ID -
851: function supplier_id return number is
852: begin
853: return get_i(FND_CONST.SUPPLIER_ID);
854: end supplier_id;
855:
856: -- USER_ID - Return user id
857: function user_id return number is
855:
856: -- USER_ID - Return user id
857: function user_id return number is
858: begin
859: return get_i(FND_CONST.USER_ID);
860: end user_id;
861:
862: -- USER_NAME -
863: function user_name return varchar2 is
861:
862: -- USER_NAME -
863: function user_name return varchar2 is
864: begin
865: return get(FND_CONST.USER_NAME);
866: end user_name;
867:
868:
869: -- NLS functions
868:
869: -- NLS functions
870: function nls_language return varchar2 is
871: begin
872: return get(FND_CONST.NLS_LANGUAGE);
873: end nls_language;
874:
875: function nls_numeric_characters return varchar2 is
876: begin
873: end nls_language;
874:
875: function nls_numeric_characters return varchar2 is
876: begin
877: return get(FND_CONST.NLS_NUMERIC_CHARACTERS);
878: end nls_numeric_characters;
879:
880: function nls_date_format return varchar2 is
881: begin
878: end nls_numeric_characters;
879:
880: function nls_date_format return varchar2 is
881: begin
882: return get(FND_CONST.NLS_DATE_FORMAT);
883: end;
884:
885: function nls_date_language return varchar2 is
886: begin
883: end;
884:
885: function nls_date_language return varchar2 is
886: begin
887: return get(FND_CONST.NLS_DATE_LANGUAGE);
888: end nls_date_language;
889:
890: function nls_territory return varchar2 is
891: begin
888: end nls_date_language;
889:
890: function nls_territory return varchar2 is
891: begin
892: return get(FND_CONST.NLS_TERRITORY);
893: end nls_territory;
894:
895: function nls_sort return varchar2 is
896: begin
893: end nls_territory;
894:
895: function nls_sort return varchar2 is
896: begin
897: return get(FND_CONST.NLS_SORT);
898: end nls_sort;
899:
900: -- Get Security Group Id from which to retrieve lookup type.
901: -- This will either be the current security group, or default to the
976: end if;
977: end assert_no_pool;
978:
979: --
980: procedure save_hash(p_hash in out nocopy fnd_const.t_hashtable,
981: p_names in out nocopy t_wa,
982: p_values in out nocopy t_wa) is
983: c integer;
984: p varchar2(2000);
994:
995: end save_hash;
996:
997: --
998: procedure restore_hash(p_hash in out nocopy fnd_const.t_hashtable,
999: p_names in out nocopy t_wa,
1000: p_values in out nocopy t_wa) is
1001: c integer;
1002: p varchar2(2000);
1098: -- to backport to 11.5, simply remove this condition.
1099: -- if fnd_release.major_version >= 12 then
1100:
1101: nul_dl := p_nls_date_language is null;
1102: new_dl := is_new(FND_CONST.NLS_DATE_LANGUAGE);
1103: new_df := is_new(FND_CONST.NLS_DATE_FORMAT);
1104: chg_dl := has_changed(FND_CONST.NLS_DATE_LANGUAGE,p_nls_date_language);
1105: mon_lk := nls_date_format like '%MON%';
1106: mm_lk := nls_date_format like '%MM%';
1099: -- if fnd_release.major_version >= 12 then
1100:
1101: nul_dl := p_nls_date_language is null;
1102: new_dl := is_new(FND_CONST.NLS_DATE_LANGUAGE);
1103: new_df := is_new(FND_CONST.NLS_DATE_FORMAT);
1104: chg_dl := has_changed(FND_CONST.NLS_DATE_LANGUAGE,p_nls_date_language);
1105: mon_lk := nls_date_format like '%MON%';
1106: mm_lk := nls_date_format like '%MM%';
1107:
1100:
1101: nul_dl := p_nls_date_language is null;
1102: new_dl := is_new(FND_CONST.NLS_DATE_LANGUAGE);
1103: new_df := is_new(FND_CONST.NLS_DATE_FORMAT);
1104: chg_dl := has_changed(FND_CONST.NLS_DATE_LANGUAGE,p_nls_date_language);
1105: mon_lk := nls_date_format like '%MON%';
1106: mm_lk := nls_date_format like '%MM%';
1107:
1108: if is_debugging then
1107:
1108: if is_debugging then
1109: debugger(dbms_utility.format_call_stack);
1110: debugger('? p_nls_date_language is null :'
1111: ||fnd_const.bool(nul_dl));
1112: debugger('? is_new(FND_CONST.NLS_DATE_LANGUAGE) :'
1113: ||fnd_const.bool(new_dl));
1114: debugger('? is_new(FND_CONST.NLS_DATE_FORMAT) :'
1115: ||fnd_const.bool(new_df));
1108: if is_debugging then
1109: debugger(dbms_utility.format_call_stack);
1110: debugger('? p_nls_date_language is null :'
1111: ||fnd_const.bool(nul_dl));
1112: debugger('? is_new(FND_CONST.NLS_DATE_LANGUAGE) :'
1113: ||fnd_const.bool(new_dl));
1114: debugger('? is_new(FND_CONST.NLS_DATE_FORMAT) :'
1115: ||fnd_const.bool(new_df));
1116: debugger('? has_changed(FND_CONST.NLS_DATE_LANGUAGE) :'
1109: debugger(dbms_utility.format_call_stack);
1110: debugger('? p_nls_date_language is null :'
1111: ||fnd_const.bool(nul_dl));
1112: debugger('? is_new(FND_CONST.NLS_DATE_LANGUAGE) :'
1113: ||fnd_const.bool(new_dl));
1114: debugger('? is_new(FND_CONST.NLS_DATE_FORMAT) :'
1115: ||fnd_const.bool(new_df));
1116: debugger('? has_changed(FND_CONST.NLS_DATE_LANGUAGE) :'
1117: ||fnd_const.bool(chg_dl));
1110: debugger('? p_nls_date_language is null :'
1111: ||fnd_const.bool(nul_dl));
1112: debugger('? is_new(FND_CONST.NLS_DATE_LANGUAGE) :'
1113: ||fnd_const.bool(new_dl));
1114: debugger('? is_new(FND_CONST.NLS_DATE_FORMAT) :'
1115: ||fnd_const.bool(new_df));
1116: debugger('? has_changed(FND_CONST.NLS_DATE_LANGUAGE) :'
1117: ||fnd_const.bool(chg_dl));
1118: debugger('?= nls_date_format like ''%MON%'' :'
1111: ||fnd_const.bool(nul_dl));
1112: debugger('? is_new(FND_CONST.NLS_DATE_LANGUAGE) :'
1113: ||fnd_const.bool(new_dl));
1114: debugger('? is_new(FND_CONST.NLS_DATE_FORMAT) :'
1115: ||fnd_const.bool(new_df));
1116: debugger('? has_changed(FND_CONST.NLS_DATE_LANGUAGE) :'
1117: ||fnd_const.bool(chg_dl));
1118: debugger('?= nls_date_format like ''%MON%'' :'
1119: ||fnd_const.bool(mon_lk));
1112: debugger('? is_new(FND_CONST.NLS_DATE_LANGUAGE) :'
1113: ||fnd_const.bool(new_dl));
1114: debugger('? is_new(FND_CONST.NLS_DATE_FORMAT) :'
1115: ||fnd_const.bool(new_df));
1116: debugger('? has_changed(FND_CONST.NLS_DATE_LANGUAGE) :'
1117: ||fnd_const.bool(chg_dl));
1118: debugger('?= nls_date_format like ''%MON%'' :'
1119: ||fnd_const.bool(mon_lk));
1120: debugger('?= nls_date_format like ''%MM%'' :'
1113: ||fnd_const.bool(new_dl));
1114: debugger('? is_new(FND_CONST.NLS_DATE_FORMAT) :'
1115: ||fnd_const.bool(new_df));
1116: debugger('? has_changed(FND_CONST.NLS_DATE_LANGUAGE) :'
1117: ||fnd_const.bool(chg_dl));
1118: debugger('?= nls_date_format like ''%MON%'' :'
1119: ||fnd_const.bool(mon_lk));
1120: debugger('?= nls_date_format like ''%MM%'' :'
1121: ||fnd_const.bool(mm_lk));
1115: ||fnd_const.bool(new_df));
1116: debugger('? has_changed(FND_CONST.NLS_DATE_LANGUAGE) :'
1117: ||fnd_const.bool(chg_dl));
1118: debugger('?= nls_date_format like ''%MON%'' :'
1119: ||fnd_const.bool(mon_lk));
1120: debugger('?= nls_date_format like ''%MM%'' :'
1121: ||fnd_const.bool(mm_lk));
1122: debugger('?= nul_dl and new_dl :'
1123: ||fnd_const.bool(nul_dl and new_dl));
1117: ||fnd_const.bool(chg_dl));
1118: debugger('?= nls_date_format like ''%MON%'' :'
1119: ||fnd_const.bool(mon_lk));
1120: debugger('?= nls_date_format like ''%MM%'' :'
1121: ||fnd_const.bool(mm_lk));
1122: debugger('?= nul_dl and new_dl :'
1123: ||fnd_const.bool(nul_dl and new_dl));
1124: debugger('?= not nul_dl and chg_dl :'
1125: ||fnd_const.bool(not nul_dl and chg_dl));
1119: ||fnd_const.bool(mon_lk));
1120: debugger('?= nls_date_format like ''%MM%'' :'
1121: ||fnd_const.bool(mm_lk));
1122: debugger('?= nul_dl and new_dl :'
1123: ||fnd_const.bool(nul_dl and new_dl));
1124: debugger('?= not nul_dl and chg_dl :'
1125: ||fnd_const.bool(not nul_dl and chg_dl));
1126: debugger('?= new_df or new_dl :'
1127: ||fnd_const.bool(new_df or new_dl));
1121: ||fnd_const.bool(mm_lk));
1122: debugger('?= nul_dl and new_dl :'
1123: ||fnd_const.bool(nul_dl and new_dl));
1124: debugger('?= not nul_dl and chg_dl :'
1125: ||fnd_const.bool(not nul_dl and chg_dl));
1126: debugger('?= new_df or new_dl :'
1127: ||fnd_const.bool(new_df or new_dl));
1128: end if;
1129:
1123: ||fnd_const.bool(nul_dl and new_dl));
1124: debugger('?= not nul_dl and chg_dl :'
1125: ||fnd_const.bool(not nul_dl and chg_dl));
1126: debugger('?= new_df or new_dl :'
1127: ||fnd_const.bool(new_df or new_dl));
1128: end if;
1129:
1130:
1131: -- All conditions depend on whether there's a 'MON' in
1210: --
1211: procedure query_nls is
1212: begin
1213: -- query to ensure the cache is accurate.
1214: -- not using FND_CONST in query to avoid SQL context switch.
1215: for nls in (select *
1216: from v$nls_parameters
1217: where parameter in (
1218: 'NLS_LANGUAGE',
1242: query_nls;
1243: z_first_initialization := false;
1244: end if;
1245:
1246: z_init(FND_CONST.NLS_LANGUAGE) := false;
1247: z_init(FND_CONST.NLS_DATE_LANGUAGE) := false;
1248: z_init(FND_CONST.NLS_SORT) := false;
1249: z_init(FND_CONST.NLS_TERRITORY) := false;
1250: z_init(FND_CONST.NLS_DATE_FORMAT) := false;
1243: z_first_initialization := false;
1244: end if;
1245:
1246: z_init(FND_CONST.NLS_LANGUAGE) := false;
1247: z_init(FND_CONST.NLS_DATE_LANGUAGE) := false;
1248: z_init(FND_CONST.NLS_SORT) := false;
1249: z_init(FND_CONST.NLS_TERRITORY) := false;
1250: z_init(FND_CONST.NLS_DATE_FORMAT) := false;
1251: z_init(FND_CONST.NLS_NUMERIC_CHARACTERS) := false;
1244: end if;
1245:
1246: z_init(FND_CONST.NLS_LANGUAGE) := false;
1247: z_init(FND_CONST.NLS_DATE_LANGUAGE) := false;
1248: z_init(FND_CONST.NLS_SORT) := false;
1249: z_init(FND_CONST.NLS_TERRITORY) := false;
1250: z_init(FND_CONST.NLS_DATE_FORMAT) := false;
1251: z_init(FND_CONST.NLS_NUMERIC_CHARACTERS) := false;
1252: z_init(FND_CONST.NLS_CHARACTERSET) := false;
1245:
1246: z_init(FND_CONST.NLS_LANGUAGE) := false;
1247: z_init(FND_CONST.NLS_DATE_LANGUAGE) := false;
1248: z_init(FND_CONST.NLS_SORT) := false;
1249: z_init(FND_CONST.NLS_TERRITORY) := false;
1250: z_init(FND_CONST.NLS_DATE_FORMAT) := false;
1251: z_init(FND_CONST.NLS_NUMERIC_CHARACTERS) := false;
1252: z_init(FND_CONST.NLS_CHARACTERSET) := false;
1253:
1246: z_init(FND_CONST.NLS_LANGUAGE) := false;
1247: z_init(FND_CONST.NLS_DATE_LANGUAGE) := false;
1248: z_init(FND_CONST.NLS_SORT) := false;
1249: z_init(FND_CONST.NLS_TERRITORY) := false;
1250: z_init(FND_CONST.NLS_DATE_FORMAT) := false;
1251: z_init(FND_CONST.NLS_NUMERIC_CHARACTERS) := false;
1252: z_init(FND_CONST.NLS_CHARACTERSET) := false;
1253:
1254: end reset_nls;
1247: z_init(FND_CONST.NLS_DATE_LANGUAGE) := false;
1248: z_init(FND_CONST.NLS_SORT) := false;
1249: z_init(FND_CONST.NLS_TERRITORY) := false;
1250: z_init(FND_CONST.NLS_DATE_FORMAT) := false;
1251: z_init(FND_CONST.NLS_NUMERIC_CHARACTERS) := false;
1252: z_init(FND_CONST.NLS_CHARACTERSET) := false;
1253:
1254: end reset_nls;
1255:
1248: z_init(FND_CONST.NLS_SORT) := false;
1249: z_init(FND_CONST.NLS_TERRITORY) := false;
1250: z_init(FND_CONST.NLS_DATE_FORMAT) := false;
1251: z_init(FND_CONST.NLS_NUMERIC_CHARACTERS) := false;
1252: z_init(FND_CONST.NLS_CHARACTERSET) := false;
1253:
1254: end reset_nls;
1255:
1256: --
1304: v_nls_numeric_characters v$nls_parameters.value%type
1305: := p_nls_numeric_characters;
1306:
1307: v_nls_characterset v$nls_parameters.value%type
1308: := get(FND_CONST.NLS_CHARACTERSET);
1309:
1310: --
1311: -- calls dbms_session.set_nls
1312: function set_parameter(p_parameter varchar2, p_value in varchar2)
1372:
1373: -- If NLS_LANGUAGE changed, clear the cached, derived values.
1374: -- This ensures that the passed, derived values are set if different than
1375: -- the default, derived value for this language.
1376: if set_parameter(FND_CONST.NLS_LANGUAGE, v_nls_language) then
1377: z_context(FND_CONST.NLS_DATE_LANGUAGE) := null;
1378: z_context(FND_CONST.NLS_SORT) := null;
1379: end if;
1380:
1373: -- If NLS_LANGUAGE changed, clear the cached, derived values.
1374: -- This ensures that the passed, derived values are set if different than
1375: -- the default, derived value for this language.
1376: if set_parameter(FND_CONST.NLS_LANGUAGE, v_nls_language) then
1377: z_context(FND_CONST.NLS_DATE_LANGUAGE) := null;
1378: z_context(FND_CONST.NLS_SORT) := null;
1379: end if;
1380:
1381: -- if NLS_TERRITORY changed, clear the cached, derived values
1374: -- This ensures that the passed, derived values are set if different than
1375: -- the default, derived value for this language.
1376: if set_parameter(FND_CONST.NLS_LANGUAGE, v_nls_language) then
1377: z_context(FND_CONST.NLS_DATE_LANGUAGE) := null;
1378: z_context(FND_CONST.NLS_SORT) := null;
1379: end if;
1380:
1381: -- if NLS_TERRITORY changed, clear the cached, derived values
1382: -- This ensures that the passed, derived values are set if different than
1380:
1381: -- if NLS_TERRITORY changed, clear the cached, derived values
1382: -- This ensures that the passed, derived values are set if different than
1383: -- the default, derived value for this territory.
1384: if set_parameter(FND_CONST.NLS_TERRITORY, v_nls_territory) then
1385: z_context(FND_CONST.NLS_DATE_FORMAT) := null;
1386: z_context(FND_CONST.NLS_NUMERIC_CHARACTERS) := null;
1387: end if;
1388:
1381: -- if NLS_TERRITORY changed, clear the cached, derived values
1382: -- This ensures that the passed, derived values are set if different than
1383: -- the default, derived value for this territory.
1384: if set_parameter(FND_CONST.NLS_TERRITORY, v_nls_territory) then
1385: z_context(FND_CONST.NLS_DATE_FORMAT) := null;
1386: z_context(FND_CONST.NLS_NUMERIC_CHARACTERS) := null;
1387: end if;
1388:
1389: -- Requery derived values to avoid calling dbms_session.set_nls
1382: -- This ensures that the passed, derived values are set if different than
1383: -- the default, derived value for this territory.
1384: if set_parameter(FND_CONST.NLS_TERRITORY, v_nls_territory) then
1385: z_context(FND_CONST.NLS_DATE_FORMAT) := null;
1386: z_context(FND_CONST.NLS_NUMERIC_CHARACTERS) := null;
1387: end if;
1388:
1389: -- Requery derived values to avoid calling dbms_session.set_nls
1390: -- in case the derived value is the same as the passed parameter value.
1406:
1407: -- NOTE: NLS_DATE_FORMAT must come before NLS_DATE_LANGUAGE.
1408: -- Due to bug 5032374, we need to check the value of NLS_DATE_FORMAT
1409: -- to determine if NLS_DATE_LANGUAGE needs to be overridden.
1410: set_parameter(FND_CONST.NLS_DATE_FORMAT, v_nls_date_format);
1411: set_parameter(FND_CONST.NLS_NUMERIC_CHARACTERS, v_nls_numeric_characters);
1412:
1413: set_parameter(FND_CONST.NLS_SORT, v_nls_sort);
1414: -- Bug 6718678 and 5032384
1407: -- NOTE: NLS_DATE_FORMAT must come before NLS_DATE_LANGUAGE.
1408: -- Due to bug 5032374, we need to check the value of NLS_DATE_FORMAT
1409: -- to determine if NLS_DATE_LANGUAGE needs to be overridden.
1410: set_parameter(FND_CONST.NLS_DATE_FORMAT, v_nls_date_format);
1411: set_parameter(FND_CONST.NLS_NUMERIC_CHARACTERS, v_nls_numeric_characters);
1412:
1413: set_parameter(FND_CONST.NLS_SORT, v_nls_sort);
1414: -- Bug 6718678 and 5032384
1415: -- Instead of passing v_nls_date_language to override nls_date_language,
1409: -- to determine if NLS_DATE_LANGUAGE needs to be overridden.
1410: set_parameter(FND_CONST.NLS_DATE_FORMAT, v_nls_date_format);
1411: set_parameter(FND_CONST.NLS_NUMERIC_CHARACTERS, v_nls_numeric_characters);
1412:
1413: set_parameter(FND_CONST.NLS_SORT, v_nls_sort);
1414: -- Bug 6718678 and 5032384
1415: -- Instead of passing v_nls_date_language to override nls_date_language,
1416: -- pass the nls_language
1417: set_parameter(FND_CONST.NLS_DATE_LANGUAGE,
1413: set_parameter(FND_CONST.NLS_SORT, v_nls_sort);
1414: -- Bug 6718678 and 5032384
1415: -- Instead of passing v_nls_date_language to override nls_date_language,
1416: -- pass the nls_language
1417: set_parameter(FND_CONST.NLS_DATE_LANGUAGE,
1418: override_nls_date_language(v_nls_language));
1419:
1420: post_nls_change;
1421:
1508: p_db_nls_date_language := nls_date_language;
1509: p_db_nls_numeric_characters := nls_numeric_characters;
1510: p_db_nls_sort := nls_sort;
1511: p_db_nls_territory := nls_territory;
1512: p_db_nls_charset := get(FND_CONST.NLS_CHARACTERSET);
1513:
1514: if is_debugging then
1515: dump_context;
1516: debugger('end set_nls');
1666:
1667: z_context_change_flag := null;
1668: z_security_context_change_flag := null;
1669:
1670: user_context_change := is_new(FND_CONST.USER_ID);
1671: resp_context_change := is_new(FND_CONST.RESP_ID);
1672: appl_context_change := is_new(FND_CONST.RESP_APPL_ID);
1673: sec_context_change := is_new(FND_CONST.SECURITY_GROUP_ID);
1674: server_context_change := is_new(FND_CONST.SERVER_ID);
1667: z_context_change_flag := null;
1668: z_security_context_change_flag := null;
1669:
1670: user_context_change := is_new(FND_CONST.USER_ID);
1671: resp_context_change := is_new(FND_CONST.RESP_ID);
1672: appl_context_change := is_new(FND_CONST.RESP_APPL_ID);
1673: sec_context_change := is_new(FND_CONST.SECURITY_GROUP_ID);
1674: server_context_change := is_new(FND_CONST.SERVER_ID);
1675: site_context_change := is_new(FND_CONST.SITE_ID);
1668: z_security_context_change_flag := null;
1669:
1670: user_context_change := is_new(FND_CONST.USER_ID);
1671: resp_context_change := is_new(FND_CONST.RESP_ID);
1672: appl_context_change := is_new(FND_CONST.RESP_APPL_ID);
1673: sec_context_change := is_new(FND_CONST.SECURITY_GROUP_ID);
1674: server_context_change := is_new(FND_CONST.SERVER_ID);
1675: site_context_change := is_new(FND_CONST.SITE_ID);
1676:
1669:
1670: user_context_change := is_new(FND_CONST.USER_ID);
1671: resp_context_change := is_new(FND_CONST.RESP_ID);
1672: appl_context_change := is_new(FND_CONST.RESP_APPL_ID);
1673: sec_context_change := is_new(FND_CONST.SECURITY_GROUP_ID);
1674: server_context_change := is_new(FND_CONST.SERVER_ID);
1675: site_context_change := is_new(FND_CONST.SITE_ID);
1676:
1677: --
1670: user_context_change := is_new(FND_CONST.USER_ID);
1671: resp_context_change := is_new(FND_CONST.RESP_ID);
1672: appl_context_change := is_new(FND_CONST.RESP_APPL_ID);
1673: sec_context_change := is_new(FND_CONST.SECURITY_GROUP_ID);
1674: server_context_change := is_new(FND_CONST.SERVER_ID);
1675: site_context_change := is_new(FND_CONST.SITE_ID);
1676:
1677: --
1678: -- NLS initialization
1671: resp_context_change := is_new(FND_CONST.RESP_ID);
1672: appl_context_change := is_new(FND_CONST.RESP_APPL_ID);
1673: sec_context_change := is_new(FND_CONST.SECURITY_GROUP_ID);
1674: server_context_change := is_new(FND_CONST.SERVER_ID);
1675: site_context_change := is_new(FND_CONST.SITE_ID);
1676:
1677: --
1678: -- NLS initialization
1679: --
1680: -- Bug 7685798: Need to check if org context change initiated by MO_GLOBAL.
1681: -- There should be no need to set nls context for an MOAC org context
1682: -- change.
1683: if not MOAC_context_change_attempt then
1684: set_nls(get(FND_CONST.NLS_LANGUAGE),
1685: get(FND_CONST.NLS_DATE_LANGUAGE),
1686: get(FND_CONST.NLS_SORT),
1687: get(FND_CONST.NLS_TERRITORY),
1688: get(FND_CONST.NLS_DATE_FORMAT),
1681: -- There should be no need to set nls context for an MOAC org context
1682: -- change.
1683: if not MOAC_context_change_attempt then
1684: set_nls(get(FND_CONST.NLS_LANGUAGE),
1685: get(FND_CONST.NLS_DATE_LANGUAGE),
1686: get(FND_CONST.NLS_SORT),
1687: get(FND_CONST.NLS_TERRITORY),
1688: get(FND_CONST.NLS_DATE_FORMAT),
1689: get(FND_CONST.NLS_NUMERIC_CHARACTERS));
1682: -- change.
1683: if not MOAC_context_change_attempt then
1684: set_nls(get(FND_CONST.NLS_LANGUAGE),
1685: get(FND_CONST.NLS_DATE_LANGUAGE),
1686: get(FND_CONST.NLS_SORT),
1687: get(FND_CONST.NLS_TERRITORY),
1688: get(FND_CONST.NLS_DATE_FORMAT),
1689: get(FND_CONST.NLS_NUMERIC_CHARACTERS));
1690: else
1683: if not MOAC_context_change_attempt then
1684: set_nls(get(FND_CONST.NLS_LANGUAGE),
1685: get(FND_CONST.NLS_DATE_LANGUAGE),
1686: get(FND_CONST.NLS_SORT),
1687: get(FND_CONST.NLS_TERRITORY),
1688: get(FND_CONST.NLS_DATE_FORMAT),
1689: get(FND_CONST.NLS_NUMERIC_CHARACTERS));
1690: else
1691: -- set_nls has been bypassed, reset the nls_context_change to FALSE.
1684: set_nls(get(FND_CONST.NLS_LANGUAGE),
1685: get(FND_CONST.NLS_DATE_LANGUAGE),
1686: get(FND_CONST.NLS_SORT),
1687: get(FND_CONST.NLS_TERRITORY),
1688: get(FND_CONST.NLS_DATE_FORMAT),
1689: get(FND_CONST.NLS_NUMERIC_CHARACTERS));
1690: else
1691: -- set_nls has been bypassed, reset the nls_context_change to FALSE.
1692: -- If the code had gone into set_nls, nls_context_change would have
1685: get(FND_CONST.NLS_DATE_LANGUAGE),
1686: get(FND_CONST.NLS_SORT),
1687: get(FND_CONST.NLS_TERRITORY),
1688: get(FND_CONST.NLS_DATE_FORMAT),
1689: get(FND_CONST.NLS_NUMERIC_CHARACTERS));
1690: else
1691: -- set_nls has been bypassed, reset the nls_context_change to FALSE.
1692: -- If the code had gone into set_nls, nls_context_change would have
1693: -- been reset to FALSE. set_nls assumes that there was no nls
1709:
1710: --
1711: -- If necessary, check if this resp_id is accessible from the user_id
1712: --
1713: n := FND_CONST.PROG_APPL_ID;
1714: if is_new(n) and get(n) = '-999' then
1715:
1716: set_undefined(FND_CONST.PROG_APPL_ID);
1717:
1712: --
1713: n := FND_CONST.PROG_APPL_ID;
1714: if is_new(n) and get(n) = '-999' then
1715:
1716: set_undefined(FND_CONST.PROG_APPL_ID);
1717:
1718: -- if any of the values are undefined, there will be no
1719: -- valid responsibility so clear resp_id/resp_appl_id
1720: if is_undefined(FND_CONST.USER_ID)
1716: set_undefined(FND_CONST.PROG_APPL_ID);
1717:
1718: -- if any of the values are undefined, there will be no
1719: -- valid responsibility so clear resp_id/resp_appl_id
1720: if is_undefined(FND_CONST.USER_ID)
1721: or is_undefined(FND_CONST.SECURITY_GROUP_ID)
1722: or is_undefined(FND_CONST.RESP_ID)
1723: or is_undefined(FND_CONST.RESP_APPL_ID) then
1724:
1717:
1718: -- if any of the values are undefined, there will be no
1719: -- valid responsibility so clear resp_id/resp_appl_id
1720: if is_undefined(FND_CONST.USER_ID)
1721: or is_undefined(FND_CONST.SECURITY_GROUP_ID)
1722: or is_undefined(FND_CONST.RESP_ID)
1723: or is_undefined(FND_CONST.RESP_APPL_ID) then
1724:
1725: set_undefined(FND_CONST.RESP_ID);
1718: -- if any of the values are undefined, there will be no
1719: -- valid responsibility so clear resp_id/resp_appl_id
1720: if is_undefined(FND_CONST.USER_ID)
1721: or is_undefined(FND_CONST.SECURITY_GROUP_ID)
1722: or is_undefined(FND_CONST.RESP_ID)
1723: or is_undefined(FND_CONST.RESP_APPL_ID) then
1724:
1725: set_undefined(FND_CONST.RESP_ID);
1726: set_undefined(FND_CONST.RESP_APPL_ID);
1719: -- valid responsibility so clear resp_id/resp_appl_id
1720: if is_undefined(FND_CONST.USER_ID)
1721: or is_undefined(FND_CONST.SECURITY_GROUP_ID)
1722: or is_undefined(FND_CONST.RESP_ID)
1723: or is_undefined(FND_CONST.RESP_APPL_ID) then
1724:
1725: set_undefined(FND_CONST.RESP_ID);
1726: set_undefined(FND_CONST.RESP_APPL_ID);
1727:
1721: or is_undefined(FND_CONST.SECURITY_GROUP_ID)
1722: or is_undefined(FND_CONST.RESP_ID)
1723: or is_undefined(FND_CONST.RESP_APPL_ID) then
1724:
1725: set_undefined(FND_CONST.RESP_ID);
1726: set_undefined(FND_CONST.RESP_APPL_ID);
1727:
1728: else
1729:
1722: or is_undefined(FND_CONST.RESP_ID)
1723: or is_undefined(FND_CONST.RESP_APPL_ID) then
1724:
1725: set_undefined(FND_CONST.RESP_ID);
1726: set_undefined(FND_CONST.RESP_APPL_ID);
1727:
1728: else
1729:
1730: declare
1747: -- If there is a row, then all is well so just continue.
1748: -- Otherwise, no rows means this resp doesn't have access,
1749: -- so set resp_id/resp_appl_id as undefined.
1750: if 0 = v_count then
1751: set_undefined(FND_CONST.RESP_ID);
1752: set_undefined(FND_CONST.RESP_APPL_ID);
1753: end if;
1754:
1755: end;
1748: -- Otherwise, no rows means this resp doesn't have access,
1749: -- so set resp_id/resp_appl_id as undefined.
1750: if 0 = v_count then
1751: set_undefined(FND_CONST.RESP_ID);
1752: set_undefined(FND_CONST.RESP_APPL_ID);
1753: end if;
1754:
1755: end;
1756: end if;
1761: -- This is done here to save a round trip. The value is passed
1762: -- back to the client and used to set a client-side profile.
1763: -- Pl/sql should get this value directly.
1764: --
1765: put_i(FND_CONST.SESSION_ID,userenv('SESSIONID'));
1766:
1767: --
1768: -- query user information if user_id changed
1769: --
1780: begin
1781: v_user.user_id := user_id;
1782:
1783: select u.user_name,
1784: nvl(u.employee_id, FND_CONST.UNDEFINED_I) employee_id,
1785: nvl(u.customer_id, FND_CONST.UNDEFINED_I) customer_id,
1786: nvl(u.supplier_id, FND_CONST.UNDEFINED_I) supplier_id,
1787: nvl(u.person_party_id, FND_CONST.UNDEFINED_I) person_party_id
1788: into v_user.user_name,
1781: v_user.user_id := user_id;
1782:
1783: select u.user_name,
1784: nvl(u.employee_id, FND_CONST.UNDEFINED_I) employee_id,
1785: nvl(u.customer_id, FND_CONST.UNDEFINED_I) customer_id,
1786: nvl(u.supplier_id, FND_CONST.UNDEFINED_I) supplier_id,
1787: nvl(u.person_party_id, FND_CONST.UNDEFINED_I) person_party_id
1788: into v_user.user_name,
1789: v_user.employee_id,
1782:
1783: select u.user_name,
1784: nvl(u.employee_id, FND_CONST.UNDEFINED_I) employee_id,
1785: nvl(u.customer_id, FND_CONST.UNDEFINED_I) customer_id,
1786: nvl(u.supplier_id, FND_CONST.UNDEFINED_I) supplier_id,
1787: nvl(u.person_party_id, FND_CONST.UNDEFINED_I) person_party_id
1788: into v_user.user_name,
1789: v_user.employee_id,
1790: v_user.customer_id,
1783: select u.user_name,
1784: nvl(u.employee_id, FND_CONST.UNDEFINED_I) employee_id,
1785: nvl(u.customer_id, FND_CONST.UNDEFINED_I) customer_id,
1786: nvl(u.supplier_id, FND_CONST.UNDEFINED_I) supplier_id,
1787: nvl(u.person_party_id, FND_CONST.UNDEFINED_I) person_party_id
1788: into v_user.user_name,
1789: v_user.employee_id,
1790: v_user.customer_id,
1791: v_user.supplier_id,
1792: v_user.person_party_id
1793: from fnd_user u
1794: where u.user_id = v_user.user_id;
1795:
1796: put(FND_CONST.USER_NAME,v_user.user_name);
1797: put(FND_CONST.EMPLOYEE_ID,v_user.employee_id);
1798: put(FND_CONST.CUSTOMER_ID,v_user.customer_id);
1799: put(FND_CONST.SUPPLIER_ID,v_user.supplier_id);
1800: put(FND_CONST.PARTY_ID,v_user.person_party_id);
1793: from fnd_user u
1794: where u.user_id = v_user.user_id;
1795:
1796: put(FND_CONST.USER_NAME,v_user.user_name);
1797: put(FND_CONST.EMPLOYEE_ID,v_user.employee_id);
1798: put(FND_CONST.CUSTOMER_ID,v_user.customer_id);
1799: put(FND_CONST.SUPPLIER_ID,v_user.supplier_id);
1800: put(FND_CONST.PARTY_ID,v_user.person_party_id);
1801:
1794: where u.user_id = v_user.user_id;
1795:
1796: put(FND_CONST.USER_NAME,v_user.user_name);
1797: put(FND_CONST.EMPLOYEE_ID,v_user.employee_id);
1798: put(FND_CONST.CUSTOMER_ID,v_user.customer_id);
1799: put(FND_CONST.SUPPLIER_ID,v_user.supplier_id);
1800: put(FND_CONST.PARTY_ID,v_user.person_party_id);
1801:
1802: exception
1795:
1796: put(FND_CONST.USER_NAME,v_user.user_name);
1797: put(FND_CONST.EMPLOYEE_ID,v_user.employee_id);
1798: put(FND_CONST.CUSTOMER_ID,v_user.customer_id);
1799: put(FND_CONST.SUPPLIER_ID,v_user.supplier_id);
1800: put(FND_CONST.PARTY_ID,v_user.person_party_id);
1801:
1802: exception
1803: when no_data_found then
1796: put(FND_CONST.USER_NAME,v_user.user_name);
1797: put(FND_CONST.EMPLOYEE_ID,v_user.employee_id);
1798: put(FND_CONST.CUSTOMER_ID,v_user.customer_id);
1799: put(FND_CONST.SUPPLIER_ID,v_user.supplier_id);
1800: put(FND_CONST.PARTY_ID,v_user.person_party_id);
1801:
1802: exception
1803: when no_data_found then
1804: clear(FND_CONST.USER_NAME);
1800: put(FND_CONST.PARTY_ID,v_user.person_party_id);
1801:
1802: exception
1803: when no_data_found then
1804: clear(FND_CONST.USER_NAME);
1805: clear(FND_CONST.EMPLOYEE_ID);
1806: clear(FND_CONST.CUSTOMER_ID);
1807: clear(FND_CONST.SUPPLIER_ID);
1808: clear(FND_CONST.PARTY_ID);
1801:
1802: exception
1803: when no_data_found then
1804: clear(FND_CONST.USER_NAME);
1805: clear(FND_CONST.EMPLOYEE_ID);
1806: clear(FND_CONST.CUSTOMER_ID);
1807: clear(FND_CONST.SUPPLIER_ID);
1808: clear(FND_CONST.PARTY_ID);
1809:
1802: exception
1803: when no_data_found then
1804: clear(FND_CONST.USER_NAME);
1805: clear(FND_CONST.EMPLOYEE_ID);
1806: clear(FND_CONST.CUSTOMER_ID);
1807: clear(FND_CONST.SUPPLIER_ID);
1808: clear(FND_CONST.PARTY_ID);
1809:
1810: -- I'd like to clear user_id too since it failed, it isn't valid,
1803: when no_data_found then
1804: clear(FND_CONST.USER_NAME);
1805: clear(FND_CONST.EMPLOYEE_ID);
1806: clear(FND_CONST.CUSTOMER_ID);
1807: clear(FND_CONST.SUPPLIER_ID);
1808: clear(FND_CONST.PARTY_ID);
1809:
1810: -- I'd like to clear user_id too since it failed, it isn't valid,
1811: -- but that's not consistent with the old code.
1804: clear(FND_CONST.USER_NAME);
1805: clear(FND_CONST.EMPLOYEE_ID);
1806: clear(FND_CONST.CUSTOMER_ID);
1807: clear(FND_CONST.SUPPLIER_ID);
1808: clear(FND_CONST.PARTY_ID);
1809:
1810: -- I'd like to clear user_id too since it failed, it isn't valid,
1811: -- but that's not consistent with the old code.
1812: -- clear(FND_CONST.USER_ID);
1808: clear(FND_CONST.PARTY_ID);
1809:
1810: -- I'd like to clear user_id too since it failed, it isn't valid,
1811: -- but that's not consistent with the old code.
1812: -- clear(FND_CONST.USER_ID);
1813:
1814: end;
1815:
1816: end if;
1820: -- query fnd_application data if resp_appl_id changed
1821: --
1822: if appl_context_change then
1823:
1824: clear(FND_CONST.APPLICATION_SHORT_NAME);
1825:
1826: -- avoid executing the query if RESP_APPL_ID is -1
1827: -- and just clear the APPLICATION_SHORT_NAME instead
1828: if is_defined(FND_CONST.RESP_APPL_ID) then
1824: clear(FND_CONST.APPLICATION_SHORT_NAME);
1825:
1826: -- avoid executing the query if RESP_APPL_ID is -1
1827: -- and just clear the APPLICATION_SHORT_NAME instead
1828: if is_defined(FND_CONST.RESP_APPL_ID) then
1829:
1830: declare
1831: v_asn fnd_application.application_short_name%type;
1832: v_raid fnd_application.application_id%type := resp_appl_id;
1836: into v_asn
1837: from fnd_application a
1838: where a.application_id = v_raid;
1839:
1840: put(FND_CONST.APPLICATION_SHORT_NAME,v_asn);
1841:
1842: exception
1843: when no_data_found then
1844: null;
1850:
1851: --
1852: -- handle ORG context change
1853: --
1854: if is_new(FND_CONST.ORG_ID) then
1855:
1856: -- if passed an org context and it is invalid (null ORG_NAME), clear the
1857: -- org context. this will only ever occur when explicitly called with
1858: -- ORG_ID via initialize(varchar2,varchar2).
1856: -- if passed an org context and it is invalid (null ORG_NAME), clear the
1857: -- org context. this will only ever occur when explicitly called with
1858: -- ORG_ID via initialize(varchar2,varchar2).
1859: if org_name = null then
1860: clear(FND_CONST.ORG_ID);
1861: end if;
1862:
1863: else
1864:
1915: -- to the org context while FND_PROFILE.value('ORG_ID')
1916: -- refers to the value of the profile option MO: Operating
1917: -- Unit which are not the same.
1918: if defined and (org_id <> v_org_id_s) then
1919: put_i(FND_CONST.ORG_ID,v_org_id_s);
1920: end if;
1921: end if;
1922:
1923: end;
1936: v_org_id_s,
1937: defined);
1938:
1939: if defined and (org_id <> v_org_id_s) then
1940: put_i(FND_CONST.ORG_ID,v_org_id_s);
1941: end if;
1942: end if;
1943:
1944: end;
1946: end if;
1947:
1948: end if;
1949:
1950: org_context_change := is_new(FND_CONST.ORG_ID);
1951:
1952: if org_context_change then
1953:
1954: -- for consistency with prior versions, have to fetch org_name here
1952: if org_context_change then
1953:
1954: -- for consistency with prior versions, have to fetch org_name here
1955: -- so it can be set on sys_context
1956: clear(FND_CONST.ORG_NAME);
1957: declare
1958: v_org_name varchar2(2000);
1959: begin
1960: v_org_name := org_name;
2032: z_security_groups_enabled := 'Y' = fnd_profile.value('ENABLE_SECURITY_GROUPS');
2033: end if;
2034:
2035: if not z_security_groups_enabled then
2036: put_i(FND_CONST.SECURITY_GROUP_ID,0);
2037: z_init(FND_CONST.SECURITY_GROUP_ID) := false;
2038: sec_context_change := false;
2039: else
2040: if is_debugging then
2033: end if;
2034:
2035: if not z_security_groups_enabled then
2036: put_i(FND_CONST.SECURITY_GROUP_ID,0);
2037: z_init(FND_CONST.SECURITY_GROUP_ID) := false;
2038: sec_context_change := false;
2039: else
2040: if is_debugging then
2041: debugger('. Security groups enabled. SGID='||security_group_id);
2090: -- If release is less than R12 or 'MO: Default Operating Unit' does not
2091: -- have a usable value, then need to fall back on ORG_ID for the org
2092: -- context.
2093: if tdef_org_id is null then
2094: fnd_profile.get(FND_CONST.ORG_ID,torg_id);
2095: end if;
2096:
2097: fnd_profile.get(FND_CONST.ICX_LANGUAGE,icx_language);
2098: put(FND_CONST.ICX_LANGUAGE,icx_language);
2093: if tdef_org_id is null then
2094: fnd_profile.get(FND_CONST.ORG_ID,torg_id);
2095: end if;
2096:
2097: fnd_profile.get(FND_CONST.ICX_LANGUAGE,icx_language);
2098: put(FND_CONST.ICX_LANGUAGE,icx_language);
2099:
2100: end;
2101:
2094: fnd_profile.get(FND_CONST.ORG_ID,torg_id);
2095: end if;
2096:
2097: fnd_profile.get(FND_CONST.ICX_LANGUAGE,icx_language);
2098: put(FND_CONST.ICX_LANGUAGE,icx_language);
2099:
2100: end;
2101:
2102: --
2191: --
2192: declare
2193: curs integer;
2194: sqlbuf varchar2(2000);
2195: tmpbuf varchar2(2000) := get(FND_CONST.FND_INIT_SQL);
2196: rows integer;
2197: begin
2198: -- Check if FND_INIT_SQL has a value
2199: fnd_profile.get(FND_CONST.FND_INIT_SQL, sqlbuf);
2195: tmpbuf varchar2(2000) := get(FND_CONST.FND_INIT_SQL);
2196: rows integer;
2197: begin
2198: -- Check if FND_INIT_SQL has a value
2199: fnd_profile.get(FND_CONST.FND_INIT_SQL, sqlbuf);
2200:
2201: if sqlbuf is not null then
2202: -- If FND_CONST.FND_INIT_SQL is null or if the profile option value
2203: -- is different from FND_CONST.FND_INIT_SQL
2198: -- Check if FND_INIT_SQL has a value
2199: fnd_profile.get(FND_CONST.FND_INIT_SQL, sqlbuf);
2200:
2201: if sqlbuf is not null then
2202: -- If FND_CONST.FND_INIT_SQL is null or if the profile option value
2203: -- is different from FND_CONST.FND_INIT_SQL
2204: if (tmpbuf is null or sqlbuf <> tmpbuf) then
2205: if is_debugging then
2206: debugger('. fnd_init_sql:'||sqlbuf);
2199: fnd_profile.get(FND_CONST.FND_INIT_SQL, sqlbuf);
2200:
2201: if sqlbuf is not null then
2202: -- If FND_CONST.FND_INIT_SQL is null or if the profile option value
2203: -- is different from FND_CONST.FND_INIT_SQL
2204: if (tmpbuf is null or sqlbuf <> tmpbuf) then
2205: if is_debugging then
2206: debugger('. fnd_init_sql:'||sqlbuf);
2207: end if;
2204: if (tmpbuf is null or sqlbuf <> tmpbuf) then
2205: if is_debugging then
2206: debugger('. fnd_init_sql:'||sqlbuf);
2207: end if;
2208: -- Change FND_CONST.FND_INIT_SQL to new profile option value
2209: put(FND_CONST.FND_INIT_SQL,sqlbuf);
2210: end if;
2211:
2212: -- FND_INIT_SQL needs to execute for each initialization
2205: if is_debugging then
2206: debugger('. fnd_init_sql:'||sqlbuf);
2207: end if;
2208: -- Change FND_CONST.FND_INIT_SQL to new profile option value
2209: put(FND_CONST.FND_INIT_SQL,sqlbuf);
2210: end if;
2211:
2212: -- FND_INIT_SQL needs to execute for each initialization
2213: curs := dbms_sql.open_cursor;
2243:
2244: if resp_context_change or appl_context_change or sec_context_change then
2245: if is_debugging then
2246: debugger('HR context change');
2247: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2248: debugger('HR PER_SECURITY_PROFILE_ID: '||get(FND_CONST.PER_SECURITY_PROFILE_ID));
2249: end if;
2250: put_nosys(FND_CONST.PER_BUSINESS_GROUP_ID,null);
2251: put_nosys(FND_CONST.PER_SECURITY_PROFILE_ID,null);
2244: if resp_context_change or appl_context_change or sec_context_change then
2245: if is_debugging then
2246: debugger('HR context change');
2247: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2248: debugger('HR PER_SECURITY_PROFILE_ID: '||get(FND_CONST.PER_SECURITY_PROFILE_ID));
2249: end if;
2250: put_nosys(FND_CONST.PER_BUSINESS_GROUP_ID,null);
2251: put_nosys(FND_CONST.PER_SECURITY_PROFILE_ID,null);
2252: put_from_profile(FND_CONST.PER_BUSINESS_GROUP_ID);
2246: debugger('HR context change');
2247: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2248: debugger('HR PER_SECURITY_PROFILE_ID: '||get(FND_CONST.PER_SECURITY_PROFILE_ID));
2249: end if;
2250: put_nosys(FND_CONST.PER_BUSINESS_GROUP_ID,null);
2251: put_nosys(FND_CONST.PER_SECURITY_PROFILE_ID,null);
2252: put_from_profile(FND_CONST.PER_BUSINESS_GROUP_ID);
2253: put_from_profile(FND_CONST.PER_SECURITY_PROFILE_ID);
2254: else
2247: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2248: debugger('HR PER_SECURITY_PROFILE_ID: '||get(FND_CONST.PER_SECURITY_PROFILE_ID));
2249: end if;
2250: put_nosys(FND_CONST.PER_BUSINESS_GROUP_ID,null);
2251: put_nosys(FND_CONST.PER_SECURITY_PROFILE_ID,null);
2252: put_from_profile(FND_CONST.PER_BUSINESS_GROUP_ID);
2253: put_from_profile(FND_CONST.PER_SECURITY_PROFILE_ID);
2254: else
2255: if not context_changed and z_security_groups_enabled then
2248: debugger('HR PER_SECURITY_PROFILE_ID: '||get(FND_CONST.PER_SECURITY_PROFILE_ID));
2249: end if;
2250: put_nosys(FND_CONST.PER_BUSINESS_GROUP_ID,null);
2251: put_nosys(FND_CONST.PER_SECURITY_PROFILE_ID,null);
2252: put_from_profile(FND_CONST.PER_BUSINESS_GROUP_ID);
2253: put_from_profile(FND_CONST.PER_SECURITY_PROFILE_ID);
2254: else
2255: if not context_changed and z_security_groups_enabled then
2256: if is_debugging then
2249: end if;
2250: put_nosys(FND_CONST.PER_BUSINESS_GROUP_ID,null);
2251: put_nosys(FND_CONST.PER_SECURITY_PROFILE_ID,null);
2252: put_from_profile(FND_CONST.PER_BUSINESS_GROUP_ID);
2253: put_from_profile(FND_CONST.PER_SECURITY_PROFILE_ID);
2254: else
2255: if not context_changed and z_security_groups_enabled then
2256: if is_debugging then
2257: debugger('HR no context change');
2254: else
2255: if not context_changed and z_security_groups_enabled then
2256: if is_debugging then
2257: debugger('HR no context change');
2258: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2259: debugger('HR PER_SECURITY_PROFILE_ID: '||get(FND_CONST.PER_SECURITY_PROFILE_ID));
2260: end if;
2261: initialize_profile_value(FND_CONST.PER_BUSINESS_GROUP_ID);
2262: initialize_profile_value(FND_CONST.PER_SECURITY_PROFILE_ID);
2255: if not context_changed and z_security_groups_enabled then
2256: if is_debugging then
2257: debugger('HR no context change');
2258: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2259: debugger('HR PER_SECURITY_PROFILE_ID: '||get(FND_CONST.PER_SECURITY_PROFILE_ID));
2260: end if;
2261: initialize_profile_value(FND_CONST.PER_BUSINESS_GROUP_ID);
2262: initialize_profile_value(FND_CONST.PER_SECURITY_PROFILE_ID);
2263: end if;
2257: debugger('HR no context change');
2258: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2259: debugger('HR PER_SECURITY_PROFILE_ID: '||get(FND_CONST.PER_SECURITY_PROFILE_ID));
2260: end if;
2261: initialize_profile_value(FND_CONST.PER_BUSINESS_GROUP_ID);
2262: initialize_profile_value(FND_CONST.PER_SECURITY_PROFILE_ID);
2263: end if;
2264: end if;
2265:
2258: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2259: debugger('HR PER_SECURITY_PROFILE_ID: '||get(FND_CONST.PER_SECURITY_PROFILE_ID));
2260: end if;
2261: initialize_profile_value(FND_CONST.PER_BUSINESS_GROUP_ID);
2262: initialize_profile_value(FND_CONST.PER_SECURITY_PROFILE_ID);
2263: end if;
2264: end if;
2265:
2266: -- fetch all the logging profiles so that logging can
2264: end if;
2265:
2266: -- fetch all the logging profiles so that logging can
2267: -- be properly initialized
2268: put_from_profile(FND_CONST.AFLOG_ENABLED);
2269: put_from_profile(FND_CONST.AFLOG_MODULE);
2270: put_from_profile(FND_CONST.AFLOG_LEVEL);
2271: put_from_profile(FND_CONST.AFLOG_FILENAME);
2272:
2265:
2266: -- fetch all the logging profiles so that logging can
2267: -- be properly initialized
2268: put_from_profile(FND_CONST.AFLOG_ENABLED);
2269: put_from_profile(FND_CONST.AFLOG_MODULE);
2270: put_from_profile(FND_CONST.AFLOG_LEVEL);
2271: put_from_profile(FND_CONST.AFLOG_FILENAME);
2272:
2273: -- clear all the derived values that are cached as a
2266: -- fetch all the logging profiles so that logging can
2267: -- be properly initialized
2268: put_from_profile(FND_CONST.AFLOG_ENABLED);
2269: put_from_profile(FND_CONST.AFLOG_MODULE);
2270: put_from_profile(FND_CONST.AFLOG_LEVEL);
2271: put_from_profile(FND_CONST.AFLOG_FILENAME);
2272:
2273: -- clear all the derived values that are cached as a
2274: -- result of lazy initialization.
2267: -- be properly initialized
2268: put_from_profile(FND_CONST.AFLOG_ENABLED);
2269: put_from_profile(FND_CONST.AFLOG_MODULE);
2270: put_from_profile(FND_CONST.AFLOG_LEVEL);
2271: put_from_profile(FND_CONST.AFLOG_FILENAME);
2272:
2273: -- clear all the derived values that are cached as a
2274: -- result of lazy initialization.
2275: clear_derived_values;
2287:
2288: --
2289: -- p_hashtable is a name/value pairs to initialize.
2290: procedure initialize(p_mode in varchar2,
2291: p_nv in out nocopy fnd_const.t_hashtable)
2292: as
2293: c integer;
2294: p varchar2(2000);
2295: begin
2293: c integer;
2294: p varchar2(2000);
2295: begin
2296:
2297: if p_mode = FND_CONST.MODE_IN or p_mode = FND_CONST.MODE_INOUT then
2298:
2299: z_init.delete;
2300:
2301: c := p_nv.count;
2309: initialize;
2310:
2311: end if;
2312:
2313: if p_mode = FND_CONST.MODE_OUT or p_mode = FND_CONST.MODE_INOUT then
2314:
2315: c := z_context.count;
2316: p := z_context.first;
2317: for i in 1..c loop
2324: end initialize;
2325:
2326: --
2327: -- p_nv is a name/value pairs to initialize.
2328: procedure initialize(p_nv in out nocopy fnd_const.t_hashtable)
2329: as
2330: begin
2331: initialize(FND_CONST.MODE_INOUT,p_nv);
2332: end initialize;
2327: -- p_nv is a name/value pairs to initialize.
2328: procedure initialize(p_nv in out nocopy fnd_const.t_hashtable)
2329: as
2330: begin
2331: initialize(FND_CONST.MODE_INOUT,p_nv);
2332: end initialize;
2333:
2334: --
2335: -- initialize a single attribute
2342: put(upper(name),value);
2343:
2344: -- Bug 7685798:Check if called by MO_GLOBAL for an org context change.
2345: -- This would have been just:
2346: -- MOAC_context_change_attempt := is_new(FND_CONST.ORG_ID);
2347: -- But, if the value passed is the same as present value, then FALSE would
2348: -- be returned. What we are actually capturing are all calls made to change
2349: -- the org context from MO_GLOBAL.
2350: if upper(name) = 'ORG_ID' then
2361: -- INTERNAL AOL USE ONLY
2362: --
2363: procedure set_security_group_id_context(security_group_id in number) is
2364: begin
2365: initialize(FND_CONST.SECURITY_GROUP_ID, to_char(security_group_id));
2366: exception
2367: when others then
2368: log('fnd_global.set_security_group_id_context',
2369: sqlcode, dbms_utility.format_error_stack);
2411: conc_queue_id in number default null,
2412: queue_appl_id in number default null,
2413: server_id in number default -1)
2414: is
2415: v_nv fnd_const.t_hashtable;
2416:
2417: -- set a value in v_nv (list of new name/value pairs)
2418: procedure put_nv(name varchar2, value varchar2)
2419: as
2424: end put_nv;
2425:
2426: begin
2427:
2428: put_nv(FND_CONST.USER_ID,to_char(user_id));
2429: put_nv(FND_CONST.RESP_ID,to_char(resp_id));
2430: put_nv(FND_CONST.RESP_APPL_ID,to_char(resp_appl_id));
2431: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2432: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2425:
2426: begin
2427:
2428: put_nv(FND_CONST.USER_ID,to_char(user_id));
2429: put_nv(FND_CONST.RESP_ID,to_char(resp_id));
2430: put_nv(FND_CONST.RESP_APPL_ID,to_char(resp_appl_id));
2431: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2432: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2433: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2426: begin
2427:
2428: put_nv(FND_CONST.USER_ID,to_char(user_id));
2429: put_nv(FND_CONST.RESP_ID,to_char(resp_id));
2430: put_nv(FND_CONST.RESP_APPL_ID,to_char(resp_appl_id));
2431: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2432: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2433: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2434: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2427:
2428: put_nv(FND_CONST.USER_ID,to_char(user_id));
2429: put_nv(FND_CONST.RESP_ID,to_char(resp_id));
2430: put_nv(FND_CONST.RESP_APPL_ID,to_char(resp_appl_id));
2431: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2432: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2433: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2434: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2435: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2428: put_nv(FND_CONST.USER_ID,to_char(user_id));
2429: put_nv(FND_CONST.RESP_ID,to_char(resp_id));
2430: put_nv(FND_CONST.RESP_APPL_ID,to_char(resp_appl_id));
2431: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2432: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2433: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2434: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2435: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2436: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2429: put_nv(FND_CONST.RESP_ID,to_char(resp_id));
2430: put_nv(FND_CONST.RESP_APPL_ID,to_char(resp_appl_id));
2431: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2432: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2433: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2434: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2435: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2436: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2437: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2430: put_nv(FND_CONST.RESP_APPL_ID,to_char(resp_appl_id));
2431: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2432: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2433: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2434: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2435: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2436: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2437: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2438: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2431: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2432: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2433: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2434: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2435: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2436: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2437: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2438: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2439: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2432: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2433: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2434: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2435: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2436: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2437: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2438: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2439: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2440: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2433: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2434: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2435: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2436: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2437: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2438: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2439: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2440: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2441: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2434: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2435: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2436: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2437: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2438: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2439: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2440: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2441: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2442: put_nv(FND_CONST.CONC_QUEUE_ID,to_char(nvl(conc_queue_id,FND_CONST.UNDEFINED_I)));
2435: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2436: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2437: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2438: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2439: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2440: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2441: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2442: put_nv(FND_CONST.CONC_QUEUE_ID,to_char(nvl(conc_queue_id,FND_CONST.UNDEFINED_I)));
2443: put_nv(FND_CONST.QUEUE_APPL_ID,to_char(nvl(queue_appl_id,FND_CONST.UNDEFINED_I)));
2436: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2437: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2438: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2439: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2440: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2441: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2442: put_nv(FND_CONST.CONC_QUEUE_ID,to_char(nvl(conc_queue_id,FND_CONST.UNDEFINED_I)));
2443: put_nv(FND_CONST.QUEUE_APPL_ID,to_char(nvl(queue_appl_id,FND_CONST.UNDEFINED_I)));
2444: put_nv(FND_CONST.SERVER_ID,to_char(server_id));
2437: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2438: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2439: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2440: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2441: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2442: put_nv(FND_CONST.CONC_QUEUE_ID,to_char(nvl(conc_queue_id,FND_CONST.UNDEFINED_I)));
2443: put_nv(FND_CONST.QUEUE_APPL_ID,to_char(nvl(queue_appl_id,FND_CONST.UNDEFINED_I)));
2444: put_nv(FND_CONST.SERVER_ID,to_char(server_id));
2445:
2438: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2439: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2440: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2441: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2442: put_nv(FND_CONST.CONC_QUEUE_ID,to_char(nvl(conc_queue_id,FND_CONST.UNDEFINED_I)));
2443: put_nv(FND_CONST.QUEUE_APPL_ID,to_char(nvl(queue_appl_id,FND_CONST.UNDEFINED_I)));
2444: put_nv(FND_CONST.SERVER_ID,to_char(server_id));
2445:
2446: -- mode_in since the only out variable can be obtained from a function
2439: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2440: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2441: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2442: put_nv(FND_CONST.CONC_QUEUE_ID,to_char(nvl(conc_queue_id,FND_CONST.UNDEFINED_I)));
2443: put_nv(FND_CONST.QUEUE_APPL_ID,to_char(nvl(queue_appl_id,FND_CONST.UNDEFINED_I)));
2444: put_nv(FND_CONST.SERVER_ID,to_char(server_id));
2445:
2446: -- mode_in since the only out variable can be obtained from a function
2447: initialize(FND_CONST.MODE_IN,v_nv);
2440: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2441: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2442: put_nv(FND_CONST.CONC_QUEUE_ID,to_char(nvl(conc_queue_id,FND_CONST.UNDEFINED_I)));
2443: put_nv(FND_CONST.QUEUE_APPL_ID,to_char(nvl(queue_appl_id,FND_CONST.UNDEFINED_I)));
2444: put_nv(FND_CONST.SERVER_ID,to_char(server_id));
2445:
2446: -- mode_in since the only out variable can be obtained from a function
2447: initialize(FND_CONST.MODE_IN,v_nv);
2448:
2443: put_nv(FND_CONST.QUEUE_APPL_ID,to_char(nvl(queue_appl_id,FND_CONST.UNDEFINED_I)));
2444: put_nv(FND_CONST.SERVER_ID,to_char(server_id));
2445:
2446: -- mode_in since the only out variable can be obtained from a function
2447: initialize(FND_CONST.MODE_IN,v_nv);
2448:
2449: session_id := fnd_global.session_id;
2450:
2451: end initialize;
2479: begin
2480: --
2481: -- Set globals from parameters
2482: --
2483: put(FND_CONST.RT_TEST_ID,rt_test_id);
2484:
2485: end RT_INITIALIZE;
2486:
2487: --
2619: debugger(b||' '||g);
2620:
2621: p := z_context.next(p);
2622: end loop;
2623: debugger('---------'||fnd_const.newline);
2624:
2625: end;
2626:
2627: begin
2625: end;
2626:
2627: begin
2628:
2629: -- all these constants can't reference the FND_CONST package
2630: -- because of pragam issues with the spec for this package.
2631:
2632: -- true means to initialize these values after calling
2633: -- fnd_profile.initialize.