2902: j NUMBER;
2903: k NUMBER;
2904: x_scale_factor number;
2905: x_return_status VARCHAR2 (80);
2906: l_scale_tab gmd_common_scale.scale_tab;
2907: x_scale_tab gmd_common_scale.scale_tab;
2908: empty_scale_tab gmd_common_scale.scale_tab;
2909:
2910: cursor cur_get_batch
2903: k NUMBER;
2904: x_scale_factor number;
2905: x_return_status VARCHAR2 (80);
2906: l_scale_tab gmd_common_scale.scale_tab;
2907: x_scale_tab gmd_common_scale.scale_tab;
2908: empty_scale_tab gmd_common_scale.scale_tab;
2909:
2910: cursor cur_get_batch
2911: is
2904: x_scale_factor number;
2905: x_return_status VARCHAR2 (80);
2906: l_scale_tab gmd_common_scale.scale_tab;
2907: x_scale_tab gmd_common_scale.scale_tab;
2908: empty_scale_tab gmd_common_scale.scale_tab;
2909:
2910: cursor cur_get_batch
2911: is
2912: select
2973: dtl_tab dtl_type;
2974: temp_dtl cur_get_mtl%ROWTYPE;
2975: l_scale_qty number;
2976:
2977: gmd_common_scale_error EXCEPTION;
2978:
2979: BEGIN
2980:
2981: l_proc_name := 'OPI_DBI_JOB_TXN_STG_PKG.GET_OPI_SCALED_MTL_INIT';
3023: x_scale_factor := 1;
3024: --}
3025: end if;
3026:
3027: if l_scale_tab(i).scale_type <> 0 then -- call gmd_common_scale.sale only if ing is scalable
3028: --{
3029: gmd_common_scale.scale( p_scale_tab => l_scale_tab
3030: ,p_orgn_id => l_org_id
3031: ,p_scale_factor => x_scale_factor
3025: end if;
3026:
3027: if l_scale_tab(i).scale_type <> 0 then -- call gmd_common_scale.sale only if ing is scalable
3028: --{
3029: gmd_common_scale.scale( p_scale_tab => l_scale_tab
3030: ,p_orgn_id => l_org_id
3031: ,p_scale_factor => x_scale_factor
3032: ,p_primaries => 'OUTPUT'
3033: ,x_scale_tab => x_scale_tab
3035:
3036: if x_return_status = 'S' then
3037: l_scale_qty := x_scale_tab(i).qty;
3038: else
3039: raise gmd_common_scale_error;
3040: end if;
3041:
3042: --}
3043: else -- ingredient is not scalable, just return planned qty not scaled
3112: BIS_COLLECTION_UTILITIES.PUT_LINE('Exiting Procedure '|| l_proc_name);
3113:
3114:
3115: EXCEPTION
3116: WHEN gmd_common_scale_error THEN
3117: rollback;
3118: BIS_COLLECTION_UTILITIES.PUT_LINE('Error: gmd_common_scale.scale completed with error status at statement' || l_stmt_num);
3119:
3120: WHEN OTHERS THEN
3114:
3115: EXCEPTION
3116: WHEN gmd_common_scale_error THEN
3117: rollback;
3118: BIS_COLLECTION_UTILITIES.PUT_LINE('Error: gmd_common_scale.scale completed with error status at statement' || l_stmt_num);
3119:
3120: WHEN OTHERS THEN
3121: rollback;
3122: BIS_COLLECTION_UTILITIES.PUT_LINE (err_mesg (SQLERRM, l_proc_name,l_stmt_num));
3155: j NUMBER;
3156: k NUMBER;
3157: x_scale_factor number;
3158: x_return_status VARCHAR2 (80);
3159: l_scale_tab gmd_common_scale.scale_tab;
3160: x_scale_tab gmd_common_scale.scale_tab;
3161: empty_scale_tab gmd_common_scale.scale_tab;
3162:
3163: cursor cur_get_batch
3156: k NUMBER;
3157: x_scale_factor number;
3158: x_return_status VARCHAR2 (80);
3159: l_scale_tab gmd_common_scale.scale_tab;
3160: x_scale_tab gmd_common_scale.scale_tab;
3161: empty_scale_tab gmd_common_scale.scale_tab;
3162:
3163: cursor cur_get_batch
3164: is
3157: x_scale_factor number;
3158: x_return_status VARCHAR2 (80);
3159: l_scale_tab gmd_common_scale.scale_tab;
3160: x_scale_tab gmd_common_scale.scale_tab;
3161: empty_scale_tab gmd_common_scale.scale_tab;
3162:
3163: cursor cur_get_batch
3164: is
3165: select
3226: dtl_tab dtl_type;
3227: temp_dtl cur_get_mtl%ROWTYPE;
3228: l_scale_qty number;
3229:
3230: gmd_common_scale_error EXCEPTION;
3231:
3232:
3233: BEGIN
3234:
3277: x_scale_factor := 1;
3278: --}
3279: end if;
3280:
3281: if l_scale_tab(i).scale_type <> 0 then -- call gmd_common_scale.sale only if ing is scalable
3282: --{
3283: gmd_common_scale.scale( p_scale_tab => l_scale_tab
3284: ,p_orgn_id => l_org_id
3285: ,p_scale_factor => x_scale_factor
3279: end if;
3280:
3281: if l_scale_tab(i).scale_type <> 0 then -- call gmd_common_scale.sale only if ing is scalable
3282: --{
3283: gmd_common_scale.scale( p_scale_tab => l_scale_tab
3284: ,p_orgn_id => l_org_id
3285: ,p_scale_factor => x_scale_factor
3286: ,p_primaries => 'OUTPUT'
3287: ,x_scale_tab => x_scale_tab
3289:
3290: if x_return_status = 'S' then
3291: l_scale_qty := x_scale_tab(i).qty;
3292: else
3293: raise gmd_common_scale_error;
3294: end if;
3295:
3296: --}
3297: else -- ingredient is not scalable, just return planned qty not scaled
3366:
3367:
3368: EXCEPTION
3369:
3370: WHEN gmd_common_scale_error THEN
3371: rollback;
3372: BIS_COLLECTION_UTILITIES.PUT_LINE('Error: gmd_common_scale.scale completed with error status at statement' || l_stmt_num);
3373:
3374: WHEN OTHERS THEN
3368: EXCEPTION
3369:
3370: WHEN gmd_common_scale_error THEN
3371: rollback;
3372: BIS_COLLECTION_UTILITIES.PUT_LINE('Error: gmd_common_scale.scale completed with error status at statement' || l_stmt_num);
3373:
3374: WHEN OTHERS THEN
3375: rollback;
3376: BIS_COLLECTION_UTILITIES.PUT_LINE (err_mesg (SQLERRM, l_proc_name,l_stmt_num));