eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.DPP_BPEL_UPDATECLAIM

Source


1 PACKAGE BODY DPP_BPEL_UPDATECLAIM AS
2 /* $Header: dppvbupb.pls 120.3 2011/07/14 11:05:43 rvkondur ship $ */
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_ DPP_CLAIMS_PVT.DPP_TXN_HDR_REC_TYPE;
185       P_TXN_LINE_TBL_ 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       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;