59:
60: l_api_name CONSTANT VARCHAR(30) := 'CHECK_UPDATABLE';
61: l_progress VARCHAR2(3) := '000';
62:
63: l_procedure_id PO_SESSION_GT.key%TYPE; -- bug3606853
64:
65: BEGIN
66:
67: IF g_fnd_debug = 'Y' THEN
85: l_procedure_id := PO_CORE_S.get_session_gt_nextval;
86:
87: FORALL i IN 1..p_count
88: -- SQL What: Checks if current PO Header/Line/Shipment is in updateable status
89: INSERT INTO PO_SESSION_GT
90: ( key
91: )
92: SELECT l_procedure_id
93: FROM DUAL
140:
141: END LOOP;
142:
143: -- bug3606853 START
144: -- Remove everthing that has been inserted into PO_SESSION_GT by the above
145: -- dummy insert
146:
147: DELETE FROM po_session_gt
148: WHERE key = l_procedure_id;
143: -- bug3606853 START
144: -- Remove everthing that has been inserted into PO_SESSION_GT by the above
145: -- dummy insert
146:
147: DELETE FROM po_session_gt
148: WHERE key = l_procedure_id;
149:
150: -- bug3592160 END
151:
210:
211: l_api_name CONSTANT VARCHAR(30) := 'CHECK_RESERVABLE';
212: l_progress VARCHAR2(3) := '000';
213:
214: l_procedure_id PO_SESSION_GT.key%TYPE; -- bug3606853
215: BEGIN
216:
217: IF g_fnd_debug = 'Y' THEN
218: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
235: l_procedure_id := PO_CORE_S.get_session_gt_nextval;
236:
237: FORALL i IN 1..p_count
238: -- SQL What: Checks if current PO Header/Line/Shipment is in reservable status
239: INSERT INTO PO_SESSION_GT
240: ( key
241: )
242: SELECT l_procedure_id
243: FROM DUAL
272:
273: END LOOP;
274:
275: -- bug3606853 START
276: -- Remove everthing that has been inserted into PO_SESSION_GT by the above
277: -- dummy insert
278:
279: DELETE FROM po_session_gt
280: WHERE key = l_procedure_id;
275: -- bug3606853 START
276: -- Remove everthing that has been inserted into PO_SESSION_GT by the above
277: -- dummy insert
278:
279: DELETE FROM po_session_gt
280: WHERE key = l_procedure_id;
281:
282: -- bug3592160 END
283:
341:
342: l_api_name CONSTANT VARCHAR(30) := 'CHECK_UNRESERVABLE';
343: l_progress VARCHAR2(3) := '000';
344:
345: l_procedure_id PO_SESSION_GT.key%TYPE; -- bug3606853
346:
347: BEGIN
348:
349: IF g_fnd_debug = 'Y' THEN
367: l_procedure_id := PO_CORE_S.get_session_gt_nextval;
368:
369: FORALL i IN 1..p_count
370: -- SQL What: Checks if current PO Header/Line/Shipment is in unreservable status
371: INSERT INTO PO_SESSION_GT
372: ( key
373: )
374: SELECT l_procedure_id
375: FROM DUAL
402:
403: END LOOP;
404:
405: -- bug3606853 START
406: -- Remove everthing that has been inserted into PO_SESSION_GT by the above
407: -- dummy insert
408:
409: DELETE FROM po_session_gt
410: WHERE key = l_procedure_id;
405: -- bug3606853 START
406: -- Remove everthing that has been inserted into PO_SESSION_GT by the above
407: -- dummy insert
408:
409: DELETE FROM po_session_gt
410: WHERE key = l_procedure_id;
411:
412: -- bug3592160 END
413: