52: X_LAST_UPDATE_LOGIN in NUMBER ,
53: X_MIGRATED_FRM_BDGT_TYP_CODE in VARCHAR2 default null,
54: /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
55: */
56: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
57: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
58: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
59: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
60: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
53: X_MIGRATED_FRM_BDGT_TYP_CODE in VARCHAR2 default null,
54: /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
55: */
56: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
57: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
58: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
59: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
60: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
61: is
54: /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
55: */
56: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
57: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
58: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
59: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
60: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
61: is
62:
55: */
56: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
57: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
58: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
59: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
60: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
61: is
62:
63: l_fin_plan_type_id pa_Fin_plan_types_b.fin_plan_type_id%type;
56: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
57: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
58: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
59: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
60: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
61: is
62:
63: l_fin_plan_type_id pa_Fin_plan_types_b.fin_plan_type_id%type;
64:
59: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
60: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
61: is
62:
63: l_fin_plan_type_id pa_Fin_plan_types_b.fin_plan_type_id%type;
64:
65: nc_ROWID ROWID;
66:
67: cursor C is select ROWID from PA_FIN_PLAN_TYPES_B
63: l_fin_plan_type_id pa_Fin_plan_types_b.fin_plan_type_id%type;
64:
65: nc_ROWID ROWID;
66:
67: cursor C is select ROWID from PA_FIN_PLAN_TYPES_B
68: where FIN_PLAN_TYPE_ID = L_FIN_PLAN_TYPE_ID;
69: begin
70: nc_ROWID := X_ROWID;
71:
72: select nvl(X_FIN_PLAN_TYPE_ID,PA_FIN_PLAN_TYPES_S.nextval)
73: into L_FIN_PLAN_TYPE_ID
74: from dual;
75:
76: insert into PA_FIN_PLAN_TYPES_B (
77: FIN_PLAN_TYPE_ID ,
78: FIN_PLAN_TYPE_CODE ,
79: PRE_DEFINED_FLAG ,
80: GENERATED_FLAG ,
276: X_ATTRIBUTE15 in VARCHAR2 default null,
277: X_MIGRATED_FRM_BDGT_TYP_CODE in VARCHAR2 default null,
278: /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
279: */
280: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
281: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
282: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
283: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
284: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
277: X_MIGRATED_FRM_BDGT_TYP_CODE in VARCHAR2 default null,
278: /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
279: */
280: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
281: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
282: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
283: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
284: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
285: is
278: /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
279: */
280: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
281: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
282: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
283: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
284: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
285: is
286: cursor c is select
279: */
280: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
281: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
282: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
283: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
284: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
285: is
286: cursor c is select
287: FIN_PLAN_TYPE_CODE,
280: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
281: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
282: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
283: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
284: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
285: is
286: cursor c is select
287: FIN_PLAN_TYPE_CODE,
288: PRE_DEFINED_FLAG,
292: ENABLE_WF_FLAG,
293: START_DATE_ACTIVE,
294: END_DATE_ACTIVE,
295: RECORD_VERSION_NUMBER
296: from PA_FIN_PLAN_TYPES_B
297: where FIN_PLAN_TYPE_ID = X_FIN_PLAN_TYPE_ID
298: for update of FIN_PLAN_TYPE_ID nowait;
299: recinfo c%rowtype;
300:
425: X_LAST_UPDATE_LOGIN in NUMBER ,
426: X_MIGRATED_FRM_BDGT_TYP_CODE in VARCHAR2 default null,
427: /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
428: */
429: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
430: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
431: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
432: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
433: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
426: X_MIGRATED_FRM_BDGT_TYP_CODE in VARCHAR2 default null,
427: /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
428: */
429: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
430: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
431: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
432: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
433: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
434: is
427: /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
428: */
429: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
430: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
431: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
432: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
433: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
434: is
435: begin
428: */
429: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
430: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
431: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
432: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
433: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
434: is
435: begin
436: update PA_FIN_PLAN_TYPES_B set
429: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
430: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
431: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
432: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
433: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
434: is
435: begin
436: update PA_FIN_PLAN_TYPES_B set
437: FIN_PLAN_TYPE_CODE = X_FIN_PLAN_TYPE_CODE,
432: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
433: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
434: is
435: begin
436: update PA_FIN_PLAN_TYPES_B set
437: FIN_PLAN_TYPE_CODE = X_FIN_PLAN_TYPE_CODE,
438: PRE_DEFINED_FLAG = X_PRE_DEFINED_FLAG,
439: GENERATED_FLAG = X_GENERATED_FLAG,
440: EDIT_GENERATED_AMT_FLAG =
522: if (sql%notfound) then
523: raise no_data_found;
524: end if;
525:
526: delete from PA_FIN_PLAN_TYPES_B
527: where FIN_PLAN_TYPE_ID = X_FIN_PLAN_TYPE_ID;
528:
529: if (sql%notfound) then
530: raise no_data_found;
536: begin
537: delete from PA_FIN_PLAN_TYPES_TL T
538: where not exists
539: (select NULL
540: from PA_FIN_PLAN_TYPES_B B
541: where B.FIN_PLAN_TYPE_ID = T.FIN_PLAN_TYPE_ID
542: );
543:
544: update PA_FIN_PLAN_TYPES_TL T set (
668: X_MIGRATED_FRM_BDGT_TYP_CODE in VARCHAR2 default null ,
669: X_OWNER in VARCHAR2,
670: /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
671: */
672: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
673: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
674: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
675: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
676: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
669: X_OWNER in VARCHAR2,
670: /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
671: */
672: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
673: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
674: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
675: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
676: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
677: is
670: /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
671: */
672: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
673: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
674: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
675: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
676: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
677: is
678:
671: */
672: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
673: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
674: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
675: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
676: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
677: is
678:
679: user_id NUMBER;
672: X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
673: X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
674: X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
675: X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
676: X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
677: is
678:
679: user_id NUMBER;
680: X_ROWID VARCHAR2(64);
677: is
678:
679: user_id NUMBER;
680: X_ROWID VARCHAR2(64);
681: l_wp_plan_type_id pa_fin_plan_types_b.fin_plan_type_id%TYPE; --Bug 5437529.
682: l_use_for_workplan_flag pa_fin_plan_types_b.use_for_workplan_flag%TYPE; --Bug 5437529.
683:
684: begin
685:
678:
679: user_id NUMBER;
680: X_ROWID VARCHAR2(64);
681: l_wp_plan_type_id pa_fin_plan_types_b.fin_plan_type_id%TYPE; --Bug 5437529.
682: l_use_for_workplan_flag pa_fin_plan_types_b.use_for_workplan_flag%TYPE; --Bug 5437529.
683:
684: begin
685:
686: if (X_OWNER = 'SEED')then
698: */
699: BEGIN
700: SELECT fin_plan_type_id
701: INTO l_wp_plan_type_id
702: FROM pa_fin_plan_types_b
703: WHERE use_for_workplan_flag = 'Y';
704: EXCEPTION
705: WHEN NO_DATA_FOUND THEN
706: --The seeded plan type is not yet created in the instance. Assign the id of of the seeded plan