29:
30: PROCEDURE set_to_dummy( p_crh_rec OUT NOCOPY ar_cash_receipt_history%ROWTYPE ) IS
31: BEGIN
32: IF PG_DEBUG in ('Y', 'C') THEN
33: arp_standard.debug( 'arp_cr_history_pkg.set_to_dummy()+' );
34: END IF;
35: --
36: p_crh_rec.amount := AR_NUMBER_DUMMY;
37: p_crh_rec.acctd_amount := AR_NUMBER_DUMMY;
75: p_crh_rec.attribute14 := AR_TEXT_DUMMY;
76: p_crh_rec.attribute15 := AR_TEXT_DUMMY;
77: --
78: IF PG_DEBUG in ('Y', 'C') THEN
79: arp_standard.debug( 'arp_cr_history_pkg.set_to_dummy()-' );
80: END IF;
81: --
82: EXCEPTION
83: WHEN OTHERS THEN
81: --
82: EXCEPTION
83: WHEN OTHERS THEN
84: IF PG_DEBUG in ('Y', 'C') THEN
85: arp_standard.debug( 'EXCEPTION: arp_cr_history_pkg.set_to_dummy' );
86: END IF;
87: RAISE;
88: END set_to_dummy;
89: --
92: PROCEDURE update_p( p_crh_rec IN ar_cash_receipt_history%ROWTYPE,
93: p_crh_id IN ar_cash_receipt_history.cash_receipt_history_id%TYPE ) IS
94: BEGIN
95: IF PG_DEBUG in ('Y', 'C') THEN
96: arp_standard.debug( 'arp_cr_history_pkg.update_p()+' );
97: END IF;
98: --
99: UPDATE ar_cash_receipt_history SET
100: amount = DECODE( p_crh_rec.amount,
254: p_key_value => p_crh_rec.cash_receipt_history_id
255: );
256:
257: IF PG_DEBUG in ('Y', 'C') THEN
258: arp_standard.debug( 'arp_cr_history_pkg.update_p()-' );
259: END IF;
260: --
261: EXCEPTION
262: WHEN OTHERS THEN
260: --
261: EXCEPTION
262: WHEN OTHERS THEN
263: IF PG_DEBUG in ('Y', 'C') THEN
264: arp_standard.debug( 'EXCEPTION: arp_cr_history_pkg.update_p' );
265: END IF;
266: RAISE;
267: END update_p;
268: --
272: --
273: l_crh_id ar_cash_receipt_history.cash_receipt_history_id%TYPE;
274: BEGIN
275: IF PG_DEBUG in ('Y', 'C') THEN
276: arp_standard.debug('update_p: ' || 'arp_cr_history_pkg.insert_p()+' );
277: END IF;
278: --
279: SELECT ar_cash_receipt_history_s.nextval
280: INTO l_crh_id
360: p_crh_rec.reversal_cash_receipt_hist_id,
361: p_crh_rec.reversal_gl_date,
362: p_crh_rec.reversal_gl_posted_date,
363: p_crh_rec.reversal_posting_control_id,
364: NVL( arp_standard.profile.request_id, p_crh_rec.request_id ),
365: NVL( arp_standard.profile.program_application_id,
366: p_crh_rec.program_application_id ),
367: NVL( arp_standard.profile.program_id,
368: p_crh_rec.program_id ),
361: p_crh_rec.reversal_gl_date,
362: p_crh_rec.reversal_gl_posted_date,
363: p_crh_rec.reversal_posting_control_id,
364: NVL( arp_standard.profile.request_id, p_crh_rec.request_id ),
365: NVL( arp_standard.profile.program_application_id,
366: p_crh_rec.program_application_id ),
367: NVL( arp_standard.profile.program_id,
368: p_crh_rec.program_id ),
369: DECODE( arp_standard.profile.program_id,
363: p_crh_rec.reversal_posting_control_id,
364: NVL( arp_standard.profile.request_id, p_crh_rec.request_id ),
365: NVL( arp_standard.profile.program_application_id,
366: p_crh_rec.program_application_id ),
367: NVL( arp_standard.profile.program_id,
368: p_crh_rec.program_id ),
369: DECODE( arp_standard.profile.program_id,
370: NULL, NULL,
371: SYSDATE
365: NVL( arp_standard.profile.program_application_id,
366: p_crh_rec.program_application_id ),
367: NVL( arp_standard.profile.program_id,
368: p_crh_rec.program_id ),
369: DECODE( arp_standard.profile.program_id,
370: NULL, NULL,
371: SYSDATE
372: ),
373: arp_global.last_updated_by, /* FP Bug 5715840 arp_standard.profile.user_id,*/
369: DECODE( arp_standard.profile.program_id,
370: NULL, NULL,
371: SYSDATE
372: ),
373: arp_global.last_updated_by, /* FP Bug 5715840 arp_standard.profile.user_id,*/
374: SYSDATE,
375: arp_global.last_updated_by, /* FP Bug 5715840 arp_standard.profile.user_id,*/
376: SYSDATE,
377: NVL( arp_global.last_update_login,
371: SYSDATE
372: ),
373: arp_global.last_updated_by, /* FP Bug 5715840 arp_standard.profile.user_id,*/
374: SYSDATE,
375: arp_global.last_updated_by, /* FP Bug 5715840 arp_standard.profile.user_id,*/
376: SYSDATE,
377: NVL( arp_global.last_update_login,
378: p_crh_rec.last_update_login ),
379: p_crh_rec.prv_stat_cash_receipt_hist_id,
394: p_crh_rec.attribute12,
395: p_crh_rec.attribute13,
396: p_crh_rec.attribute14,
397: p_crh_rec.attribute15
398: ,arp_standard.sysparm.org_id /* SSA changes anuj */
399: );
400: --
401: /*-------------------------------------------+
402: | Call central MRC library for insertion |
411:
412: p_crh_id := l_crh_id;
413: --
414: IF PG_DEBUG in ('Y', 'C') THEN
415: arp_standard.debug('update_p: ' || 'arp_cr_history_pkg.insert_p()-' );
416: END IF;
417: --
418: EXCEPTION
419: WHEN OTHERS THEN
417: --
418: EXCEPTION
419: WHEN OTHERS THEN
420: IF PG_DEBUG in ('Y', 'C') THEN
421: arp_standard.debug('update_p: ' || 'EXCEPTION: arp_cr_history_pkg.insert_p' );
422: END IF;
423: RAISE;
424: END insert_p;
425: --
427: --
428: PROCEDURE update_p( p_crh_rec IN ar_cash_receipt_history%ROWTYPE ) IS
429: BEGIN
430: IF PG_DEBUG in ('Y', 'C') THEN
431: arp_standard.debug( 'arp_cr_history_pkg.update_p()+' );
432: END IF;
433: --
434: UPDATE ar_cash_receipt_history SET
435: amount = p_crh_rec.amount,
459: reversal_gl_date = p_crh_rec.reversal_gl_date,
460: reversal_gl_posted_date = p_crh_rec.reversal_gl_posted_date,
461: reversal_posting_control_id =
462: p_crh_rec.reversal_posting_control_id,
463: request_id = NVL( arp_standard.profile.request_id,
464: p_crh_rec.request_id ),
465: program_application_id =
466: NVL( arp_standard.profile.program_application_id,
467: p_crh_rec.program_application_id ),
462: p_crh_rec.reversal_posting_control_id,
463: request_id = NVL( arp_standard.profile.request_id,
464: p_crh_rec.request_id ),
465: program_application_id =
466: NVL( arp_standard.profile.program_application_id,
467: p_crh_rec.program_application_id ),
468: program_id = NVL( arp_standard.profile.program_id,
469: p_crh_rec.program_id ),
470: program_update_date =
464: p_crh_rec.request_id ),
465: program_application_id =
466: NVL( arp_standard.profile.program_application_id,
467: p_crh_rec.program_application_id ),
468: program_id = NVL( arp_standard.profile.program_id,
469: p_crh_rec.program_id ),
470: program_update_date =
471: DECODE( arp_standard.profile.program_id,
472: NULL, NULL,
467: p_crh_rec.program_application_id ),
468: program_id = NVL( arp_standard.profile.program_id,
469: p_crh_rec.program_id ),
470: program_update_date =
471: DECODE( arp_standard.profile.program_id,
472: NULL, NULL,
473: SYSDATE
474: ),
475: last_updated_by = arp_global.last_updated_by, /* FP Bug 5715840 arp_standard.profile.user_id,*/
471: DECODE( arp_standard.profile.program_id,
472: NULL, NULL,
473: SYSDATE
474: ),
475: last_updated_by = arp_global.last_updated_by, /* FP Bug 5715840 arp_standard.profile.user_id,*/
476: last_update_date = SYSDATE,
477: last_update_login =
478: NVL( arp_global.last_update_login,
479: p_crh_rec.last_update_login ),
514: p_key_value => p_crh_rec.cash_receipt_history_id
515: );
516:
517: IF PG_DEBUG in ('Y', 'C') THEN
518: arp_standard.debug( 'arp_cr_history_pkg.update_p()-' );
519: END IF;
520: --
521: EXCEPTION
522: WHEN OTHERS THEN
520: --
521: EXCEPTION
522: WHEN OTHERS THEN
523: IF PG_DEBUG in ('Y', 'C') THEN
524: arp_standard.debug( 'EXCEPTION: arp_cr_history_pkg.update_p' );
525: END IF;
526: RAISE;
527: END update_p;
528: --
529: PROCEDURE delete_p(
530: p_crh_id IN ar_cash_receipt_history.cash_receipt_history_id%TYPE ) IS
531: BEGIN
532: IF PG_DEBUG in ('Y', 'C') THEN
533: arp_standard.debug( 'arp_cr_history_pkg.delete_p()+' );
534: END IF;
535: --
536: DELETE FROM ar_cash_receipt_history
537: WHERE cash_receipt_history_id = p_crh_id;
548: p_key_value => p_crh_id);
549:
550:
551: IF PG_DEBUG in ('Y', 'C') THEN
552: arp_standard.debug( 'arp_cr_history_pkg.delete_p()-' );
553: END IF;
554: EXCEPTION
555: WHEN OTHERS THEN
556: IF PG_DEBUG in ('Y', 'C') THEN
553: END IF;
554: EXCEPTION
555: WHEN OTHERS THEN
556: IF PG_DEBUG in ('Y', 'C') THEN
557: arp_standard.debug( 'EXCEPTION: arp_cr_history_pkg.delete_p' );
558: END IF;
559: RAISE;
560: END delete_p;
561: --
564:
565: l_rec_hist_key_value_list gl_ca_utility_pkg.r_key_value_arr;
566: BEGIN
567: IF PG_DEBUG in ('Y', 'C') THEN
568: arp_standard.debug( 'arp_cr_history_pkg.delete_p_cr()+' );
569: END IF;
570: --
571: DELETE FROM ar_cash_receipt_history
572: WHERE cash_receipt_id = p_cr_id
585: p_key_value_list => l_rec_hist_key_value_list
586: );
587: --
588: IF PG_DEBUG in ('Y', 'C') THEN
589: arp_standard.debug( 'arp_cr_history_pkg.delete_p_cr()-' );
590: END IF;
591: EXCEPTION
592: WHEN OTHERS THEN
593: IF PG_DEBUG in ('Y', 'C') THEN
590: END IF;
591: EXCEPTION
592: WHEN OTHERS THEN
593: IF PG_DEBUG in ('Y', 'C') THEN
594: arp_standard.debug( 'EXCEPTION: arp_cr_history_pkg.delete_p_cr' );
595: END IF;
596: RAISE;
597: END delete_p_cr;
598: --
600: p_crh_id IN ar_cash_receipt_history.cash_receipt_history_id%TYPE ) IS
601: l_crh_id ar_cash_receipt_history.cash_receipt_history_id%TYPE;
602: BEGIN
603: IF PG_DEBUG in ('Y', 'C') THEN
604: arp_standard.debug( 'arp_cr_history_pkg.lock_p()+' );
605: END IF;
606: --
607: SELECT cash_receipt_history_id
608: INTO l_crh_id
610: WHERE cash_receipt_history_id = p_crh_id
611: FOR UPDATE OF STATUS;
612: --
613: IF PG_DEBUG in ('Y', 'C') THEN
614: arp_standard.debug( 'arp_cr_history_pkg.lock_p()-' );
615: END IF;
616: EXCEPTION
617: WHEN OTHERS THEN
618: IF PG_DEBUG in ('Y', 'C') THEN
615: END IF;
616: EXCEPTION
617: WHEN OTHERS THEN
618: IF PG_DEBUG in ('Y', 'C') THEN
619: arp_standard.debug( 'EXCPETION: arp_cr_history_pkg.lock_p' );
620: END IF;
621: RAISE;
622: END lock_p;
623: --
625: p_crh_id IN ar_cash_receipt_history.cash_receipt_history_id%TYPE ) IS
626: l_crh_id ar_cash_receipt_history.cash_receipt_history_id%TYPE;
627: BEGIN
628: IF PG_DEBUG in ('Y', 'C') THEN
629: arp_standard.debug( 'arp_cr_history_pkg.nowaitlock_p()+' );
630: END IF;
631: --
632: SELECT cash_receipt_history_id
633: INTO l_crh_id
635: WHERE cash_receipt_history_id = p_crh_id
636: FOR UPDATE OF status NOWAIT;
637: --
638: IF PG_DEBUG in ('Y', 'C') THEN
639: arp_standard.debug( 'arp_cr_history_pkg.nowaitlock_p()-' );
640: END IF;
641: EXCEPTION
642: WHEN OTHERS THEN
643: IF PG_DEBUG in ('Y', 'C') THEN
640: END IF;
641: EXCEPTION
642: WHEN OTHERS THEN
643: IF PG_DEBUG in ('Y', 'C') THEN
644: arp_standard.debug( 'EXCPETION: arp_cr_history_pkg.nowaitlock_p' );
645: END IF;
646: RAISE;
647: END nowaitlock_p;
648: --
651: p_crh_rec OUT NOCOPY ar_cash_receipt_history%ROWTYPE ) IS
652: BEGIN
653: --
654: IF PG_DEBUG in ('Y', 'C') THEN
655: arp_standard.debug( 'arp_cr_history_pkg.fetch_p()+' );
656: END IF;
657: --
658: SELECT *
659: INTO p_crh_rec
659: INTO p_crh_rec
660: FROM ar_cash_receipt_history
661: WHERE cash_receipt_history_id = p_crh_id;
662: IF PG_DEBUG in ('Y', 'C') THEN
663: arp_standard.debug( 'arp_cr_history_pkg.fetch_p()-' );
664: END IF;
665: --
666: EXCEPTION
667: WHEN OTHERS THEN
665: --
666: EXCEPTION
667: WHEN OTHERS THEN
668: IF PG_DEBUG in ('Y', 'C') THEN
669: arp_standard.debug( 'EXCEPTION: arp_cr_history_pkg.fetch_p' );
670: END IF;
671: RAISE;
672: END fetch_p;
673: --
675: p_cr_id IN ar_cash_receipts.cash_receipt_id%TYPE,
676: p_crh_rec OUT NOCOPY ar_cash_receipt_history%ROWTYPE ) IS
677: BEGIN
678: IF PG_DEBUG in ('Y', 'C') THEN
679: arp_standard.debug( 'arp_cr_history_pkg.fetch_f_crid()+' );
680: END IF;
681: --
682: SELECT *
683: INTO p_crh_rec
687: FOR UPDATE OF status;
688:
689: --
690: IF PG_DEBUG in ('Y', 'C') THEN
691: arp_standard.debug( 'arp_cr_history_pkg.fetch_f_crid()-' );
692: END IF;
693: --
694: EXCEPTION
695: WHEN OTHERS THEN
693: --
694: EXCEPTION
695: WHEN OTHERS THEN
696: IF PG_DEBUG in ('Y', 'C') THEN
697: arp_standard.debug('fetch_f_crid: ' ||
698: 'EXCEPTION: arp_cr_history_pkg.fetch_f_crid' );
699: END IF;
700: RAISE;
701: END fetch_f_crid;
704: PROCEDURE fetch_f_cr_id(
705: p_crh_rec IN OUT NOCOPY ar_cash_receipt_history%ROWTYPE ) IS
706: BEGIN
707: IF PG_DEBUG in ('Y', 'C') THEN
708: arp_standard.debug( 'arp_cr_history_pkg.fetch_f_cr_id()+' );
709: END IF;
710: --
711: SELECT *
712: INTO p_crh_rec
714: WHERE cash_receipt_id = p_crh_rec.cash_receipt_id AND
715: current_record_flag = 'Y';
716: --
717: IF PG_DEBUG in ('Y', 'C') THEN
718: arp_standard.debug( 'arp_cr_history_pkg.fetch_f_cr_id()-' );
719: END IF;
720: --
721: EXCEPTION
722: WHEN OTHERS THEN
720: --
721: EXCEPTION
722: WHEN OTHERS THEN
723: IF PG_DEBUG in ('Y', 'C') THEN
724: arp_standard.debug('fetch_f_cr_id: ' ||
725: 'EXCEPTION: arp_cr_history_pkg.fetch_f_cr_id' );
726: END IF;
727: RAISE;
728: END fetch_f_cr_id;
731: PROCEDURE lock_fetch_p(
732: p_crh_rec IN OUT NOCOPY ar_cash_receipt_history%ROWTYPE) IS
733: BEGIN
734: IF PG_DEBUG in ('Y', 'C') THEN
735: arp_standard.debug( 'arp_cr_history_pkg.lock_fetch_p()+' );
736: END IF;
737: --
738: SELECT *
739: INTO p_crh_rec
741: WHERE cash_receipt_history_id = p_crh_rec.cash_receipt_history_id
742: FOR UPDATE OF status;
743: --
744: IF PG_DEBUG in ('Y', 'C') THEN
745: arp_standard.debug( 'arp_cr_history_pkg.lock_fetch_p()-' );
746: END IF;
747: --
748: EXCEPTION
749: WHEN OTHERS THEN
747: --
748: EXCEPTION
749: WHEN OTHERS THEN
750: IF PG_DEBUG in ('Y', 'C') THEN
751: arp_standard.debug('lock_fetch_p: ' ||
752: 'EXCEPTION: arp_cr_history_pkg.lock_fetch_p' );
753: END IF;
754: RAISE;
755: END lock_fetch_p;
758: PROCEDURE nowaitlock_fetch_p(
759: p_crh_rec IN OUT NOCOPY ar_cash_receipt_history%ROWTYPE) IS
760: BEGIN
761: IF PG_DEBUG in ('Y', 'C') THEN
762: arp_standard.debug( 'arp_cr_history_pkg.nowaitlock_fetch_p()+' );
763: END IF;
764: --
765: SELECT *
766: INTO p_crh_rec
768: WHERE cash_receipt_history_id = p_crh_rec.cash_receipt_history_id
769: FOR UPDATE OF status NOWAIT;
770: --
771: IF PG_DEBUG in ('Y', 'C') THEN
772: arp_standard.debug( 'arp_cr_history_pkg.nowaitlock_fetch_p()-' );
773: END IF;
774: --
775: EXCEPTION
776: WHEN OTHERS THEN
774: --
775: EXCEPTION
776: WHEN OTHERS THEN
777: IF PG_DEBUG in ('Y', 'C') THEN
778: arp_standard.debug('nowaitlock_fetch_p: ' ||
779: 'EXCEPTION: arp_cr_history_pkg.nowaitlock_fetch_p' );
780: END IF;
781: RAISE;
782: END nowaitlock_fetch_p;
792: FOR UPDATE OF status;
793: --
794: BEGIN
795: IF PG_DEBUG in ('Y', 'C') THEN
796: arp_standard.debug( 'arp_cr_history_pkg.lock_f_batch_id()+' );
797: END IF;
798: --
799: OPEN lock_C;
800: CLOSE lock_C;
799: OPEN lock_C;
800: CLOSE lock_C;
801: --
802: IF PG_DEBUG in ('Y', 'C') THEN
803: arp_standard.debug( 'arp_cr_history_pkg.lock_f_batch_id()-' );
804: END IF;
805: --
806: EXCEPTION
807: WHEN OTHERS THEN
809: CLOSE lock_C;
810: END IF;
811: --
812: IF PG_DEBUG in ('Y', 'C') THEN
813: arp_standard.debug('lock_f_batch_id: ' ||
814: 'EXCEPTION: arp_cr_history_pkg.lock_f_batch_id' );
815: END IF;
816: RAISE;
817: END lock_f_batch_id;
827: FOR UPDATE OF status NOWAIT;
828: --
829: BEGIN
830: IF PG_DEBUG in ('Y', 'C') THEN
831: arp_standard.debug( 'arp_cr_history_pkg.nowaitlock_f_batch_id()+' );
832: END IF;
833: --
834: OPEN lock_C;
835: CLOSE lock_C;
834: OPEN lock_C;
835: CLOSE lock_C;
836: --
837: IF PG_DEBUG in ('Y', 'C') THEN
838: arp_standard.debug( 'arp_cr_history_pkg.nowaitlock_f_batch_id()-' );
839: END IF;
840: --
841: EXCEPTION
842: WHEN OTHERS THEN
844: CLOSE lock_C;
845: END IF;
846: --
847: IF PG_DEBUG in ('Y', 'C') THEN
848: arp_standard.debug('nowaitlock_f_batch_id: ' ||
849: 'EXCEPTION: arp_cr_history_pkg.nowaitlock_f_batch_id' );
850: END IF;
851: RAISE;
852: END nowaitlock_f_batch_id;
862: FOR UPDATE OF status;
863: --
864: BEGIN
865: IF PG_DEBUG in ('Y', 'C') THEN
866: arp_standard.debug( 'arp_cr_history_pkg.lock_f_cr_id()+' );
867: END IF;
868: --
869: OPEN lock_C;
870: CLOSE lock_C;
869: OPEN lock_C;
870: CLOSE lock_C;
871: --
872: IF PG_DEBUG in ('Y', 'C') THEN
873: arp_standard.debug( 'arp_cr_history_pkg.lock_f_cr_id()-' );
874: END IF;
875: --
876: EXCEPTION
877: WHEN OTHERS THEN
879: CLOSE lock_C;
880: END IF;
881: --
882: IF PG_DEBUG in ('Y', 'C') THEN
883: arp_standard.debug('lock_f_cr_id: ' ||
884: 'EXCEPTION: arp_cr_history_pkg.lock_f_cr_id' );
885: END IF;
886: RAISE;
887: END lock_f_cr_id;
897: FOR UPDATE OF status NOWAIT;
898: --
899: BEGIN
900: IF PG_DEBUG in ('Y', 'C') THEN
901: arp_standard.debug( 'arp_cr_history_pkg.nowaitlock_f_cr_id()+' );
902: END IF;
903: --
904: OPEN lock_C;
905: CLOSE lock_C;
904: OPEN lock_C;
905: CLOSE lock_C;
906: --
907: IF PG_DEBUG in ('Y', 'C') THEN
908: arp_standard.debug( 'arp_cr_history_pkg.nowaitlock_f_cr_id()-' );
909: END IF;
910: --
911: EXCEPTION
912: WHEN OTHERS THEN
914: CLOSE lock_C;
915: END IF;
916: --
917: IF PG_DEBUG in ('Y', 'C') THEN
918: arp_standard.debug('nowaitlock_f_cr_id: ' ||
919: 'EXCEPTION: arp_cr_history_pkg.nowaitlock_f_cr_id' );
920: END IF;
921: RAISE;
922: END nowaitlock_f_cr_id;
924: PROCEDURE lock_fetch_f_cr_id(
925: p_crh_rec IN OUT NOCOPY ar_cash_receipt_history%ROWTYPE) IS
926: BEGIN
927: IF PG_DEBUG in ('Y', 'C') THEN
928: arp_standard.debug( 'arp_cr_history_pkg.lock_fetch_f_cr_id()+' );
929: END IF;
930: --
931: SELECT *
932: INTO p_crh_rec
935: AND current_record_flag = 'Y'
936: FOR UPDATE OF status;
937: --
938: IF PG_DEBUG in ('Y', 'C') THEN
939: arp_standard.debug( 'arp_cr_history_pkg.lock_fetch_f_cr_id()-' );
940: END IF;
941: --
942: EXCEPTION
943: WHEN OTHERS THEN
941: --
942: EXCEPTION
943: WHEN OTHERS THEN
944: IF PG_DEBUG in ('Y', 'C') THEN
945: arp_standard.debug('lock_fetch_f_cr_id: ' ||
946: 'EXCEPTION: arp_cr_history_pkg.lock_fetch_f_cr_id' );
947: END IF;
948: RAISE;
949: END lock_fetch_f_cr_id;
952: PROCEDURE nowaitlock_fetch_f_cr_id(
953: p_crh_rec IN OUT NOCOPY ar_cash_receipt_history%ROWTYPE) IS
954: BEGIN
955: IF PG_DEBUG in ('Y', 'C') THEN
956: arp_standard.debug( 'arp_cr_history_pkg.nowaitlock_fetch_f_cr_id()+' );
957: END IF;
958: --
959: SELECT *
960: INTO p_crh_rec
963: AND current_record_flag = 'Y'
964: FOR UPDATE OF status NOWAIT;
965: --
966: IF PG_DEBUG in ('Y', 'C') THEN
967: arp_standard.debug( 'arp_cr_history_pkg.nowaitlock_fetch_f_cr_id()-' );
968: END IF;
969: --
970: EXCEPTION
971: WHEN OTHERS THEN
969: --
970: EXCEPTION
971: WHEN OTHERS THEN
972: IF PG_DEBUG in ('Y', 'C') THEN
973: arp_standard.debug('nowaitlock_fetch_f_cr_id: ' ||
974: 'EXCEPTION: arp_cr_history_pkg.nowaitlock_fetch_f_cr_id' );
975: END IF;
976: RAISE;
977: END nowaitlock_fetch_f_cr_id;