[Home] [Help]
PACKAGE BODY: APPS.DPP_BPEL_POPCUSTCLAIM
Source
1 PACKAGE BODY DPP_BPEL_POPCUSTCLAIM AS
2 /* $Header: dppvbpcb.pls 120.2 2008/02/12 09:52:58 vdewan noship $ */
3 FUNCTION PL_TO_SQL10(aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUST_HDR_REC_TYPE)
4 RETURN DPP_CUSTOMERCLAIMS_PVT_DPP_C10 IS
5 aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_C10;
6 BEGIN
7 -- initialize the object
8 aSqlItem := DPP_CUSTOMERCLAIMS_PVT_DPP_C10(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_SQL10;
21 FUNCTION SQL_TO_PL10(aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_C10)
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_PL10;
37 FUNCTION PL_TO_SQL11(aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_PRICE_REC_TYPE)
38 RETURN DPP_CUSTOMERCLAIMS_PVT_DPP_14 IS
39 aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_14;
40 BEGIN
41 -- initialize the object
42 aSqlItem := DPP_CUSTOMERCLAIMS_PVT_DPP_14(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_SQL11;
48 FUNCTION SQL_TO_PL12(aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_14)
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_PL12;
57 FUNCTION PL_TO_SQL12(aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_PRICE_TBL_TYPE)
58 RETURN DPPCUSTOMERCLAIMSPVTDPP12_DPP IS
59 aSqlItem DPPCUSTOMERCLAIMSPVTDPP12_DPP;
60 BEGIN
61 -- initialize the table
62 aSqlItem := DPPCUSTOMERCLAIMSPVTDPP12_DPP();
63 aSqlItem.EXTEND(aPlsqlItem.COUNT);
64 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
65 aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL11(aPlsqlItem(I));
66 END LOOP;
67 RETURN aSqlItem;
68 END PL_TO_SQL12;
69 FUNCTION SQL_TO_PL13(aSqlItem DPPCUSTOMERCLAIMSPVTDPP12_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_PL12(aSqlItem(I));
75 END LOOP;
76 RETURN aPlsqlItem;
77 END SQL_TO_PL13;
78 FUNCTION PL_TO_SQL13(aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_REC_TYPE)
79 RETURN DPP_CUSTOMERCLAIMS_PVT_DPP_12 IS
80 aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_12;
81 BEGIN
82 -- initialize the object
83 aSqlItem := DPP_CUSTOMERCLAIMS_PVT_DPP_12(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_SQL12(aPlsqlItem.CUSTOMER_PRICE_TBL);
88 RETURN aSqlItem;
89 END PL_TO_SQL13;
90 FUNCTION SQL_TO_PL14(aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_12)
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_PL13(aSqlItem.CUSTOMER_PRICE_TBL);
98 RETURN aPlsqlItem;
99 END SQL_TO_PL14;
100 FUNCTION PL_TO_SQL14(aPlsqlItem DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_TBL_TYPE)
101 RETURN DPP_CUSTOMERCLAIMS_PVT_DPP_11 IS
102 aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_11;
103 BEGIN
104 -- initialize the table
105 aSqlItem := DPP_CUSTOMERCLAIMS_PVT_DPP_11();
106 aSqlItem.EXTEND(aPlsqlItem.COUNT);
107 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
108 aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL13(aPlsqlItem(I));
109 END LOOP;
110 RETURN aSqlItem;
111 END PL_TO_SQL14;
112 FUNCTION SQL_TO_PL11(aSqlItem DPP_CUSTOMERCLAIMS_PVT_DPP_11)
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_PL14(aSqlItem(I));
118 END LOOP;
119 RETURN aPlsqlItem;
120 END SQL_TO_PL11;
121
122 PROCEDURE DPP_CUSTOMERCLAIMS_PVT$POPULA (P_API_VERSION NUMBER,P_INIT_MSG_LIST VARCHAR2,P_COMMIT VARCHAR2,
123 P_VALIDATION_LEVEL NUMBER,X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER,
124 X_MSG_DATA OUT NOCOPY VARCHAR2,P_CUST_HDR_REC DPP_CUSTOMERCLAIMS_PVT_DPP_C10,
125 P_CUSTOMER_TBL DPP_CUSTOMERCLAIMS_PVT_DPP_11) IS
126 P_CUST_HDR_REC_ DPP_CUSTOMERCLAIMS_PVT.DPP_CUST_HDR_REC_TYPE;
127 P_CUSTOMER_TBL_ DPP_CUSTOMERCLAIMS_PVT.DPP_CUSTOMER_TBL_TYPE;
128 BEGIN
129 P_CUST_HDR_REC_ := DPP_BPEL_POPCUSTCLAIM.SQL_TO_PL10(P_CUST_HDR_REC);
130 P_CUSTOMER_TBL_ := DPP_BPEL_POPCUSTCLAIM.SQL_TO_PL11(P_CUSTOMER_TBL);
131 DPP_CUSTOMERCLAIMS_PVT.POPULATE_CUSTOMERPRICE(P_API_VERSION,P_INIT_MSG_LIST,P_COMMIT,P_VALIDATION_LEVEL,X_RETURN_STATUS,X_MSG_COUNT,X_MSG_DATA,P_CUST_HDR_REC_,P_CUSTOMER_TBL_);
132 END DPP_CUSTOMERCLAIMS_PVT$POPULA;
133
134 END DPP_BPEL_POPCUSTCLAIM;