[Home] [Help]
PACKAGE BODY: APPS.DPP_BPEL_SELCUSTCLAIM
Source
1 PACKAGE BODY DPP_BPEL_SELCUSTCLAIM AS
2 /* $Header: dppvbscb.pls 120.4 2008/02/12 09:47:23 vdewan noship $ */
3 FUNCTION PL_TO_SQL1(aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUST_HDR_REC_TYPE)
4 RETURN DPP_CUSTOMERCLAIMS_PVT_DPP_CU IS
5 aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_CU;
6 BEGIN
7 -- initialize the object
8 aSqlItem := DPP_CUSTOMERCLAIMS_PVT_DPP_CU(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
9 aSqlItem.TRANSACTION_HEADER_ID := aPlsqlItem.TRANSACTION_HEADER_ID;
10 aSqlItem.EFFECTIVE_START_DATE := aPlsqlItem.EFFECTIVE_START_DATE;
11 aSqlItem.EFFECTIVE_END_DATE := aPlsqlItem.EFFECTIVE_END_DATE;
12 aSqlItem.ORG_ID := aPlsqlItem.ORG_ID;
13 aSqlItem.EXECUTION_DETAIL_ID := aPlsqlItem.EXECUTION_DETAIL_ID;
14 aSqlItem.OUTPUT_XML := aPlsqlItem.OUTPUT_XML;
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.CURRENCY_CODE := aPlsqlItem.CURRENCY_CODE;
19 RETURN aSqlItem;
20 END PL_TO_SQL1;
21 FUNCTION SQL_TO_PL0(aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_CU)
22 RETURN DPP_CUSTOMERCLAIMS_PVT.DPP_CUST_HDR_REC_TYPE IS
23 aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUST_HDR_REC_TYPE;
24 BEGIN
25 aPlsqlItem.TRANSACTION_HEADER_ID := aSqlItem.TRANSACTION_HEADER_ID;
26 aPlsqlItem.EFFECTIVE_START_DATE := aSqlItem.EFFECTIVE_START_DATE;
27 aPlsqlItem.EFFECTIVE_END_DATE := aSqlItem.EFFECTIVE_END_DATE;
28 aPlsqlItem.ORG_ID := aSqlItem.ORG_ID;
29 aPlsqlItem.EXECUTION_DETAIL_ID := aSqlItem.EXECUTION_DETAIL_ID;
30 aPlsqlItem.OUTPUT_XML := aSqlItem.OUTPUT_XML;
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.CURRENCY_CODE := aSqlItem.CURRENCY_CODE;
35 RETURN aPlsqlItem;
36 END SQL_TO_PL0;
37 FUNCTION PL_TO_SQL2(aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_PRICE_REC_TYPE)
38 RETURN DPP_CUSTOMERCLAIMS_PVT_DPP_C4 IS
39 aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_C4;
40 BEGIN
41 -- initialize the object
42 aSqlItem := DPP_CUSTOMERCLAIMS_PVT_DPP_C4(NULL, NULL, NULL);
43 aSqlItem.CUST_ACCOUNT_ID := aPlsqlItem.CUST_ACCOUNT_ID;
44 aSqlItem.LAST_PRICE := aPlsqlItem.LAST_PRICE;
45 aSqlItem.INVOICE_CURRENCY_CODE := aPlsqlItem.INVOICE_CURRENCY_CODE;
46 RETURN aSqlItem;
47 END PL_TO_SQL2;
48 FUNCTION SQL_TO_PL2(aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_C4)
49 RETURN DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_PRICE_REC_TYPE IS
50 aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_PRICE_REC_TYPE;
51 BEGIN
52 aPlsqlItem.CUST_ACCOUNT_ID := aSqlItem.CUST_ACCOUNT_ID;
53 aPlsqlItem.LAST_PRICE := aSqlItem.LAST_PRICE;
54 aPlsqlItem.INVOICE_CURRENCY_CODE := aSqlItem.INVOICE_CURRENCY_CODE;
55 RETURN aPlsqlItem;
56 END SQL_TO_PL2;
57 FUNCTION PL_TO_SQL3(aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_PRICE_TBL_TYPE)
58 RETURN DPPCUSTOMERCLAIMSPVTDPPC2_DPP IS
59 aSqlItem DPPCUSTOMERCLAIMSPVTDPPC2_DPP;
60 BEGIN
61 -- initialize the table
62 aSqlItem := DPPCUSTOMERCLAIMSPVTDPPC2_DPP();
63 aSqlItem.EXTEND(aPlsqlItem.COUNT);
64 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
65 aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL2(aPlsqlItem(I));
66 END LOOP;
67 RETURN aSqlItem;
68 END PL_TO_SQL3;
69 FUNCTION SQL_TO_PL3(aSqlItem DPPCUSTOMERCLAIMSPVTDPPC2_DPP)
70 RETURN DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_PRICE_TBL_TYPE IS
71 aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_PRICE_TBL_TYPE;
72 BEGIN
73 FOR I IN 1..aSqlItem.COUNT LOOP
74 aPlsqlItem(I) := SQL_TO_PL2(aSqlItem(I));
75 END LOOP;
76 RETURN aPlsqlItem;
77 END SQL_TO_PL3;
78 FUNCTION PL_TO_SQL4(aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_REC_TYPE)
79 RETURN DPP_CUSTOMERCLAIMS_PVT_DPP_C2 IS
80 aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_C2;
81 BEGIN
82 -- initialize the object
83 aSqlItem := DPP_CUSTOMERCLAIMS_PVT_DPP_C2(NULL, NULL, NULL, NULL);
84 aSqlItem.TRANSACTION_LINE_ID := aPlsqlItem.TRANSACTION_LINE_ID;
85 aSqlItem.INVENTORY_ITEM_ID := aPlsqlItem.INVENTORY_ITEM_ID;
86 aSqlItem.UOM_CODE := aPlsqlItem.UOM_CODE;
87 aSqlItem.CUSTOMER_PRICE_TBL := PL_TO_SQL3(aPlsqlItem.CUSTOMER_PRICE_TBL);
88 RETURN aSqlItem;
89 END PL_TO_SQL4;
90 FUNCTION SQL_TO_PL4(aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_C2)
91 RETURN DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_REC_TYPE IS
92 aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_REC_TYPE;
93 BEGIN
94 aPlsqlItem.TRANSACTION_LINE_ID := aSqlItem.TRANSACTION_LINE_ID;
95 aPlsqlItem.INVENTORY_ITEM_ID := aSqlItem.INVENTORY_ITEM_ID;
96 aPlsqlItem.UOM_CODE := aSqlItem.UOM_CODE;
97 aPlsqlItem.CUSTOMER_PRICE_TBL := SQL_TO_PL3(aSqlItem.CUSTOMER_PRICE_TBL);
98 RETURN aPlsqlItem;
99 END SQL_TO_PL4;
100 FUNCTION PL_TO_SQL0(aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_TBL_TYPE)
101 RETURN DPP_CUSTOMERCLAIMS_PVT_DPP_C1 IS
102 aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_C1;
103 BEGIN
104 -- initialize the table
105 aSqlItem := DPP_CUSTOMERCLAIMS_PVT_DPP_C1();
106 aSqlItem.EXTEND(aPlsqlItem.COUNT);
107 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
108 aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL4(aPlsqlItem(I));
109 END LOOP;
110 RETURN aSqlItem;
111 END PL_TO_SQL0;
112 FUNCTION SQL_TO_PL1(aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_C1)
113 RETURN DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_TBL_TYPE IS
114 aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_TBL_TYPE;
115 BEGIN
116 FOR I IN 1..aSqlItem.COUNT LOOP
117 aPlsqlItem(I) := SQL_TO_PL4(aSqlItem(I));
118 END LOOP;
119 RETURN aPlsqlItem;
120 END SQL_TO_PL1;
121
122 PROCEDURE DPP_CUSTOMERCLAIMS_PVT$SELECT (P_API_VERSION NUMBER,P_INIT_MSG_LIST VARCHAR2,P_COMMIT VARCHAR2,P_VALIDATION_LEVEL NUMBER,X_RETURN_STATUS OUT NOCOPY VARCHAR2,
123 X_MSG_COUNT OUT NOCOPY NUMBER,X_MSG_DATA OUT NOCOPY VARCHAR2,P_CUST_HDR_REC DPP_CUSTOMERCLAIMS_PVT_DPP_CU,
124 P_CUSTOMER_TBL IN OUT NOCOPY DPP_CUSTOMERCLAIMS_PVT_DPP_C1) IS
125 P_CUST_HDR_REC_ APPS.DPP_CUSTOMERCLAIMS_PVT.DPP_CUST_HDR_REC_TYPE;
126 P_CUSTOMER_TBL_ APPS.DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_TBL_TYPE;
127 BEGIN
128 P_CUST_HDR_REC_ := DPP_BPEL_SELCUSTCLAIM.SQL_TO_PL0(P_CUST_HDR_REC);
129 P_CUSTOMER_TBL_ := DPP_BPEL_SELCUSTCLAIM.SQL_TO_PL1(P_CUSTOMER_TBL);
130 APPS.DPP_CUSTOMERCLAIMS_PVT.SELECT_CUSTOMERPRICE(P_API_VERSION,P_INIT_MSG_LIST,P_COMMIT,P_VALIDATION_LEVEL,
131 X_RETURN_STATUS,X_MSG_COUNT,X_MSG_DATA,P_CUST_HDR_REC_,P_CUSTOMER_TBL_);
132 P_CUSTOMER_TBL := DPP_BPEL_SELCUSTCLAIM.PL_TO_SQL0(P_CUSTOMER_TBL_);
133 END DPP_CUSTOMERCLAIMS_PVT$SELECT;
134
135 END DPP_BPEL_SELCUSTCLAIM;