[Home] [Help]
PACKAGE BODY: APPS.DPP_BPEL_UPDATEEXECDTLS
Source
1 PACKAGE BODY DPP_BPEL_UPDATEEXECDTLS AS
2 /* $Header: dppvbueb.pls 120.1 2007/12/12 06:03:22 sdasan noship $ */
3 FUNCTION PL_TO_SQL4(aPlsqlItem DPP_EXECUTIONDETAILS_PVT.DPP_EXE_UPDATE_REC_TYPE)
4 RETURN DPP_EXECUTIONDETAILS_PVT_DPP_ IS
5 aSqlItem DPP_EXECUTIONDETAILS_PVT_DPP_;
6 BEGIN
7 -- initialize the object
8 aSqlItem := DPP_EXECUTIONDETAILS_PVT_DPP_(NULL, NULL, NULL, 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.EXECUTION_STATUS := aPlsqlItem.EXECUTION_STATUS;
14 aSqlItem.EXECUTION_END_DATE := aPlsqlItem.EXECUTION_END_DATE;
15 aSqlItem.PROVIDER_PROCESS_ID := aPlsqlItem.PROVIDER_PROCESS_ID;
16 aSqlItem.PROVIDER_PROCESS_INSTANCE_ID := aPlsqlItem.PROVIDER_PROCESS_INSTANCE_ID;
17 aSqlItem.LAST_UPDATED_BY := aPlsqlItem.LAST_UPDATED_BY;
18 aSqlItem.LAST_UPDATE_LOGIN := aPlsqlItem.LAST_UPDATE_LOGIN;
19 RETURN aSqlItem;
20 END PL_TO_SQL4;
21 FUNCTION SQL_TO_PL4(aSqlItem DPP_EXECUTIONDETAILS_PVT_DPP_)
22 RETURN DPP_EXECUTIONDETAILS_PVT.DPP_EXE_UPDATE_REC_TYPE IS
23 aPlsqlItem DPP_EXECUTIONDETAILS_PVT.DPP_EXE_UPDATE_REC_TYPE;
24 BEGIN
25 aPlsqlItem.TRANSACTION_HEADER_ID := aSqlItem.TRANSACTION_HEADER_ID;
26 aPlsqlItem.ORG_ID := aSqlItem.ORG_ID;
27 aPlsqlItem.EXECUTION_DETAIL_ID := aSqlItem.EXECUTION_DETAIL_ID;
28 aPlsqlItem.OUTPUT_XML := aSqlItem.OUTPUT_XML;
29 aPlsqlItem.EXECUTION_STATUS := aSqlItem.EXECUTION_STATUS;
30 aPlsqlItem.EXECUTION_END_DATE := aSqlItem.EXECUTION_END_DATE;
31 aPlsqlItem.PROVIDER_PROCESS_ID := aSqlItem.PROVIDER_PROCESS_ID;
32 aPlsqlItem.PROVIDER_PROCESS_INSTANCE_ID := aSqlItem.PROVIDER_PROCESS_INSTANCE_ID;
33 aPlsqlItem.LAST_UPDATED_BY := aSqlItem.LAST_UPDATED_BY;
34 aPlsqlItem.LAST_UPDATE_LOGIN := aSqlItem.LAST_UPDATE_LOGIN;
35 RETURN aPlsqlItem;
36 END SQL_TO_PL4;
37 FUNCTION PL_TO_SQL6(aPlsqlItem DPP_EXECUTIONDETAILS_PVT.DPP_STATUS_UPDATE_REC_TYPE)
38 RETURN DPP_EXECUTIONDETAILS_PVT_DPP5 IS
39 aSqlItem DPP_EXECUTIONDETAILS_PVT_DPP5;
40 BEGIN
41 -- initialize the object
42 aSqlItem := DPP_EXECUTIONDETAILS_PVT_DPP5(NULL, NULL);
43 aSqlItem.TRANSACTION_LINE_ID := aPlsqlItem.TRANSACTION_LINE_ID;
44 aSqlItem.UPDATE_STATUS := aPlsqlItem.UPDATE_STATUS;
45 RETURN aSqlItem;
46 END PL_TO_SQL6;
47 FUNCTION SQL_TO_PL6(aSqlItem DPP_EXECUTIONDETAILS_PVT_DPP5)
48 RETURN DPP_EXECUTIONDETAILS_PVT.DPP_STATUS_UPDATE_REC_TYPE IS
49 aPlsqlItem DPP_EXECUTIONDETAILS_PVT.DPP_STATUS_UPDATE_REC_TYPE;
50 BEGIN
51 aPlsqlItem.TRANSACTION_LINE_ID := aSqlItem.TRANSACTION_LINE_ID;
52 aPlsqlItem.UPDATE_STATUS := aSqlItem.UPDATE_STATUS;
53 RETURN aPlsqlItem;
54 END SQL_TO_PL6;
55 FUNCTION PL_TO_SQL5(aPlsqlItem DPP_EXECUTIONDETAILS_PVT.DPP_STATUS_UPDATE_TBL_TYPE)
56 RETURN DPP_EXECUTIONDETAILS_PVT_DPP4 IS
57 aSqlItem DPP_EXECUTIONDETAILS_PVT_DPP4;
58 BEGIN
59 -- initialize the table
60 aSqlItem := DPP_EXECUTIONDETAILS_PVT_DPP4();
61 aSqlItem.EXTEND(aPlsqlItem.COUNT);
62 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
63 aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL6(aPlsqlItem(I));
64 END LOOP;
65 RETURN aSqlItem;
66 END PL_TO_SQL5;
67 FUNCTION SQL_TO_PL5(aSqlItem DPP_EXECUTIONDETAILS_PVT_DPP4)
68 RETURN DPP_EXECUTIONDETAILS_PVT.DPP_STATUS_UPDATE_TBL_TYPE IS
69 aPlsqlItem DPP_EXECUTIONDETAILS_PVT.DPP_STATUS_UPDATE_TBL_TYPE;
70 BEGIN
71 FOR I IN 1..aSqlItem.COUNT LOOP
72 aPlsqlItem(I) := SQL_TO_PL6(aSqlItem(I));
73 END LOOP;
74 RETURN aPlsqlItem;
75 END SQL_TO_PL5;
76
77 PROCEDURE DPP_EXECUTIONDETAILS_PVT$UPDA (P_API_VERSION NUMBER,P_INIT_MSG_LIST VARCHAR2,P_COMMIT VARCHAR2,P_VALIDATION_LEVEL NUMBER,
78 X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER,X_MSG_DATA OUT NOCOPY VARCHAR2,
79 P_EXE_UPDATE_REC IN OUT NOCOPY DPP_EXECUTIONDETAILS_PVT_DPP_,P_STATUS_UPDATE_TBL IN OUT NOCOPY DPP_EXECUTIONDETAILS_PVT_DPP4) IS
80 P_EXE_UPDATE_REC_ APPS.DPP_EXECUTIONDETAILS_PVT.DPP_EXE_UPDATE_REC_TYPE;
81 P_STATUS_UPDATE_TBL_ APPS.DPP_EXECUTIONDETAILS_PVT.DPP_STATUS_UPDATE_TBL_TYPE;
82 BEGIN
83 P_EXE_UPDATE_REC_ := DPP_BPEL_UPDATEEXECDTLS.SQL_TO_PL4(P_EXE_UPDATE_REC);
84 P_STATUS_UPDATE_TBL_ := DPP_BPEL_UPDATEEXECDTLS.SQL_TO_PL5(P_STATUS_UPDATE_TBL);
85 APPS.DPP_EXECUTIONDETAILS_PVT.UPDATE_EXECUTIONDETAILS(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_STATUS_UPDATE_TBL_);
86 P_EXE_UPDATE_REC := DPP_BPEL_UPDATEEXECDTLS.PL_TO_SQL4(P_EXE_UPDATE_REC_);
87 P_STATUS_UPDATE_TBL := DPP_BPEL_UPDATEEXECDTLS.PL_TO_SQL5(P_STATUS_UPDATE_TBL_);
88 END DPP_EXECUTIONDETAILS_PVT$UPDA;
89
90 END DPP_BPEL_UPDATEEXECDTLS;