52:
53: n_dname := substrb('@'||l_dname, 1, 80);
54:
55: if ( n_dname = l_dname ) then
56: Wf_Core.Token('DNAME', x_display_name);
57: Wf_Core.Token('NAME', x_name);
58: Wf_Core.Token('CONFLICT_NAME', conflict_name);
59: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
60: exit;
53: n_dname := substrb('@'||l_dname, 1, 80);
54:
55: if ( n_dname = l_dname ) then
56: Wf_Core.Token('DNAME', x_display_name);
57: Wf_Core.Token('NAME', x_name);
58: Wf_Core.Token('CONFLICT_NAME', conflict_name);
59: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
60: exit;
61: end if;
54:
55: if ( n_dname = l_dname ) then
56: Wf_Core.Token('DNAME', x_display_name);
57: Wf_Core.Token('NAME', x_name);
58: Wf_Core.Token('CONFLICT_NAME', conflict_name);
59: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
60: exit;
61: end if;
62: exception
55: if ( n_dname = l_dname ) then
56: Wf_Core.Token('DNAME', x_display_name);
57: Wf_Core.Token('NAME', x_name);
58: Wf_Core.Token('CONFLICT_NAME', conflict_name);
59: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
60: exit;
61: end if;
62: exception
63: when no_data_found then
73: -- where NAME = l_name
74: -- and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
75: -- exception
76: -- when others then
77: -- Wf_Core.Token('TABLE', 'ITEM_TYPES_TL');
78: -- Wf_Core.Token('VALUE', l_name);
79: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
80: -- end;
81: exception
74: -- and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
75: -- exception
76: -- when others then
77: -- Wf_Core.Token('TABLE', 'ITEM_TYPES_TL');
78: -- Wf_Core.Token('VALUE', l_name);
79: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
80: -- end;
81: exception
82: when no_data_found then
75: -- exception
76: -- when others then
77: -- Wf_Core.Token('TABLE', 'ITEM_TYPES_TL');
78: -- Wf_Core.Token('VALUE', l_name);
79: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
80: -- end;
81: exception
82: when no_data_found then
83: null;
92: into protection_level, customization_level
93: from WF_ITEM_TYPES_VL
94: where NAME = x_name;
95:
96: if ((wf_core.upload_mode <> 'FORCE') and
97: (protection_level < wf_core.session_level)) then
98: x_level_error := 1;
99: return;
100: end if;
93: from WF_ITEM_TYPES_VL
94: where NAME = x_name;
95:
96: if ((wf_core.upload_mode <> 'FORCE') and
97: (protection_level < wf_core.session_level)) then
98: x_level_error := 1;
99: return;
100: end if;
101:
98: x_level_error := 1;
99: return;
100: end if;
101:
102: if ((wf_core.upload_mode = 'UPGRADE') and
103: (customization_level > wf_core.session_level)) then
104: x_level_error := 2;
105: return;
106: end if;
99: return;
100: end if;
101:
102: if ((wf_core.upload_mode = 'UPGRADE') and
103: (customization_level > wf_core.session_level)) then
104: x_level_error := 2;
105: return;
106: end if;
107:
121: );
122: exception
123: when NO_DATA_FOUND then
124: -- Check protection level for new row
125: if ((wf_core.upload_mode <> 'FORCE') and
126: (x_protect_level < wf_core.session_level)) then
127: x_level_error := 4+1;
128: return;
129: end if;
122: exception
123: when NO_DATA_FOUND then
124: -- Check protection level for new row
125: if ((wf_core.upload_mode <> 'FORCE') and
126: (x_protect_level < wf_core.session_level)) then
127: x_level_error := 4+1;
128: return;
129: end if;
130:
127: x_level_error := 4+1;
128: return;
129: end if;
130:
131: if ((wf_core.upload_mode = 'UPGRADE') and
132: (x_custom_level > wf_core.session_level)) then
133: x_level_error := 4+2;
134: return;
135: end if;
128: return;
129: end if;
130:
131: if ((wf_core.upload_mode = 'UPGRADE') and
132: (x_custom_level > wf_core.session_level)) then
133: x_level_error := 4+2;
134: return;
135: end if;
136:
153:
154:
155: exception
156: when OTHERS then
157: Wf_Core.Context('Wf_Load', 'Upload_Item_Type', x_name);
158: raise;
159: end UPLOAD_ITEM_TYPE;
160:
161: --
205: and SEQUENCE = -1;
206:
207: exception
208: when others then
209: Wf_Core.Context('Wf_Load', 'Reseq_Item_Attribute', itemtype,
210: to_char(oldseq), to_char(newseq));
211: raise;
212: end Reseq_Item_Attribute;
213:
270:
271: n_dname := substrb('@'||l_dname, 1, 80);
272:
273: if ( n_dname = l_dname ) then
274: Wf_Core.Token('DNAME', x_display_name);
275: Wf_Core.Token('NAME', x_item_type||':'||x_name);
276: Wf_Core.Token('CONFLICT_NAME', conflict_name);
277: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
278: exit;
271: n_dname := substrb('@'||l_dname, 1, 80);
272:
273: if ( n_dname = l_dname ) then
274: Wf_Core.Token('DNAME', x_display_name);
275: Wf_Core.Token('NAME', x_item_type||':'||x_name);
276: Wf_Core.Token('CONFLICT_NAME', conflict_name);
277: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
278: exit;
279: end if;
272:
273: if ( n_dname = l_dname ) then
274: Wf_Core.Token('DNAME', x_display_name);
275: Wf_Core.Token('NAME', x_item_type||':'||x_name);
276: Wf_Core.Token('CONFLICT_NAME', conflict_name);
277: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
278: exit;
279: end if;
280: exception
273: if ( n_dname = l_dname ) then
274: Wf_Core.Token('DNAME', x_display_name);
275: Wf_Core.Token('NAME', x_item_type||':'||x_name);
276: Wf_Core.Token('CONFLICT_NAME', conflict_name);
277: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
278: exit;
279: end if;
280: exception
281: when no_data_found then
292: -- and NAME = l_name
293: -- and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
294: -- exception
295: -- when others then
296: -- Wf_Core.Token('TABLE', 'ITEM_ATTRIBUTES_TL');
297: -- Wf_Core.Token('VALUE', l_name);
298: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
299: -- end;
300: exception
293: -- and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
294: -- exception
295: -- when others then
296: -- Wf_Core.Token('TABLE', 'ITEM_ATTRIBUTES_TL');
297: -- Wf_Core.Token('VALUE', l_name);
298: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
299: -- end;
300: exception
301: when no_data_found then
294: -- exception
295: -- when others then
296: -- Wf_Core.Token('TABLE', 'ITEM_ATTRIBUTES_TL');
297: -- Wf_Core.Token('VALUE', l_name);
298: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
299: -- end;
300: exception
301: when no_data_found then
302: null;
322: from WF_ITEM_ATTRIBUTES_VL
323: where ITEM_TYPE = x_item_type
324: and NAME = x_name;
325:
326: if ((wf_core.upload_mode <> 'FORCE') and
327: (protection_level < wf_core.session_level)) then
328: x_level_error := 1;
329: return;
330: end if;
323: where ITEM_TYPE = x_item_type
324: and NAME = x_name;
325:
326: if ((wf_core.upload_mode <> 'FORCE') and
327: (protection_level < wf_core.session_level)) then
328: x_level_error := 1;
329: return;
330: end if;
331:
328: x_level_error := 1;
329: return;
330: end if;
331:
332: if ((wf_core.upload_mode = 'UPGRADE') and
333: (customization_level > wf_core.session_level)) then
334: x_level_error := 2;
335: return;
336: end if;
329: return;
330: end if;
331:
332: if ((wf_core.upload_mode = 'UPGRADE') and
333: (customization_level > wf_core.session_level)) then
334: x_level_error := 2;
335: return;
336: end if;
337:
362: exception
363: when NO_DATA_FOUND then
364: -- Check protection level for new row
365: -- ### Relax the checking on attributes, lookup_code, transitions
366: if ((wf_core.upload_mode <> 'FORCE') and
367: (x_protect_level < wf_core.session_level)) then
368: x_level_error := 1;
369: return;
370: end if;
363: when NO_DATA_FOUND then
364: -- Check protection level for new row
365: -- ### Relax the checking on attributes, lookup_code, transitions
366: if ((wf_core.upload_mode <> 'FORCE') and
367: (x_protect_level < wf_core.session_level)) then
368: x_level_error := 1;
369: return;
370: end if;
371:
368: x_level_error := 1;
369: return;
370: end if;
371:
372: if ((wf_core.upload_mode = 'UPGRADE') and
373: (x_custom_level > wf_core.session_level)) then
374: x_level_error := 2;
375: return;
376: end if;
369: return;
370: end if;
371:
372: if ((wf_core.upload_mode = 'UPGRADE') and
373: (x_custom_level > wf_core.session_level)) then
374: x_level_error := 2;
375: return;
376: end if;
377:
409: end;
410:
411: exception
412: when OTHERS then
413: Wf_Core.Context('Wf_Load', 'Upload_Item_Attribute', x_item_type, x_name);
414: raise;
415: end UPLOAD_ITEM_ATTRIBUTE;
416:
417: --
463:
464: n_dname := substrb('@'||l_dname, 1, 80);
465:
466: if ( n_dname = l_dname ) then
467: Wf_Core.Token('DNAME', x_display_name);
468: Wf_Core.Token('NAME', x_lookup_type);
469: Wf_Core.Token('CONFLICT_NAME', conflict_name);
470: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
471: exit;
464: n_dname := substrb('@'||l_dname, 1, 80);
465:
466: if ( n_dname = l_dname ) then
467: Wf_Core.Token('DNAME', x_display_name);
468: Wf_Core.Token('NAME', x_lookup_type);
469: Wf_Core.Token('CONFLICT_NAME', conflict_name);
470: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
471: exit;
472: end if;
465:
466: if ( n_dname = l_dname ) then
467: Wf_Core.Token('DNAME', x_display_name);
468: Wf_Core.Token('NAME', x_lookup_type);
469: Wf_Core.Token('CONFLICT_NAME', conflict_name);
470: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
471: exit;
472: end if;
473: exception
466: if ( n_dname = l_dname ) then
467: Wf_Core.Token('DNAME', x_display_name);
468: Wf_Core.Token('NAME', x_lookup_type);
469: Wf_Core.Token('CONFLICT_NAME', conflict_name);
470: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
471: exit;
472: end if;
473: exception
474: when no_data_found then
483: -- where LOOKUP_TYPE = l_name
484: -- and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
485: -- exception
486: -- when others then
487: -- Wf_Core.Token('TABLE', 'LOOKUP_TYPES_TL');
488: -- Wf_Core.Token('VALUE', l_name);
489: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
490: -- end;
491: exception
484: -- and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
485: -- exception
486: -- when others then
487: -- Wf_Core.Token('TABLE', 'LOOKUP_TYPES_TL');
488: -- Wf_Core.Token('VALUE', l_name);
489: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
490: -- end;
491: exception
492: when no_data_found then
485: -- exception
486: -- when others then
487: -- Wf_Core.Token('TABLE', 'LOOKUP_TYPES_TL');
488: -- Wf_Core.Token('VALUE', l_name);
489: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
490: -- end;
491: exception
492: when no_data_found then
493: null;
500: into protection_level, customization_level
501: from WF_LOOKUP_TYPES
502: where LOOKUP_TYPE = x_lookup_type;
503:
504: if ((wf_core.upload_mode <> 'FORCE') and
505: (protection_level < wf_core.session_level)) then
506: x_level_error := 1;
507: return;
508: end if;
501: from WF_LOOKUP_TYPES
502: where LOOKUP_TYPE = x_lookup_type;
503:
504: if ((wf_core.upload_mode <> 'FORCE') and
505: (protection_level < wf_core.session_level)) then
506: x_level_error := 1;
507: return;
508: end if;
509:
506: x_level_error := 1;
507: return;
508: end if;
509:
510: if ((wf_core.upload_mode = 'UPGRADE') and
511: (customization_level > wf_core.session_level)) then
512: x_level_error := 2;
513: return;
514: end if;
507: return;
508: end if;
509:
510: if ((wf_core.upload_mode = 'UPGRADE') and
511: (customization_level > wf_core.session_level)) then
512: x_level_error := 2;
513: return;
514: end if;
515:
524: );
525: exception
526: when NO_DATA_FOUND then
527: -- Check protection level for new row
528: if ((wf_core.upload_mode <> 'FORCE') and
529: (x_protect_level < wf_core.session_level)) then
530: x_level_error := 4+1;
531: return;
532: end if;
525: exception
526: when NO_DATA_FOUND then
527: -- Check protection level for new row
528: if ((wf_core.upload_mode <> 'FORCE') and
529: (x_protect_level < wf_core.session_level)) then
530: x_level_error := 4+1;
531: return;
532: end if;
533:
530: x_level_error := 4+1;
531: return;
532: end if;
533:
534: if ((wf_core.upload_mode = 'UPGRADE') and
535: (x_custom_level > wf_core.session_level)) then
536: x_level_error := 4+2;
537: return;
538: end if;
531: return;
532: end if;
533:
534: if ((wf_core.upload_mode = 'UPGRADE') and
535: (x_custom_level > wf_core.session_level)) then
536: x_level_error := 4+2;
537: return;
538: end if;
539:
550: end;
551:
552: exception
553: when OTHERS then
554: Wf_Core.Context('Wf_Load', 'Upload_Lookup_Type', x_lookup_type);
555: raise;
556: end UPLOAD_LOOKUP_TYPE;
557:
558: --
605:
606: n_dname := substrb('@'||l_dname, 1, 80);
607:
608: if ( n_dname = l_dname ) then
609: Wf_Core.Token('DNAME', x_meaning);
610: Wf_Core.Token('NAME', x_lookup_code);
611: Wf_Core.Token('CONFLICT_NAME', conflict_name);
612: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
613: exit;
606: n_dname := substrb('@'||l_dname, 1, 80);
607:
608: if ( n_dname = l_dname ) then
609: Wf_Core.Token('DNAME', x_meaning);
610: Wf_Core.Token('NAME', x_lookup_code);
611: Wf_Core.Token('CONFLICT_NAME', conflict_name);
612: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
613: exit;
614: end if;
607:
608: if ( n_dname = l_dname ) then
609: Wf_Core.Token('DNAME', x_meaning);
610: Wf_Core.Token('NAME', x_lookup_code);
611: Wf_Core.Token('CONFLICT_NAME', conflict_name);
612: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
613: exit;
614: end if;
615: exception
608: if ( n_dname = l_dname ) then
609: Wf_Core.Token('DNAME', x_meaning);
610: Wf_Core.Token('NAME', x_lookup_code);
611: Wf_Core.Token('CONFLICT_NAME', conflict_name);
612: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
613: exit;
614: end if;
615: exception
616: when no_data_found then
627: -- and LOOKUP_CODE = l_name
628: -- and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
629: -- exception
630: -- when others then
631: -- Wf_Core.Token('TABLE', 'LOOKUPS_TL');
632: -- Wf_Core.Token('VALUE', l_name);
633: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
634: -- end;
635: exception
628: -- and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
629: -- exception
630: -- when others then
631: -- Wf_Core.Token('TABLE', 'LOOKUPS_TL');
632: -- Wf_Core.Token('VALUE', l_name);
633: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
634: -- end;
635: exception
636: when no_data_found then
629: -- exception
630: -- when others then
631: -- Wf_Core.Token('TABLE', 'LOOKUPS_TL');
632: -- Wf_Core.Token('VALUE', l_name);
633: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
634: -- end;
635: exception
636: when no_data_found then
637: null;
648: from WF_LOOKUPS
649: where LOOKUP_TYPE = x_lookup_type
650: and LOOKUP_CODE = x_lookup_code;
651:
652: if ((wf_core.upload_mode <> 'FORCE') and
653: (protection_level < wf_core.session_level)) then
654: x_level_error := 1;
655: return;
656: end if;
649: where LOOKUP_TYPE = x_lookup_type
650: and LOOKUP_CODE = x_lookup_code;
651:
652: if ((wf_core.upload_mode <> 'FORCE') and
653: (protection_level < wf_core.session_level)) then
654: x_level_error := 1;
655: return;
656: end if;
657:
654: x_level_error := 1;
655: return;
656: end if;
657:
658: if ((wf_core.upload_mode = 'UPGRADE') and
659: (customization_level > wf_core.session_level)) then
660: x_level_error := 2;
661: return;
662: end if;
655: return;
656: end if;
657:
658: if ((wf_core.upload_mode = 'UPGRADE') and
659: (customization_level > wf_core.session_level)) then
660: x_level_error := 2;
661: return;
662: end if;
663:
673: exception
674: when NO_DATA_FOUND then
675: -- Check protection level for new row
676: -- ### Relax the checking on attributes, lookup_code, transitions
677: if ((wf_core.upload_mode <> 'FORCE') and
678: (x_protect_level < wf_core.session_level)) then
679: x_level_error := 1;
680: return;
681: end if;
674: when NO_DATA_FOUND then
675: -- Check protection level for new row
676: -- ### Relax the checking on attributes, lookup_code, transitions
677: if ((wf_core.upload_mode <> 'FORCE') and
678: (x_protect_level < wf_core.session_level)) then
679: x_level_error := 1;
680: return;
681: end if;
682:
679: x_level_error := 1;
680: return;
681: end if;
682:
683: if ((wf_core.upload_mode = 'UPGRADE') and
684: (x_custom_level > wf_core.session_level)) then
685: x_level_error := 2;
686: return;
687: end if;
680: return;
681: end if;
682:
683: if ((wf_core.upload_mode = 'UPGRADE') and
684: (x_custom_level > wf_core.session_level)) then
685: x_level_error := 2;
686: return;
687: end if;
688:
699: end;
700:
701: exception
702: when OTHERS then
703: Wf_Core.Context('Wf_Load', 'Upload_Lookup', x_lookup_type, x_lookup_code);
704: raise;
705: end UPLOAD_LOOKUP;
706:
707: --
737: from WF_MESSAGES_VL
738: where TYPE = x_type
739: and NAME = x_name;
740:
741: if ((wf_core.upload_mode <> 'FORCE') and
742: (protection_level < wf_core.session_level)) then
743: x_level_error := 1;
744: return;
745: end if;
738: where TYPE = x_type
739: and NAME = x_name;
740:
741: if ((wf_core.upload_mode <> 'FORCE') and
742: (protection_level < wf_core.session_level)) then
743: x_level_error := 1;
744: return;
745: end if;
746:
743: x_level_error := 1;
744: return;
745: end if;
746:
747: if ((wf_core.upload_mode = 'UPGRADE') and
748: (customization_level > wf_core.session_level)) then
749: x_level_error := 2;
750: return;
751: end if;
744: return;
745: end if;
746:
747: if ((wf_core.upload_mode = 'UPGRADE') and
748: (customization_level > wf_core.session_level)) then
749: x_level_error := 2;
750: return;
751: end if;
752:
767: );
768: exception
769: when NO_DATA_FOUND then
770: -- Check protection level for new row
771: if ((wf_core.upload_mode <> 'FORCE') and
772: (x_protect_level < wf_core.session_level)) then
773: x_level_error := 4+1;
774: return;
775: end if;
768: exception
769: when NO_DATA_FOUND then
770: -- Check protection level for new row
771: if ((wf_core.upload_mode <> 'FORCE') and
772: (x_protect_level < wf_core.session_level)) then
773: x_level_error := 4+1;
774: return;
775: end if;
776:
773: x_level_error := 4+1;
774: return;
775: end if;
776:
777: if ((wf_core.upload_mode = 'UPGRADE') and
778: (x_custom_level > wf_core.session_level)) then
779: x_level_error := 4+2;
780: return;
781: end if;
774: return;
775: end if;
776:
777: if ((wf_core.upload_mode = 'UPGRADE') and
778: (x_custom_level > wf_core.session_level)) then
779: x_level_error := 4+2;
780: return;
781: end if;
782:
799: end;
800:
801: exception
802: when OTHERS then
803: Wf_Core.Context('Wf_Load', 'Upload_Message', x_type, x_name);
804: raise;
805: end UPLOAD_MESSAGE;
806:
807: --
857: and SEQUENCE = -1;
858:
859: exception
860: when others then
861: Wf_Core.Context('Wf_Load', 'Reseq_Message_Attribute', msgtype,
862: msgname, to_char(oldseq), to_char(newseq));
863: raise;
864: end Reseq_Message_Attribute;
865:
927:
928: n_dname := substrb('@'||l_dname, 1, 80);
929:
930: if ( n_dname = l_dname ) then
931: Wf_Core.Token('DNAME', x_display_name);
932: Wf_Core.Token('NAME', x_message_type||':'||x_message_name||':'
933: ||x_name);
934: Wf_Core.Token('CONFLICT_NAME', conflict_name);
935: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
928: n_dname := substrb('@'||l_dname, 1, 80);
929:
930: if ( n_dname = l_dname ) then
931: Wf_Core.Token('DNAME', x_display_name);
932: Wf_Core.Token('NAME', x_message_type||':'||x_message_name||':'
933: ||x_name);
934: Wf_Core.Token('CONFLICT_NAME', conflict_name);
935: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
936: exit;
930: if ( n_dname = l_dname ) then
931: Wf_Core.Token('DNAME', x_display_name);
932: Wf_Core.Token('NAME', x_message_type||':'||x_message_name||':'
933: ||x_name);
934: Wf_Core.Token('CONFLICT_NAME', conflict_name);
935: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
936: exit;
937: end if;
938: exception
931: Wf_Core.Token('DNAME', x_display_name);
932: Wf_Core.Token('NAME', x_message_type||':'||x_message_name||':'
933: ||x_name);
934: Wf_Core.Token('CONFLICT_NAME', conflict_name);
935: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
936: exit;
937: end if;
938: exception
939: when no_data_found then
951: -- and NAME = l_name
952: -- and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
953: -- exception
954: -- when others then
955: -- Wf_Core.Token('TABLE', 'MESSAGE_ATTRIBUTES_TL');
956: -- Wf_Core.Token('VALUE', l_name);
957: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
958: -- end;
959: exception
952: -- and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
953: -- exception
954: -- when others then
955: -- Wf_Core.Token('TABLE', 'MESSAGE_ATTRIBUTES_TL');
956: -- Wf_Core.Token('VALUE', l_name);
957: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
958: -- end;
959: exception
960: when no_data_found then
953: -- exception
954: -- when others then
955: -- Wf_Core.Token('TABLE', 'MESSAGE_ATTRIBUTES_TL');
956: -- Wf_Core.Token('VALUE', l_name);
957: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
958: -- end;
959: exception
960: when no_data_found then
961: null;
982: where MESSAGE_TYPE = x_message_type
983: and MESSAGE_NAME = x_message_name
984: and NAME = x_name;
985:
986: if ((wf_core.upload_mode <> 'FORCE') and
987: (protection_level < wf_core.session_level)) then
988: x_level_error := 1;
989: return;
990: end if;
983: and MESSAGE_NAME = x_message_name
984: and NAME = x_name;
985:
986: if ((wf_core.upload_mode <> 'FORCE') and
987: (protection_level < wf_core.session_level)) then
988: x_level_error := 1;
989: return;
990: end if;
991:
988: x_level_error := 1;
989: return;
990: end if;
991:
992: if ((wf_core.upload_mode = 'UPGRADE') and
993: (customization_level > wf_core.session_level)) then
994: x_level_error := 2;
995: return;
996: end if;
989: return;
990: end if;
991:
992: if ((wf_core.upload_mode = 'UPGRADE') and
993: (customization_level > wf_core.session_level)) then
994: x_level_error := 2;
995: return;
996: end if;
997:
1062: end;
1063:
1064: exception
1065: when OTHERS then
1066: Wf_Core.Context('Wf_Load', 'Upload_Message_Attribute', x_message_type,
1067: x_message_name, x_name);
1068: raise;
1069: end UPLOAD_MESSAGE_ATTRIBUTE;
1070:
1134: and x_effective_date >= BEGIN_DATE
1135: and x_effective_date < nvl(END_DATE, x_effective_date+1);
1136:
1137: if (x_type <> 'FOLDER') then
1138: if ((wf_core.upload_mode <> 'FORCE') and
1139: (protection_level < wf_core.session_level)) then
1140: x_level_error := 1;
1141: return;
1142: end if;
1135: and x_effective_date < nvl(END_DATE, x_effective_date+1);
1136:
1137: if (x_type <> 'FOLDER') then
1138: if ((wf_core.upload_mode <> 'FORCE') and
1139: (protection_level < wf_core.session_level)) then
1140: x_level_error := 1;
1141: return;
1142: end if;
1143:
1140: x_level_error := 1;
1141: return;
1142: end if;
1143:
1144: if ((wf_core.upload_mode = 'UPGRADE') and
1145: (customization_level > wf_core.session_level)) then
1146: x_level_error := 2;
1147: return;
1148: end if;
1141: return;
1142: end if;
1143:
1144: if ((wf_core.upload_mode = 'UPGRADE') and
1145: (customization_level > wf_core.session_level)) then
1146: x_level_error := 2;
1147: return;
1148: end if;
1149: end if;
1163: and BEGIN_DATE >= x_effective_date;
1164:
1165: -- Check protection level for new row
1166: if (x_type <> 'FOLDER') then
1167: if ((wf_core.upload_mode <> 'FORCE') and
1168: (x_protect_level < wf_core.session_level)) then
1169: x_level_error := 4+1;
1170: return;
1171: end if;
1164:
1165: -- Check protection level for new row
1166: if (x_type <> 'FOLDER') then
1167: if ((wf_core.upload_mode <> 'FORCE') and
1168: (x_protect_level < wf_core.session_level)) then
1169: x_level_error := 4+1;
1170: return;
1171: end if;
1172:
1169: x_level_error := 4+1;
1170: return;
1171: end if;
1172:
1173: if ((wf_core.upload_mode = 'UPGRADE') and
1174: (x_custom_level > wf_core.session_level)) then
1175: x_level_error := 4+2;
1176: return;
1177: end if;
1170: return;
1171: end if;
1172:
1173: if ((wf_core.upload_mode = 'UPGRADE') and
1174: (x_custom_level > wf_core.session_level)) then
1175: x_level_error := 4+2;
1176: return;
1177: end if;
1178: end if;
1243:
1244: n_dname := substrb('@'||l_dname, 1, 240);
1245:
1246: if ( n_dname = l_dname ) then
1247: Wf_Core.Token('DNAME', x_display_name);
1248: Wf_Core.Token('NAME', x_item_type||':'||x_name||':'||new_version);
1249: Wf_Core.Token('CONFLICT_NAME', conflict_name);
1250: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
1251: exit;
1244: n_dname := substrb('@'||l_dname, 1, 240);
1245:
1246: if ( n_dname = l_dname ) then
1247: Wf_Core.Token('DNAME', x_display_name);
1248: Wf_Core.Token('NAME', x_item_type||':'||x_name||':'||new_version);
1249: Wf_Core.Token('CONFLICT_NAME', conflict_name);
1250: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
1251: exit;
1252: end if;
1245:
1246: if ( n_dname = l_dname ) then
1247: Wf_Core.Token('DNAME', x_display_name);
1248: Wf_Core.Token('NAME', x_item_type||':'||x_name||':'||new_version);
1249: Wf_Core.Token('CONFLICT_NAME', conflict_name);
1250: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
1251: exit;
1252: end if;
1253: exception
1246: if ( n_dname = l_dname ) then
1247: Wf_Core.Token('DNAME', x_display_name);
1248: Wf_Core.Token('NAME', x_item_type||':'||x_name||':'||new_version);
1249: Wf_Core.Token('CONFLICT_NAME', conflict_name);
1250: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
1251: exit;
1252: end if;
1253: exception
1254: when no_data_found then
1266: -- and VERSION = new_version
1267: -- and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
1268: -- exception
1269: -- when others then
1270: -- Wf_Core.Token('TABLE', 'ACTIVITIES_TL');
1271: -- Wf_Core.Token('VALUE', l_name);
1272: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
1273: -- end;
1274: exception
1267: -- and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
1268: -- exception
1269: -- when others then
1270: -- Wf_Core.Token('TABLE', 'ACTIVITIES_TL');
1271: -- Wf_Core.Token('VALUE', l_name);
1272: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
1273: -- end;
1274: exception
1275: when no_data_found then
1268: -- exception
1269: -- when others then
1270: -- Wf_Core.Token('TABLE', 'ACTIVITIES_TL');
1271: -- Wf_Core.Token('VALUE', l_name);
1272: -- Wf_Core.Raise('WFSQL_UPDATE_FAIL');
1273: -- end;
1274: exception
1275: when no_data_found then
1276: null;
1418: /* ### Should not have a commit in this API */
1419: /* ### commit; */
1420: exception
1421: when OTHERS then
1422: Wf_Core.Context('Wf_Load', 'Upload_Activity', x_item_type, x_name);
1423: raise;
1424: end UPLOAD_ACTIVITY;
1425:
1426: --
1552: and SEQUENCE = -1;
1553:
1554: exception
1555: when others then
1556: Wf_Core.Context('Wf_Load', 'Reseq_Activity_Attribute', acttype,
1557: actname, to_char(actver), to_char(oldseq), to_char(newseq));
1558: raise;
1559: end Reseq_Activity_Attribute;
1560:
1608: and ACTIVITY_NAME = x_activity_name
1609: and ACTIVITY_VERSION = x_activity_version
1610: and NAME = x_name;
1611:
1612: if ((wf_core.upload_mode <> 'FORCE') and
1613: (protection_level < wf_core.session_level)) then
1614: x_level_error := 1;
1615: return;
1616: end if;
1609: and ACTIVITY_VERSION = x_activity_version
1610: and NAME = x_name;
1611:
1612: if ((wf_core.upload_mode <> 'FORCE') and
1613: (protection_level < wf_core.session_level)) then
1614: x_level_error := 1;
1615: return;
1616: end if;
1617:
1614: x_level_error := 1;
1615: return;
1616: end if;
1617:
1618: if ((wf_core.upload_mode = 'UPGRADE') and
1619: (customization_level > wf_core.session_level)) then
1620: x_level_error := 2;
1621: return;
1622: end if;
1615: return;
1616: end if;
1617:
1618: if ((wf_core.upload_mode = 'UPGRADE') and
1619: (customization_level > wf_core.session_level)) then
1620: x_level_error := 2;
1621: return;
1622: end if;
1623:
1653: exception
1654: when NO_DATA_FOUND then
1655: -- Check protection level for new row
1656: -- ### Relax the checking on attributes, lookup_code, transitions
1657: if ((wf_core.upload_mode <> 'FORCE') and
1658: (x_protect_level < wf_core.session_level)) then
1659: x_level_error := 1;
1660: return;
1661: end if;
1654: when NO_DATA_FOUND then
1655: -- Check protection level for new row
1656: -- ### Relax the checking on attributes, lookup_code, transitions
1657: if ((wf_core.upload_mode <> 'FORCE') and
1658: (x_protect_level < wf_core.session_level)) then
1659: x_level_error := 1;
1660: return;
1661: end if;
1662:
1659: x_level_error := 1;
1660: return;
1661: end if;
1662:
1663: if ((wf_core.upload_mode = 'UPGRADE') and
1664: (x_custom_level > wf_core.session_level)) then
1665: x_level_error := 2;
1666: return;
1667: end if;
1660: return;
1661: end if;
1662:
1663: if ((wf_core.upload_mode = 'UPGRADE') and
1664: (x_custom_level > wf_core.session_level)) then
1665: x_level_error := 2;
1666: return;
1667: end if;
1668:
1707: end;
1708:
1709: exception
1710: when OTHERS then
1711: Wf_Core.Context('Wf_Load', 'Upload_Activity_Attribute',
1712: x_activity_item_type, x_activity_name,
1713: to_char(x_activity_version), x_name);
1714: raise;
1715: end UPLOAD_ACTIVITY_ATTRIBUTE;
1768: from WF_PROCESS_ACTIVITIES
1769: where INSTANCE_ID = x_instance_id;
1770:
1771: if (x_process_name <> 'ROOT') then
1772: if ((wf_core.upload_mode <> 'FORCE') and
1773: (protection_level < wf_core.session_level)) then
1774: x_level_error := 1;
1775: return;
1776: end if;
1769: where INSTANCE_ID = x_instance_id;
1770:
1771: if (x_process_name <> 'ROOT') then
1772: if ((wf_core.upload_mode <> 'FORCE') and
1773: (protection_level < wf_core.session_level)) then
1774: x_level_error := 1;
1775: return;
1776: end if;
1777:
1774: x_level_error := 1;
1775: return;
1776: end if;
1777:
1778: if ((wf_core.upload_mode = 'UPGRADE') and
1779: (customization_level > wf_core.session_level)) then
1780: x_level_error := 2;
1781: return;
1782: end if;
1775: return;
1776: end if;
1777:
1778: if ((wf_core.upload_mode = 'UPGRADE') and
1779: (customization_level > wf_core.session_level)) then
1780: x_level_error := 2;
1781: return;
1782: end if;
1783: end if;
1827: where INSTANCE_ID = x_instance_id;
1828: exception
1829: when NO_DATA_FOUND then
1830: -- Check protection level for new row
1831: if ((wf_core.upload_mode <> 'FORCE') and
1832: (x_protect_level < wf_core.session_level)) then
1833: x_level_error := 4+1;
1834: return;
1835: end if;
1828: exception
1829: when NO_DATA_FOUND then
1830: -- Check protection level for new row
1831: if ((wf_core.upload_mode <> 'FORCE') and
1832: (x_protect_level < wf_core.session_level)) then
1833: x_level_error := 4+1;
1834: return;
1835: end if;
1836:
1833: x_level_error := 4+1;
1834: return;
1835: end if;
1836:
1837: if ((wf_core.upload_mode = 'UPGRADE') and
1838: (x_custom_level > wf_core.session_level)) then
1839: x_level_error := 4+2;
1840: return;
1841: end if;
1834: return;
1835: end if;
1836:
1837: if ((wf_core.upload_mode = 'UPGRADE') and
1838: (x_custom_level > wf_core.session_level)) then
1839: x_level_error := 4+2;
1840: return;
1841: end if;
1842:
1982: end;
1983:
1984: exception
1985: when OTHERS then
1986: Wf_Core.Context('Wf_Load', 'Upload_Process_Activity',x_process_name,
1987: x_activity_name,
1988: to_char(x_instance_id));
1989: raise;
1990: end UPLOAD_PROCESS_ACTIVITY;
2072: from WF_ACTIVITY_ATTR_VALUES
2073: where PROCESS_ACTIVITY_ID = x_process_activity_id
2074: and NAME = x_name;
2075:
2076: if ((wf_core.upload_mode <> 'FORCE') and
2077: (protection_level < wf_core.session_level)) then
2078: x_level_error := 1;
2079: return;
2080: end if;
2073: where PROCESS_ACTIVITY_ID = x_process_activity_id
2074: and NAME = x_name;
2075:
2076: if ((wf_core.upload_mode <> 'FORCE') and
2077: (protection_level < wf_core.session_level)) then
2078: x_level_error := 1;
2079: return;
2080: end if;
2081:
2078: x_level_error := 1;
2079: return;
2080: end if;
2081:
2082: if ((wf_core.upload_mode = 'UPGRADE') and
2083: (customization_level > wf_core.session_level)) then
2084: x_level_error := 2;
2085: return;
2086: end if;
2079: return;
2080: end if;
2081:
2082: if ((wf_core.upload_mode = 'UPGRADE') and
2083: (customization_level > wf_core.session_level)) then
2084: x_level_error := 2;
2085: return;
2086: end if;
2087:
2098: exception
2099: when NO_DATA_FOUND then
2100: -- Check protection level for new row
2101: -- ### Relax the checking on attributes, lookup_code, transitions
2102: if ((wf_core.upload_mode <> 'FORCE') and
2103: (x_protect_level < wf_core.session_level)) then
2104: x_level_error := 1;
2105: return;
2106: end if;
2099: when NO_DATA_FOUND then
2100: -- Check protection level for new row
2101: -- ### Relax the checking on attributes, lookup_code, transitions
2102: if ((wf_core.upload_mode <> 'FORCE') and
2103: (x_protect_level < wf_core.session_level)) then
2104: x_level_error := 1;
2105: return;
2106: end if;
2107:
2104: x_level_error := 1;
2105: return;
2106: end if;
2107:
2108: if ((wf_core.upload_mode = 'UPGRADE') and
2109: (x_custom_level > wf_core.session_level)) then
2110: x_level_error := 2;
2111: return;
2112: end if;
2105: return;
2106: end if;
2107:
2108: if ((wf_core.upload_mode = 'UPGRADE') and
2109: (x_custom_level > wf_core.session_level)) then
2110: x_level_error := 2;
2111: return;
2112: end if;
2113:
2134: end;
2135:
2136: exception
2137: when OTHERS then
2138: Wf_Core.Context('Wf_Load', 'Upload_Activity_Attr_Value',
2139: to_char(x_process_activity_id), x_name);
2140: raise;
2141: end UPLOAD_ACTIVITY_ATTR_VALUE;
2142:
2167: where FROM_PROCESS_ACTIVITY = x_from_process_activity
2168: and RESULT_CODE = x_result_code
2169: and TO_PROCESS_ACTIVITY = x_to_process_activity;
2170:
2171: if ((wf_core.upload_mode <> 'FORCE') and
2172: (protection_level < wf_core.session_level)) then
2173: x_level_error := 1;
2174: return;
2175: end if;
2168: and RESULT_CODE = x_result_code
2169: and TO_PROCESS_ACTIVITY = x_to_process_activity;
2170:
2171: if ((wf_core.upload_mode <> 'FORCE') and
2172: (protection_level < wf_core.session_level)) then
2173: x_level_error := 1;
2174: return;
2175: end if;
2176:
2173: x_level_error := 1;
2174: return;
2175: end if;
2176:
2177: if ((wf_core.upload_mode = 'UPGRADE') and
2178: (customization_level > wf_core.session_level)) then
2179: x_level_error := 2;
2180: return;
2181: end if;
2174: return;
2175: end if;
2176:
2177: if ((wf_core.upload_mode = 'UPGRADE') and
2178: (customization_level > wf_core.session_level)) then
2179: x_level_error := 2;
2180: return;
2181: end if;
2182:
2194: exception
2195: when NO_DATA_FOUND then
2196: -- Check protection level for new row
2197: -- ### Relax the checking on attributes, lookup_code, transitions
2198: if ((wf_core.upload_mode <> 'FORCE') and
2199: (x_protect_level < wf_core.session_level)) then
2200: x_level_error := 1;
2201: return;
2202: end if;
2195: when NO_DATA_FOUND then
2196: -- Check protection level for new row
2197: -- ### Relax the checking on attributes, lookup_code, transitions
2198: if ((wf_core.upload_mode <> 'FORCE') and
2199: (x_protect_level < wf_core.session_level)) then
2200: x_level_error := 1;
2201: return;
2202: end if;
2203:
2200: x_level_error := 1;
2201: return;
2202: end if;
2203:
2204: if ((wf_core.upload_mode = 'UPGRADE') and
2205: (x_custom_level > wf_core.session_level)) then
2206: x_level_error := 2;
2207: return;
2208: end if;
2201: return;
2202: end if;
2203:
2204: if ((wf_core.upload_mode = 'UPGRADE') and
2205: (x_custom_level > wf_core.session_level)) then
2206: x_level_error := 2;
2207: return;
2208: end if;
2209:
2226: end;
2227:
2228: exception
2229: when OTHERS then
2230: Wf_Core.Context('Wf_Load', 'Upload_Activity_Transition',
2231: to_char(x_from_process_activity),
2232: x_result_code,
2233: to_char(x_to_process_activity));
2234: raise;
2257: x_level_error);
2258:
2259: exception
2260: when others then
2261: Wf_Core.Context('Wf_Load', 'Upload_Resource', x_name, x_type);
2262: raise;
2263: end UPLOAD_RESOURCE;
2264:
2265: --
2281: into protection_level, customization_level
2282: from WF_LOOKUP_TYPES
2283: where LOOKUP_TYPE = x_lookup_type;
2284:
2285: if ((wf_core.upload_mode <> 'FORCE') and
2286: (protection_level < wf_core.session_level)) then
2287: x_level_error := 1;
2288: return;
2289: end if;
2282: from WF_LOOKUP_TYPES
2283: where LOOKUP_TYPE = x_lookup_type;
2284:
2285: if ((wf_core.upload_mode <> 'FORCE') and
2286: (protection_level < wf_core.session_level)) then
2287: x_level_error := 1;
2288: return;
2289: end if;
2290:
2287: x_level_error := 1;
2288: return;
2289: end if;
2290:
2291: if ((wf_core.upload_mode = 'UPGRADE') and
2292: (customization_level > wf_core.session_level)) then
2293: x_level_error := 2;
2294: return;
2295: end if;
2288: return;
2289: end if;
2290:
2291: if ((wf_core.upload_mode = 'UPGRADE') and
2292: (customization_level > wf_core.session_level)) then
2293: x_level_error := 2;
2294: return;
2295: end if;
2296:
2302: exception
2303: when NO_DATA_FOUND then
2304: null;
2305: when OTHERS then
2306: Wf_Core.Context('Wf_Load', 'Delete_Lookup_Type', x_lookup_type);
2307: raise;
2308: end DELETE_LOOKUP_TYPE;
2309:
2310: --
2328: from WF_LOOKUPS
2329: where LOOKUP_TYPE = x_lookup_type
2330: and LOOKUP_CODE = x_lookup_code;
2331:
2332: if ((wf_core.upload_mode <> 'FORCE') and
2333: (protection_level < wf_core.session_level)) then
2334: x_level_error := 1;
2335: return;
2336: end if;
2329: where LOOKUP_TYPE = x_lookup_type
2330: and LOOKUP_CODE = x_lookup_code;
2331:
2332: if ((wf_core.upload_mode <> 'FORCE') and
2333: (protection_level < wf_core.session_level)) then
2334: x_level_error := 1;
2335: return;
2336: end if;
2337:
2334: x_level_error := 1;
2335: return;
2336: end if;
2337:
2338: if ((wf_core.upload_mode = 'UPGRADE') and
2339: (customization_level > wf_core.session_level)) then
2340: x_level_error := 2;
2341: return;
2342: end if;
2335: return;
2336: end if;
2337:
2338: if ((wf_core.upload_mode = 'UPGRADE') and
2339: (customization_level > wf_core.session_level)) then
2340: x_level_error := 2;
2341: return;
2342: end if;
2343:
2349: exception
2350: when NO_DATA_FOUND then
2351: null;
2352: when OTHERS then
2353: Wf_Core.Context('Wf_Load', 'Delete_Lookup', x_lookup_type, x_lookup_code);
2354: raise;
2355: end DELETE_LOOKUP;
2356:
2357: --
2372: into protection_level, customization_level
2373: from WF_LOOKUP_TYPES_TL
2374: where LOOKUP_TYPE = X_LOOKUP_TYPE;
2375:
2376: if ((wf_core.upload_mode <> 'FORCE') and
2377: (protection_level < wf_core.session_level)) then
2378: x_level_error := 1;
2379: return;
2380: end if;
2373: from WF_LOOKUP_TYPES_TL
2374: where LOOKUP_TYPE = X_LOOKUP_TYPE;
2375:
2376: if ((wf_core.upload_mode <> 'FORCE') and
2377: (protection_level < wf_core.session_level)) then
2378: x_level_error := 1;
2379: return;
2380: end if;
2381:
2378: x_level_error := 1;
2379: return;
2380: end if;
2381:
2382: if ((wf_core.upload_mode = 'UPGRADE') and
2383: (customization_level > wf_core.session_level)) then
2384: x_level_error := 2;
2385: return;
2386: end if;
2379: return;
2380: end if;
2381:
2382: if ((wf_core.upload_mode = 'UPGRADE') and
2383: (customization_level > wf_core.session_level)) then
2384: x_level_error := 2;
2385: return;
2386: end if;
2387:
2391: exception
2392: when NO_DATA_FOUND then
2393: null;
2394: when OTHERS then
2395: wf_core.context('WF_LOAD', 'DELETE_LOOKUPS');
2396: raise;
2397: end DELETE_LOOKUPS;
2398:
2399: --
2421: into protection_level, customization_level, l_persistence_type
2422: from WF_ITEM_TYPES_VL
2423: where NAME = x_name;
2424:
2425: if ((wf_core.upload_mode <> 'FORCE') and
2426: (protection_level < wf_core.session_level)) then
2427: x_level_error := 1;
2428: return;
2429: end if;
2422: from WF_ITEM_TYPES_VL
2423: where NAME = x_name;
2424:
2425: if ((wf_core.upload_mode <> 'FORCE') and
2426: (protection_level < wf_core.session_level)) then
2427: x_level_error := 1;
2428: return;
2429: end if;
2430:
2427: x_level_error := 1;
2428: return;
2429: end if;
2430:
2431: if ((wf_core.upload_mode = 'UPGRADE') and
2432: (customization_level > wf_core.session_level)) then
2433: x_level_error := 2;
2434: return;
2435: end if;
2428: return;
2429: end if;
2430:
2431: if ((wf_core.upload_mode = 'UPGRADE') and
2432: (customization_level > wf_core.session_level)) then
2433: x_level_error := 2;
2434: return;
2435: end if;
2436:
2475: exception
2476: when NO_DATA_FOUND then
2477: null;
2478: when OTHERS then
2479: Wf_Core.Context('Wf_Load', 'Delete_Item_Type', x_name);
2480: raise;
2481: end DELETE_ITEM_TYPE;
2482:
2483: --
2501: from WF_ITEM_ATTRIBUTES_VL
2502: where ITEM_TYPE = x_item_type
2503: and NAME = x_name;
2504:
2505: if ((wf_core.upload_mode <> 'FORCE') and
2506: (protection_level < wf_core.session_level)) then
2507: x_level_error := 1;
2508: return;
2509: end if;
2502: where ITEM_TYPE = x_item_type
2503: and NAME = x_name;
2504:
2505: if ((wf_core.upload_mode <> 'FORCE') and
2506: (protection_level < wf_core.session_level)) then
2507: x_level_error := 1;
2508: return;
2509: end if;
2510:
2507: x_level_error := 1;
2508: return;
2509: end if;
2510:
2511: if ((wf_core.upload_mode = 'UPGRADE') and
2512: (customization_level > wf_core.session_level)) then
2513: x_level_error := 2;
2514: return;
2515: end if;
2508: return;
2509: end if;
2510:
2511: if ((wf_core.upload_mode = 'UPGRADE') and
2512: (customization_level > wf_core.session_level)) then
2513: x_level_error := 2;
2514: return;
2515: end if;
2516:
2521: exception
2522: when NO_DATA_FOUND then
2523: null;
2524: when OTHERS then
2525: Wf_Core.Context('Wf_Load', 'Delete_Item_Attribute', x_item_type, x_name);
2526: raise;
2527: end DELETE_ITEM_ATTRIBUTE;
2528:
2529: --
2545: into protection_level, customization_level
2546: from WF_ITEM_TYPES_VL
2547: where NAME = x_item_type;
2548:
2549: if ((wf_core.upload_mode <> 'FORCE') and
2550: (protection_level < wf_core.session_level)) then
2551: x_level_error := 1;
2552: return;
2553: end if;
2546: from WF_ITEM_TYPES_VL
2547: where NAME = x_item_type;
2548:
2549: if ((wf_core.upload_mode <> 'FORCE') and
2550: (protection_level < wf_core.session_level)) then
2551: x_level_error := 1;
2552: return;
2553: end if;
2554:
2551: x_level_error := 1;
2552: return;
2553: end if;
2554:
2555: if ((wf_core.upload_mode = 'UPGRADE') and
2556: (customization_level > wf_core.session_level)) then
2557: x_level_error := 2;
2558: return;
2559: end if;
2552: return;
2553: end if;
2554:
2555: if ((wf_core.upload_mode = 'UPGRADE') and
2556: (customization_level > wf_core.session_level)) then
2557: x_level_error := 2;
2558: return;
2559: end if;
2560:
2566: exception
2567: when NO_DATA_FOUND then
2568: null;
2569: when OTHERS then
2570: Wf_Core.Context('Wf_Load', 'Delete_Item_Attributes', x_item_type);
2571: raise;
2572: end DELETE_ITEM_ATTRIBUTES;
2573:
2574: --
2597: from WF_MESSAGES
2598: where TYPE = x_type
2599: and NAME = x_name;
2600:
2601: if ((wf_core.upload_mode <> 'FORCE') and
2602: (protection_level < wf_core.session_level)) then
2603: x_level_error := 1;
2604: return;
2605: end if;
2598: where TYPE = x_type
2599: and NAME = x_name;
2600:
2601: if ((wf_core.upload_mode <> 'FORCE') and
2602: (protection_level < wf_core.session_level)) then
2603: x_level_error := 1;
2604: return;
2605: end if;
2606:
2603: x_level_error := 1;
2604: return;
2605: end if;
2606:
2607: if ((wf_core.upload_mode = 'UPGRADE') and
2608: (customization_level > wf_core.session_level)) then
2609: x_level_error := 2;
2610: return;
2611: end if;
2604: return;
2605: end if;
2606:
2607: if ((wf_core.upload_mode = 'UPGRADE') and
2608: (customization_level > wf_core.session_level)) then
2609: x_level_error := 2;
2610: return;
2611: end if;
2612:
2640: exception
2641: when NO_DATA_FOUND then
2642: null;
2643: when OTHERS then
2644: Wf_Core.Context('Wf_Load', 'Delete_Message', x_type, x_name);
2645: raise;
2646: end DELETE_MESSAGE;
2647:
2648: --
2666: where MESSAGE_TYPE = x_message_type
2667: and MESSAGE_NAME = x_message_name
2668: and NAME = x_name;
2669:
2670: if ((wf_core.upload_mode <> 'FORCE') and
2671: (protection_level < wf_core.session_level)) then
2672: x_level_error := 1;
2673: return;
2674: end if;
2667: and MESSAGE_NAME = x_message_name
2668: and NAME = x_name;
2669:
2670: if ((wf_core.upload_mode <> 'FORCE') and
2671: (protection_level < wf_core.session_level)) then
2672: x_level_error := 1;
2673: return;
2674: end if;
2675:
2672: x_level_error := 1;
2673: return;
2674: end if;
2675:
2676: if ((wf_core.upload_mode = 'UPGRADE') and
2677: (customization_level > wf_core.session_level)) then
2678: x_level_error := 2;
2679: return;
2680: end if;
2673: return;
2674: end if;
2675:
2676: if ((wf_core.upload_mode = 'UPGRADE') and
2677: (customization_level > wf_core.session_level)) then
2678: x_level_error := 2;
2679: return;
2680: end if;
2681:
2687: exception
2688: when NO_DATA_FOUND then
2689: null;
2690: when OTHERS then
2691: Wf_Core.Context('Wf_Load', 'Delete_Message_Attribute', x_message_type,
2692: x_message_name, x_name);
2693: raise;
2694: end DELETE_MESSAGE_ATTRIBUTE;
2695:
2714: from WF_MESSAGES
2715: where TYPE = x_message_type
2716: and NAME = x_message_name;
2717:
2718: if ((wf_core.upload_mode <> 'FORCE') and
2719: (protection_level < wf_core.session_level)) then
2720: x_level_error := 1;
2721: return;
2722: end if;
2715: where TYPE = x_message_type
2716: and NAME = x_message_name;
2717:
2718: if ((wf_core.upload_mode <> 'FORCE') and
2719: (protection_level < wf_core.session_level)) then
2720: x_level_error := 1;
2721: return;
2722: end if;
2723:
2720: x_level_error := 1;
2721: return;
2722: end if;
2723:
2724: if ((wf_core.upload_mode = 'UPGRADE') and
2725: (customization_level > wf_core.session_level)) then
2726: x_level_error := 2;
2727: return;
2728: end if;
2721: return;
2722: end if;
2723:
2724: if ((wf_core.upload_mode = 'UPGRADE') and
2725: (customization_level > wf_core.session_level)) then
2726: x_level_error := 2;
2727: return;
2728: end if;
2729:
2738: exception
2739: when NO_DATA_FOUND then
2740: null;
2741: when OTHERS then
2742: Wf_Core.Context('Wf_Load', 'Delete_Message_Attributes', x_message_type,
2743: x_message_name);
2744: raise;
2745: end DELETE_MESSAGE_ATTRIBUTES;
2746:
2768: where ITEM_TYPE = x_item_type
2769: and NAME = x_name
2770: and END_DATE is null;
2771:
2772: if ((wf_core.upload_mode <> 'FORCE') and
2773: (protection_level < wf_core.session_level)) then
2774: x_level_error := 1;
2775: return;
2776: end if;
2769: and NAME = x_name
2770: and END_DATE is null;
2771:
2772: if ((wf_core.upload_mode <> 'FORCE') and
2773: (protection_level < wf_core.session_level)) then
2774: x_level_error := 1;
2775: return;
2776: end if;
2777:
2774: x_level_error := 1;
2775: return;
2776: end if;
2777:
2778: if ((wf_core.upload_mode = 'UPGRADE') and
2779: (customization_level > wf_core.session_level)) then
2780: x_level_error := 2;
2781: return;
2782: end if;
2775: return;
2776: end if;
2777:
2778: if ((wf_core.upload_mode = 'UPGRADE') and
2779: (customization_level > wf_core.session_level)) then
2780: x_level_error := 2;
2781: return;
2782: end if;
2783:
2804: exception
2805: when NO_DATA_FOUND then
2806: null;
2807: when OTHERS then
2808: Wf_Core.Context('Wf_Load', 'Delete_Activity', x_item_type, x_name);
2809: raise;
2810: end DELETE_ACTIVITY;
2811:
2812: --
2856: end if;
2857: end if;
2858: exception
2859: when OTHERS then
2860: Wf_Core.Context('Wf_Load', 'Delete_Transition', p_previous_step,
2861: p_next_step, p_result_code);
2862: raise;
2863: end;
2864:
2895: p_ycor := to_number(substr(l_icon_geometry, comma_position + 1));
2896:
2897: exception
2898: when OTHERS then
2899: Wf_Core.Context('Wf_Load', 'Get_Process_Activity', p_activity_instance);
2900: raise;
2901: end;
2902:
2903: --
2967: x_level_error => p_level_error);
2968:
2969: exception
2970: when OTHERS then
2971: Wf_Core.Context('Wf_Load', 'Get_Message', p_type, p_name);
2972: raise;
2973: end;
2974:
2975: --
3023: and NAME = p_name;
3024:
3025: exception
3026: when OTHERS then
3027: Wf_Core.Context('Wf_Load', 'Get_Message', p_type, p_name);
3028: raise;
3029: end;
3030:
3031: --
3202: from WF_ITEM_TYPES_VL
3203: where NAME = p_item_type;
3204: exception
3205: when others then
3206: Wf_Core.Context('Wf_Load', 'Selecting ITEM_TYPE', p_item_type);
3207: raise;
3208: end;
3209:
3210: begin
3236: );
3237: l_dname := null;
3238:
3239: if (l_level_error <> 0) then
3240: Wf_Core.Token('ENTITY', 'ITEM_TYPE');
3241: Wf_Core.Token('TYPE', '');
3242: Wf_Core.Token('NAME', p_destination_item_type);
3243: Wf_Core.Raise('WFLDRSD_UPI');
3244: end if;
3237: l_dname := null;
3238:
3239: if (l_level_error <> 0) then
3240: Wf_Core.Token('ENTITY', 'ITEM_TYPE');
3241: Wf_Core.Token('TYPE', '');
3242: Wf_Core.Token('NAME', p_destination_item_type);
3243: Wf_Core.Raise('WFLDRSD_UPI');
3244: end if;
3245:
3238:
3239: if (l_level_error <> 0) then
3240: Wf_Core.Token('ENTITY', 'ITEM_TYPE');
3241: Wf_Core.Token('TYPE', '');
3242: Wf_Core.Token('NAME', p_destination_item_type);
3243: Wf_Core.Raise('WFLDRSD_UPI');
3244: end if;
3245:
3246:
3239: if (l_level_error <> 0) then
3240: Wf_Core.Token('ENTITY', 'ITEM_TYPE');
3241: Wf_Core.Token('TYPE', '');
3242: Wf_Core.Token('NAME', p_destination_item_type);
3243: Wf_Core.Raise('WFLDRSD_UPI');
3244: end if;
3245:
3246:
3247: -- Copy Lookup Types
3257: x_item_type=>p_destination_item_type,
3258: x_level_error=>l_level_error
3259: );
3260: if (l_level_error <> 0) then
3261: Wf_Core.Token('ENTITY', 'LOOKUP_TYPE');
3262: Wf_Core.Token('TYPE', p_destination_item_type);
3263: Wf_Core.Token('NAME', substr(lutr.lookup_type||p_new_suffix, 1, 30));
3264: Wf_Core.Raise('WFLDRSD_UPI');
3265: end if;
3258: x_level_error=>l_level_error
3259: );
3260: if (l_level_error <> 0) then
3261: Wf_Core.Token('ENTITY', 'LOOKUP_TYPE');
3262: Wf_Core.Token('TYPE', p_destination_item_type);
3263: Wf_Core.Token('NAME', substr(lutr.lookup_type||p_new_suffix, 1, 30));
3264: Wf_Core.Raise('WFLDRSD_UPI');
3265: end if;
3266: i := i + 1;
3259: );
3260: if (l_level_error <> 0) then
3261: Wf_Core.Token('ENTITY', 'LOOKUP_TYPE');
3262: Wf_Core.Token('TYPE', p_destination_item_type);
3263: Wf_Core.Token('NAME', substr(lutr.lookup_type||p_new_suffix, 1, 30));
3264: Wf_Core.Raise('WFLDRSD_UPI');
3265: end if;
3266: i := i + 1;
3267: end loop;
3260: if (l_level_error <> 0) then
3261: Wf_Core.Token('ENTITY', 'LOOKUP_TYPE');
3262: Wf_Core.Token('TYPE', p_destination_item_type);
3263: Wf_Core.Token('NAME', substr(lutr.lookup_type||p_new_suffix, 1, 30));
3264: Wf_Core.Raise('WFLDRSD_UPI');
3265: end if;
3266: i := i + 1;
3267: end loop;
3268:
3278: x_custom_level=>lucr.custom_level,
3279: x_level_error=>l_level_error
3280: );
3281: if (l_level_error <> 0) then
3282: Wf_Core.Token('ENTITY', 'LOOKUP_CODE');
3283: Wf_Core.Token('TYPE', substr(v_lut(j)||p_new_suffix, 1, 30));
3284: Wf_Core.Token('NAME', lucr.lookup_code);
3285: Wf_Core.Raise('WFLDRSD_UPI');
3286: end if;
3279: x_level_error=>l_level_error
3280: );
3281: if (l_level_error <> 0) then
3282: Wf_Core.Token('ENTITY', 'LOOKUP_CODE');
3283: Wf_Core.Token('TYPE', substr(v_lut(j)||p_new_suffix, 1, 30));
3284: Wf_Core.Token('NAME', lucr.lookup_code);
3285: Wf_Core.Raise('WFLDRSD_UPI');
3286: end if;
3287: end loop;
3280: );
3281: if (l_level_error <> 0) then
3282: Wf_Core.Token('ENTITY', 'LOOKUP_CODE');
3283: Wf_Core.Token('TYPE', substr(v_lut(j)||p_new_suffix, 1, 30));
3284: Wf_Core.Token('NAME', lucr.lookup_code);
3285: Wf_Core.Raise('WFLDRSD_UPI');
3286: end if;
3287: end loop;
3288: end loop;
3281: if (l_level_error <> 0) then
3282: Wf_Core.Token('ENTITY', 'LOOKUP_CODE');
3283: Wf_Core.Token('TYPE', substr(v_lut(j)||p_new_suffix, 1, 30));
3284: Wf_Core.Token('NAME', lucr.lookup_code);
3285: Wf_Core.Raise('WFLDRSD_UPI');
3286: end if;
3287: end loop;
3288: end loop;
3289:
3319: x_default=>l_default,
3320: x_level_error=>l_level_error
3321: );
3322: if (l_level_error <> 0) then
3323: Wf_Core.Token('ENTITY', 'ITEM_ATTRIBUTE');
3324: Wf_Core.Token('TYPE', p_destination_item_type);
3325: Wf_Core.Token('NAME', itar.name);
3326: Wf_Core.Raise('WFLDRSD_UPI');
3327: end if;
3320: x_level_error=>l_level_error
3321: );
3322: if (l_level_error <> 0) then
3323: Wf_Core.Token('ENTITY', 'ITEM_ATTRIBUTE');
3324: Wf_Core.Token('TYPE', p_destination_item_type);
3325: Wf_Core.Token('NAME', itar.name);
3326: Wf_Core.Raise('WFLDRSD_UPI');
3327: end if;
3328: end loop;
3321: );
3322: if (l_level_error <> 0) then
3323: Wf_Core.Token('ENTITY', 'ITEM_ATTRIBUTE');
3324: Wf_Core.Token('TYPE', p_destination_item_type);
3325: Wf_Core.Token('NAME', itar.name);
3326: Wf_Core.Raise('WFLDRSD_UPI');
3327: end if;
3328: end loop;
3329:
3322: if (l_level_error <> 0) then
3323: Wf_Core.Token('ENTITY', 'ITEM_ATTRIBUTE');
3324: Wf_Core.Token('TYPE', p_destination_item_type);
3325: Wf_Core.Token('NAME', itar.name);
3326: Wf_Core.Raise('WFLDRSD_UPI');
3327: end if;
3328: end loop;
3329:
3330: -- Copy Message
3346: x_write_role=>msgr.write_role,
3347: x_level_error=>l_level_error
3348: );
3349: if (l_level_error <> 0) then
3350: Wf_Core.Token('ENTITY', 'MESSAGE');
3351: Wf_Core.Token('TYPE', p_destination_item_type);
3352: Wf_Core.Token('NAME', msgr.name);
3353: Wf_Core.Raise('WFLDRSD_UPI');
3354: end if;
3347: x_level_error=>l_level_error
3348: );
3349: if (l_level_error <> 0) then
3350: Wf_Core.Token('ENTITY', 'MESSAGE');
3351: Wf_Core.Token('TYPE', p_destination_item_type);
3352: Wf_Core.Token('NAME', msgr.name);
3353: Wf_Core.Raise('WFLDRSD_UPI');
3354: end if;
3355: i := i + 1;
3348: );
3349: if (l_level_error <> 0) then
3350: Wf_Core.Token('ENTITY', 'MESSAGE');
3351: Wf_Core.Token('TYPE', p_destination_item_type);
3352: Wf_Core.Token('NAME', msgr.name);
3353: Wf_Core.Raise('WFLDRSD_UPI');
3354: end if;
3355: i := i + 1;
3356: end loop;
3349: if (l_level_error <> 0) then
3350: Wf_Core.Token('ENTITY', 'MESSAGE');
3351: Wf_Core.Token('TYPE', p_destination_item_type);
3352: Wf_Core.Token('NAME', msgr.name);
3353: Wf_Core.Raise('WFLDRSD_UPI');
3354: end if;
3355: i := i + 1;
3356: end loop;
3357:
3401: x_attach=>msar.attach,
3402: x_level_error=>l_level_error
3403: );
3404: if (l_level_error <> 0) then
3405: Wf_Core.Token('ENTITY', 'MESSAGE_ATTRIBUTE');
3406: Wf_Core.Token('TYPE', v_msg(j));
3407: Wf_Core.Token('NAME', msar.name);
3408: Wf_Core.Raise('WFLDRSD_UPI');
3409: end if;
3402: x_level_error=>l_level_error
3403: );
3404: if (l_level_error <> 0) then
3405: Wf_Core.Token('ENTITY', 'MESSAGE_ATTRIBUTE');
3406: Wf_Core.Token('TYPE', v_msg(j));
3407: Wf_Core.Token('NAME', msar.name);
3408: Wf_Core.Raise('WFLDRSD_UPI');
3409: end if;
3410: end loop;
3403: );
3404: if (l_level_error <> 0) then
3405: Wf_Core.Token('ENTITY', 'MESSAGE_ATTRIBUTE');
3406: Wf_Core.Token('TYPE', v_msg(j));
3407: Wf_Core.Token('NAME', msar.name);
3408: Wf_Core.Raise('WFLDRSD_UPI');
3409: end if;
3410: end loop;
3411: end loop;
3404: if (l_level_error <> 0) then
3405: Wf_Core.Token('ENTITY', 'MESSAGE_ATTRIBUTE');
3406: Wf_Core.Token('TYPE', v_msg(j));
3407: Wf_Core.Token('NAME', msar.name);
3408: Wf_Core.Raise('WFLDRSD_UPI');
3409: end if;
3410: end loop;
3411: end loop;
3412:
3466: x_version=>l_version,
3467: x_level_error=>l_level_error
3468: );
3469: if (l_level_error <> 0) then
3470: Wf_Core.Token('ENTITY', 'ACTIVITY');
3471: Wf_Core.Token('TYPE', p_destination_item_type);
3472: Wf_Core.Token('NAME', actr.name);
3473: Wf_Core.Raise('WFLDRSD_UPI');
3474: end if;
3467: x_level_error=>l_level_error
3468: );
3469: if (l_level_error <> 0) then
3470: Wf_Core.Token('ENTITY', 'ACTIVITY');
3471: Wf_Core.Token('TYPE', p_destination_item_type);
3472: Wf_Core.Token('NAME', actr.name);
3473: Wf_Core.Raise('WFLDRSD_UPI');
3474: end if;
3475: i := i + 1;
3468: );
3469: if (l_level_error <> 0) then
3470: Wf_Core.Token('ENTITY', 'ACTIVITY');
3471: Wf_Core.Token('TYPE', p_destination_item_type);
3472: Wf_Core.Token('NAME', actr.name);
3473: Wf_Core.Raise('WFLDRSD_UPI');
3474: end if;
3475: i := i + 1;
3476: end loop;
3469: if (l_level_error <> 0) then
3470: Wf_Core.Token('ENTITY', 'ACTIVITY');
3471: Wf_Core.Token('TYPE', p_destination_item_type);
3472: Wf_Core.Token('NAME', actr.name);
3473: Wf_Core.Raise('WFLDRSD_UPI');
3474: end if;
3475: i := i + 1;
3476: end loop;
3477:
3516: x_value_type=>atar.value_type,
3517: x_level_error=>l_level_error
3518: );
3519: if (l_level_error <> 0) then
3520: Wf_Core.Token('ENTITY', 'ACTIVITY_ATTRIBUTE');
3521: Wf_Core.Token('TYPE', substr(v_act(j).name,1,30));
3522: Wf_Core.Token('NAME', atar.name);
3523: Wf_Core.Raise('WFLDRSD_UPI');
3524: end if;
3517: x_level_error=>l_level_error
3518: );
3519: if (l_level_error <> 0) then
3520: Wf_Core.Token('ENTITY', 'ACTIVITY_ATTRIBUTE');
3521: Wf_Core.Token('TYPE', substr(v_act(j).name,1,30));
3522: Wf_Core.Token('NAME', atar.name);
3523: Wf_Core.Raise('WFLDRSD_UPI');
3524: end if;
3525: end loop;
3518: );
3519: if (l_level_error <> 0) then
3520: Wf_Core.Token('ENTITY', 'ACTIVITY_ATTRIBUTE');
3521: Wf_Core.Token('TYPE', substr(v_act(j).name,1,30));
3522: Wf_Core.Token('NAME', atar.name);
3523: Wf_Core.Raise('WFLDRSD_UPI');
3524: end if;
3525: end loop;
3526: end loop;
3519: if (l_level_error <> 0) then
3520: Wf_Core.Token('ENTITY', 'ACTIVITY_ATTRIBUTE');
3521: Wf_Core.Token('TYPE', substr(v_act(j).name,1,30));
3522: Wf_Core.Token('NAME', atar.name);
3523: Wf_Core.Raise('WFLDRSD_UPI');
3524: end if;
3525: end loop;
3526: end loop;
3527:
3582: x_user_comment=>pacr.user_comment,
3583: x_level_error=>l_level_error
3584: );
3585: if (l_level_error <> 0) then
3586: Wf_Core.Token('ENTITY', 'PROCESS_ACTIVITY');
3587: Wf_Core.Token('TYPE', v_act(j).name);
3588: Wf_Core.Token('NAME', pacr.activity_name);
3589: Wf_Core.Raise('WFLDRSD_UPI');
3590: end if;
3583: x_level_error=>l_level_error
3584: );
3585: if (l_level_error <> 0) then
3586: Wf_Core.Token('ENTITY', 'PROCESS_ACTIVITY');
3587: Wf_Core.Token('TYPE', v_act(j).name);
3588: Wf_Core.Token('NAME', pacr.activity_name);
3589: Wf_Core.Raise('WFLDRSD_UPI');
3590: end if;
3591: end;
3584: );
3585: if (l_level_error <> 0) then
3586: Wf_Core.Token('ENTITY', 'PROCESS_ACTIVITY');
3587: Wf_Core.Token('TYPE', v_act(j).name);
3588: Wf_Core.Token('NAME', pacr.activity_name);
3589: Wf_Core.Raise('WFLDRSD_UPI');
3590: end if;
3591: end;
3592: i := i + 1;
3585: if (l_level_error <> 0) then
3586: Wf_Core.Token('ENTITY', 'PROCESS_ACTIVITY');
3587: Wf_Core.Token('TYPE', v_act(j).name);
3588: Wf_Core.Token('NAME', pacr.activity_name);
3589: Wf_Core.Raise('WFLDRSD_UPI');
3590: end if;
3591: end;
3592: i := i + 1;
3593: end loop;
3622: x_arrow_geometry=>patr.arrow_geometry,
3623: x_level_error=>l_level_error
3624: );
3625: if (l_level_error <> 0) then
3626: Wf_Core.Token('ENTITY', 'ACTIVITY_TRANSITION');
3627: Wf_Core.Token('TYPE', '');
3628: Wf_Core.Token('NAME', to_char(v_npac(j))||'-'||to_char(v_npac(toid)));
3629: Wf_Core.Raise('WFLDRSD_UPI');
3630: end if;
3623: x_level_error=>l_level_error
3624: );
3625: if (l_level_error <> 0) then
3626: Wf_Core.Token('ENTITY', 'ACTIVITY_TRANSITION');
3627: Wf_Core.Token('TYPE', '');
3628: Wf_Core.Token('NAME', to_char(v_npac(j))||'-'||to_char(v_npac(toid)));
3629: Wf_Core.Raise('WFLDRSD_UPI');
3630: end if;
3631: end loop;
3624: );
3625: if (l_level_error <> 0) then
3626: Wf_Core.Token('ENTITY', 'ACTIVITY_TRANSITION');
3627: Wf_Core.Token('TYPE', '');
3628: Wf_Core.Token('NAME', to_char(v_npac(j))||'-'||to_char(v_npac(toid)));
3629: Wf_Core.Raise('WFLDRSD_UPI');
3630: end if;
3631: end loop;
3632:
3625: if (l_level_error <> 0) then
3626: Wf_Core.Token('ENTITY', 'ACTIVITY_TRANSITION');
3627: Wf_Core.Token('TYPE', '');
3628: Wf_Core.Token('NAME', to_char(v_npac(j))||'-'||to_char(v_npac(toid)));
3629: Wf_Core.Raise('WFLDRSD_UPI');
3630: end if;
3631: end loop;
3632:
3633: -- Copy Activity Attr Values
3652: x_effective_date=>sysdate,
3653: x_level_error=>l_level_error
3654: );
3655: if (l_level_error <> 0) then
3656: Wf_Core.Token('ENTITY', 'ACTIVITY_ATTR_VALUE');
3657: Wf_Core.Token('TYPE', to_char(v_npac(j)));
3658: Wf_Core.Token('NAME', aavr.name);
3659: Wf_Core.Raise('WFLDRSD_UPI');
3660: end if;
3653: x_level_error=>l_level_error
3654: );
3655: if (l_level_error <> 0) then
3656: Wf_Core.Token('ENTITY', 'ACTIVITY_ATTR_VALUE');
3657: Wf_Core.Token('TYPE', to_char(v_npac(j)));
3658: Wf_Core.Token('NAME', aavr.name);
3659: Wf_Core.Raise('WFLDRSD_UPI');
3660: end if;
3661: end loop;
3654: );
3655: if (l_level_error <> 0) then
3656: Wf_Core.Token('ENTITY', 'ACTIVITY_ATTR_VALUE');
3657: Wf_Core.Token('TYPE', to_char(v_npac(j)));
3658: Wf_Core.Token('NAME', aavr.name);
3659: Wf_Core.Raise('WFLDRSD_UPI');
3660: end if;
3661: end loop;
3662: end loop;
3655: if (l_level_error <> 0) then
3656: Wf_Core.Token('ENTITY', 'ACTIVITY_ATTR_VALUE');
3657: Wf_Core.Token('TYPE', to_char(v_npac(j)));
3658: Wf_Core.Token('NAME', aavr.name);
3659: Wf_Core.Raise('WFLDRSD_UPI');
3660: end if;
3661: end loop;
3662: end loop;
3663:
3677: end if;
3678: if (msacur%isopen) then
3679: close msacur;
3680: end if;
3681: Wf_Core.Context('Wf_Load', 'COPY_ITEM_TYPE', p_item_type,
3682: p_destination_item_type,
3683: p_new_suffix);
3684: raise;
3685: end;
3730: delete from WF_PROCESS_ACTIVITIES where INSTANCE_ID = p_step;
3731:
3732: exception
3733: when OTHERS then
3734: Wf_Core.Context('Wf_Load', 'Delete_Process_Activity',
3735: to_char(p_step));
3736: raise;
3737: end;
3738:
3761: where PROCESS_ACTIVITY_ID = p_process_instance_id
3762: and NAME = p_attribute_name;
3763: exception
3764: when OTHERS then
3765: Wf_Core.Context('Wf_Load', 'Get_Activity_Attr_Val',
3766: to_char(p_process_instance_id), p_attribute_name);
3767: raise;
3768: end;
3769:
3805: end if;
3806:
3807: exception
3808: when OTHERS then
3809: Wf_Core.Context('Wf_Load', 'Get_Item_Attribute',
3810: p_item_type, p_attribute_name);
3811: raise;
3812: end;
3813:
3912: and NAME = p_name
3913: and END_DATE is null;
3914: exception
3915: when OTHERS then
3916: Wf_Core.Context('Wf_Load', 'Get_Activity', p_item_type, p_name);
3917: raise;
3918: end;
3919:
3920: --
3995: p_version=>l_version
3996: );
3997: -- Check protect and custom level
3998: if (l_type <> 'FOLDER') then
3999: if ((wf_core.upload_mode <> 'FORCE') and
4000: (l_protect_level < wf_core.session_level)) then
4001: p_level_error := 1;
4002: return;
4003: end if;
3996: );
3997: -- Check protect and custom level
3998: if (l_type <> 'FOLDER') then
3999: if ((wf_core.upload_mode <> 'FORCE') and
4000: (l_protect_level < wf_core.session_level)) then
4001: p_level_error := 1;
4002: return;
4003: end if;
4004:
4001: p_level_error := 1;
4002: return;
4003: end if;
4004:
4005: if ((wf_core.upload_mode = 'UPGRADE') and
4006: (l_custom_level > wf_core.session_level)) then
4007: p_level_error := 2;
4008: return;
4009: end if;
4002: return;
4003: end if;
4004:
4005: if ((wf_core.upload_mode = 'UPGRADE') and
4006: (l_custom_level > wf_core.session_level)) then
4007: p_level_error := 2;
4008: return;
4009: end if;
4010: end if;
4010: end if;
4011: exception
4012: when OTHERS then
4013: -- Don't proceed
4014: Wf_Core.Context('Wf_Load', 'Update_Activity Get_Activity');
4015: raise;
4016: end;
4017:
4018: if (p_display_name is not null) then
4057:
4058: n_dname := substrb('@'||l_dname, 1, 80);
4059:
4060: if ( n_dname = l_dname ) then
4061: Wf_Core.Token('DNAME', l_display_name);
4062: Wf_Core.Token('NAME', p_item_type||':'||p_name||':'||
4063: to_char(l_version));
4064: Wf_Core.Token('CONFLICT_NAME', conflict_name);
4065: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
4058: n_dname := substrb('@'||l_dname, 1, 80);
4059:
4060: if ( n_dname = l_dname ) then
4061: Wf_Core.Token('DNAME', l_display_name);
4062: Wf_Core.Token('NAME', p_item_type||':'||p_name||':'||
4063: to_char(l_version));
4064: Wf_Core.Token('CONFLICT_NAME', conflict_name);
4065: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
4066: exit;
4060: if ( n_dname = l_dname ) then
4061: Wf_Core.Token('DNAME', l_display_name);
4062: Wf_Core.Token('NAME', p_item_type||':'||p_name||':'||
4063: to_char(l_version));
4064: Wf_Core.Token('CONFLICT_NAME', conflict_name);
4065: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
4066: exit;
4067: end if;
4068: exception
4061: Wf_Core.Token('DNAME', l_display_name);
4062: Wf_Core.Token('NAME', p_item_type||':'||p_name||':'||
4063: to_char(l_version));
4064: Wf_Core.Token('CONFLICT_NAME', conflict_name);
4065: Wf_Core.Raise('WFSQL_UNIQUE_NAME');
4066: exit;
4067: end if;
4068: exception
4069: when no_data_found then
4093: and VERSION = l_version;
4094:
4095: exception
4096: when OTHERS then
4097: Wf_Core.Context('Wf_Load', 'Update_Activity', p_item_type, p_name,
4098: p_display_name);
4099: raise;
4100: end;
4101:
4152: return id;
4153:
4154: exception
4155: when OTHERS then
4156: Wf_Core.Context('Wf_Load', 'Get_Activity_Instance', p_process_item_type,
4157: p_process_name, p_process_version);
4158: return (-1);
4159: end;
4160:
4179:
4180: return l_actname;
4181: exception
4182: when OTHERS then
4183: Wf_Core.Context('Wf_Load', 'GetActNameFromInstId',
4184: to_char(p_instance_id));
4185: return null;
4186: end;
4187: */
4279: end if;
4280: end if;
4281: exception
4282: when OTHERS then
4283: Wf_Core.Context('Wf_Load', 'Get_Activity_Transition',
4284: to_char(p_from_activity),
4285: to_char(p_to_activity),
4286: p_result_code
4287: );
4315: i := i + 1;
4316: end loop;
4317: exception
4318: when OTHERS then
4319: Wf_Core.Context('Wf_Load', 'Get_Attribute_Names', p_item_type, p_suffix);
4320: raise;
4321: end;
4322:
4323:
4351: i := i + 1;
4352: end loop;
4353: exception
4354: when OTHERS then
4355: Wf_Core.Context('Wf_Load', 'Get_Notif_Activity_Names',
4356: p_item_type, p_suffix);
4357: raise;
4358: end;
4359:
4384: i := i + 1;
4385: end loop;
4386: exception
4387: when OTHERS then
4388: Wf_Core.Context('Wf_Load', 'Get_Message_Names', p_item_type, p_suffix);
4389: raise;
4390: end;
4391:
4392: -- Get_Process_Activity_Instances
4420: i := i + 1;
4421: end loop;
4422: exception
4423: when OTHERS then
4424: Wf_Core.Context('Wf_Load', 'Get_Process_Activity_Instances',
4425: p_process_item_type, p_process_name, p_process_version);
4426: raise;
4427: end;
4428:
4454: where LOOKUP_TYPE = x_lookup_type
4455: and LOOKUP_CODE = x_lookup_code;
4456: exception
4457: when OTHERS then
4458: Wf_Core.Context('Wf_Load', 'Get_Lookup', x_lookup_type, x_lookup_code);
4459: raise;
4460: end;
4461:
4462: --
4520: x_level_error=>x_level_error
4521: );
4522: exception
4523: when OTHERS then
4524: Wf_Core.Context('Wf_Load', 'Update_Lookup', x_lookup_type, x_lookup_code);
4525: raise;
4526: end;
4527:
4528:
4551: i := i + 1;
4552: end loop;
4553: exception
4554: when OTHERS then
4555: Wf_Core.Context('Wf_Load', 'Get_Lookup_Codes', p_lookup_type);
4556: raise;
4557: end;
4558:
4559: --
4597: begin
4598: -- first check the iteration to avoid infinite loop
4599: if (iteration > 7) then
4600: -- debug only
4601: -- Wf_Core.Context('Wf_Load', 'Activity_Exist_In_Process_Overflown',
4602: -- p_process_item_type, p_process_name,
4603: -- nvl(p_activity_item_type, p_process_item_type),
4604: -- p_activity_name);
4605: return FALSE;
4652: end if;
4653:
4654: exception
4655: when OTHERS then
4656: Wf_Core.Context('Wf_Load', 'Activity_Exist_In_Process',
4657: p_process_item_type, p_process_name,
4658: nvl(p_activity_item_type, p_process_item_type),
4659: p_activity_name);
4660: raise;
4701: begin
4702: AD_ZD_SEED.PREPARE('WF_RESOURCES');
4703: exception
4704: when others then
4705: WF_CORE.context('WF_LOAD', 'Prepare_NZDT_WFRESGEN', 'WF_RESOURCES', sqlerrm);
4706: raise;
4707: end Prepare_NZDT_WFRESGEN;
4708:
4709: --
4741: AD_ZD_SEED.PREPARE(l_tem_tab_name);
4742: end loop;
4743: exception
4744: when others then
4745: WF_CORE.context(l_package_name, l_module_name, l_tem_tab_name, sqlerrm);
4746: raise;
4747: end Prepare_NZDT_WFLOAD;
4748:
4749: end WF_LOAD;