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_CREATECLAIMS

Source


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