53:
54:
55: BEGIN
56:
57: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
58: fnd_log.string
59: (
60: fnd_log.level_procedure,
61: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details.begin',
54:
55: BEGIN
56:
57: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
58: fnd_log.string
59: (
60: fnd_log.level_procedure,
61: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details.begin',
62: 'At the start of PLSQL procedure'
56:
57: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
58: fnd_log.string
59: (
60: fnd_log.level_procedure,
61: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details.begin',
62: 'At the start of PLSQL procedure'
63: );
64:
73: ,itemkey => itemkey
74: ,aname => 'OBJECT_ID'
75: );
76:
77: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
78: fnd_log.string
79: (
80: fnd_log.level_event,
81: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
74: ,aname => 'OBJECT_ID'
75: );
76:
77: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
78: fnd_log.string
79: (
80: fnd_log.level_event,
81: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
82: 'Starting workflow for unit_deferral_id : ' || l_object_id
76:
77: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
78: fnd_log.string
79: (
80: fnd_log.level_event,
81: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
82: 'Starting workflow for unit_deferral_id : ' || l_object_id
83: );
84: END IF;
93: IF(unit_effectivity_id_csr%NOTFOUND) THEN
94: FND_MESSAGE.SET_NAME('AHL', 'AHL_PRD_DF_APPR_INV_DF');
95: FND_MESSAGE.SET_TOKEN('DEFERRAL_ID',l_object_id);
96: FND_MSG_PUB.ADD;
97: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
98: fnd_log.string
99: (
100: fnd_log.level_unexpected,
101: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
94: FND_MESSAGE.SET_NAME('AHL', 'AHL_PRD_DF_APPR_INV_DF');
95: FND_MESSAGE.SET_TOKEN('DEFERRAL_ID',l_object_id);
96: FND_MSG_PUB.ADD;
97: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
98: fnd_log.string
99: (
100: fnd_log.level_unexpected,
101: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
102: 'Unit effectivity record not found for unit deferral id : ' || l_object_id
96: FND_MSG_PUB.ADD;
97: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
98: fnd_log.string
99: (
100: fnd_log.level_unexpected,
101: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
102: 'Unit effectivity record not found for unit deferral id : ' || l_object_id
103: );
104: END IF;
116: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
117: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_INV_DF');
118: FND_MESSAGE.SET_TOKEN('DEFERRAL_ID',l_object_id);
119: FND_MSG_PUB.ADD;
120: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
121: fnd_log.string
122: (
123: fnd_log.level_unexpected,
124: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
117: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_INV_DF');
118: FND_MESSAGE.SET_TOKEN('DEFERRAL_ID',l_object_id);
119: FND_MSG_PUB.ADD;
120: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
121: fnd_log.string
122: (
123: fnd_log.level_unexpected,
124: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
125: 'Deferral record details not found for unit deferral id : ' || l_object_id
119: FND_MSG_PUB.ADD;
120: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
121: fnd_log.string
122: (
123: fnd_log.level_unexpected,
124: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
125: 'Deferral record details not found for unit deferral id : ' || l_object_id
126: );
127: END IF;
137: FND_MESSAGE.SET_TOKEN('INCIDENT_NUMBER',l_df_header_info_rec.incident_number,false);
138: FND_MESSAGE.SET_TOKEN('VISIT_NUMBER',l_df_header_info_rec.visit_number,false);
139: l_temp_subject := FND_MESSAGE.get;
140: END IF;
141: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
142: fnd_log.string
143: (
144: fnd_log.level_statement,
145: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
138: FND_MESSAGE.SET_TOKEN('VISIT_NUMBER',l_df_header_info_rec.visit_number,false);
139: l_temp_subject := FND_MESSAGE.get;
140: END IF;
141: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
142: fnd_log.string
143: (
144: fnd_log.level_statement,
145: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
146: 'getting requester note'
140: END IF;
141: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
142: fnd_log.string
143: (
144: fnd_log.level_statement,
145: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
146: 'getting requester note'
147: );
148: END IF;
146: 'getting requester note'
147: );
148: END IF;
149: l_requester_note := getRequesterNote(l_df_header_info_rec, l_df_schedules_tbl);
150: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
151: fnd_log.string
152: (
153: fnd_log.level_statement,
154: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
147: );
148: END IF;
149: l_requester_note := getRequesterNote(l_df_header_info_rec, l_df_schedules_tbl);
150: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
151: fnd_log.string
152: (
153: fnd_log.level_statement,
154: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
155: 'got requester note'
149: l_requester_note := getRequesterNote(l_df_header_info_rec, l_df_schedules_tbl);
150: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
151: fnd_log.string
152: (
153: fnd_log.level_statement,
154: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
155: 'got requester note'
156: );
157: END IF;
159: END IF;
160: CLOSE unit_effectivity_id_csr;
161:
162: IF(FND_MSG_PUB.count_msg > 0)THEN
163: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
164: fnd_log.string
165: (
166: fnd_log.level_unexpected,
167: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
160: CLOSE unit_effectivity_id_csr;
161:
162: IF(FND_MSG_PUB.count_msg > 0)THEN
163: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
164: fnd_log.string
165: (
166: fnd_log.level_unexpected,
167: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
168: 'Could not set activity details for deferral workflow of unit deferral id : ' || l_object_id
162: IF(FND_MSG_PUB.count_msg > 0)THEN
163: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
164: fnd_log.string
165: (
166: fnd_log.level_unexpected,
167: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
168: 'Could not set activity details for deferral workflow of unit deferral id : ' || l_object_id
169: );
170: END IF;
170: END IF;
171: RAISE FND_API.G_EXC_ERROR;
172: END IF;
173:
174: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
175: fnd_log.string
176: (
177: fnd_log.level_statement,
178: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
171: RAISE FND_API.G_EXC_ERROR;
172: END IF;
173:
174: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
175: fnd_log.string
176: (
177: fnd_log.level_statement,
178: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
179: 'SUBJECT : ' || l_temp_subject
173:
174: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
175: fnd_log.string
176: (
177: fnd_log.level_statement,
178: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
179: 'SUBJECT : ' || l_temp_subject
180: );
181: fnd_log.string
177: fnd_log.level_statement,
178: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
179: 'SUBJECT : ' || l_temp_subject
180: );
181: fnd_log.string
182: (
183: fnd_log.level_statement,
184: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
185: 'REQUESTER NOTE : ' || l_requester_note
179: 'SUBJECT : ' || l_temp_subject
180: );
181: fnd_log.string
182: (
183: fnd_log.level_statement,
184: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
185: 'REQUESTER NOTE : ' || l_requester_note
186: );
187: END IF;
291: avalue => l_approver_seq
292: );
293: resultout := 'COMPLETE:SUCCESS';
294: ELSE
295: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
296: fnd_log.string
297: (
298: fnd_log.level_unexpected,
299: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
292: );
293: resultout := 'COMPLETE:SUCCESS';
294: ELSE
295: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
296: fnd_log.string
297: (
298: fnd_log.level_unexpected,
299: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
300: 'Could not set activity details for deferral workflow of unit deferral id : ' || l_object_id
294: ELSE
295: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
296: fnd_log.string
297: (
298: fnd_log.level_unexpected,
299: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
300: 'Could not set activity details for deferral workflow of unit deferral id : ' || l_object_id
301: );
302: END IF;
305: ELSIF (funcmode IN ('CANCEL','TIMEOUT'))THEN
306: resultout := 'COMPLETE:';
307: END IF;
308:
309: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
310: fnd_log.string
311: (
312: fnd_log.level_procedure,
313: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details.end',
306: resultout := 'COMPLETE:';
307: END IF;
308:
309: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
310: fnd_log.string
311: (
312: fnd_log.level_procedure,
313: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details.end',
314: 'At the end of PLSQL procedure'
308:
309: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
310: fnd_log.string
311: (
312: fnd_log.level_procedure,
313: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details.end',
314: 'At the end of PLSQL procedure'
315: );
316: END IF;
363:
364:
365: BEGIN
366:
367: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
368: fnd_log.string
369: (
370: fnd_log.level_procedure,
371: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI.begin',
364:
365: BEGIN
366:
367: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
368: fnd_log.string
369: (
370: fnd_log.level_procedure,
371: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI.begin',
372: 'At the start of PLSQL procedure'
366:
367: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
368: fnd_log.string
369: (
370: fnd_log.level_procedure,
371: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI.begin',
372: 'At the start of PLSQL procedure'
373: );
374: END IF;
388: itemtype => l_item_type
389: ,itemkey => l_item_key
390: ,aname => 'OBJECT_ID'
391: );
392: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
393: fnd_log.string
394: (
395: fnd_log.level_statement,
396: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI',
389: ,itemkey => l_item_key
390: ,aname => 'OBJECT_ID'
391: );
392: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
393: fnd_log.string
394: (
395: fnd_log.level_statement,
396: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI',
397: 'Deferral Approval Request has been forwarded for unit_deferral_id : ' || l_object_id
391: );
392: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
393: fnd_log.string
394: (
395: fnd_log.level_statement,
396: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI',
397: 'Deferral Approval Request has been forwarded for unit_deferral_id : ' || l_object_id
398: );
399: END IF;
414: FND_MESSAGE.SET_TOKEN('APPROVER',l_approver ,false);
415: document := FND_MESSAGE.get;
416: document := document || l_requester_note;
417:
418: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
419: fnd_log.string
420: (
421: fnd_log.level_statement,
422: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI',
415: document := FND_MESSAGE.get;
416: document := document || l_requester_note;
417:
418: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
419: fnd_log.string
420: (
421: fnd_log.level_statement,
422: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI',
423: 'Forward FYI Body : ' || document
417:
418: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
419: fnd_log.string
420: (
421: fnd_log.level_statement,
422: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI',
423: 'Forward FYI Body : ' || document
424: );
425: END IF;
422: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI',
423: 'Forward FYI Body : ' || document
424: );
425: END IF;
426: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
427: fnd_log.string
428: (
429: fnd_log.level_procedure,
430: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI.end',
423: 'Forward FYI Body : ' || document
424: );
425: END IF;
426: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
427: fnd_log.string
428: (
429: fnd_log.level_procedure,
430: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI.end',
431: 'At the end of PLSQL procedure'
425: END IF;
426: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
427: fnd_log.string
428: (
429: fnd_log.level_procedure,
430: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI.end',
431: 'At the end of PLSQL procedure'
432: );
433: END IF;
475: l_error_msg VARCHAR2(2000);
476:
477: BEGIN
478:
479: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
480: fnd_log.string
481: (
482: fnd_log.level_procedure,
483: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI.begin',
476:
477: BEGIN
478:
479: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
480: fnd_log.string
481: (
482: fnd_log.level_procedure,
483: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI.begin',
484: 'At the start of PLSQL procedure'
478:
479: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
480: fnd_log.string
481: (
482: fnd_log.level_procedure,
483: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI.begin',
484: 'At the start of PLSQL procedure'
485: );
486: END IF;
500: itemtype => l_item_type
501: ,itemkey => l_item_key
502: ,aname => 'OBJECT_ID'
503: );
504: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
505: fnd_log.string
506: (
507: fnd_log.level_event,
508: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI',
501: ,itemkey => l_item_key
502: ,aname => 'OBJECT_ID'
503: );
504: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
505: fnd_log.string
506: (
507: fnd_log.level_event,
508: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI',
509: 'Sending FYI for approval of unit_deferral_id : ' || l_object_id
503: );
504: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
505: fnd_log.string
506: (
507: fnd_log.level_event,
508: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI',
509: 'Sending FYI for approval of unit_deferral_id : ' || l_object_id
510: );
511: END IF;
526: FND_MESSAGE.SET_TOKEN('APPROVER',l_approver ,false);
527: document := FND_MESSAGE.get;
528: document := document || l_requester_note;
529:
530: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
531: fnd_log.string
532: (
533: fnd_log.level_statement,
534: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI',
527: document := FND_MESSAGE.get;
528: document := document || l_requester_note;
529:
530: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
531: fnd_log.string
532: (
533: fnd_log.level_statement,
534: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI',
535: 'Approved FYI Body : ' || document
529:
530: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
531: fnd_log.string
532: (
533: fnd_log.level_statement,
534: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI',
535: 'Approved FYI Body : ' || document
536: );
537: END IF;
535: 'Approved FYI Body : ' || document
536: );
537: END IF;
538:
539: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
540: fnd_log.string
541: (
542: fnd_log.level_procedure,
543: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI.end',
536: );
537: END IF;
538:
539: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
540: fnd_log.string
541: (
542: fnd_log.level_procedure,
543: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI.end',
544: 'At the end of PLSQL procedure'
538:
539: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
540: fnd_log.string
541: (
542: fnd_log.level_procedure,
543: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI.end',
544: 'At the end of PLSQL procedure'
545: );
546: END IF;
588: l_error_msg VARCHAR2(2000);
589:
590: BEGIN
591:
592: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
593: fnd_log.string
594: (
595: fnd_log.level_procedure,
596: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI.begin',
589:
590: BEGIN
591:
592: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
593: fnd_log.string
594: (
595: fnd_log.level_procedure,
596: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI.begin',
597: 'At the start of PLSQL procedure'
591:
592: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
593: fnd_log.string
594: (
595: fnd_log.level_procedure,
596: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI.begin',
597: 'At the start of PLSQL procedure'
598: );
599: END IF;
613: itemtype => l_item_type
614: ,itemkey => l_item_key
615: ,aname => 'OBJECT_ID'
616: );
617: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
618: fnd_log.string
619: (
620: fnd_log.level_event,
621: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI',
614: ,itemkey => l_item_key
615: ,aname => 'OBJECT_ID'
616: );
617: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
618: fnd_log.string
619: (
620: fnd_log.level_event,
621: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI',
622: 'Deferral finally approved for unit_deferral_id : ' || l_object_id
616: );
617: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
618: fnd_log.string
619: (
620: fnd_log.level_event,
621: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI',
622: 'Deferral finally approved for unit_deferral_id : ' || l_object_id
623: );
624: END IF;
632: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_FAPPR_BODY');
633: document := FND_MESSAGE.get;
634: document := document || l_requester_note;
635:
636: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
637: fnd_log.string
638: (
639: fnd_log.level_statement,
640: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI',
633: document := FND_MESSAGE.get;
634: document := document || l_requester_note;
635:
636: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
637: fnd_log.string
638: (
639: fnd_log.level_statement,
640: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI',
641: 'Final Approval FYI Body : ' || document
635:
636: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
637: fnd_log.string
638: (
639: fnd_log.level_statement,
640: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI',
641: 'Final Approval FYI Body : ' || document
642: );
643: END IF;
641: 'Final Approval FYI Body : ' || document
642: );
643: END IF;
644:
645: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
646: fnd_log.string
647: (
648: fnd_log.level_procedure,
649: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI.end',
642: );
643: END IF;
644:
645: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
646: fnd_log.string
647: (
648: fnd_log.level_procedure,
649: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI.end',
650: 'At the end of PLSQL procedure'
644:
645: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
646: fnd_log.string
647: (
648: fnd_log.level_procedure,
649: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI.end',
650: 'At the end of PLSQL procedure'
651: );
652: END IF;
695: l_error_msg VARCHAR2(2000);
696:
697: BEGIN
698:
699: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
700: fnd_log.string
701: (
702: fnd_log.level_procedure,
703: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI.begin',
696:
697: BEGIN
698:
699: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
700: fnd_log.string
701: (
702: fnd_log.level_procedure,
703: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI.begin',
704: 'At the start of PLSQL procedure'
698:
699: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
700: fnd_log.string
701: (
702: fnd_log.level_procedure,
703: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI.begin',
704: 'At the start of PLSQL procedure'
705: );
706: END IF;
720: itemtype => l_item_type
721: ,itemkey => l_item_key
722: ,aname => 'OBJECT_ID'
723: );
724: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
725: fnd_log.string
726: (
727: fnd_log.level_event,
728: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI',
721: ,itemkey => l_item_key
722: ,aname => 'OBJECT_ID'
723: );
724: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
725: fnd_log.string
726: (
727: fnd_log.level_event,
728: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI',
729: 'Sending FYI for Deferral Rejection of unit_deferral_id : ' || l_object_id
723: );
724: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
725: fnd_log.string
726: (
727: fnd_log.level_event,
728: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI',
729: 'Sending FYI for Deferral Rejection of unit_deferral_id : ' || l_object_id
730: );
731: END IF;
746: FND_MESSAGE.SET_TOKEN('APPROVER',l_approver ,false);
747: document := FND_MESSAGE.get;
748: document := document || l_requester_note;
749:
750: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
751: fnd_log.string
752: (
753: fnd_log.level_statement,
754: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI',
747: document := FND_MESSAGE.get;
748: document := document || l_requester_note;
749:
750: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
751: fnd_log.string
752: (
753: fnd_log.level_statement,
754: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI',
755: 'Rejected FYI Body : ' || document
749:
750: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
751: fnd_log.string
752: (
753: fnd_log.level_statement,
754: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI',
755: 'Rejected FYI Body : ' || document
756: );
757: END IF;
755: 'Rejected FYI Body : ' || document
756: );
757: END IF;
758:
759: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
760: fnd_log.string
761: (
762: fnd_log.level_procedure,
763: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI.end',
756: );
757: END IF;
758:
759: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
760: fnd_log.string
761: (
762: fnd_log.level_procedure,
763: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI.end',
764: 'At the end of PLSQL procedure'
758:
759: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
760: fnd_log.string
761: (
762: fnd_log.level_procedure,
763: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI.end',
764: 'At the end of PLSQL procedure'
765: );
766: END IF;
810: l_error_msg VARCHAR2(2000);
811:
812: BEGIN
813:
814: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
815: fnd_log.string
816: (
817: fnd_log.level_procedure,
818: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval.begin',
811:
812: BEGIN
813:
814: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
815: fnd_log.string
816: (
817: fnd_log.level_procedure,
818: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval.begin',
819: 'At the start of PLSQL procedure'
813:
814: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
815: fnd_log.string
816: (
817: fnd_log.level_procedure,
818: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval.begin',
819: 'At the start of PLSQL procedure'
820: );
821: END IF;
835: itemtype => l_item_type
836: ,itemkey => l_item_key
837: ,aname => 'OBJECT_ID'
838: );
839: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
840: fnd_log.string
841: (
842: fnd_log.level_event,
843: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval',
836: ,itemkey => l_item_key
837: ,aname => 'OBJECT_ID'
838: );
839: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
840: fnd_log.string
841: (
842: fnd_log.level_event,
843: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval',
844: 'Sending notfication to approver for unit_deferral_id : ' || l_object_id
838: );
839: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
840: fnd_log.string
841: (
842: fnd_log.level_event,
843: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval',
844: 'Sending notfication to approver for unit_deferral_id : ' || l_object_id
845: );
846: END IF;
861: FND_MESSAGE.SET_TOKEN('REQUESTER',l_requester ,false);
862: document := FND_MESSAGE.get;
863: document := document || l_requester_note;
864:
865: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
866: fnd_log.string
867: (
868: fnd_log.level_statement,
869: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval',
862: document := FND_MESSAGE.get;
863: document := document || l_requester_note;
864:
865: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
866: fnd_log.string
867: (
868: fnd_log.level_statement,
869: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval',
870: 'Approval Body : ' || document
864:
865: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
866: fnd_log.string
867: (
868: fnd_log.level_statement,
869: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval',
870: 'Approval Body : ' || document
871: );
872: END IF;
870: 'Approval Body : ' || document
871: );
872: END IF;
873:
874: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
875: fnd_log.string
876: (
877: fnd_log.level_procedure,
878: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval.end',
871: );
872: END IF;
873:
874: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
875: fnd_log.string
876: (
877: fnd_log.level_procedure,
878: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval.end',
879: 'At the end of PLSQL procedure'
873:
874: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
875: fnd_log.string
876: (
877: fnd_log.level_procedure,
878: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval.end',
879: 'At the end of PLSQL procedure'
880: );
881: END IF;
927:
928:
929:
930: BEGIN
931: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
932: fnd_log.string
933: (
934: fnd_log.level_procedure,
935: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder.begin',
928:
929:
930: BEGIN
931: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
932: fnd_log.string
933: (
934: fnd_log.level_procedure,
935: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder.begin',
936: 'At the start of PLSQL procedure'
930: BEGIN
931: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
932: fnd_log.string
933: (
934: fnd_log.level_procedure,
935: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder.begin',
936: 'At the start of PLSQL procedure'
937: );
938: END IF;
952: itemtype => l_item_type
953: ,itemkey => l_item_key
954: ,aname => 'OBJECT_ID'
955: );
956: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
957: fnd_log.string
958: (
959: fnd_log.level_event,
960: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder',
953: ,itemkey => l_item_key
954: ,aname => 'OBJECT_ID'
955: );
956: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
957: fnd_log.string
958: (
959: fnd_log.level_event,
960: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder',
961: 'Sending reminder to approver for unit_deferral_id : ' || l_object_id
955: );
956: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
957: fnd_log.string
958: (
959: fnd_log.level_event,
960: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder',
961: 'Sending reminder to approver for unit_deferral_id : ' || l_object_id
962: );
963: END IF;
978: FND_MESSAGE.SET_TOKEN('REQUESTER',l_requester ,false);
979: document := FND_MESSAGE.get;
980: document := document || l_requester_note;
981:
982: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
983: fnd_log.string
984: (
985: fnd_log.level_statement,
986: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder',
979: document := FND_MESSAGE.get;
980: document := document || l_requester_note;
981:
982: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
983: fnd_log.string
984: (
985: fnd_log.level_statement,
986: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder',
987: 'Approval Reminder Body : ' || document
981:
982: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
983: fnd_log.string
984: (
985: fnd_log.level_statement,
986: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder',
987: 'Approval Reminder Body : ' || document
988: );
989: END IF;
987: 'Approval Reminder Body : ' || document
988: );
989: END IF;
990:
991: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
992: fnd_log.string
993: (
994: fnd_log.level_procedure,
995: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder.end',
988: );
989: END IF;
990:
991: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
992: fnd_log.string
993: (
994: fnd_log.level_procedure,
995: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder.end',
996: 'At the end of PLSQL procedure'
990:
991: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
992: fnd_log.string
993: (
994: fnd_log.level_procedure,
995: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder.end',
996: 'At the end of PLSQL procedure'
997: );
998: END IF;
1040: l_msg_data VARCHAR2(4000);
1041:
1042: BEGIN
1043:
1044: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1045: fnd_log.string
1046: (
1047: fnd_log.level_procedure,
1048: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act.begin',
1041:
1042: BEGIN
1043:
1044: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1045: fnd_log.string
1046: (
1047: fnd_log.level_procedure,
1048: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act.begin',
1049: 'At the start of PLSQL procedure'
1043:
1044: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1045: fnd_log.string
1046: (
1047: fnd_log.level_procedure,
1048: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act.begin',
1049: 'At the start of PLSQL procedure'
1050: );
1051: END IF;
1066: ,itemkey => l_item_key
1067: ,aname => 'OBJECT_ID'
1068: );
1069:
1070: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
1071: fnd_log.string
1072: (
1073: fnd_log.level_event,
1074: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act',
1067: ,aname => 'OBJECT_ID'
1068: );
1069:
1070: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
1071: fnd_log.string
1072: (
1073: fnd_log.level_event,
1074: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act',
1075: 'Error in approval workflow process for unit_deferral_id : ' || l_object_id
1069:
1070: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
1071: fnd_log.string
1072: (
1073: fnd_log.level_event,
1074: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act',
1075: 'Error in approval workflow process for unit_deferral_id : ' || l_object_id
1076: );
1077: END IF;
1081: ,itemkey => l_item_key
1082: ,aname => 'ERROR_MSG'
1083: );
1084:
1085: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1086: fnd_log.string
1087: (
1088: fnd_log.level_error,
1089: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act',
1082: ,aname => 'ERROR_MSG'
1083: );
1084:
1085: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1086: fnd_log.string
1087: (
1088: fnd_log.level_error,
1089: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act',
1090: 'Error Message : ' || l_error_msg
1084:
1085: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1086: fnd_log.string
1087: (
1088: fnd_log.level_error,
1089: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act',
1090: 'Error Message : ' || l_error_msg
1091: );
1092: END IF;
1100: FND_MESSAGE.SET_TOKEN('ERROR_MSG',l_error_msg ,false);
1101: document := FND_MESSAGE.get;
1102: document := document || l_requester_note;
1103:
1104: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1105: fnd_log.string
1106: (
1107: fnd_log.level_statement,
1108: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act',
1101: document := FND_MESSAGE.get;
1102: document := document || l_requester_note;
1103:
1104: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1105: fnd_log.string
1106: (
1107: fnd_log.level_statement,
1108: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act',
1109: 'Approval Error Body : ' || document
1103:
1104: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1105: fnd_log.string
1106: (
1107: fnd_log.level_statement,
1108: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act',
1109: 'Approval Error Body : ' || document
1110: );
1111: END IF;
1109: 'Approval Error Body : ' || document
1110: );
1111: END IF;
1112:
1113: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1114: fnd_log.string
1115: (
1116: fnd_log.level_procedure,
1117: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act.end',
1110: );
1111: END IF;
1112:
1113: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1114: fnd_log.string
1115: (
1116: fnd_log.level_procedure,
1117: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act.end',
1118: 'At the end of PLSQL procedure'
1112:
1113: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1114: fnd_log.string
1115: (
1116: fnd_log.level_procedure,
1117: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act.end',
1118: 'At the end of PLSQL procedure'
1119: );
1120: END IF;
1159: l_approver_note VARCHAR2(4000);
1160:
1161: BEGIN
1162:
1163: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1164: fnd_log.string
1165: (
1166: fnd_log.level_procedure,
1167: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.begin',
1160:
1161: BEGIN
1162:
1163: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1164: fnd_log.string
1165: (
1166: fnd_log.level_procedure,
1167: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.begin',
1168: 'At the start of PLSQL procedure'
1162:
1163: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1164: fnd_log.string
1165: (
1166: fnd_log.level_procedure,
1167: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.begin',
1168: 'At the start of PLSQL procedure'
1169: );
1170: END IF;
1203: SOURCE_LANG = userenv('LANG')
1204: WHERE unit_deferral_id = l_object_id
1205: AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
1206:
1207: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1208: fnd_log.string
1209: (
1210: fnd_log.level_statement,
1211: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1204: WHERE unit_deferral_id = l_object_id
1205: AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
1206:
1207: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1208: fnd_log.string
1209: (
1210: fnd_log.level_statement,
1211: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1212: 'unit_deferral_id : ' || l_object_id
1206:
1207: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1208: fnd_log.string
1209: (
1210: fnd_log.level_statement,
1211: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1212: 'unit_deferral_id : ' || l_object_id
1213: );
1214: fnd_log.string
1210: fnd_log.level_statement,
1211: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1212: 'unit_deferral_id : ' || l_object_id
1213: );
1214: fnd_log.string
1215: (
1216: fnd_log.level_statement,
1217: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1218: 'object_version_number : ' || l_object_version_number
1212: 'unit_deferral_id : ' || l_object_id
1213: );
1214: fnd_log.string
1215: (
1216: fnd_log.level_statement,
1217: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1218: 'object_version_number : ' || l_object_version_number
1219: );
1220: fnd_log.string
1216: fnd_log.level_statement,
1217: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1218: 'object_version_number : ' || l_object_version_number
1219: );
1220: fnd_log.string
1221: (
1222: fnd_log.level_statement,
1223: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1224: 'approval status : ' || l_approval_status
1218: 'object_version_number : ' || l_object_version_number
1219: );
1220: fnd_log.string
1221: (
1222: fnd_log.level_statement,
1223: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1224: 'approval status : ' || l_approval_status
1225: );
1226:
1252: x_return_status => l_return_status
1253: );
1254: END IF;
1255:
1256: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1257: fnd_log.string
1258: (
1259: fnd_log.level_statement,
1260: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1253: );
1254: END IF;
1255:
1256: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1257: fnd_log.string
1258: (
1259: fnd_log.level_statement,
1260: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1261: 'new status : ' || l_new_status
1255:
1256: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1257: fnd_log.string
1258: (
1259: fnd_log.level_statement,
1260: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1261: 'new status : ' || l_new_status
1262: );
1263: fnd_log.string
1259: fnd_log.level_statement,
1260: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1261: 'new status : ' || l_new_status
1262: );
1263: fnd_log.string
1264: (
1265: fnd_log.level_statement,
1266: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1267: 'return status after process_approval_rejected API call : ' || l_return_status
1261: 'new status : ' || l_new_status
1262: );
1263: fnd_log.string
1264: (
1265: fnd_log.level_statement,
1266: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1267: 'return status after process_approval_rejected API call : ' || l_return_status
1268: );
1269: END IF;
1277: ELSIF (funcmode IN ('CANCEL','TIMEOUT'))THEN
1278: resultout := 'COMPLETE:';
1279: END IF;
1280:
1281: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1282: fnd_log.string
1283: (
1284: fnd_log.level_procedure,
1285: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.end',
1278: resultout := 'COMPLETE:';
1279: END IF;
1280:
1281: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1282: fnd_log.string
1283: (
1284: fnd_log.level_procedure,
1285: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.end',
1286: 'At the end of PLSQL procedure'
1280:
1281: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1282: fnd_log.string
1283: (
1284: fnd_log.level_procedure,
1285: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.end',
1286: 'At the end of PLSQL procedure'
1287: );
1288: END IF;
1295: p_encoded => FND_API.G_FALSE,
1296: p_count => l_msg_count,
1297: p_data => l_msg_data
1298: );
1299: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1300: fnd_log.string
1301: (
1302: fnd_log.level_unexpected,
1303: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
1296: p_count => l_msg_count,
1297: p_data => l_msg_data
1298: );
1299: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1300: fnd_log.string
1301: (
1302: fnd_log.level_unexpected,
1303: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
1304: ' Error Message : l_msg_data : ' || l_msg_data
1298: );
1299: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1300: fnd_log.string
1301: (
1302: fnd_log.level_unexpected,
1303: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
1304: ' Error Message : l_msg_data : ' || l_msg_data
1305: );
1306: END IF;
1313: x_error_msg => l_error_msg
1314: ) ;
1315: wf_core.context(G_PKG_NAME,'Update_Status',itemtype,itemkey,l_error_msg);
1316:
1317: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1318: fnd_log.string
1319: (
1320: fnd_log.level_unexpected,
1321: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
1314: ) ;
1315: wf_core.context(G_PKG_NAME,'Update_Status',itemtype,itemkey,l_error_msg);
1316:
1317: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1318: fnd_log.string
1319: (
1320: fnd_log.level_unexpected,
1321: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
1322: ' Error Message : l_error_msg : ' || l_error_msg
1316:
1317: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1318: fnd_log.string
1319: (
1320: fnd_log.level_unexpected,
1321: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
1322: ' Error Message : l_error_msg : ' || l_error_msg
1323: );
1324: END IF;
1382: l_approver_note VARCHAR2(4000);
1383:
1384: BEGIN
1385: MO_GLOBAL.INIT('AHL');
1386: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1387: fnd_log.string
1388: (
1389: fnd_log.level_procedure,
1390: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status.begin',
1383:
1384: BEGIN
1385: MO_GLOBAL.INIT('AHL');
1386: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1387: fnd_log.string
1388: (
1389: fnd_log.level_procedure,
1390: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status.begin',
1391: 'At the start of PLSQL procedure'
1385: MO_GLOBAL.INIT('AHL');
1386: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1387: fnd_log.string
1388: (
1389: fnd_log.level_procedure,
1390: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status.begin',
1391: 'At the start of PLSQL procedure'
1392: );
1393: END IF;
1415: itemkey => itemkey,
1416: aname => 'APPROVER NOTE'
1417: );
1418:
1419: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1420: fnd_log.string
1421: (
1422: fnd_log.level_statement,
1423: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1416: aname => 'APPROVER NOTE'
1417: );
1418:
1419: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1420: fnd_log.string
1421: (
1422: fnd_log.level_statement,
1423: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1424: 'unit_deferral_id : ' || l_object_id
1418:
1419: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1420: fnd_log.string
1421: (
1422: fnd_log.level_statement,
1423: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1424: 'unit_deferral_id : ' || l_object_id
1425: );
1426: fnd_log.string
1422: fnd_log.level_statement,
1423: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1424: 'unit_deferral_id : ' || l_object_id
1425: );
1426: fnd_log.string
1427: (
1428: fnd_log.level_statement,
1429: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1430: 'object_version_number : ' || l_object_version_number
1424: 'unit_deferral_id : ' || l_object_id
1425: );
1426: fnd_log.string
1427: (
1428: fnd_log.level_statement,
1429: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1430: 'object_version_number : ' || l_object_version_number
1431: );
1432: fnd_log.string
1428: fnd_log.level_statement,
1429: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1430: 'object_version_number : ' || l_object_version_number
1431: );
1432: fnd_log.string
1433: (
1434: fnd_log.level_statement,
1435: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1436: 'Original status : ' || l_orig_status
1430: 'object_version_number : ' || l_object_version_number
1431: );
1432: fnd_log.string
1433: (
1434: fnd_log.level_statement,
1435: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1436: 'Original status : ' || l_orig_status
1437: );
1438:
1443: p_object_version_number => l_object_version_number,
1444: p_new_status => l_orig_status,
1445: x_return_status => l_return_status
1446: );
1447: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1448: fnd_log.string
1449: (
1450: fnd_log.level_statement,
1451: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1444: p_new_status => l_orig_status,
1445: x_return_status => l_return_status
1446: );
1447: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1448: fnd_log.string
1449: (
1450: fnd_log.level_statement,
1451: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1452: 'return status after process_approval_rejected API call : ' || l_return_status
1446: );
1447: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1448: fnd_log.string
1449: (
1450: fnd_log.level_statement,
1451: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1452: 'return status after process_approval_rejected API call : ' || l_return_status
1453: );
1454: END IF;
1462: ELSIF (funcmode IN ('CANCEL','TIMEOUT'))THEN
1463: resultout := 'COMPLETE:';
1464: END IF;
1465:
1466: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1467: fnd_log.string
1468: (
1469: fnd_log.level_procedure,
1470: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status.end',
1463: resultout := 'COMPLETE:';
1464: END IF;
1465:
1466: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1467: fnd_log.string
1468: (
1469: fnd_log.level_procedure,
1470: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status.end',
1471: 'At the end of PLSQL procedure'
1465:
1466: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1467: fnd_log.string
1468: (
1469: fnd_log.level_procedure,
1470: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status.end',
1471: 'At the end of PLSQL procedure'
1472: );
1473: END IF;