2528: x_msg_data => x_msg_data,
2529: p_clhv_rec => lp_clhv_rec,
2530: x_clhv_rec => x_clhv_rec);
2531:
2532: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2533: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2534: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2535: raise OKC_API.G_EXCEPTION_ERROR;
2536: End If;
2529: p_clhv_rec => lp_clhv_rec,
2530: x_clhv_rec => x_clhv_rec);
2531:
2532: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2533: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2534: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2535: raise OKC_API.G_EXCEPTION_ERROR;
2536: End If;
2537:
2530: x_clhv_rec => x_clhv_rec);
2531:
2532: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2533: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2534: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2535: raise OKC_API.G_EXCEPTION_ERROR;
2536: End If;
2537:
2538: lp_clhv_rec.id := x_clhv_rec.id;
2531:
2532: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2533: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2534: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2535: raise OKC_API.G_EXCEPTION_ERROR;
2536: End If;
2537:
2538: lp_clhv_rec.id := x_clhv_rec.id;
2539:
2651: x_msg_data => x_msg_data,
2652: p_clhv_rec => lp_clhv_rec,
2653: x_clhv_rec => x_clhv_rec);
2654:
2655: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2657: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2658: raise OKC_API.G_EXCEPTION_ERROR;
2659: End If;
2652: p_clhv_rec => lp_clhv_rec,
2653: x_clhv_rec => x_clhv_rec);
2654:
2655: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2657: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2658: raise OKC_API.G_EXCEPTION_ERROR;
2659: End If;
2660:
2653: x_clhv_rec => x_clhv_rec);
2654:
2655: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2657: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2658: raise OKC_API.G_EXCEPTION_ERROR;
2659: End If;
2660:
2661: l_return_status := validate_hdr_attr_aftimg(lp_clhv_rec, G_UPDATE_MODE);
2654:
2655: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2657: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2658: raise OKC_API.G_EXCEPTION_ERROR;
2659: End If;
2660:
2661: l_return_status := validate_hdr_attr_aftimg(lp_clhv_rec, G_UPDATE_MODE);
2662: --- Store the highest degree of error
2762: x_msg_count => x_msg_count,
2763: x_msg_data => x_msg_data,
2764: p_clhv_rec => lp_clhv_rec);
2765:
2766: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2767: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2768: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2769: raise OKC_API.G_EXCEPTION_ERROR;
2770: End If;
2763: x_msg_data => x_msg_data,
2764: p_clhv_rec => lp_clhv_rec);
2765:
2766: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2767: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2768: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2769: raise OKC_API.G_EXCEPTION_ERROR;
2770: End If;
2771:
2764: p_clhv_rec => lp_clhv_rec);
2765:
2766: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2767: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2768: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2769: raise OKC_API.G_EXCEPTION_ERROR;
2770: End If;
2771:
2772: /*** End API body ******************************************************/
2765:
2766: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2767: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2768: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2769: raise OKC_API.G_EXCEPTION_ERROR;
2770: End If;
2771:
2772: /*** End API body ******************************************************/
2773:
2883: x_msg_data => x_msg_data,
2884: p_cldv_tbl => lp_cldv_tbl,
2885: x_cldv_tbl => x_cldv_tbl);
2886:
2887: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2888: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2889: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2890: raise OKC_API.G_EXCEPTION_ERROR;
2891: End If;
2884: p_cldv_tbl => lp_cldv_tbl,
2885: x_cldv_tbl => x_cldv_tbl);
2886:
2887: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2888: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2889: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2890: raise OKC_API.G_EXCEPTION_ERROR;
2891: End If;
2892:
2885: x_cldv_tbl => x_cldv_tbl);
2886:
2887: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2888: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2889: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2890: raise OKC_API.G_EXCEPTION_ERROR;
2891: End If;
2892:
2893: IF (lp_cldv_tbl.COUNT > 0) THEN
2886:
2887: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2888: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2889: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2890: raise OKC_API.G_EXCEPTION_ERROR;
2891: End If;
2892:
2893: IF (lp_cldv_tbl.COUNT > 0) THEN
2894: i := lp_cldv_tbl.FIRST;
3049: x_msg_data => x_msg_data,
3050: p_cldv_tbl => lp_cldv_tbl,
3051: x_cldv_tbl => x_cldv_tbl);
3052:
3053: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3054: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3055: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3056: raise OKC_API.G_EXCEPTION_ERROR;
3057: End If;
3050: p_cldv_tbl => lp_cldv_tbl,
3051: x_cldv_tbl => x_cldv_tbl);
3052:
3053: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3054: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3055: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3056: raise OKC_API.G_EXCEPTION_ERROR;
3057: End If;
3058:
3051: x_cldv_tbl => x_cldv_tbl);
3052:
3053: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3054: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3055: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3056: raise OKC_API.G_EXCEPTION_ERROR;
3057: End If;
3058:
3059: IF (lp_cldv_tbl.COUNT > 0) THEN
3052:
3053: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3054: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3055: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3056: raise OKC_API.G_EXCEPTION_ERROR;
3057: End If;
3058:
3059: IF (lp_cldv_tbl.COUNT > 0) THEN
3060: i := lp_cldv_tbl.FIRST;
3168: x_msg_count => x_msg_count,
3169: x_msg_data => x_msg_data,
3170: p_cldv_tbl => lp_cldv_tbl);
3171:
3172: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3173: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3174: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3175: raise OKC_API.G_EXCEPTION_ERROR;
3176: End If;
3169: x_msg_data => x_msg_data,
3170: p_cldv_tbl => lp_cldv_tbl);
3171:
3172: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3173: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3174: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3175: raise OKC_API.G_EXCEPTION_ERROR;
3176: End If;
3177:
3170: p_cldv_tbl => lp_cldv_tbl);
3171:
3172: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3173: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3174: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3175: raise OKC_API.G_EXCEPTION_ERROR;
3176: End If;
3177:
3178: /*** End API body ******************************************************/
3171:
3172: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3173: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3174: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3175: raise OKC_API.G_EXCEPTION_ERROR;
3176: End If;
3177:
3178: /*** End API body ******************************************************/
3179:
3288: x_msg_count => x_msg_count,
3289: x_msg_data => x_msg_data,
3290: p_clh_id => p_clh_id);
3291:
3292: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3293: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3294: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3295: raise OKC_API.G_EXCEPTION_ERROR;
3296: End If;
3289: x_msg_data => x_msg_data,
3290: p_clh_id => p_clh_id);
3291:
3292: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3293: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3294: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3295: raise OKC_API.G_EXCEPTION_ERROR;
3296: End If;
3297:
3290: p_clh_id => p_clh_id);
3291:
3292: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3293: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3294: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3295: raise OKC_API.G_EXCEPTION_ERROR;
3296: End If;
3297:
3298: -- 2. update status to Active
3291:
3292: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3293: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3294: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3295: raise OKC_API.G_EXCEPTION_ERROR;
3296: End If;
3297:
3298: -- 2. update status to Active
3299: lp_clhv_rec.ID := p_clh_id;
3308: x_msg_data => x_msg_data,
3309: p_clhv_rec => lp_clhv_rec,
3310: x_clhv_rec => lx_clhv_rec);
3311:
3312: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3313: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3314: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3315: raise OKC_API.G_EXCEPTION_ERROR;
3316: End If;
3309: p_clhv_rec => lp_clhv_rec,
3310: x_clhv_rec => lx_clhv_rec);
3311:
3312: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3313: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3314: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3315: raise OKC_API.G_EXCEPTION_ERROR;
3316: End If;
3317:
3310: x_clhv_rec => lx_clhv_rec);
3311:
3312: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3313: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3314: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3315: raise OKC_API.G_EXCEPTION_ERROR;
3316: End If;
3317:
3318: -- 3. Cascade to update all children's status if applicable
3311:
3312: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3313: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3314: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3315: raise OKC_API.G_EXCEPTION_ERROR;
3316: End If;
3317:
3318: -- 3. Cascade to update all children's status if applicable
3319: FOR r_grp IN c_get_children (p_clh_id) LOOP
3330: x_msg_data => x_msg_data,
3331: p_clhv_rec => lp_clhv_rec,
3332: x_clhv_rec => lx_clhv_rec);
3333:
3334: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3335: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3336: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3337: raise OKC_API.G_EXCEPTION_ERROR;
3338: End If;
3331: p_clhv_rec => lp_clhv_rec,
3332: x_clhv_rec => lx_clhv_rec);
3333:
3334: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3335: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3336: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3337: raise OKC_API.G_EXCEPTION_ERROR;
3338: End If;
3339:
3332: x_clhv_rec => lx_clhv_rec);
3333:
3334: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3335: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3336: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3337: raise OKC_API.G_EXCEPTION_ERROR;
3338: End If;
3339:
3340: END LOOP;
3333:
3334: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3335: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3336: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3337: raise OKC_API.G_EXCEPTION_ERROR;
3338: End If;
3339:
3340: END LOOP;
3341:
3460: x_msg_data => x_msg_data,
3461: p_clhv_rec => lp_clhv_rec,
3462: x_clhv_rec => x_clhv_rec);
3463:
3464: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3465: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3466: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3467: raise OKC_API.G_EXCEPTION_ERROR;
3468: End If;
3461: p_clhv_rec => lp_clhv_rec,
3462: x_clhv_rec => x_clhv_rec);
3463:
3464: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3465: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3466: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3467: raise OKC_API.G_EXCEPTION_ERROR;
3468: End If;
3469:
3462: x_clhv_rec => x_clhv_rec);
3463:
3464: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3465: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3466: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3467: raise OKC_API.G_EXCEPTION_ERROR;
3468: End If;
3469:
3470: --dbms_output.put_line('create_checklist_inst_hdr->x_clhv_rec.id :'|| to_char(x_clhv_rec.ID));
3463:
3464: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3465: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3466: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3467: raise OKC_API.G_EXCEPTION_ERROR;
3468: End If;
3469:
3470: --dbms_output.put_line('create_checklist_inst_hdr->x_clhv_rec.id :'|| to_char(x_clhv_rec.ID));
3471:
3569: x_msg_data => x_msg_data,
3570: p_clhv_rec => lp_clhv_rec,
3571: x_clhv_rec => x_clhv_rec);
3572:
3573: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3574: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3575: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3576: raise OKC_API.G_EXCEPTION_ERROR;
3577: End If;
3570: p_clhv_rec => lp_clhv_rec,
3571: x_clhv_rec => x_clhv_rec);
3572:
3573: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3574: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3575: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3576: raise OKC_API.G_EXCEPTION_ERROR;
3577: End If;
3578:
3571: x_clhv_rec => x_clhv_rec);
3572:
3573: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3574: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3575: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3576: raise OKC_API.G_EXCEPTION_ERROR;
3577: End If;
3578:
3579: /*** End API body ******************************************************/
3572:
3573: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3574: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3575: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3576: raise OKC_API.G_EXCEPTION_ERROR;
3577: End If;
3578:
3579: /*** End API body ******************************************************/
3580:
3670: x_msg_count => x_msg_count,
3671: x_msg_data => x_msg_data,
3672: p_clhv_rec => lp_clhv_rec);
3673:
3674: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3675: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3676: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3677: raise OKC_API.G_EXCEPTION_ERROR;
3678: End If;
3671: x_msg_data => x_msg_data,
3672: p_clhv_rec => lp_clhv_rec);
3673:
3674: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3675: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3676: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3677: raise OKC_API.G_EXCEPTION_ERROR;
3678: End If;
3679:
3672: p_clhv_rec => lp_clhv_rec);
3673:
3674: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3675: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3676: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3677: raise OKC_API.G_EXCEPTION_ERROR;
3678: End If;
3679:
3680: /*** End API body ******************************************************/
3673:
3674: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3675: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3676: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3677: raise OKC_API.G_EXCEPTION_ERROR;
3678: End If;
3679:
3680: /*** End API body ******************************************************/
3681:
3835: x_msg_data => x_msg_data,
3836: p_cldv_tbl => lp_cldv_tbl,
3837: x_cldv_tbl => x_cldv_tbl);
3838:
3839: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3840: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3841: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3842: raise OKC_API.G_EXCEPTION_ERROR;
3843: End If;
3836: p_cldv_tbl => lp_cldv_tbl,
3837: x_cldv_tbl => x_cldv_tbl);
3838:
3839: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3840: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3841: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3842: raise OKC_API.G_EXCEPTION_ERROR;
3843: End If;
3844:
3837: x_cldv_tbl => x_cldv_tbl);
3838:
3839: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3840: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3841: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3842: raise OKC_API.G_EXCEPTION_ERROR;
3843: End If;
3844:
3845: /*** End API body ******************************************************/
3838:
3839: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3840: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3841: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3842: raise OKC_API.G_EXCEPTION_ERROR;
3843: End If;
3844:
3845: /*** End API body ******************************************************/
3846:
3942: x_msg_data => x_msg_data,
3943: p_cldv_tbl => lp_cldv_tbl,
3944: x_cldv_tbl => x_cldv_tbl);
3945:
3946: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3947: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3948: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3949: raise OKC_API.G_EXCEPTION_ERROR;
3950: End If;
3943: p_cldv_tbl => lp_cldv_tbl,
3944: x_cldv_tbl => x_cldv_tbl);
3945:
3946: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3947: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3948: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3949: raise OKC_API.G_EXCEPTION_ERROR;
3950: End If;
3951:
3944: x_cldv_tbl => x_cldv_tbl);
3945:
3946: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3947: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3948: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3949: raise OKC_API.G_EXCEPTION_ERROR;
3950: End If;
3951:
3952: /*** End API body ******************************************************/
3945:
3946: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3947: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3948: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3949: raise OKC_API.G_EXCEPTION_ERROR;
3950: End If;
3951:
3952: /*** End API body ******************************************************/
3953:
4044: x_msg_count => x_msg_count,
4045: x_msg_data => x_msg_data,
4046: p_cldv_tbl => lp_cldv_tbl);
4047:
4048: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4049: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4050: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4051: raise OKC_API.G_EXCEPTION_ERROR;
4052: End If;
4045: x_msg_data => x_msg_data,
4046: p_cldv_tbl => lp_cldv_tbl);
4047:
4048: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4049: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4050: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4051: raise OKC_API.G_EXCEPTION_ERROR;
4052: End If;
4053:
4046: p_cldv_tbl => lp_cldv_tbl);
4047:
4048: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4049: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4050: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4051: raise OKC_API.G_EXCEPTION_ERROR;
4052: End If;
4053:
4054: /*** End API body ******************************************************/
4047:
4048: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4049: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4050: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4051: raise OKC_API.G_EXCEPTION_ERROR;
4052: End If;
4053:
4054: /*** End API body ******************************************************/
4055:
4460: x_msg_data => x_msg_data,
4461: p_cldv_rec => lp_cldv_rec,
4462: x_cldv_rec => lx_cldv_rec);
4463:
4464: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4465: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4466: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4467: raise OKC_API.G_EXCEPTION_ERROR;
4468: End If;
4461: p_cldv_rec => lp_cldv_rec,
4462: x_cldv_rec => lx_cldv_rec);
4463:
4464: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4465: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4466: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4467: raise OKC_API.G_EXCEPTION_ERROR;
4468: End If;
4469:
4462: x_cldv_rec => lx_cldv_rec);
4463:
4464: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4465: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4466: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4467: raise OKC_API.G_EXCEPTION_ERROR;
4468: End If;
4469:
4470: END LOOP;
4463:
4464: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4465: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4466: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4467: raise OKC_API.G_EXCEPTION_ERROR;
4468: End If;
4469:
4470: END LOOP;
4471:
4651: x_msg_data => x_msg_data,
4652: p_clhv_rec => lp_clhv_rec,
4653: x_clhv_rec => lx_clhv_rec);
4654:
4655: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4657: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4658: raise OKC_API.G_EXCEPTION_ERROR;
4659: End If;
4652: p_clhv_rec => lp_clhv_rec,
4653: x_clhv_rec => lx_clhv_rec);
4654:
4655: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4657: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4658: raise OKC_API.G_EXCEPTION_ERROR;
4659: End If;
4660:
4653: x_clhv_rec => lx_clhv_rec);
4654:
4655: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4657: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4658: raise OKC_API.G_EXCEPTION_ERROR;
4659: End If;
4660:
4661: --------------------------------------------------------------------
4654:
4655: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4657: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4658: raise OKC_API.G_EXCEPTION_ERROR;
4659: End If;
4660:
4661: --------------------------------------------------------------------
4662: -- Create Checkist details
4683: x_msg_data => x_msg_data,
4684: p_cldv_tbl => lp_cldv_tbl,
4685: x_cldv_tbl => lx_cldv_tbl);
4686:
4687: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4688: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4689: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4690: raise OKC_API.G_EXCEPTION_ERROR;
4691: End If;
4684: p_cldv_tbl => lp_cldv_tbl,
4685: x_cldv_tbl => lx_cldv_tbl);
4686:
4687: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4688: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4689: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4690: raise OKC_API.G_EXCEPTION_ERROR;
4691: End If;
4692:
4685: x_cldv_tbl => lx_cldv_tbl);
4686:
4687: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4688: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4689: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4690: raise OKC_API.G_EXCEPTION_ERROR;
4691: End If;
4692:
4693: END IF;
4686:
4687: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4688: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4689: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
4690: raise OKC_API.G_EXCEPTION_ERROR;
4691: End If;
4692:
4693: END IF;
4694: