[Home] [Help]
35: type t_wa is table of varchar2(2000) index by binary_integer;
36: type t_waf is table of boolean index by binary_integer;
37:
38: -- the context hash. these are all the real initialized name/values we track.
39: z_context fnd_const.t_hashtable;
40: z_context_names t_wa;
41: z_context_values t_wa;
42:
43: -- the backup context hash. see restore.
40: z_context_names t_wa;
41: z_context_values t_wa;
42:
43: -- the backup context hash. see restore.
44: z_backup fnd_const.t_hashtable;
45: z_backup_names t_wa;
46: z_backup_values t_wa;
47:
48: -- initialization hash.
65: z_syscontext_values t_waf;
66:
67: -- a map for fnd_product_initialization
68: -- @todo deprecated?
69: z_conditions_map fnd_const.t_hashtable;
70: z_conditions_names t_wa;
71: z_conditions_values t_wa;
72:
73: --
142: begin
143:
144: debug_to_core := fnd_core_log.enabled <> 'N';
145:
146: dest := upper(sys_context(FND_CONST.FND,'FND_GLOBAL_DEBUG_LOGGING'));
147: debug_to_console := dest like '%CONSOLE%';
148: debug_to_table := dest like '%TABLE%';
149:
150: -- enables debug output if a destination is enabled.
239: -- ascii_chr - chr number in US7ASCII
240: --
241: function local_chr(ascii_chr in number) return varchar2 is
242: begin
243: return fnd_const.local_chr(ascii_chr);
244: end local_chr;
245:
246:
247: function newline return varchar2 is begin return fnd_const.newline; end;
243: return fnd_const.local_chr(ascii_chr);
244: end local_chr;
245:
246:
247: function newline return varchar2 is begin return fnd_const.newline; end;
248: function tab return varchar2 is begin return fnd_const.tab; end;
249:
250: --
251: -- log (Internal)
244: end local_chr;
245:
246:
247: function newline return varchar2 is begin return fnd_const.newline; end;
248: function tab return varchar2 is begin return fnd_const.tab; end;
249:
250: --
251: -- log (Internal)
252: --
260: debugger('ROUTINE:'||routine);
261: debugger('ERRNO:'||errcode);
262: debugger('REASON:'||errmsg);
263: end if;
264: fnd_message.set_name(FND_CONST.FND, 'SQL_PLSQL_ERROR');
265: fnd_message.set_token('ROUTINE', routine);
266: fnd_message.set_token('ERRNO', errcode);
267: fnd_message.set_token('REASON', errmsg);
268: end;
318: return nvl(to_number(get(name)),def);
319: end get_i;
320:
321: -- get an integer value from z_context
322: -- returns FND_CONST.UNDEFINED_I if null.
323: -- will throw value_error if not a number.
324: function get_i(name varchar2) return number
325: as
326: begin
323: -- will throw value_error if not a number.
324: function get_i(name varchar2) return number
325: as
326: begin
327: return get_i(name,FND_CONST.UNDEFINED_I);
328: end get_i;
329:
330: -- determines if a value is defined, not -1 nor null.
331: function is_defined(name varchar2) return boolean
330: -- determines if a value is defined, not -1 nor null.
331: function is_defined(name varchar2) return boolean
332: as
333: begin
334: return nvl(get(name),FND_CONST.UNDEFINED_S) <> FND_CONST.UNDEFINED_S;
335: end is_defined;
336:
337: -- determines if a value is undefined, -1 or null.
338: function is_undefined(name varchar2) return boolean
453: if is_debugging then
454: debugger('. fnd_context.init');
455: end if;
456:
457: fnd_context.init(FND_CONST.FND, name, value);
458: end if;
459:
460: return true;
461:
506: -- set the default integer value in z_context
507: procedure put_i(name varchar2)
508: as
509: begin
510: put(name,FND_CONST.UNDEFINED_S);
511: end put_i;
512:
513: -- set a value to -1.
514: procedure set_undefined(name varchar2)
514: procedure set_undefined(name varchar2)
515: as
516: begin
517: --debugger('undefining '||name);
518: put(name,FND_CONST.UNDEFINED_S);
519: end set_undefined;
520:
521: -- set a value on z_context from a profile value
522: -- if name isn't already defined
548:
549: if resp_context_change
550: or appl_context_change
551: then
552: clear(FND_CONST.APPLICATION_NAME);
553: clear(FND_CONST.RESP_NAME);
554: end if;
555:
556: end if;
549: if resp_context_change
550: or appl_context_change
551: then
552: clear(FND_CONST.APPLICATION_NAME);
553: clear(FND_CONST.RESP_NAME);
554: end if;
555:
556: end if;
557:
650: end if;
651:
652: -- no caching of APPLICATION_NAME
653: -- to avoid changing pragma in spec
654: --buffer := get(FND_CONST.APPLICATION_NAME);
655: --if buffer is null then
656:
657: -- Re-query every time in case of language change --
658: select a.application_name
661: where a.application_id = v_raid;
662:
663: -- no caching of APPLICATION_NAME
664: -- to avoid changing pragma in spec
665: --put_nosys(FND_CONST.APPLICATION_NAME,buffer);
666: --end if;
667:
668: return buffer;
669: exception
673:
674: -- APPLICATION_SHORT_NAME -
675: function application_short_name return varchar2 is
676: begin
677: return get(FND_CONST.APPLICATION_SHORT_NAME);
678: end application_short_name;
679:
680: -- BASE_LANGUAGE -
681: function base_language return varchar2 is
678: end application_short_name;
679:
680: -- BASE_LANGUAGE -
681: function base_language return varchar2 is
682: buffer fnd_languages.language_code%type := get(FND_CONST.BASE_LANGUAGE);
683: begin
684: if buffer is null then
685:
686: select language_code
687: into buffer
688: from fnd_languages
689: where installed_flag = 'B';
690:
691: put_nosys(FND_CONST.BASE_LANGUAGE,buffer);
692: end if;
693: return buffer;
694: exception
695: when no_data_found then
698:
699: -- CONC_LOGIN_ID -
700: function conc_login_id return number is
701: begin
702: return get_i(FND_CONST.CONC_LOGIN_ID);
703: end conc_login_id;
704:
705: -- CONC_PRIORITY_REQUEST -
706: function conc_priority_request return number is
704:
705: -- CONC_PRIORITY_REQUEST -
706: function conc_priority_request return number is
707: begin
708: return get_i(FND_CONST.CONC_PRIORITY_REQUEST,null);
709: end conc_priority_request;
710:
711: -- CONC_PROGRAM_ID -
712: function conc_program_id return number is
710:
711: -- CONC_PROGRAM_ID -
712: function conc_program_id return number is
713: begin
714: return get_i(FND_CONST.CONC_PROGRAM_ID);
715: end conc_program_id;
716:
717: -- CONC_PROCESS_ID -
718: function conc_process_id return number is
716:
717: -- CONC_PROCESS_ID -
718: function conc_process_id return number is
719: begin
720: return get_i(FND_CONST.CONC_PROCESS_ID);
721: end conc_process_id;
722:
723: -- CONC_QUEUE_ID -
724: function conc_queue_id return number is
722:
723: -- CONC_QUEUE_ID -
724: function conc_queue_id return number is
725: begin
726: return get_i(FND_CONST.CONC_QUEUE_ID);
727: end conc_queue_id;
728:
729: -- CONC_REQUEST_ID -
730: function conc_request_id return number is
728:
729: -- CONC_REQUEST_ID -
730: function conc_request_id return number is
731: begin
732: return get_i(FND_CONST.CONC_REQUEST_ID);
733: end conc_request_id;
734:
735: -- CURRENT_LANGUAGE -
736: function current_language return varchar2 is
740:
741: -- CUSTOMER_ID -
742: function customer_id return number is
743: begin
744: return get_i(FND_CONST.CUSTOMER_ID);
745: end customer_id;
746:
747: -- EMPLOYEE_ID -
748: function employee_id return number is
746:
747: -- EMPLOYEE_ID -
748: function employee_id return number is
749: begin
750: return get_i(FND_CONST.EMPLOYEE_ID);
751: end employee_id;
752:
753: -- FORM_ID -
754: function form_id return number is
752:
753: -- FORM_ID -
754: function form_id return number is
755: begin
756: return get_i(FND_CONST.FORM_ID);
757: end form_id;
758:
759: -- FORM_APPL_ID -
760: function form_appl_id return number is
758:
759: -- FORM_APPL_ID -
760: function form_appl_id return number is
761: begin
762: return get_i(FND_CONST.FORM_APPL_ID);
763: end form_appl_id;
764:
765: -- LANGUAGE_COUNT -
766: function language_count return number is
763: end form_appl_id;
764:
765: -- LANGUAGE_COUNT -
766: function language_count return number is
767: buffer number := get_i(FND_CONST.LANGUAGE_COUNT,null);
768: begin
769: if buffer is null then
770:
771: select count(1)
772: into buffer
773: from fnd_languages
774: where installed_flag in ('I', 'B');
775:
776: put_nosys(FND_CONST.LANGUAGE_COUNT,to_char(buffer));
777: end if;
778: return buffer;
779: exception
780: when no_data_found then
783:
784: -- LOGIN_ID -
785: function login_id return number is
786: begin
787: return get_i(FND_CONST.LOGIN_ID);
788: end login_id;
789:
790: -- ORG_ID -
791: function org_id return number is
789:
790: -- ORG_ID -
791: function org_id return number is
792: begin
793: return get_i(FND_CONST.ORG_ID);
794: end org_id;
795:
796: -- Fetches and caches ORG_NAME based on current ORG_ID
797: function org_name return varchar2 is
794: end org_id;
795:
796: -- Fetches and caches ORG_NAME based on current ORG_ID
797: function org_name return varchar2 is
798: v_org_name varchar2(2000) := get(FND_CONST.ORG_NAME);
799: v_org_id integer;
800: begin
801: if v_org_name is null then
802: v_org_id := org_id;
804: select name into v_org_name
805: from hr_operating_units
806: where organization_id = v_org_id;
807:
808: put(FND_CONST.ORG_NAME,v_org_name);
809: end if;
810: end if;
811:
812: return(v_org_name);
811:
812: return(v_org_name);
813: exception
814: when others then
815: clear(FND_CONST.ORG_NAME);
816: return null;
817: end org_name;
818:
819: -- PARTY_ID -
818:
819: -- PARTY_ID -
820: function party_id return number is
821: begin
822: return get_i(FND_CONST.PARTY_ID);
823: end party_id;
824:
825: -- PER_BUSINESS_GROUP_ID -
826: function per_business_group_id return number is
824:
825: -- PER_BUSINESS_GROUP_ID -
826: function per_business_group_id return number is
827: begin
828: return get_i(FND_CONST.PER_BUSINESS_GROUP_ID);
829: end per_business_group_id;
830:
831: -- PER_SECURITY_PROFILE_ID -
832: function per_security_profile_id return number is
830:
831: -- PER_SECURITY_PROFILE_ID -
832: function per_security_profile_id return number is
833: begin
834: return get_i(FND_CONST.PER_SECURITY_PROFILE_ID);
835: end per_security_profile_id;
836:
837: -- PROG_APPL_ID -
838: function prog_appl_id return number is
836:
837: -- PROG_APPL_ID -
838: function prog_appl_id return number is
839: begin
840: return get_i(FND_CONST.PROG_APPL_ID);
841: end prog_appl_id;
842:
843: -- QUEUE_APPL_ID -
844: function queue_appl_id return number is
842:
843: -- QUEUE_APPL_ID -
844: function queue_appl_id return number is
845: begin
846: return get_i(FND_CONST.QUEUE_APPL_ID);
847: end queue_appl_id;
848:
849: -- RESP_APPL_ID - Return responsibility application id
850: function resp_appl_id return number is
848:
849: -- RESP_APPL_ID - Return responsibility application id
850: function resp_appl_id return number is
851: begin
852: return get_i(FND_CONST.RESP_APPL_ID);
853: end resp_appl_id;
854:
855: -- RESP_ID - Return responsibility id
856: function resp_id return number is
854:
855: -- RESP_ID - Return responsibility id
856: function resp_id return number is
857: begin
858: return get_i(FND_CONST.RESP_ID);
859: end resp_id;
860:
861: -- RESP_NAME -
862: function resp_name return varchar2 is
869: end if;
870:
871: -- no caching of RESP_NAME
872: -- to avoid changing pragma in spec
873: --buffer := get(FND_CONST.RESP_NAME);
874: --if buffer is null then
875:
876: -- Re-query every time in case of language change --
877: select r.responsibility_name
881: and r.application_id = v_raid;
882:
883: -- no caching of RESP_NAME
884: -- to avoid changing pragma in spec
885: --put_nosys(FND_CONST.RESP_NAME,buffer);
886: --end if;
887:
888: return buffer;
889: exception
889: exception
890: when no_data_found then
891: -- no caching of RESP_NAME
892: -- to avoid changing pragma in spec
893: --clear(FND_CONST.RESP_NAME);
894: return null;
895: end resp_name;
896:
897: -- RESP_KEY -
919:
920: -- RT_TEST_ID -
921: function rt_test_id return number is
922: begin
923: return get_i(FND_CONST.RT_TEST_ID);
924: end rt_test_id;
925:
926: -- Bug 12875860 - remove function security_groups_enabled - NOT used
927:
927:
928: -- SECURITY_GROUP_ID - Return security group id
929: function security_group_id return number is
930: begin
931: return get_i(FND_CONST.SECURITY_GROUP_ID,0);
932: end security_group_id;
933:
934: -- SECURITY_GROUP_ID_POLICY - Return security group id
935: function security_group_id_policy(d1 varchar2, d2 varchar2) return varchar2 is
933:
934: -- SECURITY_GROUP_ID_POLICY - Return security group id
935: function security_group_id_policy(d1 varchar2, d2 varchar2) return varchar2 is
936: begin
937: if is_undefined(FND_CONST.SECURITY_GROUP_ID) then
938: return null;
939: end if;
940: return '(security_group_id = SYS_CONTEXT(''FND'',''SECURITY_GROUP_ID''))';
941: end security_group_id_policy;
942:
943: -- SERVER_ID -
944: function server_id return number is
945: begin
946: return get_i(FND_CONST.SERVER_ID);
947: end server_id;
948:
949: -- SESSION_ID - Return responsibility id
950: function session_id return number is
948:
949: -- SESSION_ID - Return responsibility id
950: function session_id return number is
951: begin
952: return get_i(FND_CONST.SESSION_ID);
953: end session_id;
954:
955: -- SITE_ID -
956: function site_id return number is
954:
955: -- SITE_ID -
956: function site_id return number is
957: begin
958: return get_i(FND_CONST.SITE_ID);
959: end site_id;
960:
961: -- SUPPLIER_ID -
962: function supplier_id return number is
960:
961: -- SUPPLIER_ID -
962: function supplier_id return number is
963: begin
964: return get_i(FND_CONST.SUPPLIER_ID);
965: end supplier_id;
966:
967: -- USER_ID - Return user id
968: function user_id return number is
966:
967: -- USER_ID - Return user id
968: function user_id return number is
969: begin
970: return get_i(FND_CONST.USER_ID);
971: end user_id;
972:
973: -- USER_NAME -
974: function user_name return varchar2 is
972:
973: -- USER_NAME -
974: function user_name return varchar2 is
975: begin
976: return get(FND_CONST.USER_NAME);
977: end user_name;
978:
979:
980: -- NLS functions
979:
980: -- NLS functions
981: function nls_language return varchar2 is
982: begin
983: return get(FND_CONST.NLS_LANGUAGE);
984: end nls_language;
985:
986: function nls_numeric_characters return varchar2 is
987: begin
984: end nls_language;
985:
986: function nls_numeric_characters return varchar2 is
987: begin
988: return get(FND_CONST.NLS_NUMERIC_CHARACTERS);
989: end nls_numeric_characters;
990:
991: function nls_date_format return varchar2 is
992: begin
989: end nls_numeric_characters;
990:
991: function nls_date_format return varchar2 is
992: begin
993: return get(FND_CONST.NLS_DATE_FORMAT);
994: end;
995:
996: function nls_date_language return varchar2 is
997: begin
994: end;
995:
996: function nls_date_language return varchar2 is
997: begin
998: return get(FND_CONST.NLS_DATE_LANGUAGE);
999: end nls_date_language;
1000:
1001: function nls_territory return varchar2 is
1002: begin
999: end nls_date_language;
1000:
1001: function nls_territory return varchar2 is
1002: begin
1003: return get(FND_CONST.NLS_TERRITORY);
1004: end nls_territory;
1005:
1006: function nls_sort return varchar2 is
1007: begin
1004: end nls_territory;
1005:
1006: function nls_sort return varchar2 is
1007: begin
1008: return get(FND_CONST.NLS_SORT);
1009: end nls_sort;
1010:
1011: -- Get Security Group Id from which to retrieve lookup type.
1012: -- This will either be the current security group, or default to the
1087: end if;
1088: end assert_no_pool;
1089:
1090: --
1091: procedure save_hash(p_hash in out nocopy fnd_const.t_hashtable,
1092: p_names in out nocopy t_wa,
1093: p_values in out nocopy t_wa) is
1094: c integer;
1095: p varchar2(2000);
1105:
1106: end save_hash;
1107:
1108: --
1109: procedure restore_hash(p_hash in out nocopy fnd_const.t_hashtable,
1110: p_names in out nocopy t_wa,
1111: p_values in out nocopy t_wa) is
1112: c integer;
1113: p varchar2(2000);
1194: -- Bug 9226640: the cached org_name value should be cleared if the NLS
1195: -- context changes, so that when org_name is called, the value is refreshed
1196: -- with the prevailing NLS session context.
1197: --
1198: clear(FND_CONST.ORG_NAME);
1199:
1200: end post_nls_change;
1201:
1202: --
1219: v_nls_charset_name varchar2(30) := nls_charset_name(nls_charset_id('CHAR_CS'));
1220: begin
1221:
1222: nul_dl := p_nls_date_language is null;
1223: new_dl := is_new(FND_CONST.NLS_DATE_LANGUAGE);
1224: new_df := is_new(FND_CONST.NLS_DATE_FORMAT);
1225: chg_dl := has_changed(FND_CONST.NLS_DATE_LANGUAGE,p_nls_date_language);
1226: mon_lk := nls_date_format like '%MON%';
1227: mm_lk := nls_date_format like '%MM%';
1220: begin
1221:
1222: nul_dl := p_nls_date_language is null;
1223: new_dl := is_new(FND_CONST.NLS_DATE_LANGUAGE);
1224: new_df := is_new(FND_CONST.NLS_DATE_FORMAT);
1225: chg_dl := has_changed(FND_CONST.NLS_DATE_LANGUAGE,p_nls_date_language);
1226: mon_lk := nls_date_format like '%MON%';
1227: mm_lk := nls_date_format like '%MM%';
1228:
1221:
1222: nul_dl := p_nls_date_language is null;
1223: new_dl := is_new(FND_CONST.NLS_DATE_LANGUAGE);
1224: new_df := is_new(FND_CONST.NLS_DATE_FORMAT);
1225: chg_dl := has_changed(FND_CONST.NLS_DATE_LANGUAGE,p_nls_date_language);
1226: mon_lk := nls_date_format like '%MON%';
1227: mm_lk := nls_date_format like '%MM%';
1228:
1229: if is_debugging then
1228:
1229: if is_debugging then
1230: debugger(dbms_utility.format_call_stack);
1231: debugger('? p_nls_date_language is null :'
1232: ||fnd_const.bool(nul_dl));
1233: debugger('? is_new(FND_CONST.NLS_DATE_LANGUAGE) :'
1234: ||fnd_const.bool(new_dl));
1235: debugger('? is_new(FND_CONST.NLS_DATE_FORMAT) :'
1236: ||fnd_const.bool(new_df));
1229: if is_debugging then
1230: debugger(dbms_utility.format_call_stack);
1231: debugger('? p_nls_date_language is null :'
1232: ||fnd_const.bool(nul_dl));
1233: debugger('? is_new(FND_CONST.NLS_DATE_LANGUAGE) :'
1234: ||fnd_const.bool(new_dl));
1235: debugger('? is_new(FND_CONST.NLS_DATE_FORMAT) :'
1236: ||fnd_const.bool(new_df));
1237: debugger('? has_changed(FND_CONST.NLS_DATE_LANGUAGE) :'
1230: debugger(dbms_utility.format_call_stack);
1231: debugger('? p_nls_date_language is null :'
1232: ||fnd_const.bool(nul_dl));
1233: debugger('? is_new(FND_CONST.NLS_DATE_LANGUAGE) :'
1234: ||fnd_const.bool(new_dl));
1235: debugger('? is_new(FND_CONST.NLS_DATE_FORMAT) :'
1236: ||fnd_const.bool(new_df));
1237: debugger('? has_changed(FND_CONST.NLS_DATE_LANGUAGE) :'
1238: ||fnd_const.bool(chg_dl));
1231: debugger('? p_nls_date_language is null :'
1232: ||fnd_const.bool(nul_dl));
1233: debugger('? is_new(FND_CONST.NLS_DATE_LANGUAGE) :'
1234: ||fnd_const.bool(new_dl));
1235: debugger('? is_new(FND_CONST.NLS_DATE_FORMAT) :'
1236: ||fnd_const.bool(new_df));
1237: debugger('? has_changed(FND_CONST.NLS_DATE_LANGUAGE) :'
1238: ||fnd_const.bool(chg_dl));
1239: debugger('?= nls_date_format like ''%MON%'' :'
1232: ||fnd_const.bool(nul_dl));
1233: debugger('? is_new(FND_CONST.NLS_DATE_LANGUAGE) :'
1234: ||fnd_const.bool(new_dl));
1235: debugger('? is_new(FND_CONST.NLS_DATE_FORMAT) :'
1236: ||fnd_const.bool(new_df));
1237: debugger('? has_changed(FND_CONST.NLS_DATE_LANGUAGE) :'
1238: ||fnd_const.bool(chg_dl));
1239: debugger('?= nls_date_format like ''%MON%'' :'
1240: ||fnd_const.bool(mon_lk));
1233: debugger('? is_new(FND_CONST.NLS_DATE_LANGUAGE) :'
1234: ||fnd_const.bool(new_dl));
1235: debugger('? is_new(FND_CONST.NLS_DATE_FORMAT) :'
1236: ||fnd_const.bool(new_df));
1237: debugger('? has_changed(FND_CONST.NLS_DATE_LANGUAGE) :'
1238: ||fnd_const.bool(chg_dl));
1239: debugger('?= nls_date_format like ''%MON%'' :'
1240: ||fnd_const.bool(mon_lk));
1241: debugger('?= nls_date_format like ''%MM%'' :'
1234: ||fnd_const.bool(new_dl));
1235: debugger('? is_new(FND_CONST.NLS_DATE_FORMAT) :'
1236: ||fnd_const.bool(new_df));
1237: debugger('? has_changed(FND_CONST.NLS_DATE_LANGUAGE) :'
1238: ||fnd_const.bool(chg_dl));
1239: debugger('?= nls_date_format like ''%MON%'' :'
1240: ||fnd_const.bool(mon_lk));
1241: debugger('?= nls_date_format like ''%MM%'' :'
1242: ||fnd_const.bool(mm_lk));
1236: ||fnd_const.bool(new_df));
1237: debugger('? has_changed(FND_CONST.NLS_DATE_LANGUAGE) :'
1238: ||fnd_const.bool(chg_dl));
1239: debugger('?= nls_date_format like ''%MON%'' :'
1240: ||fnd_const.bool(mon_lk));
1241: debugger('?= nls_date_format like ''%MM%'' :'
1242: ||fnd_const.bool(mm_lk));
1243: debugger('?= nul_dl and new_dl :'
1244: ||fnd_const.bool(nul_dl and new_dl));
1238: ||fnd_const.bool(chg_dl));
1239: debugger('?= nls_date_format like ''%MON%'' :'
1240: ||fnd_const.bool(mon_lk));
1241: debugger('?= nls_date_format like ''%MM%'' :'
1242: ||fnd_const.bool(mm_lk));
1243: debugger('?= nul_dl and new_dl :'
1244: ||fnd_const.bool(nul_dl and new_dl));
1245: debugger('?= not nul_dl and chg_dl :'
1246: ||fnd_const.bool(not nul_dl and chg_dl));
1240: ||fnd_const.bool(mon_lk));
1241: debugger('?= nls_date_format like ''%MM%'' :'
1242: ||fnd_const.bool(mm_lk));
1243: debugger('?= nul_dl and new_dl :'
1244: ||fnd_const.bool(nul_dl and new_dl));
1245: debugger('?= not nul_dl and chg_dl :'
1246: ||fnd_const.bool(not nul_dl and chg_dl));
1247: debugger('?= new_df or new_dl :'
1248: ||fnd_const.bool(new_df or new_dl));
1242: ||fnd_const.bool(mm_lk));
1243: debugger('?= nul_dl and new_dl :'
1244: ||fnd_const.bool(nul_dl and new_dl));
1245: debugger('?= not nul_dl and chg_dl :'
1246: ||fnd_const.bool(not nul_dl and chg_dl));
1247: debugger('?= new_df or new_dl :'
1248: ||fnd_const.bool(new_df or new_dl));
1249: end if;
1250:
1244: ||fnd_const.bool(nul_dl and new_dl));
1245: debugger('?= not nul_dl and chg_dl :'
1246: ||fnd_const.bool(not nul_dl and chg_dl));
1247: debugger('?= new_df or new_dl :'
1248: ||fnd_const.bool(new_df or new_dl));
1249: end if;
1250:
1251:
1252: -- All conditions depend on whether there's a 'MON' in
1368: --
1369: procedure query_nls is
1370: begin
1371: -- query to ensure the cache is accurate.
1372: -- not using FND_CONST in query to avoid SQL context switch.
1373: for nls in (select *
1374: from v$nls_parameters
1375: where parameter in (
1376: 'NLS_LANGUAGE',
1400: query_nls;
1401: z_first_initialization := false;
1402: end if;
1403:
1404: z_init(FND_CONST.NLS_LANGUAGE) := false;
1405: z_init(FND_CONST.NLS_DATE_LANGUAGE) := false;
1406: z_init(FND_CONST.NLS_SORT) := false;
1407: z_init(FND_CONST.NLS_TERRITORY) := false;
1408: z_init(FND_CONST.NLS_DATE_FORMAT) := false;
1401: z_first_initialization := false;
1402: end if;
1403:
1404: z_init(FND_CONST.NLS_LANGUAGE) := false;
1405: z_init(FND_CONST.NLS_DATE_LANGUAGE) := false;
1406: z_init(FND_CONST.NLS_SORT) := false;
1407: z_init(FND_CONST.NLS_TERRITORY) := false;
1408: z_init(FND_CONST.NLS_DATE_FORMAT) := false;
1409: z_init(FND_CONST.NLS_NUMERIC_CHARACTERS) := false;
1402: end if;
1403:
1404: z_init(FND_CONST.NLS_LANGUAGE) := false;
1405: z_init(FND_CONST.NLS_DATE_LANGUAGE) := false;
1406: z_init(FND_CONST.NLS_SORT) := false;
1407: z_init(FND_CONST.NLS_TERRITORY) := false;
1408: z_init(FND_CONST.NLS_DATE_FORMAT) := false;
1409: z_init(FND_CONST.NLS_NUMERIC_CHARACTERS) := false;
1410: z_init(FND_CONST.NLS_CHARACTERSET) := false;
1403:
1404: z_init(FND_CONST.NLS_LANGUAGE) := false;
1405: z_init(FND_CONST.NLS_DATE_LANGUAGE) := false;
1406: z_init(FND_CONST.NLS_SORT) := false;
1407: z_init(FND_CONST.NLS_TERRITORY) := false;
1408: z_init(FND_CONST.NLS_DATE_FORMAT) := false;
1409: z_init(FND_CONST.NLS_NUMERIC_CHARACTERS) := false;
1410: z_init(FND_CONST.NLS_CHARACTERSET) := false;
1411:
1404: z_init(FND_CONST.NLS_LANGUAGE) := false;
1405: z_init(FND_CONST.NLS_DATE_LANGUAGE) := false;
1406: z_init(FND_CONST.NLS_SORT) := false;
1407: z_init(FND_CONST.NLS_TERRITORY) := false;
1408: z_init(FND_CONST.NLS_DATE_FORMAT) := false;
1409: z_init(FND_CONST.NLS_NUMERIC_CHARACTERS) := false;
1410: z_init(FND_CONST.NLS_CHARACTERSET) := false;
1411:
1412: end reset_nls;
1405: z_init(FND_CONST.NLS_DATE_LANGUAGE) := false;
1406: z_init(FND_CONST.NLS_SORT) := false;
1407: z_init(FND_CONST.NLS_TERRITORY) := false;
1408: z_init(FND_CONST.NLS_DATE_FORMAT) := false;
1409: z_init(FND_CONST.NLS_NUMERIC_CHARACTERS) := false;
1410: z_init(FND_CONST.NLS_CHARACTERSET) := false;
1411:
1412: end reset_nls;
1413:
1406: z_init(FND_CONST.NLS_SORT) := false;
1407: z_init(FND_CONST.NLS_TERRITORY) := false;
1408: z_init(FND_CONST.NLS_DATE_FORMAT) := false;
1409: z_init(FND_CONST.NLS_NUMERIC_CHARACTERS) := false;
1410: z_init(FND_CONST.NLS_CHARACTERSET) := false;
1411:
1412: end reset_nls;
1413:
1414: --
1462: v_nls_numeric_characters v$nls_parameters.value%type
1463: := p_nls_numeric_characters;
1464:
1465: v_nls_characterset v$nls_parameters.value%type
1466: := get(FND_CONST.NLS_CHARACTERSET);
1467:
1468: --
1469: -- calls dbms_session.set_nls
1470: function set_parameter(p_parameter varchar2, p_value in varchar2)
1530:
1531: -- If NLS_LANGUAGE changed, clear the cached, derived values.
1532: -- This ensures that the passed, derived values are set if different than
1533: -- the default, derived value for this language.
1534: if set_parameter(FND_CONST.NLS_LANGUAGE, v_nls_language) then
1535: z_context(FND_CONST.NLS_DATE_LANGUAGE) := null;
1536: z_context(FND_CONST.NLS_SORT) := null;
1537: end if;
1538:
1531: -- If NLS_LANGUAGE changed, clear the cached, derived values.
1532: -- This ensures that the passed, derived values are set if different than
1533: -- the default, derived value for this language.
1534: if set_parameter(FND_CONST.NLS_LANGUAGE, v_nls_language) then
1535: z_context(FND_CONST.NLS_DATE_LANGUAGE) := null;
1536: z_context(FND_CONST.NLS_SORT) := null;
1537: end if;
1538:
1539: -- if NLS_TERRITORY changed, clear the cached, derived values
1532: -- This ensures that the passed, derived values are set if different than
1533: -- the default, derived value for this language.
1534: if set_parameter(FND_CONST.NLS_LANGUAGE, v_nls_language) then
1535: z_context(FND_CONST.NLS_DATE_LANGUAGE) := null;
1536: z_context(FND_CONST.NLS_SORT) := null;
1537: end if;
1538:
1539: -- if NLS_TERRITORY changed, clear the cached, derived values
1540: -- This ensures that the passed, derived values are set if different than
1538:
1539: -- if NLS_TERRITORY changed, clear the cached, derived values
1540: -- This ensures that the passed, derived values are set if different than
1541: -- the default, derived value for this territory.
1542: if set_parameter(FND_CONST.NLS_TERRITORY, v_nls_territory) then
1543: z_context(FND_CONST.NLS_DATE_FORMAT) := null;
1544: z_context(FND_CONST.NLS_NUMERIC_CHARACTERS) := null;
1545: end if;
1546:
1539: -- if NLS_TERRITORY changed, clear the cached, derived values
1540: -- This ensures that the passed, derived values are set if different than
1541: -- the default, derived value for this territory.
1542: if set_parameter(FND_CONST.NLS_TERRITORY, v_nls_territory) then
1543: z_context(FND_CONST.NLS_DATE_FORMAT) := null;
1544: z_context(FND_CONST.NLS_NUMERIC_CHARACTERS) := null;
1545: end if;
1546:
1547: -- Requery derived values to avoid calling dbms_session.set_nls
1540: -- This ensures that the passed, derived values are set if different than
1541: -- the default, derived value for this territory.
1542: if set_parameter(FND_CONST.NLS_TERRITORY, v_nls_territory) then
1543: z_context(FND_CONST.NLS_DATE_FORMAT) := null;
1544: z_context(FND_CONST.NLS_NUMERIC_CHARACTERS) := null;
1545: end if;
1546:
1547: -- Requery derived values to avoid calling dbms_session.set_nls
1548: -- in case the derived value is the same as the passed parameter value.
1564:
1565: -- NOTE: NLS_DATE_FORMAT must come before NLS_DATE_LANGUAGE.
1566: -- Due to bug 5032374, we need to check the value of NLS_DATE_FORMAT
1567: -- to determine if NLS_DATE_LANGUAGE needs to be overridden.
1568: set_parameter(FND_CONST.NLS_DATE_FORMAT, v_nls_date_format);
1569: set_parameter(FND_CONST.NLS_NUMERIC_CHARACTERS, v_nls_numeric_characters);
1570:
1571: set_parameter(FND_CONST.NLS_SORT, v_nls_sort);
1572: -- Bug 6718678 and 5032384
1565: -- NOTE: NLS_DATE_FORMAT must come before NLS_DATE_LANGUAGE.
1566: -- Due to bug 5032374, we need to check the value of NLS_DATE_FORMAT
1567: -- to determine if NLS_DATE_LANGUAGE needs to be overridden.
1568: set_parameter(FND_CONST.NLS_DATE_FORMAT, v_nls_date_format);
1569: set_parameter(FND_CONST.NLS_NUMERIC_CHARACTERS, v_nls_numeric_characters);
1570:
1571: set_parameter(FND_CONST.NLS_SORT, v_nls_sort);
1572: -- Bug 6718678 and 5032384
1573: -- Instead of passing v_nls_date_language to override nls_date_language,
1567: -- to determine if NLS_DATE_LANGUAGE needs to be overridden.
1568: set_parameter(FND_CONST.NLS_DATE_FORMAT, v_nls_date_format);
1569: set_parameter(FND_CONST.NLS_NUMERIC_CHARACTERS, v_nls_numeric_characters);
1570:
1571: set_parameter(FND_CONST.NLS_SORT, v_nls_sort);
1572: -- Bug 6718678 and 5032384
1573: -- Instead of passing v_nls_date_language to override nls_date_language,
1574: -- pass the nls_language
1575: set_parameter(FND_CONST.NLS_DATE_LANGUAGE,
1571: set_parameter(FND_CONST.NLS_SORT, v_nls_sort);
1572: -- Bug 6718678 and 5032384
1573: -- Instead of passing v_nls_date_language to override nls_date_language,
1574: -- pass the nls_language
1575: set_parameter(FND_CONST.NLS_DATE_LANGUAGE,
1576: override_nls_date_language(v_nls_language));
1577:
1578: post_nls_change;
1579:
1666: p_db_nls_date_language := nls_date_language;
1667: p_db_nls_numeric_characters := nls_numeric_characters;
1668: p_db_nls_sort := nls_sort;
1669: p_db_nls_territory := nls_territory;
1670: p_db_nls_charset := get(FND_CONST.NLS_CHARACTERSET);
1671:
1672: if is_debugging then
1673: dump_context;
1674: debugger('end set_nls');
1741: begin
1742: --
1743: -- handle ORG context change
1744: --
1745: if is_new(FND_CONST.ORG_ID) then
1746:
1747: -- if passed an org context and it is invalid (null ORG_NAME), clear the
1748: -- org context. this will only ever occur when explicitly called with
1749: -- ORG_ID via initialize(varchar2,varchar2).
1747: -- if passed an org context and it is invalid (null ORG_NAME), clear the
1748: -- org context. this will only ever occur when explicitly called with
1749: -- ORG_ID via initialize(varchar2,varchar2).
1750: if org_name = null then
1751: clear(FND_CONST.ORG_ID);
1752: end if;
1753:
1754: else
1755:
1811: -- The IF-THEN Block:
1812: -- if defined and (org_id <> v_org_id_s) then
1813: -- ...
1814: -- else
1815: -- put_i(FND_CONST.ORG_ID,'-1');
1816: -- end if;
1817: -- introduced an issue where IF defined and org_id=v_org_id_s,
1818: -- then the organization context was reset to -1. Thus, the
1819: -- IF-THEN block needed to be broken down further to
1819: -- IF-THEN block needed to be broken down further to
1820: -- distinguish that case.
1821: if defined and v_org_id_s is not NULL then
1822: if (org_id <> v_org_id_s) then
1823: put_i(FND_CONST.ORG_ID,v_org_id_s);
1824: end if;
1825: else
1826: -- if DEFAULT_ORG_ID is null, set -1 as the organization
1827: -- context.
1824: end if;
1825: else
1826: -- if DEFAULT_ORG_ID is null, set -1 as the organization
1827: -- context.
1828: put_i(FND_CONST.ORG_ID,'-1');
1829: end if;
1830: else
1831: -- If MO: Security Profile is not set, then get the value of
1832: -- ORG_ID profile option. This get specific call has to be
1841: -- The IF-THEN Block:
1842: -- if defined and (org_id <> v_org_id_s) then
1843: -- ...
1844: -- else
1845: -- put_i(FND_CONST.ORG_ID,'-1');
1846: -- end if;
1847: -- introduced an issue where IF defined and org_id=v_org_id_s,
1848: -- then the organization context was reset to -1. Thus, the
1849: -- IF-THEN block needed to be broken down further to
1849: -- IF-THEN block needed to be broken down further to
1850: -- distinguish that case.
1851: if defined and v_org_id_s is not NULL then
1852: if (org_id <> v_org_id_s) then
1853: put_i(FND_CONST.ORG_ID,v_org_id_s);
1854: end if;
1855: else
1856: -- if ORG_ID is null, set -1 as the organization context.
1857: --
1854: end if;
1855: else
1856: -- if ORG_ID is null, set -1 as the organization context.
1857: --
1858: put_i(FND_CONST.ORG_ID,'-1');
1859: end if;
1860: end if;
1861: end;
1862: else
1874: -- The IF-THEN Block:
1875: -- if defined and (org_id <> v_org_id_s) then
1876: -- ...
1877: -- else
1878: -- put_i(FND_CONST.ORG_ID,'-1');
1879: -- end if;
1880: -- introduced an issue where IF defined and org_id = v_org_id_s,
1881: -- then the organization context was reset to -1. Thus, the IF-THEN
1882: -- block needed to be broken down further to distinguish that
1882: -- block needed to be broken down further to distinguish that
1883: -- case.
1884: if defined and v_org_id_s is not NULL then
1885: if (org_id <> v_org_id_s) then
1886: put_i(FND_CONST.ORG_ID,v_org_id_s);
1887: end if;
1888: else
1889: -- if ORG_ID is null, set -1 as the organization context.
1890: put_i(FND_CONST.ORG_ID,'-1');
1886: put_i(FND_CONST.ORG_ID,v_org_id_s);
1887: end if;
1888: else
1889: -- if ORG_ID is null, set -1 as the organization context.
1890: put_i(FND_CONST.ORG_ID,'-1');
1891: end if;
1892: end if;
1893:
1894: end;
1896: end if;
1897:
1898: end if;
1899:
1900: org_context_change := is_new(FND_CONST.ORG_ID);
1901:
1902: if org_context_change then
1903:
1904: -- for consistency with prior versions, have to fetch org_name here
1902: if org_context_change then
1903:
1904: -- for consistency with prior versions, have to fetch org_name here
1905: -- so it can be set on sys_context
1906: clear(FND_CONST.ORG_NAME);
1907:
1908: declare
1909: v_org_name varchar2(2000);
1910: begin
1950: fnd_profile.get('DEFAULT_ORG_ID',tdef_org_id);
1951: else
1952: -- if XLA_MO_SECURITY_PROFILE_LEVEL is null
1953: -- get ORG_ID value
1954: fnd_profile.get(FND_CONST.ORG_ID,torg_id);
1955: end if;
1956: else
1957: -- If release is less than R12 then need to fall back on ORG_ID for
1958: -- the org context.
1955: end if;
1956: else
1957: -- If release is less than R12 then need to fall back on ORG_ID for
1958: -- the org context.
1959: fnd_profile.get(FND_CONST.ORG_ID,torg_id);
1960: end if;
1961:
1962: end;
1963:
2003:
2004: z_context_change_flag := null;
2005: z_security_context_change_flag := null;
2006:
2007: user_context_change := is_new(FND_CONST.USER_ID);
2008: resp_context_change := is_new(FND_CONST.RESP_ID);
2009: appl_context_change := is_new(FND_CONST.RESP_APPL_ID);
2010: sec_context_change := is_new(FND_CONST.SECURITY_GROUP_ID);
2011: server_context_change := is_new(FND_CONST.SERVER_ID);
2004: z_context_change_flag := null;
2005: z_security_context_change_flag := null;
2006:
2007: user_context_change := is_new(FND_CONST.USER_ID);
2008: resp_context_change := is_new(FND_CONST.RESP_ID);
2009: appl_context_change := is_new(FND_CONST.RESP_APPL_ID);
2010: sec_context_change := is_new(FND_CONST.SECURITY_GROUP_ID);
2011: server_context_change := is_new(FND_CONST.SERVER_ID);
2012: site_context_change := is_new(FND_CONST.SITE_ID);
2005: z_security_context_change_flag := null;
2006:
2007: user_context_change := is_new(FND_CONST.USER_ID);
2008: resp_context_change := is_new(FND_CONST.RESP_ID);
2009: appl_context_change := is_new(FND_CONST.RESP_APPL_ID);
2010: sec_context_change := is_new(FND_CONST.SECURITY_GROUP_ID);
2011: server_context_change := is_new(FND_CONST.SERVER_ID);
2012: site_context_change := is_new(FND_CONST.SITE_ID);
2013:
2006:
2007: user_context_change := is_new(FND_CONST.USER_ID);
2008: resp_context_change := is_new(FND_CONST.RESP_ID);
2009: appl_context_change := is_new(FND_CONST.RESP_APPL_ID);
2010: sec_context_change := is_new(FND_CONST.SECURITY_GROUP_ID);
2011: server_context_change := is_new(FND_CONST.SERVER_ID);
2012: site_context_change := is_new(FND_CONST.SITE_ID);
2013:
2014: --
2007: user_context_change := is_new(FND_CONST.USER_ID);
2008: resp_context_change := is_new(FND_CONST.RESP_ID);
2009: appl_context_change := is_new(FND_CONST.RESP_APPL_ID);
2010: sec_context_change := is_new(FND_CONST.SECURITY_GROUP_ID);
2011: server_context_change := is_new(FND_CONST.SERVER_ID);
2012: site_context_change := is_new(FND_CONST.SITE_ID);
2013:
2014: --
2015: -- NLS initialization
2008: resp_context_change := is_new(FND_CONST.RESP_ID);
2009: appl_context_change := is_new(FND_CONST.RESP_APPL_ID);
2010: sec_context_change := is_new(FND_CONST.SECURITY_GROUP_ID);
2011: server_context_change := is_new(FND_CONST.SERVER_ID);
2012: site_context_change := is_new(FND_CONST.SITE_ID);
2013:
2014: --
2015: -- NLS initialization
2016: --
2013:
2014: --
2015: -- NLS initialization
2016: --
2017: set_nls(get(FND_CONST.NLS_LANGUAGE),
2018: get(FND_CONST.NLS_DATE_LANGUAGE),
2019: get(FND_CONST.NLS_SORT),
2020: get(FND_CONST.NLS_TERRITORY),
2021: get(FND_CONST.NLS_DATE_FORMAT),
2014: --
2015: -- NLS initialization
2016: --
2017: set_nls(get(FND_CONST.NLS_LANGUAGE),
2018: get(FND_CONST.NLS_DATE_LANGUAGE),
2019: get(FND_CONST.NLS_SORT),
2020: get(FND_CONST.NLS_TERRITORY),
2021: get(FND_CONST.NLS_DATE_FORMAT),
2022: get(FND_CONST.NLS_NUMERIC_CHARACTERS));
2015: -- NLS initialization
2016: --
2017: set_nls(get(FND_CONST.NLS_LANGUAGE),
2018: get(FND_CONST.NLS_DATE_LANGUAGE),
2019: get(FND_CONST.NLS_SORT),
2020: get(FND_CONST.NLS_TERRITORY),
2021: get(FND_CONST.NLS_DATE_FORMAT),
2022: get(FND_CONST.NLS_NUMERIC_CHARACTERS));
2023:
2016: --
2017: set_nls(get(FND_CONST.NLS_LANGUAGE),
2018: get(FND_CONST.NLS_DATE_LANGUAGE),
2019: get(FND_CONST.NLS_SORT),
2020: get(FND_CONST.NLS_TERRITORY),
2021: get(FND_CONST.NLS_DATE_FORMAT),
2022: get(FND_CONST.NLS_NUMERIC_CHARACTERS));
2023:
2024: --
2017: set_nls(get(FND_CONST.NLS_LANGUAGE),
2018: get(FND_CONST.NLS_DATE_LANGUAGE),
2019: get(FND_CONST.NLS_SORT),
2020: get(FND_CONST.NLS_TERRITORY),
2021: get(FND_CONST.NLS_DATE_FORMAT),
2022: get(FND_CONST.NLS_NUMERIC_CHARACTERS));
2023:
2024: --
2025: -- SECURITY_GROUP_ID initialization
2018: get(FND_CONST.NLS_DATE_LANGUAGE),
2019: get(FND_CONST.NLS_SORT),
2020: get(FND_CONST.NLS_TERRITORY),
2021: get(FND_CONST.NLS_DATE_FORMAT),
2022: get(FND_CONST.NLS_NUMERIC_CHARACTERS));
2023:
2024: --
2025: -- SECURITY_GROUP_ID initialization
2026: --
2030:
2031: --
2032: -- If necessary, check if this resp_id is accessible from the user_id
2033: --
2034: n := FND_CONST.PROG_APPL_ID;
2035: if is_new(n) and get(n) = '-999' then
2036:
2037: set_undefined(FND_CONST.PROG_APPL_ID);
2038:
2033: --
2034: n := FND_CONST.PROG_APPL_ID;
2035: if is_new(n) and get(n) = '-999' then
2036:
2037: set_undefined(FND_CONST.PROG_APPL_ID);
2038:
2039: -- if any of the values are undefined, there will be no
2040: -- valid responsibility so clear resp_id/resp_appl_id
2041: if is_undefined(FND_CONST.USER_ID)
2037: set_undefined(FND_CONST.PROG_APPL_ID);
2038:
2039: -- if any of the values are undefined, there will be no
2040: -- valid responsibility so clear resp_id/resp_appl_id
2041: if is_undefined(FND_CONST.USER_ID)
2042: or is_undefined(FND_CONST.SECURITY_GROUP_ID)
2043: or is_undefined(FND_CONST.RESP_ID)
2044: or is_undefined(FND_CONST.RESP_APPL_ID) then
2045:
2038:
2039: -- if any of the values are undefined, there will be no
2040: -- valid responsibility so clear resp_id/resp_appl_id
2041: if is_undefined(FND_CONST.USER_ID)
2042: or is_undefined(FND_CONST.SECURITY_GROUP_ID)
2043: or is_undefined(FND_CONST.RESP_ID)
2044: or is_undefined(FND_CONST.RESP_APPL_ID) then
2045:
2046: set_undefined(FND_CONST.RESP_ID);
2039: -- if any of the values are undefined, there will be no
2040: -- valid responsibility so clear resp_id/resp_appl_id
2041: if is_undefined(FND_CONST.USER_ID)
2042: or is_undefined(FND_CONST.SECURITY_GROUP_ID)
2043: or is_undefined(FND_CONST.RESP_ID)
2044: or is_undefined(FND_CONST.RESP_APPL_ID) then
2045:
2046: set_undefined(FND_CONST.RESP_ID);
2047: set_undefined(FND_CONST.RESP_APPL_ID);
2040: -- valid responsibility so clear resp_id/resp_appl_id
2041: if is_undefined(FND_CONST.USER_ID)
2042: or is_undefined(FND_CONST.SECURITY_GROUP_ID)
2043: or is_undefined(FND_CONST.RESP_ID)
2044: or is_undefined(FND_CONST.RESP_APPL_ID) then
2045:
2046: set_undefined(FND_CONST.RESP_ID);
2047: set_undefined(FND_CONST.RESP_APPL_ID);
2048:
2042: or is_undefined(FND_CONST.SECURITY_GROUP_ID)
2043: or is_undefined(FND_CONST.RESP_ID)
2044: or is_undefined(FND_CONST.RESP_APPL_ID) then
2045:
2046: set_undefined(FND_CONST.RESP_ID);
2047: set_undefined(FND_CONST.RESP_APPL_ID);
2048:
2049: else
2050:
2043: or is_undefined(FND_CONST.RESP_ID)
2044: or is_undefined(FND_CONST.RESP_APPL_ID) then
2045:
2046: set_undefined(FND_CONST.RESP_ID);
2047: set_undefined(FND_CONST.RESP_APPL_ID);
2048:
2049: else
2050:
2051: declare
2068: -- If there is a row, then all is well so just continue.
2069: -- Otherwise, no rows means this resp doesn't have access,
2070: -- so set resp_id/resp_appl_id as undefined.
2071: if 0 = v_count then
2072: set_undefined(FND_CONST.RESP_ID);
2073: set_undefined(FND_CONST.RESP_APPL_ID);
2074: end if;
2075:
2076: end;
2069: -- Otherwise, no rows means this resp doesn't have access,
2070: -- so set resp_id/resp_appl_id as undefined.
2071: if 0 = v_count then
2072: set_undefined(FND_CONST.RESP_ID);
2073: set_undefined(FND_CONST.RESP_APPL_ID);
2074: end if;
2075:
2076: end;
2077: end if;
2082: -- This is done here to save a round trip. The value is passed
2083: -- back to the client and used to set a client-side profile.
2084: -- Pl/sql should get this value directly.
2085: --
2086: put_i(FND_CONST.SESSION_ID,userenv('SESSIONID'));
2087:
2088: --
2089: -- query user information if user_id changed
2090: --
2101: begin
2102: v_user.user_id := user_id;
2103:
2104: select u.user_name,
2105: nvl(u.employee_id, FND_CONST.UNDEFINED_I) employee_id,
2106: nvl(u.customer_id, FND_CONST.UNDEFINED_I) customer_id,
2107: nvl(u.supplier_id, FND_CONST.UNDEFINED_I) supplier_id,
2108: nvl(u.person_party_id, FND_CONST.UNDEFINED_I) person_party_id
2109: into v_user.user_name,
2102: v_user.user_id := user_id;
2103:
2104: select u.user_name,
2105: nvl(u.employee_id, FND_CONST.UNDEFINED_I) employee_id,
2106: nvl(u.customer_id, FND_CONST.UNDEFINED_I) customer_id,
2107: nvl(u.supplier_id, FND_CONST.UNDEFINED_I) supplier_id,
2108: nvl(u.person_party_id, FND_CONST.UNDEFINED_I) person_party_id
2109: into v_user.user_name,
2110: v_user.employee_id,
2103:
2104: select u.user_name,
2105: nvl(u.employee_id, FND_CONST.UNDEFINED_I) employee_id,
2106: nvl(u.customer_id, FND_CONST.UNDEFINED_I) customer_id,
2107: nvl(u.supplier_id, FND_CONST.UNDEFINED_I) supplier_id,
2108: nvl(u.person_party_id, FND_CONST.UNDEFINED_I) person_party_id
2109: into v_user.user_name,
2110: v_user.employee_id,
2111: v_user.customer_id,
2104: select u.user_name,
2105: nvl(u.employee_id, FND_CONST.UNDEFINED_I) employee_id,
2106: nvl(u.customer_id, FND_CONST.UNDEFINED_I) customer_id,
2107: nvl(u.supplier_id, FND_CONST.UNDEFINED_I) supplier_id,
2108: nvl(u.person_party_id, FND_CONST.UNDEFINED_I) person_party_id
2109: into v_user.user_name,
2110: v_user.employee_id,
2111: v_user.customer_id,
2112: v_user.supplier_id,
2113: v_user.person_party_id
2114: from fnd_user u
2115: where u.user_id = v_user.user_id;
2116:
2117: put(FND_CONST.USER_NAME,v_user.user_name);
2118: put(FND_CONST.EMPLOYEE_ID,v_user.employee_id);
2119: put(FND_CONST.CUSTOMER_ID,v_user.customer_id);
2120: put(FND_CONST.SUPPLIER_ID,v_user.supplier_id);
2121: put(FND_CONST.PARTY_ID,v_user.person_party_id);
2114: from fnd_user u
2115: where u.user_id = v_user.user_id;
2116:
2117: put(FND_CONST.USER_NAME,v_user.user_name);
2118: put(FND_CONST.EMPLOYEE_ID,v_user.employee_id);
2119: put(FND_CONST.CUSTOMER_ID,v_user.customer_id);
2120: put(FND_CONST.SUPPLIER_ID,v_user.supplier_id);
2121: put(FND_CONST.PARTY_ID,v_user.person_party_id);
2122:
2115: where u.user_id = v_user.user_id;
2116:
2117: put(FND_CONST.USER_NAME,v_user.user_name);
2118: put(FND_CONST.EMPLOYEE_ID,v_user.employee_id);
2119: put(FND_CONST.CUSTOMER_ID,v_user.customer_id);
2120: put(FND_CONST.SUPPLIER_ID,v_user.supplier_id);
2121: put(FND_CONST.PARTY_ID,v_user.person_party_id);
2122:
2123: exception
2116:
2117: put(FND_CONST.USER_NAME,v_user.user_name);
2118: put(FND_CONST.EMPLOYEE_ID,v_user.employee_id);
2119: put(FND_CONST.CUSTOMER_ID,v_user.customer_id);
2120: put(FND_CONST.SUPPLIER_ID,v_user.supplier_id);
2121: put(FND_CONST.PARTY_ID,v_user.person_party_id);
2122:
2123: exception
2124: when no_data_found then
2117: put(FND_CONST.USER_NAME,v_user.user_name);
2118: put(FND_CONST.EMPLOYEE_ID,v_user.employee_id);
2119: put(FND_CONST.CUSTOMER_ID,v_user.customer_id);
2120: put(FND_CONST.SUPPLIER_ID,v_user.supplier_id);
2121: put(FND_CONST.PARTY_ID,v_user.person_party_id);
2122:
2123: exception
2124: when no_data_found then
2125: clear(FND_CONST.USER_NAME);
2121: put(FND_CONST.PARTY_ID,v_user.person_party_id);
2122:
2123: exception
2124: when no_data_found then
2125: clear(FND_CONST.USER_NAME);
2126: clear(FND_CONST.EMPLOYEE_ID);
2127: clear(FND_CONST.CUSTOMER_ID);
2128: clear(FND_CONST.SUPPLIER_ID);
2129: clear(FND_CONST.PARTY_ID);
2122:
2123: exception
2124: when no_data_found then
2125: clear(FND_CONST.USER_NAME);
2126: clear(FND_CONST.EMPLOYEE_ID);
2127: clear(FND_CONST.CUSTOMER_ID);
2128: clear(FND_CONST.SUPPLIER_ID);
2129: clear(FND_CONST.PARTY_ID);
2130:
2123: exception
2124: when no_data_found then
2125: clear(FND_CONST.USER_NAME);
2126: clear(FND_CONST.EMPLOYEE_ID);
2127: clear(FND_CONST.CUSTOMER_ID);
2128: clear(FND_CONST.SUPPLIER_ID);
2129: clear(FND_CONST.PARTY_ID);
2130:
2131: -- I'd like to clear user_id too since it failed, it isn't valid,
2124: when no_data_found then
2125: clear(FND_CONST.USER_NAME);
2126: clear(FND_CONST.EMPLOYEE_ID);
2127: clear(FND_CONST.CUSTOMER_ID);
2128: clear(FND_CONST.SUPPLIER_ID);
2129: clear(FND_CONST.PARTY_ID);
2130:
2131: -- I'd like to clear user_id too since it failed, it isn't valid,
2132: -- but that's not consistent with the old code.
2125: clear(FND_CONST.USER_NAME);
2126: clear(FND_CONST.EMPLOYEE_ID);
2127: clear(FND_CONST.CUSTOMER_ID);
2128: clear(FND_CONST.SUPPLIER_ID);
2129: clear(FND_CONST.PARTY_ID);
2130:
2131: -- I'd like to clear user_id too since it failed, it isn't valid,
2132: -- but that's not consistent with the old code.
2133: -- clear(FND_CONST.USER_ID);
2129: clear(FND_CONST.PARTY_ID);
2130:
2131: -- I'd like to clear user_id too since it failed, it isn't valid,
2132: -- but that's not consistent with the old code.
2133: -- clear(FND_CONST.USER_ID);
2134:
2135: end;
2136: -- The setting of database client identifier session has been moved
2137: -- to tag_db_session call as part of Connection Tagging project. Whenever, this
2148: l_tab_user_name := null;
2149: end;
2150:
2151: if l_tab_user_name is not null and l_tab_user_name <> user_name then
2152: put(FND_CONST.USER_NAME,l_tab_user_name);
2153: end if;
2154: --- code changes for bug 13654980 end.
2155: end if;
2156:
2159: -- query fnd_application data if resp_appl_id changed
2160: --
2161: if appl_context_change then
2162:
2163: clear(FND_CONST.APPLICATION_SHORT_NAME);
2164:
2165: -- avoid executing the query if RESP_APPL_ID is -1
2166: -- and just clear the APPLICATION_SHORT_NAME instead
2167: if is_defined(FND_CONST.RESP_APPL_ID) then
2163: clear(FND_CONST.APPLICATION_SHORT_NAME);
2164:
2165: -- avoid executing the query if RESP_APPL_ID is -1
2166: -- and just clear the APPLICATION_SHORT_NAME instead
2167: if is_defined(FND_CONST.RESP_APPL_ID) then
2168:
2169: declare
2170: v_asn fnd_application.application_short_name%type;
2171: v_raid fnd_application.application_id%type := resp_appl_id;
2175: into v_asn
2176: from fnd_application a
2177: where a.application_id = v_raid;
2178:
2179: put(FND_CONST.APPLICATION_SHORT_NAME,v_asn);
2180:
2181: exception
2182: when no_data_found then
2183: null;
2275: -- bug 12875860 adding this debug to confirm hypothesis above.
2276: if is_debugging then
2277: debugger('. Security groups NOT enabled. SGID='||security_group_id);
2278: end if;
2279: put_i(FND_CONST.SECURITY_GROUP_ID,0);
2280: z_init(FND_CONST.SECURITY_GROUP_ID) := false;
2281: sec_context_change := false;
2282: else
2283: if is_debugging then
2276: if is_debugging then
2277: debugger('. Security groups NOT enabled. SGID='||security_group_id);
2278: end if;
2279: put_i(FND_CONST.SECURITY_GROUP_ID,0);
2280: z_init(FND_CONST.SECURITY_GROUP_ID) := false;
2281: sec_context_change := false;
2282: else
2283: if is_debugging then
2284: debugger('. Security groups enabled. SGID='||security_group_id);
2314: fnd_profile.get('MRC_REPORTING_SOB_ID',mrc_reporting_sob_id);
2315: put('MRC_REPORTING_SOB_ID',mrc_reporting_sob_id);
2316: end if;
2317:
2318: fnd_profile.get(FND_CONST.ICX_LANGUAGE,icx_language);
2319: put(FND_CONST.ICX_LANGUAGE,icx_language);
2320:
2321: end;
2322:
2315: put('MRC_REPORTING_SOB_ID',mrc_reporting_sob_id);
2316: end if;
2317:
2318: fnd_profile.get(FND_CONST.ICX_LANGUAGE,icx_language);
2319: put(FND_CONST.ICX_LANGUAGE,icx_language);
2320:
2321: end;
2322:
2323: --
2448: --
2449: declare
2450: curs integer;
2451: sqlbuf varchar2(2000);
2452: tmpbuf varchar2(2000) := get(FND_CONST.FND_INIT_SQL);
2453: rows integer;
2454: begin
2455:
2456: -- Bug 8335361: With MO_GLOBAL now calling FND_GLOBAL.INITIALIZE and
2466: debugger('in_fnd_init_sql is NOW TRUE');
2467: end if;
2468:
2469: -- Check if FND_INIT_SQL has a value
2470: fnd_profile.get(FND_CONST.FND_INIT_SQL, sqlbuf);
2471:
2472: if sqlbuf is not null then
2473: -- If FND_CONST.FND_INIT_SQL is null or if the profile option value
2474: -- is different from FND_CONST.FND_INIT_SQL
2469: -- Check if FND_INIT_SQL has a value
2470: fnd_profile.get(FND_CONST.FND_INIT_SQL, sqlbuf);
2471:
2472: if sqlbuf is not null then
2473: -- If FND_CONST.FND_INIT_SQL is null or if the profile option value
2474: -- is different from FND_CONST.FND_INIT_SQL
2475: if (tmpbuf is null or sqlbuf <> tmpbuf) then
2476: if is_debugging then
2477: debugger('. fnd_init_sql:'||sqlbuf);
2470: fnd_profile.get(FND_CONST.FND_INIT_SQL, sqlbuf);
2471:
2472: if sqlbuf is not null then
2473: -- If FND_CONST.FND_INIT_SQL is null or if the profile option value
2474: -- is different from FND_CONST.FND_INIT_SQL
2475: if (tmpbuf is null or sqlbuf <> tmpbuf) then
2476: if is_debugging then
2477: debugger('. fnd_init_sql:'||sqlbuf);
2478: end if;
2475: if (tmpbuf is null or sqlbuf <> tmpbuf) then
2476: if is_debugging then
2477: debugger('. fnd_init_sql:'||sqlbuf);
2478: end if;
2479: -- Change FND_CONST.FND_INIT_SQL to new profile option value
2480: put(FND_CONST.FND_INIT_SQL,sqlbuf);
2481: end if;
2482:
2483: -- FND_INIT_SQL needs to execute for each initialization
2476: if is_debugging then
2477: debugger('. fnd_init_sql:'||sqlbuf);
2478: end if;
2479: -- Change FND_CONST.FND_INIT_SQL to new profile option value
2480: put(FND_CONST.FND_INIT_SQL,sqlbuf);
2481: end if;
2482:
2483: -- FND_INIT_SQL needs to execute for each initialization
2484: curs := dbms_sql.open_cursor;
2535: -- HR_SIGNON.INITIALIZE_HR_SECURITY was called they updated profile PUT's
2536: -- so we should load Local CONST values
2537:
2538: -- get value from PUT cache
2539: v := fnd_profile.value(FND_CONST.PER_BUSINESS_GROUP_ID);
2540: -- load local value
2541: put(FND_CONST.PER_BUSINESS_GROUP_ID,v,false);
2542:
2543: -- get value from PUT cache
2537:
2538: -- get value from PUT cache
2539: v := fnd_profile.value(FND_CONST.PER_BUSINESS_GROUP_ID);
2540: -- load local value
2541: put(FND_CONST.PER_BUSINESS_GROUP_ID,v,false);
2542:
2543: -- get value from PUT cache
2544: v := fnd_profile.value(FND_CONST.PER_SECURITY_PROFILE_ID);
2545: -- load local value
2540: -- load local value
2541: put(FND_CONST.PER_BUSINESS_GROUP_ID,v,false);
2542:
2543: -- get value from PUT cache
2544: v := fnd_profile.value(FND_CONST.PER_SECURITY_PROFILE_ID);
2545: -- load local value
2546: put(FND_CONST.PER_SECURITY_PROFILE_ID,v,false);
2547:
2548: if is_debugging then
2542:
2543: -- get value from PUT cache
2544: v := fnd_profile.value(FND_CONST.PER_SECURITY_PROFILE_ID);
2545: -- load local value
2546: put(FND_CONST.PER_SECURITY_PROFILE_ID,v,false);
2547:
2548: if is_debugging then
2549: debugger('HR context change');
2550: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2546: put(FND_CONST.PER_SECURITY_PROFILE_ID,v,false);
2547:
2548: if is_debugging then
2549: debugger('HR context change');
2550: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2551: debugger('HR PER_SECURITY_PROFILE_ID: '||get(FND_CONST.PER_SECURITY_PROFILE_ID));
2552: end if;
2553:
2554: else
2547:
2548: if is_debugging then
2549: debugger('HR context change');
2550: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2551: debugger('HR PER_SECURITY_PROFILE_ID: '||get(FND_CONST.PER_SECURITY_PROFILE_ID));
2552: end if;
2553:
2554: else
2555: -- HR_SIGNON not called but we are in security group mode
2558:
2559: if FND_PROFILE.PUT_CACHE_CLEARED then
2560: -- profile PUT cache was cleared so we need to reset HR values from
2561: -- previous call to HR_SIGNON as stored in CONST local values
2562: fnd_profile.put(FND_CONST.PER_BUSINESS_GROUP_ID, get(FND_CONST.PER_BUSINESS_GROUP_ID));
2563: fnd_profile.put(FND_CONST.PER_SECURITY_PROFILE_ID, get(FND_CONST.PER_SECURITY_PROFILE_ID));
2564:
2565: if is_debugging then
2566: debugger('HR_SIGNON not called but PUT cleared');
2559: if FND_PROFILE.PUT_CACHE_CLEARED then
2560: -- profile PUT cache was cleared so we need to reset HR values from
2561: -- previous call to HR_SIGNON as stored in CONST local values
2562: fnd_profile.put(FND_CONST.PER_BUSINESS_GROUP_ID, get(FND_CONST.PER_BUSINESS_GROUP_ID));
2563: fnd_profile.put(FND_CONST.PER_SECURITY_PROFILE_ID, get(FND_CONST.PER_SECURITY_PROFILE_ID));
2564:
2565: if is_debugging then
2566: debugger('HR_SIGNON not called but PUT cleared');
2567: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2563: fnd_profile.put(FND_CONST.PER_SECURITY_PROFILE_ID, get(FND_CONST.PER_SECURITY_PROFILE_ID));
2564:
2565: if is_debugging then
2566: debugger('HR_SIGNON not called but PUT cleared');
2567: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2568: debugger('HR PER_SECURITY_PROFILE_ID: '||get(FND_CONST.PER_SECURITY_PROFILE_ID));
2569: end if;
2570:
2571: end if;
2564:
2565: if is_debugging then
2566: debugger('HR_SIGNON not called but PUT cleared');
2567: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2568: debugger('HR PER_SECURITY_PROFILE_ID: '||get(FND_CONST.PER_SECURITY_PROFILE_ID));
2569: end if;
2570:
2571: end if;
2572: -- else profile PUT cache was not cleared so previous HR values and our
2582: -- prods it may/should not be enabled but then they are not likely using
2583: -- PER profiles so we have never seen a bug.
2584:
2585: -- first clear PUT cache
2586: fnd_profile.put(FND_CONST.PER_BUSINESS_GROUP_ID, FND_DELETE_VALUE);
2587: fnd_profile.put(FND_CONST.PER_SECURITY_PROFILE_ID, FND_DELETE_VALUE);
2588:
2589: -- get real profile value
2590: v := fnd_profile.value(FND_CONST.PER_BUSINESS_GROUP_ID);
2583: -- PER profiles so we have never seen a bug.
2584:
2585: -- first clear PUT cache
2586: fnd_profile.put(FND_CONST.PER_BUSINESS_GROUP_ID, FND_DELETE_VALUE);
2587: fnd_profile.put(FND_CONST.PER_SECURITY_PROFILE_ID, FND_DELETE_VALUE);
2588:
2589: -- get real profile value
2590: v := fnd_profile.value(FND_CONST.PER_BUSINESS_GROUP_ID);
2591: -- load local value
2586: fnd_profile.put(FND_CONST.PER_BUSINESS_GROUP_ID, FND_DELETE_VALUE);
2587: fnd_profile.put(FND_CONST.PER_SECURITY_PROFILE_ID, FND_DELETE_VALUE);
2588:
2589: -- get real profile value
2590: v := fnd_profile.value(FND_CONST.PER_BUSINESS_GROUP_ID);
2591: -- load local value
2592: put(FND_CONST.PER_BUSINESS_GROUP_ID,v,false);
2593:
2594: -- get real profile value
2588:
2589: -- get real profile value
2590: v := fnd_profile.value(FND_CONST.PER_BUSINESS_GROUP_ID);
2591: -- load local value
2592: put(FND_CONST.PER_BUSINESS_GROUP_ID,v,false);
2593:
2594: -- get real profile value
2595: v := fnd_profile.value(FND_CONST.PER_SECURITY_PROFILE_ID);
2596: -- load local value
2591: -- load local value
2592: put(FND_CONST.PER_BUSINESS_GROUP_ID,v,false);
2593:
2594: -- get real profile value
2595: v := fnd_profile.value(FND_CONST.PER_SECURITY_PROFILE_ID);
2596: -- load local value
2597: put(FND_CONST.PER_SECURITY_PROFILE_ID,v,false);
2598:
2599: -- put debug out just for FYI
2593:
2594: -- get real profile value
2595: v := fnd_profile.value(FND_CONST.PER_SECURITY_PROFILE_ID);
2596: -- load local value
2597: put(FND_CONST.PER_SECURITY_PROFILE_ID,v,false);
2598:
2599: -- put debug out just for FYI
2600: if is_debugging then
2601: debugger('NOT HR security group');
2598:
2599: -- put debug out just for FYI
2600: if is_debugging then
2601: debugger('NOT HR security group');
2602: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2603: debugger('HR PER_SECURITY_PROFILE_ID: '||get(FND_CONST.PER_SECURITY_PROFILE_ID));
2604: end if;
2605:
2606: end if;
2599: -- put debug out just for FYI
2600: if is_debugging then
2601: debugger('NOT HR security group');
2602: debugger('HR PER_BUSINESS_GROUP_ID: '||get(FND_CONST.PER_BUSINESS_GROUP_ID));
2603: debugger('HR PER_SECURITY_PROFILE_ID: '||get(FND_CONST.PER_SECURITY_PROFILE_ID));
2604: end if;
2605:
2606: end if;
2607:
2607:
2608:
2609: -- fetch all the logging profiles so that logging can
2610: -- be properly initialized
2611: put_from_profile(FND_CONST.AFLOG_ENABLED);
2612: put_from_profile(FND_CONST.AFLOG_MODULE);
2613: put_from_profile(FND_CONST.AFLOG_LEVEL);
2614: put_from_profile(FND_CONST.AFLOG_FILENAME);
2615:
2608:
2609: -- fetch all the logging profiles so that logging can
2610: -- be properly initialized
2611: put_from_profile(FND_CONST.AFLOG_ENABLED);
2612: put_from_profile(FND_CONST.AFLOG_MODULE);
2613: put_from_profile(FND_CONST.AFLOG_LEVEL);
2614: put_from_profile(FND_CONST.AFLOG_FILENAME);
2615:
2616: -- clear all the derived values that are cached as a
2609: -- fetch all the logging profiles so that logging can
2610: -- be properly initialized
2611: put_from_profile(FND_CONST.AFLOG_ENABLED);
2612: put_from_profile(FND_CONST.AFLOG_MODULE);
2613: put_from_profile(FND_CONST.AFLOG_LEVEL);
2614: put_from_profile(FND_CONST.AFLOG_FILENAME);
2615:
2616: -- clear all the derived values that are cached as a
2617: -- result of lazy initialization.
2610: -- be properly initialized
2611: put_from_profile(FND_CONST.AFLOG_ENABLED);
2612: put_from_profile(FND_CONST.AFLOG_MODULE);
2613: put_from_profile(FND_CONST.AFLOG_LEVEL);
2614: put_from_profile(FND_CONST.AFLOG_FILENAME);
2615:
2616: -- clear all the derived values that are cached as a
2617: -- result of lazy initialization.
2618: clear_derived_values;
2630:
2631: --
2632: -- p_hashtable is a name/value pairs to initialize.
2633: procedure initialize(p_mode in varchar2,
2634: p_nv in out nocopy fnd_const.t_hashtable)
2635: as
2636: c integer;
2637: p varchar2(2000);
2638: begin
2636: c integer;
2637: p varchar2(2000);
2638: begin
2639:
2640: if p_mode = FND_CONST.MODE_IN or p_mode = FND_CONST.MODE_INOUT then
2641:
2642: z_init.delete;
2643:
2644: c := p_nv.count;
2652: initialize;
2653:
2654: end if;
2655:
2656: if p_mode = FND_CONST.MODE_OUT or p_mode = FND_CONST.MODE_INOUT then
2657:
2658: c := z_context.count;
2659: p := z_context.first;
2660: for i in 1..c loop
2667: end initialize;
2668:
2669: --
2670: -- p_nv is a name/value pairs to initialize.
2671: procedure initialize(p_nv in out nocopy fnd_const.t_hashtable)
2672: as
2673: begin
2674: initialize(FND_CONST.MODE_INOUT,p_nv);
2675: end initialize;
2670: -- p_nv is a name/value pairs to initialize.
2671: procedure initialize(p_nv in out nocopy fnd_const.t_hashtable)
2672: as
2673: begin
2674: initialize(FND_CONST.MODE_INOUT,p_nv);
2675: end initialize;
2676:
2677: --
2678: -- initialize a single attribute
2718: -- INTERNAL AOL USE ONLY
2719: --
2720: procedure set_security_group_id_context(security_group_id in number) is
2721: begin
2722: initialize(FND_CONST.SECURITY_GROUP_ID, to_char(security_group_id));
2723: exception
2724: when others then
2725: log('fnd_global.set_security_group_id_context',
2726: sqlcode, dbms_utility.format_error_stack);
2768: conc_queue_id in number default null,
2769: queue_appl_id in number default null,
2770: server_id in number default -1)
2771: is
2772: v_nv fnd_const.t_hashtable;
2773:
2774: -- set a value in v_nv (list of new name/value pairs)
2775: procedure put_nv(name varchar2, value varchar2)
2776: as
2781: end put_nv;
2782:
2783: begin
2784:
2785: put_nv(FND_CONST.USER_ID,to_char(user_id));
2786: put_nv(FND_CONST.RESP_ID,to_char(resp_id));
2787: put_nv(FND_CONST.RESP_APPL_ID,to_char(resp_appl_id));
2788: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2789: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2782:
2783: begin
2784:
2785: put_nv(FND_CONST.USER_ID,to_char(user_id));
2786: put_nv(FND_CONST.RESP_ID,to_char(resp_id));
2787: put_nv(FND_CONST.RESP_APPL_ID,to_char(resp_appl_id));
2788: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2789: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2790: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2783: begin
2784:
2785: put_nv(FND_CONST.USER_ID,to_char(user_id));
2786: put_nv(FND_CONST.RESP_ID,to_char(resp_id));
2787: put_nv(FND_CONST.RESP_APPL_ID,to_char(resp_appl_id));
2788: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2789: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2790: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2791: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2784:
2785: put_nv(FND_CONST.USER_ID,to_char(user_id));
2786: put_nv(FND_CONST.RESP_ID,to_char(resp_id));
2787: put_nv(FND_CONST.RESP_APPL_ID,to_char(resp_appl_id));
2788: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2789: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2790: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2791: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2792: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2785: put_nv(FND_CONST.USER_ID,to_char(user_id));
2786: put_nv(FND_CONST.RESP_ID,to_char(resp_id));
2787: put_nv(FND_CONST.RESP_APPL_ID,to_char(resp_appl_id));
2788: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2789: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2790: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2791: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2792: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2793: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2786: put_nv(FND_CONST.RESP_ID,to_char(resp_id));
2787: put_nv(FND_CONST.RESP_APPL_ID,to_char(resp_appl_id));
2788: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2789: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2790: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2791: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2792: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2793: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2794: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2787: put_nv(FND_CONST.RESP_APPL_ID,to_char(resp_appl_id));
2788: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2789: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2790: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2791: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2792: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2793: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2794: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2795: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2788: put_nv(FND_CONST.SECURITY_GROUP_ID,to_char(nvl(security_group_id,0)));
2789: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2790: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2791: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2792: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2793: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2794: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2795: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2796: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2789: put_nv(FND_CONST.SITE_ID,to_char(site_id));
2790: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2791: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2792: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2793: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2794: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2795: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2796: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2797: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2790: put_nv(FND_CONST.LOGIN_ID,to_char(login_id));
2791: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2792: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2793: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2794: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2795: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2796: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2797: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2798: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2791: put_nv(FND_CONST.CONC_LOGIN_ID,to_char(conc_login_id));
2792: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2793: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2794: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2795: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2796: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2797: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2798: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2799: put_nv(FND_CONST.CONC_QUEUE_ID,to_char(nvl(conc_queue_id,FND_CONST.UNDEFINED_I)));
2792: put_nv(FND_CONST.PROG_APPL_ID,to_char(prog_appl_id));
2793: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2794: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2795: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2796: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2797: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2798: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2799: put_nv(FND_CONST.CONC_QUEUE_ID,to_char(nvl(conc_queue_id,FND_CONST.UNDEFINED_I)));
2800: put_nv(FND_CONST.QUEUE_APPL_ID,to_char(nvl(queue_appl_id,FND_CONST.UNDEFINED_I)));
2793: put_nv(FND_CONST.CONC_PROGRAM_ID,to_char(conc_program_id));
2794: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2795: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2796: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2797: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2798: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2799: put_nv(FND_CONST.CONC_QUEUE_ID,to_char(nvl(conc_queue_id,FND_CONST.UNDEFINED_I)));
2800: put_nv(FND_CONST.QUEUE_APPL_ID,to_char(nvl(queue_appl_id,FND_CONST.UNDEFINED_I)));
2801: put_nv(FND_CONST.SERVER_ID,to_char(server_id));
2794: put_nv(FND_CONST.CONC_REQUEST_ID,to_char(conc_request_id));
2795: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2796: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2797: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2798: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2799: put_nv(FND_CONST.CONC_QUEUE_ID,to_char(nvl(conc_queue_id,FND_CONST.UNDEFINED_I)));
2800: put_nv(FND_CONST.QUEUE_APPL_ID,to_char(nvl(queue_appl_id,FND_CONST.UNDEFINED_I)));
2801: put_nv(FND_CONST.SERVER_ID,to_char(server_id));
2802:
2795: put_nv(FND_CONST.CONC_PRIORITY_REQUEST,to_char(conc_priority_request));
2796: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2797: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2798: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2799: put_nv(FND_CONST.CONC_QUEUE_ID,to_char(nvl(conc_queue_id,FND_CONST.UNDEFINED_I)));
2800: put_nv(FND_CONST.QUEUE_APPL_ID,to_char(nvl(queue_appl_id,FND_CONST.UNDEFINED_I)));
2801: put_nv(FND_CONST.SERVER_ID,to_char(server_id));
2802:
2803: -- mode_in since the only out variable can be obtained from a function
2796: put_nv(FND_CONST.FORM_ID,to_char(nvl(form_id,FND_CONST.UNDEFINED_I)));
2797: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2798: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2799: put_nv(FND_CONST.CONC_QUEUE_ID,to_char(nvl(conc_queue_id,FND_CONST.UNDEFINED_I)));
2800: put_nv(FND_CONST.QUEUE_APPL_ID,to_char(nvl(queue_appl_id,FND_CONST.UNDEFINED_I)));
2801: put_nv(FND_CONST.SERVER_ID,to_char(server_id));
2802:
2803: -- mode_in since the only out variable can be obtained from a function
2804: initialize(FND_CONST.MODE_IN,v_nv);
2797: put_nv(FND_CONST.FORM_APPL_ID,to_char(nvl(form_appl_id,FND_CONST.UNDEFINED_I)));
2798: put_nv(FND_CONST.CONC_PROCESS_ID,to_char(nvl(conc_process_id,FND_CONST.UNDEFINED_I)));
2799: put_nv(FND_CONST.CONC_QUEUE_ID,to_char(nvl(conc_queue_id,FND_CONST.UNDEFINED_I)));
2800: put_nv(FND_CONST.QUEUE_APPL_ID,to_char(nvl(queue_appl_id,FND_CONST.UNDEFINED_I)));
2801: put_nv(FND_CONST.SERVER_ID,to_char(server_id));
2802:
2803: -- mode_in since the only out variable can be obtained from a function
2804: initialize(FND_CONST.MODE_IN,v_nv);
2805:
2800: put_nv(FND_CONST.QUEUE_APPL_ID,to_char(nvl(queue_appl_id,FND_CONST.UNDEFINED_I)));
2801: put_nv(FND_CONST.SERVER_ID,to_char(server_id));
2802:
2803: -- mode_in since the only out variable can be obtained from a function
2804: initialize(FND_CONST.MODE_IN,v_nv);
2805:
2806: session_id := fnd_global.session_id;
2807:
2808: end initialize;
2836: begin
2837: --
2838: -- Set globals from parameters
2839: --
2840: put(FND_CONST.RT_TEST_ID,rt_test_id);
2841:
2842: end RT_INITIALIZE;
2843:
2844: --
2976: debugger(b||' '||g);
2977:
2978: p := z_context.next(p);
2979: end loop;
2980: debugger('---------'||fnd_const.newline);
2981:
2982: end;
2983:
2984: /* The function validates the value for module_type.
3172: end tag_db_session;
3173:
3174: begin
3175:
3176: -- all these constants can't reference the FND_CONST package
3177: -- because of pragam issues with the spec for this package.
3178:
3179: -- true means to initialize these values after calling
3180: -- fnd_profile.initialize.