eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.XDPCORE dependencies on XDPCORE

Line 1: PACKAGE BODY XDPCORE AS

1: PACKAGE BODY XDPCORE AS
2: /* $Header: XDPCOREB.pls 120.1 2005/06/15 22:36:52 appldev $ */
3:
4:
5: /****

Line 2: /* $Header: XDPCOREB.pls 120.1 2005/06/15 22:36:52 appldev $ */

1: PACKAGE BODY XDPCORE AS
2: /* $Header: XDPCOREB.pls 120.1 2005/06/15 22:36:52 appldev $ */
3:
4:
5: /****
6: All Private Procedures for the Package

Line 86: x_Progress := 'XDPCORE.StartWfProcess: Cannot Start Workflow process with null values for Itemtype: '

82:
83: EXCEPTION
84: WHEN e_NullValueException then
85:
86: x_Progress := 'XDPCORE.StartWfProcess: Cannot Start Workflow process with null values for Itemtype: '
87: || NVL(itemtype, 'NULL') || ' Itemkey: ' || NVL(itemkey, 'NULL') || ' OrderID ' || NVL(OrderID, 'NULL')
88: || ' Process: ' || NVL(WorkflowProcess, 'NULL');
89:
90: wf_core.context('XDPCORE', 'StartWfProcess', itemtype, itemkey, x_Progress);

Line 90: wf_core.context('XDPCORE', 'StartWfProcess', itemtype, itemkey, x_Progress);

86: x_Progress := 'XDPCORE.StartWfProcess: Cannot Start Workflow process with null values for Itemtype: '
87: || NVL(itemtype, 'NULL') || ' Itemkey: ' || NVL(itemkey, 'NULL') || ' OrderID ' || NVL(OrderID, 'NULL')
88: || ' Process: ' || NVL(WorkflowProcess, 'NULL');
89:
90: wf_core.context('XDPCORE', 'StartWfProcess', itemtype, itemkey, x_Progress);
91: raise;
92: WHEN OTHERS THEN
93: wf_core.context('XDPCORE', 'StartWfProcess', itemtype, itemkey, null, null);
94: raise;

Line 93: wf_core.context('XDPCORE', 'StartWfProcess', itemtype, itemkey, null, null);

89:
90: wf_core.context('XDPCORE', 'StartWfProcess', itemtype, itemkey, x_Progress);
91: raise;
92: WHEN OTHERS THEN
93: wf_core.context('XDPCORE', 'StartWfProcess', itemtype, itemkey, null, null);
94: raise;
95: END StartWfProcess;
96:
97:

Line 147: wf_core.context('XDPCORE', 'StartInitOrderProcess', itemtype, itemkey, null, x_progress);

143: end if;
144:
145: exception
146: when others then
147: wf_core.context('XDPCORE', 'StartInitOrderProcess', itemtype, itemkey, null, x_progress);
148: raise;
149: end StartInitOrderProcess;
150:
151:

Line 200: x_progress := 'In XDPCORE.StartORUProcess. Error when adding RESUBMISSION_JOB_ID attribute. ';

196: ErrCode => l_ErrCode,
197: ErrStr => l_ErrStr);
198:
199: if l_ErrCode <> 0 then
200: x_progress := 'In XDPCORE.StartORUProcess. Error when adding RESUBMISSION_JOB_ID attribute. ';
201: raise e_AddAttributeException;
202: end if;
203:
204: wf_engine.StartProcess(itemtype => ItemType,

Line 214: wf_core.context('XDPCORE', 'StartORUProcess', itemtype, itemkey, null, x_progress);

210: end if;
211:
212: exception
213: when others then
214: wf_core.context('XDPCORE', 'StartORUProcess', itemtype, itemkey, null, x_progress);
215: raise;
216: end StartORUProcess;
217:
218:

Line 266: wf_core.context('XDPCORE', 'StartOAProcess', itemtype, itemkey, null, x_progress);

262: end if;
263:
264: exception
265: when others then
266: wf_core.context('XDPCORE', 'StartOAProcess', itemtype, itemkey, null, x_progress);
267: raise;
268: end StartOAProcess;
269:
270:

Line 311: x_progress := 'XDPCORE.CreateOrderProcess. Unhandled Excepton: ' || SUBSTR(SQLERRM, 1, 1500);

307:
308:
309: exception
310: when others then
311: x_progress := 'XDPCORE.CreateOrderProcess. Unhandled Excepton: ' || SUBSTR(SQLERRM, 1, 1500);
312: wf_core.context('XDPCORE', 'CreateOrderProcess', itemtype, itemkey, null, x_progress);
313: raise;
314: end CreateOrderProcess;
315:

Line 312: wf_core.context('XDPCORE', 'CreateOrderProcess', itemtype, itemkey, null, x_progress);

308:
309: exception
310: when others then
311: x_progress := 'XDPCORE.CreateOrderProcess. Unhandled Excepton: ' || SUBSTR(SQLERRM, 1, 1500);
312: wf_core.context('XDPCORE', 'CreateOrderProcess', itemtype, itemkey, null, x_progress);
313: raise;
314: end CreateOrderProcess;
315:
316:

Line 354: wf_core.context('XDPCORE', 'IS_OA_NEEDED', itemtype, itemkey, to_char(actid), funcmode);

350:
351:
352: EXCEPTION
353: WHEN OTHERS THEN
354: wf_core.context('XDPCORE', 'IS_OA_NEEDED', itemtype, itemkey, to_char(actid), funcmode);
355: raise;
356: END IS_OA_NEEDED;
357:
358:

Line 391: wf_core.context('XDPCORE', 'LAUNCH_ORDER_ANALYZER', itemtype, itemkey, to_char(actid), funcmode);

387: END IF;
388:
389: EXCEPTION
390: WHEN OTHERS THEN
391: wf_core.context('XDPCORE', 'LAUNCH_ORDER_ANALYZER', itemtype, itemkey, to_char(actid), funcmode);
392: raise;
393: END LAUNCH_ORDER_ANALYZER;
394:
395:

Line 424: wf_core.context('XDPCORE', 'SET_ORDER_STATUS_TO_HOLD', itemtype, itemkey, to_char(actid), funcmode);

420: END IF;
421:
422: EXCEPTION
423: WHEN OTHERS THEN
424: wf_core.context('XDPCORE', 'SET_ORDER_STATUS_TO_HOLD', itemtype, itemkey, to_char(actid), funcmode);
425: raise;
426: END SET_ORDER_STATUS_TO_HOLD;
427:
428:

Line 458: wf_core.context('XDPCORE', 'ENQUEUE_PENDING_QUEUE', itemtype, itemkey, to_char(actid), funcmode);

454: END IF;
455:
456: EXCEPTION
457: WHEN OTHERS THEN
458: wf_core.context('XDPCORE', 'ENQUEUE_PENDING_QUEUE', itemtype, itemkey, to_char(actid), funcmode);
459: raise;
460: END ENQUEUE_PENDING_QUEUE;
461:
462: ****/

Line 496: wf_core.context('XDPCORE', 'WHAT_SOURCE', itemtype, itemkey, to_char(actid), funcmode);

492: END IF;
493:
494: EXCEPTION
495: WHEN OTHERS THEN
496: wf_core.context('XDPCORE', 'WHAT_SOURCE', itemtype, itemkey, to_char(actid), funcmode);
497: raise;
498: END WHAT_SOURCE;
499:
500:

Line 532: wf_core.context('XDPCORE', 'ORDER_TYPE', itemtype, itemkey, to_char(actid), funcmode);

528: END IF;
529:
530: EXCEPTION
531: WHEN OTHERS THEN
532: wf_core.context('XDPCORE', 'ORDER_TYPE', itemtype, itemkey, to_char(actid), funcmode);
533: raise;
534: END ORDER_TYPE;
535:
536:

Line 567: wf_core.context('XDPCORE', 'RESUME_SDP', itemtype, itemkey, to_char(actid), funcmode);

563: END IF;
564:
565: EXCEPTION
566: WHEN OTHERS THEN
567: wf_core.context('XDPCORE', 'RESUME_SDP', itemtype, itemkey, to_char(actid), funcmode);
568: raise;
569: END RESUME_SDP;
570:
571:

Line 585: wf_core.context('XDPCORE', 'OP_START', itemtype, itemkey, to_char(actid), funcmode);

581:
582: EXCEPTION
583:
584: WHEN OTHERS THEN
585: wf_core.context('XDPCORE', 'OP_START', itemtype, itemkey, to_char(actid), funcmode);
586: raise;
587: END OP_START;
588:
589: Procedure OP_END (itemtype in varchar2,

Line 599: wf_core.context('XDPCORE', 'OP_END', itemtype, itemkey, to_char(actid), funcmode);

595: BEGIN
596: null;
597: EXCEPTION
598: WHEN OTHERS THEN
599: wf_core.context('XDPCORE', 'OP_END', itemtype, itemkey, to_char(actid), funcmode);
600: raise;
601: END OP_END;
602:
603:

Line 687: x_Progress := 'XDPCORE.EnqueuePendingQueue. Error when enqueuing into the Pending Order Queue. Error: ' || SUBSTR(l_ErrStr, 1, 1500);

683: p_return_code => l_ErrCode,
684: p_error_description => l_ErrStr);
685:
686: IF l_ErrCode <> 0 then
687: x_Progress := 'XDPCORE.EnqueuePendingQueue. Error when enqueuing into the Pending Order Queue. Error: ' || SUBSTR(l_ErrStr, 1, 1500);
688: raise e_EnqueueException;
689: END IF;
690:
691: EXCEPTION

Line 693: wf_core.context('XDPCORE', 'EnqueuePendingQueue',itemtype,itemkey, null,x_progress);

689: END IF;
690:
691: EXCEPTION
692: WHEN e_EnqueueException THEN
693: wf_core.context('XDPCORE', 'EnqueuePendingQueue',itemtype,itemkey, null,x_progress);
694: raise;
695: WHEN others THEN
696: x_progress := 'XDPCORE.EnqueuePendingQueue. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);
697: wf_core.context('XDPCORE', 'EnqueuePendingQueue',itemtype,itemkey, null,x_progress);

Line 696: x_progress := 'XDPCORE.EnqueuePendingQueue. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);

692: WHEN e_EnqueueException THEN
693: wf_core.context('XDPCORE', 'EnqueuePendingQueue',itemtype,itemkey, null,x_progress);
694: raise;
695: WHEN others THEN
696: x_progress := 'XDPCORE.EnqueuePendingQueue. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);
697: wf_core.context('XDPCORE', 'EnqueuePendingQueue',itemtype,itemkey, null,x_progress);
698: raise;
699: END EnqueuePendingQueue;
700: *******/

Line 697: wf_core.context('XDPCORE', 'EnqueuePendingQueue',itemtype,itemkey, null,x_progress);

693: wf_core.context('XDPCORE', 'EnqueuePendingQueue',itemtype,itemkey, null,x_progress);
694: raise;
695: WHEN others THEN
696: x_progress := 'XDPCORE.EnqueuePendingQueue. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);
697: wf_core.context('XDPCORE', 'EnqueuePendingQueue',itemtype,itemkey, null,x_progress);
698: raise;
699: END EnqueuePendingQueue;
700: *******/
701:

Line 762: x_progress := 'XDPCORE.ResumeSDP. Error when Deregistering Timers and Callback Events' || SUBSTR(x_progress, 1, 1800);

758:
759:
760: EXCEPTION
761: WHEN e_deregister_exception then
762: x_progress := 'XDPCORE.ResumeSDP. Error when Deregistering Timers and Callback Events' || SUBSTR(x_progress, 1, 1800);
763: wf_core.context('XDPCORE', 'ResumeSDP', itemtype, itemkey, to_char(actid), x_progress);
764: raise;
765: WHEN others THEN
766: x_progress := 'XDPCORE.ResumeSDP. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);

Line 763: wf_core.context('XDPCORE', 'ResumeSDP', itemtype, itemkey, to_char(actid), x_progress);

759:
760: EXCEPTION
761: WHEN e_deregister_exception then
762: x_progress := 'XDPCORE.ResumeSDP. Error when Deregistering Timers and Callback Events' || SUBSTR(x_progress, 1, 1800);
763: wf_core.context('XDPCORE', 'ResumeSDP', itemtype, itemkey, to_char(actid), x_progress);
764: raise;
765: WHEN others THEN
766: x_progress := 'XDPCORE.ResumeSDP. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);
767: wf_core.context('XDPCORE', 'ResumeSDP', itemtype, itemkey, to_char(actid), x_progress);

Line 766: x_progress := 'XDPCORE.ResumeSDP. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);

762: x_progress := 'XDPCORE.ResumeSDP. Error when Deregistering Timers and Callback Events' || SUBSTR(x_progress, 1, 1800);
763: wf_core.context('XDPCORE', 'ResumeSDP', itemtype, itemkey, to_char(actid), x_progress);
764: raise;
765: WHEN others THEN
766: x_progress := 'XDPCORE.ResumeSDP. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);
767: wf_core.context('XDPCORE', 'ResumeSDP', itemtype, itemkey, to_char(actid), x_progress);
768: raise;
769: END ResumeSDP;
770:

Line 767: wf_core.context('XDPCORE', 'ResumeSDP', itemtype, itemkey, to_char(actid), x_progress);

763: wf_core.context('XDPCORE', 'ResumeSDP', itemtype, itemkey, to_char(actid), x_progress);
764: raise;
765: WHEN others THEN
766: x_progress := 'XDPCORE.ResumeSDP. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);
767: wf_core.context('XDPCORE', 'ResumeSDP', itemtype, itemkey, to_char(actid), x_progress);
768: raise;
769: END ResumeSDP;
770:
771:

Line 791: x_progress := 'XDPCORE.GetOrderType. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);

787:
788:
789: EXCEPTION
790: WHEN others THEN
791: x_progress := 'XDPCORE.GetOrderType. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);
792: wf_core.context('XDPCORE', 'GetOrderType', itemtype, itemkey, to_char(actid), x_progress);
793: END GetOrderType;
794:
795:

Line 792: wf_core.context('XDPCORE', 'GetOrderType', itemtype, itemkey, to_char(actid), x_progress);

788:
789: EXCEPTION
790: WHEN others THEN
791: x_progress := 'XDPCORE.GetOrderType. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);
792: wf_core.context('XDPCORE', 'GetOrderType', itemtype, itemkey, to_char(actid), x_progress);
793: END GetOrderType;
794:
795:
796:

Line 816: x_progress := 'XDPCORE.GetOrderSource. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);

812:
813:
814: EXCEPTION
815: WHEN others THEN
816: x_progress := 'XDPCORE.GetOrderSource. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);
817: wf_core.context('XDPCORE', 'GetOrderSource', itemtype, itemkey, to_char(actid), x_progress);
818: END GetOrderSource;
819:
820:

Line 817: wf_core.context('XDPCORE', 'GetOrderSource', itemtype, itemkey, to_char(actid), x_progress);

813:
814: EXCEPTION
815: WHEN others THEN
816: x_progress := 'XDPCORE.GetOrderSource. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);
817: wf_core.context('XDPCORE', 'GetOrderSource', itemtype, itemkey, to_char(actid), x_progress);
818: END GetOrderSource;
819:
820:
821: FUNCTION IsOANeeded (itemtype IN VARCHAR2,

Line 842: x_progress := 'XDPCORE.IsOANeeded. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);

838:
839:
840: EXCEPTION
841: WHEN others THEN
842: x_progress := 'XDPCORE.IsOANeeded. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);
843: wf_core.context('XDPCORE', 'IsOANeeded', itemtype, itemkey, to_char(actid), x_progress);
844: END IsOANeeded;
845:
846:

Line 843: wf_core.context('XDPCORE', 'IsOANeeded', itemtype, itemkey, to_char(actid), x_progress);

839:
840: EXCEPTION
841: WHEN others THEN
842: x_progress := 'XDPCORE.IsOANeeded. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);
843: wf_core.context('XDPCORE', 'IsOANeeded', itemtype, itemkey, to_char(actid), x_progress);
844: END IsOANeeded;
845:
846:
847: PROCEDURE LaunchOrderAnalyzer (itemtype IN VARCHAR2,

Line 864: x_progress := 'XDPCORE.LaunchOrderAnalyzer. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);

860: null;
861:
862: EXCEPTION
863: WHEN others THEN
864: x_progress := 'XDPCORE.LaunchOrderAnalyzer. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);
865: wf_core.context('XDPCORE', 'LaunchOrderAnalyzer', itemtype, itemkey, to_char(actid), x_progress);
866: END LaunchOrderAnalyzer;
867:
868:

Line 865: wf_core.context('XDPCORE', 'LaunchOrderAnalyzer', itemtype, itemkey, to_char(actid), x_progress);

861:
862: EXCEPTION
863: WHEN others THEN
864: x_progress := 'XDPCORE.LaunchOrderAnalyzer. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);
865: wf_core.context('XDPCORE', 'LaunchOrderAnalyzer', itemtype, itemkey, to_char(actid), x_progress);
866: END LaunchOrderAnalyzer;
867:
868:
869:

Line 904: wf_core.context('XDPCORE', 'SEND_NOTIFICATION',null,null, null,null);

900: priority);
901:
902: EXCEPTION
903: WHEN others THEN
904: wf_core.context('XDPCORE', 'SEND_NOTIFICATION',null,null, null,null);
905: raise;
906: END SEND_NOTIFICATION;
907:
908:

Line 1392: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPCORE.START_RESUBMITT_PROCESS');

1388: EXCEPTION
1389: WHEN others THEN
1390: x_error_code := -191266;
1391: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1392: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPCORE.START_RESUBMITT_PROCESS');
1393: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1394: x_error_message := FND_MESSAGE.GET;
1395: RAISE ;
1396: END START_FA_RESUBMIT_PROCESS;

Line 1424: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'XDPCORE.START_RESUBMISSION_CHANNELS',

1420: ORDER BY seq_in_fe ;
1421:
1422: BEGIN
1423: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
1424: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'XDPCORE.START_RESUBMISSION_CHANNELS',
1425: 'P_FE_ID is '||p_fe_id||
1426: ' P_CHANNEL_REQD is '||p_channels_reqd||
1427: ' P_USAGE_CODE is '||p_usage_code);
1428: end if;

Line 1467: FND_LOG.STRING(fnd_log.level_statement,'XDPCORE.START_RESUBMISSION_CHANNELS',

1463: COMMIT;
1464:
1465: x_channels_started := l_channel_started ;
1466: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then --Fix Bug: 4256771, dputhiye, 28 Apr 05
1467: FND_LOG.STRING(fnd_log.level_statement,'XDPCORE.START_RESUBMISSION_CHANNELS',
1468: ' No. Of Channels Required '||p_channels_reqd ||
1469: ' No Of Channel Started '||x_channels_started);
1470: end if;
1471: EXCEPTION

Line 1481: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPCORE.START_RESUBMISSION_CHANNELS');

1477:
1478: WHEN others THEN
1479: x_error_code := -191266;
1480: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1481: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPCORE.START_RESUBMISSION_CHANNELS');
1482: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1483: x_error_message := FND_MESSAGE.GET;
1484: RAISE ;
1485: END START_RESUBMISSION_CHANNELS ;

Line 1552: xdpcore.error_stack := substrb(xdpcore.error_stack||buf, 1, 32000);

1548:
1549: buf := substrb(buf||')', 1, 32000);
1550:
1551: -- Concatenate to the error_stack buffer
1552: xdpcore.error_stack := substrb(xdpcore.error_stack||buf, 1, 32000);
1553:
1554: end Context;
1555:
1556: Procedure error_context (object_type in varchar2,

Line 1564: xdpcore.business_error := 'Y';

1560: is
1561:
1562: begin
1563:
1564: xdpcore.business_error := 'Y';
1565: xdpcore.object_type := object_type;
1566: xdpcore.object_key := object_key;
1567: xdpcore.error_name := error_name;
1568: xdpcore.error_message := error_message;

Line 1565: xdpcore.object_type := object_type;

1561:
1562: begin
1563:
1564: xdpcore.business_error := 'Y';
1565: xdpcore.object_type := object_type;
1566: xdpcore.object_key := object_key;
1567: xdpcore.error_name := error_name;
1568: xdpcore.error_message := error_message;
1569:

Line 1566: xdpcore.object_key := object_key;

1562: begin
1563:
1564: xdpcore.business_error := 'Y';
1565: xdpcore.object_type := object_type;
1566: xdpcore.object_key := object_key;
1567: xdpcore.error_name := error_name;
1568: xdpcore.error_message := error_message;
1569:
1570: end error_context;

Line 1567: xdpcore.error_name := error_name;

1563:
1564: xdpcore.business_error := 'Y';
1565: xdpcore.object_type := object_type;
1566: xdpcore.object_key := object_key;
1567: xdpcore.error_name := error_name;
1568: xdpcore.error_message := error_message;
1569:
1570: end error_context;
1571:

Line 1568: xdpcore.error_message := error_message;

1564: xdpcore.business_error := 'Y';
1565: xdpcore.object_type := object_type;
1566: xdpcore.object_key := object_key;
1567: xdpcore.error_name := error_name;
1568: xdpcore.error_message := error_message;
1569:
1570: end error_context;
1571:
1572: function is_business_error return varchar2

Line 1575: return (NVL(xdpcore.business_error,'N'));

1571:
1572: function is_business_error return varchar2
1573: is
1574: begin
1575: return (NVL(xdpcore.business_error,'N'));
1576:
1577: end is_business_error;
1578:
1579: procedure Clear is

Line 1581: xdpcore.business_error := 'N';

1577: end is_business_error;
1578:
1579: procedure Clear is
1580: begin
1581: xdpcore.business_error := 'N';
1582: xdpcore.object_type := '';
1583: xdpcore.object_key := '';
1584: xdpcore.error_name := '';
1585: xdpcore.error_number := '';

Line 1582: xdpcore.object_type := '';

1578:
1579: procedure Clear is
1580: begin
1581: xdpcore.business_error := 'N';
1582: xdpcore.object_type := '';
1583: xdpcore.object_key := '';
1584: xdpcore.error_name := '';
1585: xdpcore.error_number := '';
1586: xdpcore.error_message := '';

Line 1583: xdpcore.object_key := '';

1579: procedure Clear is
1580: begin
1581: xdpcore.business_error := 'N';
1582: xdpcore.object_type := '';
1583: xdpcore.object_key := '';
1584: xdpcore.error_name := '';
1585: xdpcore.error_number := '';
1586: xdpcore.error_message := '';
1587: xdpcore.error_stack := '';

Line 1584: xdpcore.error_name := '';

1580: begin
1581: xdpcore.business_error := 'N';
1582: xdpcore.object_type := '';
1583: xdpcore.object_key := '';
1584: xdpcore.error_name := '';
1585: xdpcore.error_number := '';
1586: xdpcore.error_message := '';
1587: xdpcore.error_stack := '';
1588:

Line 1585: xdpcore.error_number := '';

1581: xdpcore.business_error := 'N';
1582: xdpcore.object_type := '';
1583: xdpcore.object_key := '';
1584: xdpcore.error_name := '';
1585: xdpcore.error_number := '';
1586: xdpcore.error_message := '';
1587: xdpcore.error_stack := '';
1588:
1589: end Clear;

Line 1586: xdpcore.error_message := '';

1582: xdpcore.object_type := '';
1583: xdpcore.object_key := '';
1584: xdpcore.error_name := '';
1585: xdpcore.error_number := '';
1586: xdpcore.error_message := '';
1587: xdpcore.error_stack := '';
1588:
1589: end Clear;
1590:

Line 1587: xdpcore.error_stack := '';

1583: xdpcore.object_key := '';
1584: xdpcore.error_name := '';
1585: xdpcore.error_number := '';
1586: xdpcore.error_message := '';
1587: xdpcore.error_stack := '';
1588:
1589: end Clear;
1590:
1591:

Line 1609: object_type := xdpcore.object_type;

1605: err_message OUT NOCOPY varchar2,
1606: err_stack OUT NOCOPY varchar2)
1607: is
1608: begin
1609: object_type := xdpcore.object_type;
1610: object_key := xdpcore.object_key;
1611: err_name := xdpcore.error_name;
1612: err_message := xdpcore.error_message;
1613: err_stack := xdpcore.error_stack;

Line 1610: object_key := xdpcore.object_key;

1606: err_stack OUT NOCOPY varchar2)
1607: is
1608: begin
1609: object_type := xdpcore.object_type;
1610: object_key := xdpcore.object_key;
1611: err_name := xdpcore.error_name;
1612: err_message := xdpcore.error_message;
1613: err_stack := xdpcore.error_stack;
1614: xdpcore.clear;

Line 1611: err_name := xdpcore.error_name;

1607: is
1608: begin
1609: object_type := xdpcore.object_type;
1610: object_key := xdpcore.object_key;
1611: err_name := xdpcore.error_name;
1612: err_message := xdpcore.error_message;
1613: err_stack := xdpcore.error_stack;
1614: xdpcore.clear;
1615: end Get_Error;

Line 1612: err_message := xdpcore.error_message;

1608: begin
1609: object_type := xdpcore.object_type;
1610: object_key := xdpcore.object_key;
1611: err_name := xdpcore.error_name;
1612: err_message := xdpcore.error_message;
1613: err_stack := xdpcore.error_stack;
1614: xdpcore.clear;
1615: end Get_Error;
1616:

Line 1613: err_stack := xdpcore.error_stack;

1609: object_type := xdpcore.object_type;
1610: object_key := xdpcore.object_key;
1611: err_name := xdpcore.error_name;
1612: err_message := xdpcore.error_message;
1613: err_stack := xdpcore.error_stack;
1614: xdpcore.clear;
1615: end Get_Error;
1616:
1617:

Line 1614: xdpcore.clear;

1610: object_key := xdpcore.object_key;
1611: err_name := xdpcore.error_name;
1612: err_message := xdpcore.error_message;
1613: err_stack := xdpcore.error_stack;
1614: xdpcore.clear;
1615: end Get_Error;
1616:
1617:
1618: --

Line 1630: xdpcore.error_number := err_number;

1626: procedure Raise(err_number in number default -20001,
1627: err_message in varchar2 default null)
1628: is
1629: begin
1630: xdpcore.error_number := err_number;
1631:
1632: if (xdpcore.error_number = -20001) then
1633: xdpcore.error_message := substrb(to_char(sqlcode)||
1634: ': '||sqlerrm, 1, 2000);

Line 1632: if (xdpcore.error_number = -20001) then

1628: is
1629: begin
1630: xdpcore.error_number := err_number;
1631:
1632: if (xdpcore.error_number = -20001) then
1633: xdpcore.error_message := substrb(to_char(sqlcode)||
1634: ': '||sqlerrm, 1, 2000);
1635: elsif (xdpcore.error_number is not null) then
1636: xdpcore.error_message := substrb(to_char(xdpcore.error_number)||

Line 1633: xdpcore.error_message := substrb(to_char(sqlcode)||

1629: begin
1630: xdpcore.error_number := err_number;
1631:
1632: if (xdpcore.error_number = -20001) then
1633: xdpcore.error_message := substrb(to_char(sqlcode)||
1634: ': '||sqlerrm, 1, 2000);
1635: elsif (xdpcore.error_number is not null) then
1636: xdpcore.error_message := substrb(to_char(xdpcore.error_number)||
1637: ': '||err_message, 1, 2000);

Line 1635: elsif (xdpcore.error_number is not null) then

1631:
1632: if (xdpcore.error_number = -20001) then
1633: xdpcore.error_message := substrb(to_char(sqlcode)||
1634: ': '||sqlerrm, 1, 2000);
1635: elsif (xdpcore.error_number is not null) then
1636: xdpcore.error_message := substrb(to_char(xdpcore.error_number)||
1637: ': '||err_message, 1, 2000);
1638: end if;
1639:

Line 1636: xdpcore.error_message := substrb(to_char(xdpcore.error_number)||

1632: if (xdpcore.error_number = -20001) then
1633: xdpcore.error_message := substrb(to_char(sqlcode)||
1634: ': '||sqlerrm, 1, 2000);
1635: elsif (xdpcore.error_number is not null) then
1636: xdpcore.error_message := substrb(to_char(xdpcore.error_number)||
1637: ': '||err_message, 1, 2000);
1638: end if;
1639:
1640: -- Raise the error

Line 1641: raise_application_error(err_number, xdpcore.error_message);

1637: ': '||err_message, 1, 2000);
1638: end if;
1639:
1640: -- Raise the error
1641: raise_application_error(err_number, xdpcore.error_message);
1642:
1643: exception
1644: when others then
1645: raise;

Line 1648: End XDPCORE;

1644: when others then
1645: raise;
1646: end Raise;
1647:
1648: End XDPCORE;