77:
78: SELECT EMPLOYEE_ID
79: INTO l_Action_Taken_By
80: FROM FND_USER
81: WHERE USER_ID = fnd_global.user_id;
82:
83: IF (l_Assignment_found = 0) then
84:
85: INSERT INTO PO_CLM_ASSGNMT_ACTION_HISTORY
106: pReason,
107: sysdate,
108: null,
109: l_Action_Taken_By,
110: fnd_global.user_id,
111: sysdate,
112: fnd_global.user_id,
113: sysdate,
114: fnd_global.login_id);
108: null,
109: l_Action_Taken_By,
110: fnd_global.user_id,
111: sysdate,
112: fnd_global.user_id,
113: sysdate,
114: fnd_global.login_id);
115: ELSE
116: UPDATE PO_CLM_ASSGNMT_ACTION_HISTORY
110: fnd_global.user_id,
111: sysdate,
112: fnd_global.user_id,
113: sysdate,
114: fnd_global.login_id);
115: ELSE
116: UPDATE PO_CLM_ASSGNMT_ACTION_HISTORY
117: SET ACTION_END_DATE = SYSDATE-1/(24*60*60),
118: last_updated_by = fnd_global.user_id ,
114: fnd_global.login_id);
115: ELSE
116: UPDATE PO_CLM_ASSGNMT_ACTION_HISTORY
117: SET ACTION_END_DATE = SYSDATE-1/(24*60*60),
118: last_updated_by = fnd_global.user_id ,
119: last_update_date = SYSDATE ,
120: last_update_login = fnd_global.login_id
121: WHERE ASSIGNMENT_ID = pAssignmentId
122: AND ACTION_END_DATE IS NULL
116: UPDATE PO_CLM_ASSGNMT_ACTION_HISTORY
117: SET ACTION_END_DATE = SYSDATE-1/(24*60*60),
118: last_updated_by = fnd_global.user_id ,
119: last_update_date = SYSDATE ,
120: last_update_login = fnd_global.login_id
121: WHERE ASSIGNMENT_ID = pAssignmentId
122: AND ACTION_END_DATE IS NULL
123: AND (NEW_STATUS = Decode(pOldStatus,1,6,pOldStatus) OR NEW_STATUS = Decode(pOldStatus,1,7,pOldStatus));
124:
145: pReason,
146: sysdate,
147: null,
148: l_Action_Taken_By,
149: fnd_global.user_id,
150: sysdate,
151: fnd_global.user_id,
152: sysdate,
153: fnd_global.login_id);
147: null,
148: l_Action_Taken_By,
149: fnd_global.user_id,
150: sysdate,
151: fnd_global.user_id,
152: sysdate,
153: fnd_global.login_id);
154:
155: /* IF (pOldBuyerId <> pnewBuyerId) THEN
149: fnd_global.user_id,
150: sysdate,
151: fnd_global.user_id,
152: sysdate,
153: fnd_global.login_id);
154:
155: /* IF (pOldBuyerId <> pnewBuyerId) THEN
156:
157: UPDATE PO_REQUISITION_LINES_ALL
155: /* IF (pOldBuyerId <> pnewBuyerId) THEN
156:
157: UPDATE PO_REQUISITION_LINES_ALL
158: SET SUGGESTED_BUYER_ID = pnewBuyerId,
159: last_updated_by = fnd_global.user_id,
160: last_update_date = SYSDATE ,
161: last_update_login = fnd_global.login_id
162: WHERE ASSIGNMENT_NUMBER = l_Assignment_Number;
163:
157: UPDATE PO_REQUISITION_LINES_ALL
158: SET SUGGESTED_BUYER_ID = pnewBuyerId,
159: last_updated_by = fnd_global.user_id,
160: last_update_date = SYSDATE ,
161: last_update_login = fnd_global.login_id
162: WHERE ASSIGNMENT_NUMBER = l_Assignment_Number;
163:
164: END IF;
165: */
169: IF (pNewStatus = 2 or pNewStatus = 3) THEN /*Suspend or Cancel*/
170:
171: UPDATE PO_CLM_ASSIGNMENTS
172: SET ASSIGNMENT_STATUS = pNewStatus ,
173: last_updated_by = fnd_global.user_id,
174: last_update_date = SYSDATE ,
175: last_update_login = fnd_global.login_id
176: WHERE ASSIGNMENT_ID = pAssignmentId;
177:
171: UPDATE PO_CLM_ASSIGNMENTS
172: SET ASSIGNMENT_STATUS = pNewStatus ,
173: last_updated_by = fnd_global.user_id,
174: last_update_date = SYSDATE ,
175: last_update_login = fnd_global.login_id
176: WHERE ASSIGNMENT_ID = pAssignmentId;
177:
178: IF (pNewStatus = 3) THEN
179:
180:
181:
182: UPDATE PO_REQUISITION_LINES_ALL
183: SET ASSIGNMENT_NUMBER = NULL,
184: last_updated_by = fnd_global.user_id,
185: last_update_date = SYSDATE ,
186: last_update_login = fnd_global.login_id
187: WHERE ASSIGNMENT_NUMBER = l_Assignment_Number;
188:
182: UPDATE PO_REQUISITION_LINES_ALL
183: SET ASSIGNMENT_NUMBER = NULL,
184: last_updated_by = fnd_global.user_id,
185: last_update_date = SYSDATE ,
186: last_update_login = fnd_global.login_id
187: WHERE ASSIGNMENT_NUMBER = l_Assignment_Number;
188:
189: END IF;
190:
191: ELSIF (pNewStatus = 5) THEN
192:
193: UPDATE PO_CLM_ASSIGNMENTS
194: SET ASSIGNMENT_STATUS = pNewStatus ,
195: last_updated_by = fnd_global.user_id,
196: last_update_date = SYSDATE ,
197: last_update_login = fnd_global.login_id,
198: ACTUAL_COMPLETION_DATE = SYSDATE
199: WHERE ASSIGNMENT_ID = pAssignmentId;
193: UPDATE PO_CLM_ASSIGNMENTS
194: SET ASSIGNMENT_STATUS = pNewStatus ,
195: last_updated_by = fnd_global.user_id,
196: last_update_date = SYSDATE ,
197: last_update_login = fnd_global.login_id,
198: ACTUAL_COMPLETION_DATE = SYSDATE
199: WHERE ASSIGNMENT_ID = pAssignmentId;
200:
201: UPDATE PO_CLM_ASSGNMT_MILESTONE_DTLS
199: WHERE ASSIGNMENT_ID = pAssignmentId;
200:
201: UPDATE PO_CLM_ASSGNMT_MILESTONE_DTLS
202: SET ACTUAL_COMPLETION_DATE = SYSDATE ,
203: last_updated_by = fnd_global.user_id,
204: last_update_date = SYSDATE ,
205: last_update_login = fnd_global.login_id
206: WHERE ASSIGNMENT_ID = pAssignmentId
207: AND ACTUAL_COMPLETION_DATE IS NULL;
201: UPDATE PO_CLM_ASSGNMT_MILESTONE_DTLS
202: SET ACTUAL_COMPLETION_DATE = SYSDATE ,
203: last_updated_by = fnd_global.user_id,
204: last_update_date = SYSDATE ,
205: last_update_login = fnd_global.login_id
206: WHERE ASSIGNMENT_ID = pAssignmentId
207: AND ACTUAL_COMPLETION_DATE IS NULL;
208:
209: ELSIF (pNewStatus = 6) THEN
209: ELSIF (pNewStatus = 6) THEN
210:
211: UPDATE PO_CLM_ASSIGNMENTS
212: SET ASSIGNMENT_STATUS = 1 ,
213: last_updated_by = fnd_global.user_id,
214: last_update_date = SYSDATE ,
215: last_update_login = fnd_global.login_id
216: WHERE ASSIGNMENT_ID = pAssignmentId;
217:
211: UPDATE PO_CLM_ASSIGNMENTS
212: SET ASSIGNMENT_STATUS = 1 ,
213: last_updated_by = fnd_global.user_id,
214: last_update_date = SYSDATE ,
215: last_update_login = fnd_global.login_id
216: WHERE ASSIGNMENT_ID = pAssignmentId;
217:
218: END IF;
219:
465: WHERE ASSIGNMENT_ID = pAssignmentId;
466:
467: UPDATE PO_REQUISITION_LINES_ALL
468: SET SUGGESTED_BUYER_ID = pnewBuyerId,
469: last_updated_by = fnd_global.user_id,
470: last_update_date = SYSDATE ,
471: last_update_login = fnd_global.login_id
472: WHERE ASSIGNMENT_NUMBER = l_Assignment_Number;
473:
467: UPDATE PO_REQUISITION_LINES_ALL
468: SET SUGGESTED_BUYER_ID = pnewBuyerId,
469: last_updated_by = fnd_global.user_id,
470: last_update_date = SYSDATE ,
471: last_update_login = fnd_global.login_id
472: WHERE ASSIGNMENT_NUMBER = l_Assignment_Number;
473:
474: EXCEPTION
475:
522: assignment_type)
523:
524: VALUES ( l_assignment_number,
525: l_assignment_number,
526: fnd_global.user_id,
527: sysdate,
528: fnd_global.user_id,
529: sysdate,
530: fnd_global.login_id,
524: VALUES ( l_assignment_number,
525: l_assignment_number,
526: fnd_global.user_id,
527: sysdate,
528: fnd_global.user_id,
529: sysdate,
530: fnd_global.login_id,
531: sysdate, -- assignment start date,
532: p_assignment_buyer_id,
526: fnd_global.user_id,
527: sysdate,
528: fnd_global.user_id,
529: sysdate,
530: fnd_global.login_id,
531: sysdate, -- assignment start date,
532: p_assignment_buyer_id,
533: 1, --Satus is 'Assigned'
534: 'PAR');
535: END IF;
536:
537: UPDATE po_requisition_lines_all
538: SET assignment_number = l_assignment_number,
539: last_updated_by = fnd_global.user_id,
540: last_update_date = SYSDATE ,
541: last_update_login = fnd_global.login_id
542: WHERE requisition_header_id = p_par_req_header_id;
543:
537: UPDATE po_requisition_lines_all
538: SET assignment_number = l_assignment_number,
539: last_updated_by = fnd_global.user_id,
540: last_update_date = SYSDATE ,
541: last_update_login = fnd_global.login_id
542: WHERE requisition_header_id = p_par_req_header_id;
543:
544: --Set PAR line status to 'ASSIGNED'
545: UPDATE po_lines_draft_all