The following lines contain the word 'select', 'insert', 'update' or 'delete':
sql_stmt := 'SELECT REQUISITION_LINE_ID REQUISITION_ID FROM PO_REQUISITION_LINES_ALL WHERE '||pReqLines||' and 1 = 1 ';
SELECT count(*)
INTO l_Assignment_count
FROM PO_CLM_ASSIGNMENTS
WHERE ASSIGNMENT_NUMBER = l_Assignment_Number;
SELECT Count(*) into l_Assignment_found
FROM PO_CLM_ASSGNMT_ACTION_HISTORY
WHERE ASSIGNMENT_ID = pAssignmentId
and ACTION_END_DATE is NULL;
SELECT ASSIGNMENT_NUMBER
INTO l_Assignment_Number
FROM PO_CLM_ASSIGNMENTS
WHERE ASSIGNMENT_ID = pAssignmentId;
SELECT EMPLOYEE_ID
INTO l_Action_Taken_By
FROM FND_USER
WHERE USER_ID = fnd_global.user_id;
INSERT INTO PO_CLM_ASSGNMT_ACTION_HISTORY
(ASSIGNMENT_ID ,
OLD_STATUS ,
NEW_STATUS ,
OLD_BUYER_ID ,
NEW_BUYER_ID ,
REASON ,
ACTION_START_DATE ,
ACTION_END_DATE ,
ACTION_TAKEN_BY ,
CREATED_BY ,
CREATION_DATE ,
LAST_UPDATED_BY ,
LAST_UPDATE_DATE ,
LAST_UPDATE_LOGIN)
VALUES (pAssignmentId,
pOldStatus ,
pNewStatus ,
pOldBuyerId,
pnewBuyerId,
pReason,
sysdate,
null,
l_Action_Taken_By,
fnd_global.user_id,
sysdate,
fnd_global.user_id,
sysdate,
fnd_global.login_id);
UPDATE PO_CLM_ASSGNMT_ACTION_HISTORY
SET ACTION_END_DATE = SYSDATE-1/(24*60*60),
last_updated_by = fnd_global.user_id ,
last_update_date = SYSDATE ,
last_update_login = fnd_global.login_id
WHERE ASSIGNMENT_ID = pAssignmentId
AND ACTION_END_DATE IS NULL
AND (NEW_STATUS = Decode(pOldStatus,1,6,pOldStatus) OR NEW_STATUS = Decode(pOldStatus,1,7,pOldStatus));
INSERT INTO PO_CLM_ASSGNMT_ACTION_HISTORY
(ASSIGNMENT_ID ,
OLD_STATUS ,
NEW_STATUS ,
OLD_BUYER_ID ,
NEW_BUYER_ID ,
REASON ,
ACTION_START_DATE ,
ACTION_END_DATE ,
ACTION_TAKEN_BY ,
CREATED_BY ,
CREATION_DATE ,
LAST_UPDATED_BY ,
LAST_UPDATE_DATE ,
LAST_UPDATE_LOGIN)
VALUES (pAssignmentId,
pOldStatus ,
pNewStatus ,
pOldBuyerId,
pnewBuyerId,
pReason,
sysdate,
null,
l_Action_Taken_By,
fnd_global.user_id,
sysdate,
fnd_global.user_id,
sysdate,
fnd_global.login_id);
UPDATE PO_REQUISITION_LINES_ALL
SET SUGGESTED_BUYER_ID = pnewBuyerId,
last_updated_by = fnd_global.user_id,
last_update_date = SYSDATE ,
last_update_login = fnd_global.login_id
WHERE ASSIGNMENT_NUMBER = l_Assignment_Number;
UPDATE PO_CLM_ASSIGNMENTS
SET ASSIGNMENT_STATUS = pNewStatus ,
last_updated_by = fnd_global.user_id,
last_update_date = SYSDATE ,
last_update_login = fnd_global.login_id
WHERE ASSIGNMENT_ID = pAssignmentId;
UPDATE PO_REQUISITION_LINES_ALL
SET ASSIGNMENT_NUMBER = NULL,
last_updated_by = fnd_global.user_id,
last_update_date = SYSDATE ,
last_update_login = fnd_global.login_id
WHERE ASSIGNMENT_NUMBER = l_Assignment_Number;
UPDATE PO_CLM_ASSIGNMENTS
SET ASSIGNMENT_STATUS = pNewStatus ,
last_updated_by = fnd_global.user_id,
last_update_date = SYSDATE ,
last_update_login = fnd_global.login_id,
ACTUAL_COMPLETION_DATE = SYSDATE
WHERE ASSIGNMENT_ID = pAssignmentId;
UPDATE PO_CLM_ASSGNMT_MILESTONE_DTLS
SET ACTUAL_COMPLETION_DATE = SYSDATE ,
last_updated_by = fnd_global.user_id,
last_update_date = SYSDATE ,
last_update_login = fnd_global.login_id
WHERE ASSIGNMENT_ID = pAssignmentId
AND ACTUAL_COMPLETION_DATE IS NULL;
UPDATE PO_CLM_ASSIGNMENTS
SET ASSIGNMENT_STATUS = 1 ,
last_updated_by = fnd_global.user_id,
last_update_date = SYSDATE ,
last_update_login = fnd_global.login_id
WHERE ASSIGNMENT_ID = pAssignmentId;
SELECT requisition_line_id
FROM po_requisition_lines_all
WHERE requisition_header_id = reqHeaderId
and (group_line_id = pReqLineId OR (po_autocreate_util_pvt.is_crosslinked_child(requisition_line_id,pReqLineId) ='T') );
SELECT requisition_header_id INTO l_req_header_id
FROM po_requisition_lines_all
WHERE requisition_line_id = pReqLineId;
SELECT Count(*) INTO l_cnt
FROM PO_CLM_ASSGNMT_MILESTONE_DTLS dtls, PO_CLM_ASSIGNMENTS ca
WHERE ca.ASSIGNMENT_NUMBER = pAssignmentNums(i)
AND ca.ASSIGNMENT_ID = dtls.ASSIGNMENT_ID
AND dtls.ACTUAL_COMPLETION_DATE IS NOT NULL;
l_query := ' UPDATE po_requisition_lines_all ' ||
' SET assignment_number = NULL, suggested_buyer_id = NULL ' ||
' WHERE assignment_number = ''' || pAssignmentNums(i) || '''' ||
' and requisition_line_id in ('|| l_req_line_ids_str || ')';
l_par_query := 'UPDATE po_lines_draft_all ' ||
' SET draft_line_status = ''COMPLETED''' ||
' WHERE (po_line_id, draft_id) IN (SELECT par_line_id, par_draft_id' ||
' FROM po_requisition_lines_all ' ||
' WHERE assignment_number = ''' || pAssignmentNums(i) || '''' ||
' AND par_line_id IS NOT NULL)';
-- For assignment_type= 'PAR', we will have to update draft_line_status
-- PAR.
END LOOP;
SELECT Count(*) INTO x_currCodeCount FROM (
SELECT DISTINCT Nvl(CURRENCY_CODE,PO_PALT_ASSIGNMENTS.GetLineFuncCurrCode(ORG_ID))
FROM po_requisition_lines_all WHERE assignment_number = pAssignmentNum);
SELECT DISTINCT Nvl(CURRENCY_CODE,PO_PALT_ASSIGNMENTS.GetLineFuncCurrCode(ORG_ID)) INTO x_currCode
FROM po_requisition_lines_all WHERE assignment_number = pAssignmentNum;
SELECT s.CURRENCY_CODE INTO x_currCode
FROM GL_SETS_OF_BOOKS s, FINANCIALS_SYSTEM_PARAMS_ALL f
WHERE s.SET_OF_BOOKS_ID = f.SET_OF_BOOKS_ID
AND f.ORG_ID = p_org_id;
SELECT ORG_ID INTO x_org_id FROM po_requisition_lines_all WHERE REQUISITION_LINE_ID = p_line_id;
SELECT s.CURRENCY_CODE INTO x_currCode
FROM GL_SETS_OF_BOOKS s, FINANCIALS_SYSTEM_PARAMS_ALL f
WHERE s.SET_OF_BOOKS_ID = f.SET_OF_BOOKS_ID
AND f.ORG_ID = x_org_id;
Procedure updateSuggestedBuyer
(pAssignmentId IN NUMBER,
pnewBuyerId IN NUMBER
)
IS
l_Assignment_Number varchar2(30);
SELECT ASSIGNMENT_NUMBER
INTO l_Assignment_Number
FROM PO_CLM_ASSIGNMENTS
WHERE ASSIGNMENT_ID = pAssignmentId;
UPDATE PO_REQUISITION_LINES_ALL
SET SUGGESTED_BUYER_ID = pnewBuyerId,
last_updated_by = fnd_global.user_id,
last_update_date = SYSDATE ,
last_update_login = fnd_global.login_id
WHERE ASSIGNMENT_NUMBER = l_Assignment_Number;
END updateSuggestedBuyer;
sql_stmt := 'SELECT REQUISITION_LINE_ID REQUISITION_ID FROM PO_REQUISITION_LINES_ALL WHERE REQUISITION_HEADER_ID = ' || p_par_req_header_id;
INSERT INTO po_clm_assignments (assignment_id,
assignment_number,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login,
assignment_start_date,
buyer_id,
assignment_status,
assignment_type)
VALUES ( l_assignment_number,
l_assignment_number,
fnd_global.user_id,
sysdate,
fnd_global.user_id,
sysdate,
fnd_global.login_id,
sysdate, -- assignment start date,
p_assignment_buyer_id,
1, --Satus is 'Assigned'
'PAR');
UPDATE po_requisition_lines_all
SET assignment_number = l_assignment_number,
last_updated_by = fnd_global.user_id,
last_update_date = SYSDATE ,
last_update_login = fnd_global.login_id
WHERE requisition_header_id = p_par_req_header_id;
UPDATE po_lines_draft_all
SET draft_line_status = 'ASSIGNED'
WHERE draft_id = p_draft_id;
po_wf_debug_pkg.Insert_debug(itemtype,itemkey, l_progress );
SELECT NVL(ds.par_auto_assign_flag, 'N'),
ds.par_auto_assign_role
INTO l_par_auto_assign_flag,
l_par_auto_assign_role
FROM po_doc_style_headers ds,
po_headers_draft_all pohd
WHERE pohd.style_id = ds.style_id
AND pohd.draft_id = l_par_draft_id
AND pohd.po_header_id = l_document_id;
po_wf_debug_pkg.Insert_debug(itemtype,itemkey, l_progress );
SELECT NVL(clm_award_administrator, agent_id)
INTO l_assignment_buyer_id
FROM po_headers_all
WHERE po_header_id = l_document_id;
SELECT NVL(clm_contract_officer, agent_id)
INTO l_assignment_buyer_id
FROM po_headers_all
WHERE po_header_id = l_document_id;
SELECT agent_id
INTO l_assignment_buyer_id
FROM po_headers_all
WHERE po_header_id = l_document_id;
SELECT Decode (clm_award_administrator,
NULL, (Decode (clm_contract_officer,
NULL, agent_id,
clm_contract_officer)),
clm_award_administrator)
INTO l_assignment_buyer_id
FROM po_headers_all
WHERE po_header_id = l_document_id;
po_wf_debug_pkg.Insert_debug(itemtype,itemkey, l_progress );
po_wf_debug_pkg.Insert_debug(itemtype,itemkey, l_progress );