129:
130: end if; -- end icx validate session
131: EXCEPTION
132: WHEN OTHERS THEN
133: htp.p('Exception in procedure ship_to_quality');
134: htp.p(SQLERRM);
135:
136: END ship_to_quality;
137:
130: end if; -- end icx validate session
131: EXCEPTION
132: WHEN OTHERS THEN
133: htp.p('Exception in procedure ship_to_quality');
134: htp.p(SQLERRM);
135:
136: END ship_to_quality;
137:
138: ------------------------------------------------------------------------------------------
273: End If;
274: IF buyer2_cur%ISOPEN THEN
275: CLOSE buyer2_cur;
276: End If;
277: htp.p('Exception in procedure default_ship_values');
278: htp.p(SQLERRM);
279:
280: END default_ship_values;
281: ----------------------------------------------------------------------------------------------
274: IF buyer2_cur%ISOPEN THEN
275: CLOSE buyer2_cur;
276: End If;
277: htp.p('Exception in procedure default_ship_values');
278: htp.p(SQLERRM);
279:
280: END default_ship_values;
281: ----------------------------------------------------------------------------------------------
282: procedure shipping_plans (
317:
318: BEGIN
319:
320: IF (icx_sec.validateSession) THEN
321: -- htp.p(' PK1 = ' || PK1); htp.nl;
322: -- htp.p('PK2 = ' || PK2) ; htp.nl;
323: -- htp.p('PK3 = ' || PK3); htp.nl;
324: -- htp.p('PK10 = ' || PK10); htp.nl;
325: OPEN ship_cur;
318: BEGIN
319:
320: IF (icx_sec.validateSession) THEN
321: -- htp.p(' PK1 = ' || PK1); htp.nl;
322: -- htp.p('PK2 = ' || PK2) ; htp.nl;
323: -- htp.p('PK3 = ' || PK3); htp.nl;
324: -- htp.p('PK10 = ' || PK10); htp.nl;
325: OPEN ship_cur;
326: -- htp.p('ship_cur opened'); htp.nl;
319:
320: IF (icx_sec.validateSession) THEN
321: -- htp.p(' PK1 = ' || PK1); htp.nl;
322: -- htp.p('PK2 = ' || PK2) ; htp.nl;
323: -- htp.p('PK3 = ' || PK3); htp.nl;
324: -- htp.p('PK10 = ' || PK10); htp.nl;
325: OPEN ship_cur;
326: -- htp.p('ship_cur opened'); htp.nl;
327: FETCH ship_cur
320: IF (icx_sec.validateSession) THEN
321: -- htp.p(' PK1 = ' || PK1); htp.nl;
322: -- htp.p('PK2 = ' || PK2) ; htp.nl;
323: -- htp.p('PK3 = ' || PK3); htp.nl;
324: -- htp.p('PK10 = ' || PK10); htp.nl;
325: OPEN ship_cur;
326: -- htp.p('ship_cur opened'); htp.nl;
327: FETCH ship_cur
328: INTO Ctx(qa_ss_const.Po_Number),
322: -- htp.p('PK2 = ' || PK2) ; htp.nl;
323: -- htp.p('PK3 = ' || PK3); htp.nl;
324: -- htp.p('PK10 = ' || PK10); htp.nl;
325: OPEN ship_cur;
326: -- htp.p('ship_cur opened'); htp.nl;
327: FETCH ship_cur
328: INTO Ctx(qa_ss_const.Po_Number),
329: Ctx(qa_ss_const.Po_Line_Num),
330: Ctx(qa_ss_const.Po_Release_Num),
339: Ctx(qa_ss_const.Item),
340: Ctx(qa_ss_const.Revision),
341: Ctx(qa_ss_const.Item_Category),
342: P_Organization_Id;
343: -- htp.p('ship_cur fetched successfully'); htp.nl;
344: CLOSE ship_cur;
345: -- htp.p('ship_cur closed successfully'); htp.nl;
346: -- now ctx(release_num) actually has release id. lets get release num
347:
341: Ctx(qa_ss_const.Item_Category),
342: P_Organization_Id;
343: -- htp.p('ship_cur fetched successfully'); htp.nl;
344: CLOSE ship_cur;
345: -- htp.p('ship_cur closed successfully'); htp.nl;
346: -- now ctx(release_num) actually has release id. lets get release num
347:
348: IF ( Ctx(qa_ss_const.Po_Release_Num) is NOT NULL) Then
349: -- htp.p('attempt to fetch release num'); htp.nl;
345: -- htp.p('ship_cur closed successfully'); htp.nl;
346: -- now ctx(release_num) actually has release id. lets get release num
347:
348: IF ( Ctx(qa_ss_const.Po_Release_Num) is NOT NULL) Then
349: -- htp.p('attempt to fetch release num'); htp.nl;
350: OPEN rel_num_cur( Ctx(qa_ss_const.Po_Release_Num) );
351: FETCH rel_num_cur INTO Ctx(qa_ss_const.Po_Release_Num);
352: CLOSE rel_num_cur;
353: -- htp.p('successful rel num fetch'); htp.nl;
349: -- htp.p('attempt to fetch release num'); htp.nl;
350: OPEN rel_num_cur( Ctx(qa_ss_const.Po_Release_Num) );
351: FETCH rel_num_cur INTO Ctx(qa_ss_const.Po_Release_Num);
352: CLOSE rel_num_cur;
353: -- htp.p('successful rel num fetch'); htp.nl;
354: END IF;
355: -- Now Ctx is populated. Also, populated P_Organization_Id above
356: -- htp.p('before call to all applicable plans'); htp.nl;
357: qa_ss_core.all_applicable_plans( Ctx, 110, P_Organization_Id, PK1, PK2,Pk3,
352: CLOSE rel_num_cur;
353: -- htp.p('successful rel num fetch'); htp.nl;
354: END IF;
355: -- Now Ctx is populated. Also, populated P_Organization_Id above
356: -- htp.p('before call to all applicable plans'); htp.nl;
357: qa_ss_core.all_applicable_plans( Ctx, 110, P_Organization_Id, PK1, PK2,Pk3,
358: Pk4,PK5,PK6,PK7,PK8,PK9,PK10);
359: -- htp.p('after call to all_applicable_plans'); htp.nl;
360:
355: -- Now Ctx is populated. Also, populated P_Organization_Id above
356: -- htp.p('before call to all applicable plans'); htp.nl;
357: qa_ss_core.all_applicable_plans( Ctx, 110, P_Organization_Id, PK1, PK2,Pk3,
358: Pk4,PK5,PK6,PK7,PK8,PK9,PK10);
359: -- htp.p('after call to all_applicable_plans'); htp.nl;
360:
361: END IF; -- end icx validate session
362:
363: EXCEPTION
368: IF rel_num_cur%ISOPEN THEN
369: CLOSE rel_num_cur;
370: End If;
371:
372: htp.p('Exception in procedure qa_ss_ship.shipping plans');
373: htp.p(SQLERRM);
374:
375:
376: END shipping_plans;
369: CLOSE rel_num_cur;
370: End If;
371:
372: htp.p('Exception in procedure qa_ss_ship.shipping plans');
373: htp.p(SQLERRM);
374:
375:
376: END shipping_plans;
377: ----------------------------------------------------------------------------------------------