[Home] [Help]
PACKAGE BODY: APPS.DPP_BPEL_UPDATEERROR
Source
1 PACKAGE BODY DPP_BPEL_UPDATEERROR AS
2 /* $Header: dppvburb.pls 120.5 2007/12/18 13:16:38 assoni noship $ */
3 FUNCTION PL_TO_SQL0(aPlsqlItem DPP_ERROR_PVT.DPP_ERROR_REC_TYPE)
4 RETURN DPP_ERROR_PVT_DPP_ERROR_REC_T IS
5 aSqlItem DPP_ERROR_PVT_DPP_ERROR_REC_T;
6 BEGIN
7 -- initialize the object
8 aSqlItem := DPP_ERROR_PVT_DPP_ERROR_REC_T(NULL, NULL, NULL, NULL, NULL, NULL, NULL);
9 aSqlItem.TRANSACTION_HEADER_ID := aPlsqlItem.TRANSACTION_HEADER_ID;
10 aSqlItem.ORG_ID := aPlsqlItem.ORG_ID;
11 aSqlItem.EXECUTION_DETAIL_ID := aPlsqlItem.EXECUTION_DETAIL_ID;
12 aSqlItem.OUTPUT_XML := aPlsqlItem.OUTPUT_XML;
13 aSqlItem.PROVIDER_PROCESS_ID := aPlsqlItem.PROVIDER_PROCESS_ID;
14 aSqlItem.PROVIDER_PROCESS_INSTANCE_ID := aPlsqlItem.PROVIDER_PROCESS_INSTANCE_ID;
15 aSqlItem.LAST_UPDATED_BY := aPlsqlItem.LAST_UPDATED_BY;
16 RETURN aSqlItem;
17 END PL_TO_SQL0;
18 FUNCTION SQL_TO_PL0(aSqlItem DPP_ERROR_PVT_DPP_ERROR_REC_T)
19 RETURN DPP_ERROR_PVT.DPP_ERROR_REC_TYPE IS
20 aPlsqlItem DPP_ERROR_PVT.DPP_ERROR_REC_TYPE;
21 BEGIN
22 aPlsqlItem.TRANSACTION_HEADER_ID := aSqlItem.TRANSACTION_HEADER_ID;
23 aPlsqlItem.ORG_ID := aSqlItem.ORG_ID;
24 aPlsqlItem.EXECUTION_DETAIL_ID := aSqlItem.EXECUTION_DETAIL_ID;
25 aPlsqlItem.OUTPUT_XML := aSqlItem.OUTPUT_XML;
26 aPlsqlItem.PROVIDER_PROCESS_ID := aSqlItem.PROVIDER_PROCESS_ID;
27 aPlsqlItem.PROVIDER_PROCESS_INSTANCE_ID := aSqlItem.PROVIDER_PROCESS_INSTANCE_ID;
28 aPlsqlItem.LAST_UPDATED_BY := aSqlItem.LAST_UPDATED_BY;
29 RETURN aPlsqlItem;
30 END SQL_TO_PL0;
31 FUNCTION PL_TO_SQL1(aPlsqlItem DPP_ERROR_PVT.DPP_LINES_TBL_TYPE)
32 RETURN DPP_ERROR_PVT_DPP_LINES_TBL_T IS
33 aSqlItem DPP_ERROR_PVT_DPP_LINES_TBL_T;
34 BEGIN
35 -- initialize the table
36 aSqlItem := DPP_ERROR_PVT_DPP_LINES_TBL_T();
37 aSqlItem.EXTEND(aPlsqlItem.COUNT);
38 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
39 aSqlItem(I + 1 - aPlsqlItem.FIRST) := aPlsqlItem(I);
40 END LOOP;
41 RETURN aSqlItem;
42 END PL_TO_SQL1;
43 FUNCTION SQL_TO_PL1(aSqlItem DPP_ERROR_PVT_DPP_LINES_TBL_T)
44 RETURN DPP_ERROR_PVT.DPP_LINES_TBL_TYPE IS
45 aPlsqlItem DPP_ERROR_PVT.DPP_LINES_TBL_TYPE;
46 BEGIN
47 FOR I IN 1..aSqlItem.COUNT LOOP
48 aPlsqlItem(I) := aSqlItem(I);
49 END LOOP;
50 RETURN aPlsqlItem;
51 END SQL_TO_PL1;
52
53 PROCEDURE DPP_ERROR_PVT$UPDATE_ERROR (P_API_VERSION NUMBER,P_INIT_MSG_LIST VARCHAR2,P_COMMIT VARCHAR2,
54 P_VALIDATION_LEVEL NUMBER,X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER,
55 X_MSG_DATA OUT NOCOPY VARCHAR2,P_EXE_UPDATE_REC DPP_ERROR_PVT_DPP_ERROR_REC_T,P_LINES_TBL DPP_ERROR_PVT_DPP_LINES_TBL_T) IS
56 P_EXE_UPDATE_REC_ DPP_ERROR_PVT.DPP_ERROR_REC_TYPE;
57 P_LINES_TBL_ DPP_ERROR_PVT.DPP_LINES_TBL_TYPE;
58 BEGIN
59 P_EXE_UPDATE_REC_ := DPP_BPEL_UPDATEERROR.SQL_TO_PL0(P_EXE_UPDATE_REC);
60 P_LINES_TBL_ := DPP_BPEL_UPDATEERROR.SQL_TO_PL1(P_LINES_TBL);
61 DPP_ERROR_PVT.UPDATE_ERROR(P_API_VERSION,P_INIT_MSG_LIST,P_COMMIT,P_VALIDATION_LEVEL,X_RETURN_STATUS,X_MSG_COUNT,X_MSG_DATA,P_EXE_UPDATE_REC_,P_LINES_TBL_);
62 END DPP_ERROR_PVT$UPDATE_ERROR;
63
64 END DPP_BPEL_UPDATEERROR;