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;
1168: l_df_schedules_tbl AHL_PRD_DF_PVT.df_schedules_tbl_type;
1169:
1170: BEGIN
1171:
1172: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1173: fnd_log.string
1174: (
1175: fnd_log.level_procedure,
1176: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.begin',
1169:
1170: BEGIN
1171:
1172: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1173: fnd_log.string
1174: (
1175: fnd_log.level_procedure,
1176: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.begin',
1177: 'At the start of PLSQL procedure'
1171:
1172: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1173: fnd_log.string
1174: (
1175: fnd_log.level_procedure,
1176: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.begin',
1177: 'At the start of PLSQL procedure'
1178: );
1179: END IF;
1212: SOURCE_LANG = userenv('LANG')
1213: WHERE unit_deferral_id = l_object_id
1214: AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
1215:
1216: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1217: fnd_log.string
1218: (
1219: fnd_log.level_statement,
1220: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1213: WHERE unit_deferral_id = l_object_id
1214: AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
1215:
1216: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1217: fnd_log.string
1218: (
1219: fnd_log.level_statement,
1220: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1221: 'unit_deferral_id : ' || l_object_id
1215:
1216: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1217: fnd_log.string
1218: (
1219: fnd_log.level_statement,
1220: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1221: 'unit_deferral_id : ' || l_object_id
1222: );
1223: fnd_log.string
1219: fnd_log.level_statement,
1220: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1221: 'unit_deferral_id : ' || l_object_id
1222: );
1223: fnd_log.string
1224: (
1225: fnd_log.level_statement,
1226: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1227: 'object_version_number : ' || l_object_version_number
1221: 'unit_deferral_id : ' || l_object_id
1222: );
1223: fnd_log.string
1224: (
1225: fnd_log.level_statement,
1226: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1227: 'object_version_number : ' || l_object_version_number
1228: );
1229: fnd_log.string
1225: fnd_log.level_statement,
1226: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1227: 'object_version_number : ' || l_object_version_number
1228: );
1229: fnd_log.string
1230: (
1231: fnd_log.level_statement,
1232: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1233: 'approval status : ' || l_approval_status
1227: 'object_version_number : ' || l_object_version_number
1228: );
1229: fnd_log.string
1230: (
1231: fnd_log.level_statement,
1232: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1233: 'approval status : ' || l_approval_status
1234: );
1235:
1324: x_return_status => l_return_status
1325: );
1326: END IF;
1327:
1328: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1329: fnd_log.string
1330: (
1331: fnd_log.level_statement,
1332: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1325: );
1326: END IF;
1327:
1328: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1329: fnd_log.string
1330: (
1331: fnd_log.level_statement,
1332: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1333: 'new status : ' || l_new_status
1327:
1328: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1329: fnd_log.string
1330: (
1331: fnd_log.level_statement,
1332: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1333: 'new status : ' || l_new_status
1334: );
1335: fnd_log.string
1331: fnd_log.level_statement,
1332: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1333: 'new status : ' || l_new_status
1334: );
1335: fnd_log.string
1336: (
1337: fnd_log.level_statement,
1338: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1339: 'return status after process_approval_rejected API call : ' || l_return_status
1333: 'new status : ' || l_new_status
1334: );
1335: fnd_log.string
1336: (
1337: fnd_log.level_statement,
1338: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1339: 'return status after process_approval_rejected API call : ' || l_return_status
1340: );
1341: END IF;
1349: ELSIF (funcmode IN ('CANCEL','TIMEOUT'))THEN
1350: resultout := 'COMPLETE:';
1351: END IF;
1352:
1353: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1354: fnd_log.string
1355: (
1356: fnd_log.level_procedure,
1357: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.end',
1350: resultout := 'COMPLETE:';
1351: END IF;
1352:
1353: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1354: fnd_log.string
1355: (
1356: fnd_log.level_procedure,
1357: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.end',
1358: 'At the end of PLSQL procedure'
1352:
1353: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1354: fnd_log.string
1355: (
1356: fnd_log.level_procedure,
1357: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.end',
1358: 'At the end of PLSQL procedure'
1359: );
1360: END IF;
1367: p_encoded => FND_API.G_FALSE,
1368: p_count => l_msg_count,
1369: p_data => l_msg_data
1370: );
1371: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1372: fnd_log.string
1373: (
1374: fnd_log.level_unexpected,
1375: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
1368: p_count => l_msg_count,
1369: p_data => l_msg_data
1370: );
1371: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1372: fnd_log.string
1373: (
1374: fnd_log.level_unexpected,
1375: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
1376: ' Error Message : l_msg_data : ' || l_msg_data
1370: );
1371: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1372: fnd_log.string
1373: (
1374: fnd_log.level_unexpected,
1375: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
1376: ' Error Message : l_msg_data : ' || l_msg_data
1377: );
1378: END IF;
1385: x_error_msg => l_error_msg
1386: ) ;
1387: wf_core.context(G_PKG_NAME,'Update_Status',itemtype,itemkey,l_error_msg);
1388:
1389: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1390: fnd_log.string
1391: (
1392: fnd_log.level_unexpected,
1393: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
1386: ) ;
1387: wf_core.context(G_PKG_NAME,'Update_Status',itemtype,itemkey,l_error_msg);
1388:
1389: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1390: fnd_log.string
1391: (
1392: fnd_log.level_unexpected,
1393: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
1394: ' Error Message : l_error_msg : ' || l_error_msg
1388:
1389: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1390: fnd_log.string
1391: (
1392: fnd_log.level_unexpected,
1393: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
1394: ' Error Message : l_error_msg : ' || l_error_msg
1395: );
1396: END IF;
1454: l_approver_note VARCHAR2(4000);
1455:
1456: BEGIN
1457: MO_GLOBAL.INIT('AHL');
1458: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1459: fnd_log.string
1460: (
1461: fnd_log.level_procedure,
1462: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status.begin',
1455:
1456: BEGIN
1457: MO_GLOBAL.INIT('AHL');
1458: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1459: fnd_log.string
1460: (
1461: fnd_log.level_procedure,
1462: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status.begin',
1463: 'At the start of PLSQL procedure'
1457: MO_GLOBAL.INIT('AHL');
1458: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1459: fnd_log.string
1460: (
1461: fnd_log.level_procedure,
1462: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status.begin',
1463: 'At the start of PLSQL procedure'
1464: );
1465: END IF;
1487: itemkey => itemkey,
1488: aname => 'APPROVER NOTE'
1489: );
1490:
1491: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1492: fnd_log.string
1493: (
1494: fnd_log.level_statement,
1495: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1488: aname => 'APPROVER NOTE'
1489: );
1490:
1491: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1492: fnd_log.string
1493: (
1494: fnd_log.level_statement,
1495: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1496: 'unit_deferral_id : ' || l_object_id
1490:
1491: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1492: fnd_log.string
1493: (
1494: fnd_log.level_statement,
1495: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1496: 'unit_deferral_id : ' || l_object_id
1497: );
1498: fnd_log.string
1494: fnd_log.level_statement,
1495: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1496: 'unit_deferral_id : ' || l_object_id
1497: );
1498: fnd_log.string
1499: (
1500: fnd_log.level_statement,
1501: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1502: 'object_version_number : ' || l_object_version_number
1496: 'unit_deferral_id : ' || l_object_id
1497: );
1498: fnd_log.string
1499: (
1500: fnd_log.level_statement,
1501: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1502: 'object_version_number : ' || l_object_version_number
1503: );
1504: fnd_log.string
1500: fnd_log.level_statement,
1501: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1502: 'object_version_number : ' || l_object_version_number
1503: );
1504: fnd_log.string
1505: (
1506: fnd_log.level_statement,
1507: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1508: 'Original status : ' || l_orig_status
1502: 'object_version_number : ' || l_object_version_number
1503: );
1504: fnd_log.string
1505: (
1506: fnd_log.level_statement,
1507: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1508: 'Original status : ' || l_orig_status
1509: );
1510:
1515: p_object_version_number => l_object_version_number,
1516: p_new_status => l_orig_status,
1517: x_return_status => l_return_status
1518: );
1519: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1520: fnd_log.string
1521: (
1522: fnd_log.level_statement,
1523: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1516: p_new_status => l_orig_status,
1517: x_return_status => l_return_status
1518: );
1519: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1520: fnd_log.string
1521: (
1522: fnd_log.level_statement,
1523: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1524: 'return status after process_approval_rejected API call : ' || l_return_status
1518: );
1519: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1520: fnd_log.string
1521: (
1522: fnd_log.level_statement,
1523: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1524: 'return status after process_approval_rejected API call : ' || l_return_status
1525: );
1526: END IF;
1534: ELSIF (funcmode IN ('CANCEL','TIMEOUT'))THEN
1535: resultout := 'COMPLETE:';
1536: END IF;
1537:
1538: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1539: fnd_log.string
1540: (
1541: fnd_log.level_procedure,
1542: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status.end',
1535: resultout := 'COMPLETE:';
1536: END IF;
1537:
1538: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1539: fnd_log.string
1540: (
1541: fnd_log.level_procedure,
1542: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status.end',
1543: 'At the end of PLSQL procedure'
1537:
1538: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1539: fnd_log.string
1540: (
1541: fnd_log.level_procedure,
1542: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status.end',
1543: 'At the end of PLSQL procedure'
1544: );
1545: END IF;