[Home] [Help]
PACKAGE BODY: APPS.DPP_BPEL_UPDATECLAIM
Source
1 PACKAGE BODY DPP_BPEL_UPDATECLAIM AS
2 /* $Header: dppvbupb.pls 120.2 2007/12/12 06:33:30 sdasan noship $ */
3 FUNCTION PL_TO_SQL6(aPlsqlItem DPP_CLAIMS_PVT.DPP_TXN_HDR_REC_TYPE)
4 RETURN DPP_CLAIMS_PVT_DPP_TXN_HDR_R4 IS
5 aSqlItem DPP_CLAIMS_PVT_DPP_TXN_HDR_R4;
6 BEGIN
7 -- initialize the object
8 aSqlItem := DPP_CLAIMS_PVT_DPP_TXN_HDR_R4(NULL, NULL, NULL, NULL, NULL, NULL,
9 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
10 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
11 aSqlItem.TRANSACTION_HEADER_ID := aPlsqlItem.TRANSACTION_HEADER_ID;
12 aSqlItem.TRANSACTION_NUMBER := aPlsqlItem.TRANSACTION_NUMBER;
13 aSqlItem.ORG_ID := aPlsqlItem.ORG_ID;
14 aSqlItem.VENDOR_ID := aPlsqlItem.VENDOR_ID;
15 aSqlItem.VENDOR_SITE_ID := aPlsqlItem.VENDOR_SITE_ID;
16 aSqlItem.CLAIM_ID := aPlsqlItem.CLAIM_ID;
17 aSqlItem.CLAIM_STATUS_CODE := aPlsqlItem.CLAIM_STATUS_CODE;
18 aSqlItem.CLAIM_AMOUNT := aPlsqlItem.CLAIM_AMOUNT;
19 aSqlItem.CURRENCY_CODE := aPlsqlItem.CURRENCY_CODE;
20 aSqlItem.CLAIM_TYPE_FLAG := aPlsqlItem.CLAIM_TYPE_FLAG;
21 aSqlItem.EXECUTION_DETAIL_ID := aPlsqlItem.EXECUTION_DETAIL_ID;
22 aSqlItem.PROVIDER_PROCESS_ID := aPlsqlItem.PROVIDER_PROCESS_ID;
23 aSqlItem.PROVIDER_PROCESS_INSTANCE_ID := aPlsqlItem.PROVIDER_PROCESS_INSTANCE_ID;
24 aSqlItem.LAST_UPDATED_BY := aPlsqlItem.LAST_UPDATED_BY;
25 aSqlItem.LAST_UPDATE_DATE := aPlsqlItem.LAST_UPDATE_DATE;
26 aSqlItem.ATTRIBUTE_CATEGORY := aPlsqlItem.ATTRIBUTE_CATEGORY;
27 aSqlItem.ATTRIBUTE1 := aPlsqlItem.ATTRIBUTE1;
28 aSqlItem.ATTRIBUTE2 := aPlsqlItem.ATTRIBUTE2;
29 aSqlItem.ATTRIBUTE3 := aPlsqlItem.ATTRIBUTE3;
30 aSqlItem.ATTRIBUTE4 := aPlsqlItem.ATTRIBUTE4;
31 aSqlItem.ATTRIBUTE5 := aPlsqlItem.ATTRIBUTE5;
32 aSqlItem.ATTRIBUTE6 := aPlsqlItem.ATTRIBUTE6;
33 aSqlItem.ATTRIBUTE7 := aPlsqlItem.ATTRIBUTE7;
34 aSqlItem.ATTRIBUTE8 := aPlsqlItem.ATTRIBUTE8;
35 aSqlItem.ATTRIBUTE9 := aPlsqlItem.ATTRIBUTE9;
36 aSqlItem.ATTRIBUTE10 := aPlsqlItem.ATTRIBUTE10;
37 aSqlItem.ATTRIBUTE11 := aPlsqlItem.ATTRIBUTE11;
38 aSqlItem.ATTRIBUTE12 := aPlsqlItem.ATTRIBUTE12;
39 aSqlItem.ATTRIBUTE13 := aPlsqlItem.ATTRIBUTE13;
40 aSqlItem.ATTRIBUTE14 := aPlsqlItem.ATTRIBUTE14;
41 aSqlItem.ATTRIBUTE15 := aPlsqlItem.ATTRIBUTE15;
42 RETURN aSqlItem;
43 END PL_TO_SQL6;
44 FUNCTION SQL_TO_PL6(aSqlItem DPP_CLAIMS_PVT_DPP_TXN_HDR_R4)
45 RETURN DPP_CLAIMS_PVT.DPP_TXN_HDR_REC_TYPE IS
46 aPlsqlItem DPP_CLAIMS_PVT.DPP_TXN_HDR_REC_TYPE;
47 BEGIN
48 aPlsqlItem.TRANSACTION_HEADER_ID := aSqlItem.TRANSACTION_HEADER_ID;
49 aPlsqlItem.TRANSACTION_NUMBER := aSqlItem.TRANSACTION_NUMBER;
50 aPlsqlItem.ORG_ID := aSqlItem.ORG_ID;
51 aPlsqlItem.VENDOR_ID := aSqlItem.VENDOR_ID;
52 aPlsqlItem.VENDOR_SITE_ID := aSqlItem.VENDOR_SITE_ID;
53 aPlsqlItem.CLAIM_ID := aSqlItem.CLAIM_ID;
54 aPlsqlItem.CLAIM_STATUS_CODE := aSqlItem.CLAIM_STATUS_CODE;
55 aPlsqlItem.CLAIM_AMOUNT := aSqlItem.CLAIM_AMOUNT;
56 aPlsqlItem.CURRENCY_CODE := aSqlItem.CURRENCY_CODE;
57 aPlsqlItem.CLAIM_TYPE_FLAG := aSqlItem.CLAIM_TYPE_FLAG;
58 aPlsqlItem.EXECUTION_DETAIL_ID := aSqlItem.EXECUTION_DETAIL_ID;
59 aPlsqlItem.PROVIDER_PROCESS_ID := aSqlItem.PROVIDER_PROCESS_ID;
60 aPlsqlItem.PROVIDER_PROCESS_INSTANCE_ID := aSqlItem.PROVIDER_PROCESS_INSTANCE_ID;
61 aPlsqlItem.LAST_UPDATED_BY := aSqlItem.LAST_UPDATED_BY;
62 aPlsqlItem.LAST_UPDATE_DATE := aSqlItem.LAST_UPDATE_DATE;
63 aPlsqlItem.ATTRIBUTE_CATEGORY := aSqlItem.ATTRIBUTE_CATEGORY;
64 aPlsqlItem.ATTRIBUTE1 := aSqlItem.ATTRIBUTE1;
65 aPlsqlItem.ATTRIBUTE2 := aSqlItem.ATTRIBUTE2;
66 aPlsqlItem.ATTRIBUTE3 := aSqlItem.ATTRIBUTE3;
67 aPlsqlItem.ATTRIBUTE4 := aSqlItem.ATTRIBUTE4;
68 aPlsqlItem.ATTRIBUTE5 := aSqlItem.ATTRIBUTE5;
69 aPlsqlItem.ATTRIBUTE6 := aSqlItem.ATTRIBUTE6;
70 aPlsqlItem.ATTRIBUTE7 := aSqlItem.ATTRIBUTE7;
71 aPlsqlItem.ATTRIBUTE8 := aSqlItem.ATTRIBUTE8;
72 aPlsqlItem.ATTRIBUTE9 := aSqlItem.ATTRIBUTE9;
73 aPlsqlItem.ATTRIBUTE10 := aSqlItem.ATTRIBUTE10;
74 aPlsqlItem.ATTRIBUTE11 := aSqlItem.ATTRIBUTE11;
75 aPlsqlItem.ATTRIBUTE12 := aSqlItem.ATTRIBUTE12;
76 aPlsqlItem.ATTRIBUTE13 := aSqlItem.ATTRIBUTE13;
77 aPlsqlItem.ATTRIBUTE14 := aSqlItem.ATTRIBUTE14;
78 aPlsqlItem.ATTRIBUTE15 := aSqlItem.ATTRIBUTE15;
79 RETURN aPlsqlItem;
80 END SQL_TO_PL6;
81 FUNCTION PL_TO_SQL8(aPlsqlItem DPP_CLAIMS_PVT.DPP_TXN_LINE_REC_TYPE)
82 RETURN DPP_CLAIMS_PVT_DPP_TXN_LINE_6 IS
83 aSqlItem DPP_CLAIMS_PVT_DPP_TXN_LINE_6;
84 BEGIN
85 -- initialize the object
86 aSqlItem := DPP_CLAIMS_PVT_DPP_TXN_LINE_6(NULL, NULL, NULL, NULL, NULL, NULL, NULL,
87 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
88 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
89 aSqlItem.TRANSACTION_LINE_ID := aPlsqlItem.TRANSACTION_LINE_ID;
90 aSqlItem.INVENTORY_ITEM_ID := aPlsqlItem.INVENTORY_ITEM_ID;
91 aSqlItem.ITEM_NUMBER := aPlsqlItem.ITEM_NUMBER;
92 aSqlItem.CUST_ACCOUNT_ID := aPlsqlItem.CUST_ACCOUNT_ID;
93 aSqlItem.CLAIM_LINE_AMOUNT := aPlsqlItem.CLAIM_LINE_AMOUNT;
94 aSqlItem.CURRENCY := aPlsqlItem.CURRENCY;
95 aSqlItem.CLAIM_QUANTITY := aPlsqlItem.CLAIM_QUANTITY;
96 aSqlItem.UOM := aPlsqlItem.UOM;
97 aSqlItem.CLAIM_ID := aPlsqlItem.CLAIM_ID;
98 aSqlItem.CLAIM_STATUS_CODE := aPlsqlItem.CLAIM_STATUS_CODE;
99 aSqlItem.CLAIM_AMOUNT := aPlsqlItem.CLAIM_AMOUNT;
100 aSqlItem.LAST_UPDATED_BY := aPlsqlItem.LAST_UPDATED_BY;
101 aSqlItem.LAST_UPDATE_DATE := aPlsqlItem.LAST_UPDATE_DATE;
102 aSqlItem.ATTRIBUTE_CATEGORY := aPlsqlItem.ATTRIBUTE_CATEGORY;
103 aSqlItem.ATTRIBUTE1 := aPlsqlItem.ATTRIBUTE1;
104 aSqlItem.ATTRIBUTE2 := aPlsqlItem.ATTRIBUTE2;
105 aSqlItem.ATTRIBUTE3 := aPlsqlItem.ATTRIBUTE3;
106 aSqlItem.ATTRIBUTE4 := aPlsqlItem.ATTRIBUTE4;
107 aSqlItem.ATTRIBUTE5 := aPlsqlItem.ATTRIBUTE5;
108 aSqlItem.ATTRIBUTE6 := aPlsqlItem.ATTRIBUTE6;
109 aSqlItem.ATTRIBUTE7 := aPlsqlItem.ATTRIBUTE7;
110 aSqlItem.ATTRIBUTE8 := aPlsqlItem.ATTRIBUTE8;
111 aSqlItem.ATTRIBUTE9 := aPlsqlItem.ATTRIBUTE9;
112 aSqlItem.ATTRIBUTE10 := aPlsqlItem.ATTRIBUTE10;
113 aSqlItem.ATTRIBUTE11 := aPlsqlItem.ATTRIBUTE11;
114 aSqlItem.ATTRIBUTE12 := aPlsqlItem.ATTRIBUTE12;
115 aSqlItem.ATTRIBUTE13 := aPlsqlItem.ATTRIBUTE13;
116 aSqlItem.ATTRIBUTE14 := aPlsqlItem.ATTRIBUTE14;
117 aSqlItem.ATTRIBUTE15 := aPlsqlItem.ATTRIBUTE15;
118 aSqlItem.UPDATE_STATUS := aPlsqlItem.UPDATE_STATUS;
119 aSqlItem.REASON_FOR_FAILURE := aPlsqlItem.REASON_FOR_FAILURE;
120 RETURN aSqlItem;
121 END PL_TO_SQL8;
122 FUNCTION SQL_TO_PL8(aSqlItem DPP_CLAIMS_PVT_DPP_TXN_LINE_6)
123 RETURN DPP_CLAIMS_PVT.DPP_TXN_LINE_REC_TYPE IS
124 aPlsqlItem DPP_CLAIMS_PVT.DPP_TXN_LINE_REC_TYPE;
125 BEGIN
126 aPlsqlItem.TRANSACTION_LINE_ID := aSqlItem.TRANSACTION_LINE_ID;
127 aPlsqlItem.INVENTORY_ITEM_ID := aSqlItem.INVENTORY_ITEM_ID;
128 aPlsqlItem.ITEM_NUMBER := aSqlItem.ITEM_NUMBER;
129 aPlsqlItem.CUST_ACCOUNT_ID := aSqlItem.CUST_ACCOUNT_ID;
130 aPlsqlItem.CLAIM_LINE_AMOUNT := aSqlItem.CLAIM_LINE_AMOUNT;
131 aPlsqlItem.CURRENCY := aSqlItem.CURRENCY;
132 aPlsqlItem.CLAIM_QUANTITY := aSqlItem.CLAIM_QUANTITY;
133 aPlsqlItem.UOM := aSqlItem.UOM;
134 aPlsqlItem.CLAIM_ID := aSqlItem.CLAIM_ID;
135 aPlsqlItem.CLAIM_STATUS_CODE := aSqlItem.CLAIM_STATUS_CODE;
136 aPlsqlItem.CLAIM_AMOUNT := aSqlItem.CLAIM_AMOUNT;
137 aPlsqlItem.LAST_UPDATED_BY := aSqlItem.LAST_UPDATED_BY;
138 aPlsqlItem.LAST_UPDATE_DATE := aSqlItem.LAST_UPDATE_DATE;
139 aPlsqlItem.ATTRIBUTE_CATEGORY := aSqlItem.ATTRIBUTE_CATEGORY;
140 aPlsqlItem.ATTRIBUTE1 := aSqlItem.ATTRIBUTE1;
141 aPlsqlItem.ATTRIBUTE2 := aSqlItem.ATTRIBUTE2;
142 aPlsqlItem.ATTRIBUTE3 := aSqlItem.ATTRIBUTE3;
143 aPlsqlItem.ATTRIBUTE4 := aSqlItem.ATTRIBUTE4;
144 aPlsqlItem.ATTRIBUTE5 := aSqlItem.ATTRIBUTE5;
145 aPlsqlItem.ATTRIBUTE6 := aSqlItem.ATTRIBUTE6;
146 aPlsqlItem.ATTRIBUTE7 := aSqlItem.ATTRIBUTE7;
147 aPlsqlItem.ATTRIBUTE8 := aSqlItem.ATTRIBUTE8;
148 aPlsqlItem.ATTRIBUTE9 := aSqlItem.ATTRIBUTE9;
149 aPlsqlItem.ATTRIBUTE10 := aSqlItem.ATTRIBUTE10;
150 aPlsqlItem.ATTRIBUTE11 := aSqlItem.ATTRIBUTE11;
151 aPlsqlItem.ATTRIBUTE12 := aSqlItem.ATTRIBUTE12;
152 aPlsqlItem.ATTRIBUTE13 := aSqlItem.ATTRIBUTE13;
153 aPlsqlItem.ATTRIBUTE14 := aSqlItem.ATTRIBUTE14;
154 aPlsqlItem.ATTRIBUTE15 := aSqlItem.ATTRIBUTE15;
155 aPlsqlItem.UPDATE_STATUS := aSqlItem.UPDATE_STATUS;
156 aPlsqlItem.REASON_FOR_FAILURE := aSqlItem.REASON_FOR_FAILURE;
157 RETURN aPlsqlItem;
158 END SQL_TO_PL8;
159 FUNCTION PL_TO_SQL7(aPlsqlItem DPP_CLAIMS_PVT.DPP_TXN_LINE_TBL_TYPE)
160 RETURN DPP_CLAIMS_PVT_DPP_TXN_LINE_5 IS
161 aSqlItem DPP_CLAIMS_PVT_DPP_TXN_LINE_5;
162 BEGIN
163 -- initialize the table
164 aSqlItem := DPP_CLAIMS_PVT_DPP_TXN_LINE_5();
165 aSqlItem.EXTEND(aPlsqlItem.COUNT);
166 FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
167 aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL8(aPlsqlItem(I));
168 END LOOP;
169 RETURN aSqlItem;
170 END PL_TO_SQL7;
171 FUNCTION SQL_TO_PL7(aSqlItem DPP_CLAIMS_PVT_DPP_TXN_LINE_5)
172 RETURN DPP_CLAIMS_PVT.DPP_TXN_LINE_TBL_TYPE IS
173 aPlsqlItem DPP_CLAIMS_PVT.DPP_TXN_LINE_TBL_TYPE;
174 BEGIN
175 FOR I IN 1..aSqlItem.COUNT LOOP
176 aPlsqlItem(I) := SQL_TO_PL8(aSqlItem(I));
177 END LOOP;
178 RETURN aPlsqlItem;
179 END SQL_TO_PL7;
180
181 PROCEDURE DPP_CLAIMS_PVT$UPDATE_CLAIMS (P_API_VERSION NUMBER,P_INIT_MSG_LIST VARCHAR2,P_COMMIT VARCHAR2,P_VALIDATION_LEVEL NUMBER,X_RETURN_STATUS OUT NOCOPY VARCHAR2,
182 X_MSG_COUNT OUT NOCOPY NUMBER,X_MSG_DATA OUT NOCOPY VARCHAR2,P_TXN_HDR_REC IN OUT NOCOPY DPP_CLAIMS_PVT_DPP_TXN_HDR_R4,
183 P_TXN_LINE_TBL IN OUT NOCOPY DPP_CLAIMS_PVT_DPP_TXN_LINE_5) IS
184 P_TXN_HDR_REC_ APPS.DPP_CLAIMS_PVT.DPP_TXN_HDR_REC_TYPE;
185 P_TXN_LINE_TBL_ APPS.DPP_CLAIMS_PVT.DPP_TXN_LINE_TBL_TYPE;
186 BEGIN
187 P_TXN_HDR_REC_ := DPP_BPEL_UPDATECLAIM.SQL_TO_PL6(P_TXN_HDR_REC);
188 P_TXN_LINE_TBL_ := DPP_BPEL_UPDATECLAIM.SQL_TO_PL7(P_TXN_LINE_TBL);
189 APPS.DPP_CLAIMS_PVT.UPDATE_CLAIMS(P_API_VERSION,P_INIT_MSG_LIST,P_COMMIT,P_VALIDATION_LEVEL,X_RETURN_STATUS,
190 X_MSG_COUNT,X_MSG_DATA,P_TXN_HDR_REC_,P_TXN_LINE_TBL_);
191 P_TXN_HDR_REC := DPP_BPEL_UPDATECLAIM.PL_TO_SQL6(P_TXN_HDR_REC_);
192 P_TXN_LINE_TBL := DPP_BPEL_UPDATECLAIM.PL_TO_SQL7(P_TXN_LINE_TBL_);
193 END DPP_CLAIMS_PVT$UPDATE_CLAIMS;
194
195 END DPP_BPEL_UPDATECLAIM;