199: ) IS
200: BEGIN
201: DECLARE
202: /* cursor's data found indicators */
203: sOrigSysRef CZ_IMP_PRICE_GROUP.NAME%TYPE;
204: nPriceGroupId CZ_IMP_PRICE_GROUP.PRICE_GROUP_ID%TYPE;
205: sLastFSK CZ_IMP_PRICE_GROUP.NAME%TYPE;
206: sThisFSK CZ_IMP_PRICE_GROUP.NAME%TYPE;
207: sRecStatus CZ_IMP_PRICE_GROUP.REC_STATUS%TYPE;
200: BEGIN
201: DECLARE
202: /* cursor's data found indicators */
203: sOrigSysRef CZ_IMP_PRICE_GROUP.NAME%TYPE;
204: nPriceGroupId CZ_IMP_PRICE_GROUP.PRICE_GROUP_ID%TYPE;
205: sLastFSK CZ_IMP_PRICE_GROUP.NAME%TYPE;
206: sThisFSK CZ_IMP_PRICE_GROUP.NAME%TYPE;
207: sRecStatus CZ_IMP_PRICE_GROUP.REC_STATUS%TYPE;
208: sDisposition CZ_IMP_PRICE_GROUP.DISPOSITION%TYPE;
201: DECLARE
202: /* cursor's data found indicators */
203: sOrigSysRef CZ_IMP_PRICE_GROUP.NAME%TYPE;
204: nPriceGroupId CZ_IMP_PRICE_GROUP.PRICE_GROUP_ID%TYPE;
205: sLastFSK CZ_IMP_PRICE_GROUP.NAME%TYPE;
206: sThisFSK CZ_IMP_PRICE_GROUP.NAME%TYPE;
207: sRecStatus CZ_IMP_PRICE_GROUP.REC_STATUS%TYPE;
208: sDisposition CZ_IMP_PRICE_GROUP.DISPOSITION%TYPE;
209: /* Column Vars */
202: /* cursor's data found indicators */
203: sOrigSysRef CZ_IMP_PRICE_GROUP.NAME%TYPE;
204: nPriceGroupId CZ_IMP_PRICE_GROUP.PRICE_GROUP_ID%TYPE;
205: sLastFSK CZ_IMP_PRICE_GROUP.NAME%TYPE;
206: sThisFSK CZ_IMP_PRICE_GROUP.NAME%TYPE;
207: sRecStatus CZ_IMP_PRICE_GROUP.REC_STATUS%TYPE;
208: sDisposition CZ_IMP_PRICE_GROUP.DISPOSITION%TYPE;
209: /* Column Vars */
210: x_imp_pricegroup_f BOOLEAN:=FALSE;
203: sOrigSysRef CZ_IMP_PRICE_GROUP.NAME%TYPE;
204: nPriceGroupId CZ_IMP_PRICE_GROUP.PRICE_GROUP_ID%TYPE;
205: sLastFSK CZ_IMP_PRICE_GROUP.NAME%TYPE;
206: sThisFSK CZ_IMP_PRICE_GROUP.NAME%TYPE;
207: sRecStatus CZ_IMP_PRICE_GROUP.REC_STATUS%TYPE;
208: sDisposition CZ_IMP_PRICE_GROUP.DISPOSITION%TYPE;
209: /* Column Vars */
210: x_imp_pricegroup_f BOOLEAN:=FALSE;
211: x_onl_pricegroup_prcgrpid_f BOOLEAN:=FALSE;
204: nPriceGroupId CZ_IMP_PRICE_GROUP.PRICE_GROUP_ID%TYPE;
205: sLastFSK CZ_IMP_PRICE_GROUP.NAME%TYPE;
206: sThisFSK CZ_IMP_PRICE_GROUP.NAME%TYPE;
207: sRecStatus CZ_IMP_PRICE_GROUP.REC_STATUS%TYPE;
208: sDisposition CZ_IMP_PRICE_GROUP.DISPOSITION%TYPE;
209: /* Column Vars */
210: x_imp_pricegroup_f BOOLEAN:=FALSE;
211: x_onl_pricegroup_prcgrpid_f BOOLEAN:=FALSE;
212: x_error BOOLEAN:=FALSE;
223: thisRowId ROWID;
224:
225: BEGIN
226: DECLARE CURSOR C_IMP_PRICEGROUP IS
227: SELECT ORIG_SYS_REF, ROWID FROM CZ_IMP_PRICE_GROUP
228: WHERE REC_STATUS IS NULL AND RUN_ID = inRUN_ID
229: ORDER BY 1,ROWID;
230: BEGIN
231:
302: END IF;
303: END;
304: END IF;
305:
306: UPDATE CZ_IMP_PRICE_GROUP
307: SET price_group_id = DECODE(sDISPOSITION,'R',PRICE_GROUP_ID,'I',nNextValue+nAllocateCounter, nPriceGroupId),
308: DISPOSITION=sDisposition, REC_STATUS=sRecStatus
309: WHERE ROWID = thisRowId;
310: sLastFSK:=sThisFSK;