63: p_icr_rec IN ar_interim_cash_receipts%ROWTYPE ) IS
64: l_cr_id ar_interim_cash_receipts.cash_receipt_id%TYPE;
65: l_row_id VARCHAR2( 20 );
66: BEGIN
67: arp_standard.debug( 'arp_cr_icr_pkg.insert_p()+' );
68: --
69: arp_cr_icr_pkg.insert_p( p_icr_rec, l_cr_id );
70: --
71: SELECT ROWID
75: --
76: p_cr_id := l_cr_id;
77: p_row_id := l_row_id;
78: --
79: arp_standard.debug( 'arp_cr_icr_pkg.insert_p()-' );
80: --
81: EXCEPTION
82: WHEN OTHERS THEN
83: arp_standard.debug( 'EXCEPTION: arp_cr_icr_pkg.insert_p' );
79: arp_standard.debug( 'arp_cr_icr_pkg.insert_p()-' );
80: --
81: EXCEPTION
82: WHEN OTHERS THEN
83: arp_standard.debug( 'EXCEPTION: arp_cr_icr_pkg.insert_p' );
84: RAISE;
85: END;
86:
87: /*===========================================================================+
117: PROCEDURE insert_p( p_icr_rec IN ar_interim_cash_receipts%ROWTYPE,
118: p_icr_id OUT NOCOPY ar_interim_cash_receipts.cash_receipt_id%TYPE ) IS
119: l_icr_id ar_interim_cash_receipts.cash_receipt_id%TYPE;
120: BEGIN
121: arp_standard.debug( '>>>>>>>> arp_cr_icr_pkg.insert_p' );
122: --
123: SELECT ar_cash_receipts_s.nextval
124: INTO l_icr_id
125: FROM dual;
247: p_icr_rec.application_notes,
248: p_icr_rec.application_ref_type,
249: p_icr_rec.customer_reference,
250: p_icr_rec.customer_reason,
251: arp_standard.sysparm.org_id
252: );
253: p_icr_id := l_icr_id;
254: --
255: arp_standard.debug( '<<<<<<<< arp_cr_icr_pkg.insert_p' );
251: arp_standard.sysparm.org_id
252: );
253: p_icr_id := l_icr_id;
254: --
255: arp_standard.debug( '<<<<<<<< arp_cr_icr_pkg.insert_p' );
256: EXCEPTION
257: WHEN OTHERS THEN
258: arp_standard.debug( 'EXCEPTION: arp_cr_icr_pkg.insert_p' );
259: RAISE;
254: --
255: arp_standard.debug( '<<<<<<<< arp_cr_icr_pkg.insert_p' );
256: EXCEPTION
257: WHEN OTHERS THEN
258: arp_standard.debug( 'EXCEPTION: arp_cr_icr_pkg.insert_p' );
259: RAISE;
260: END;
261: --
262: /*===========================================================================+
288: --
289: PROCEDURE construct_icr_update_stmt( update_text OUT NOCOPY varchar2) IS
290: --
291: BEGIN
292: arp_standard.debug('arp_cr_icr_pkg.construct_icr_update_stmt()+');
293: --
294: update_text :=
295: 'update ar_interim_cash_receipts
296: SET amount =
513: :customer_reason)
514:
515: ';
516: --
517: arp_standard.debug('arp_cr_icr_pkg.construct_icr_update_stmt()-');
518: --
519: EXCEPTION
520: WHEN OTHERS THEN
521: arp_standard.debug('EXCEPTION: arp_cr_icr_pkg .construct_icr_update_stmt()');
517: arp_standard.debug('arp_cr_icr_pkg.construct_icr_update_stmt()-');
518: --
519: EXCEPTION
520: WHEN OTHERS THEN
521: arp_standard.debug('EXCEPTION: arp_cr_icr_pkg .construct_icr_update_stmt()');
522: RAISE;
523: --
524: END;
525: --
555: IS
556: --
557: BEGIN
558: --
559: arp_standard.debug('arp_cr_icr_pkg.bind_icr_variables()+');
560: --
561: --
562: /*------------------+
563: | Dummy constants |
573: AR_NUMBER_DUMMY);
574: --
575: dbms_sql.bind_variable(p_update_cursor, ':ar_date_dummy',
576: AR_DATE_DUMMY);
577: arp_standard.debug('after duummy');
578: --
579: /*------------------+
580: | WHO variables |
581: +------------------*/
599: pg_last_update_date);
600: --
601: dbms_sql.bind_variable(p_update_cursor, ':pg_last_update_login',
602: pg_last_update_login);
603: arp_standard.debug('after who');
604: /*----------------------------------------------+
605: | Bind variables for all columns in the table |
606: +----------------------------------------------*/
607: --
758: dbms_sql.bind_variable(p_update_cursor, ':customer_reason',
759: p_icr_rec.customer_reason);
760: --
761:
762: arp_standard.debug('arp_cr_icr_pkg.bind_icr_variables()-');
763: --
764: EXCEPTION
765: WHEN OTHERS THEN
766: arp_standard.debug('EXCEPTION: arp_cr_icr_pkg.bind_icr_variables()');
762: arp_standard.debug('arp_cr_icr_pkg.bind_icr_variables()-');
763: --
764: EXCEPTION
765: WHEN OTHERS THEN
766: arp_standard.debug('EXCEPTION: arp_cr_icr_pkg.bind_icr_variables()');
767: arp_standard.debug('Error at character: ' ||
768: to_char(dbms_sql.last_error_position));
769:
770: RAISE;
763: --
764: EXCEPTION
765: WHEN OTHERS THEN
766: arp_standard.debug('EXCEPTION: arp_cr_icr_pkg.bind_icr_variables()');
767: arp_standard.debug('Error at character: ' ||
768: to_char(dbms_sql.last_error_position));
769:
770: RAISE;
771: --
782: l_count number;
783: l_update_statement varchar2(20000);
784: --
785: BEGIN
786: arp_standard.debug('arp_cr_icr_pkg.generic_update()+');
787: --
788: /*--------------------------------------------------------------+
789: | If this update statement has not already been parsed, |
790: | construct the statement and parse it. |
804: arp_cr_icr_pkg.construct_icr_update_stmt(l_update_statement);
805: --
806: l_update_statement := l_update_statement || p_where_clause;
807: --
808: arp_standard.debug('after l_update_statement');
809: /*-----------------------------------------------+
810: | Parse, bind, execute and close the statement |
811: +-----------------------------------------------*/
812: --
813: dbms_sql.parse(p_update_cursor,
814: l_update_statement,
815: dbms_sql.v7);
816: --
817: arp_standard.debug('after dbms_sql');
818:
819: end if;
820: --
821: arp_cr_icr_pkg.bind_icr_variables(p_update_cursor, p_icr_rec);
820: --
821: arp_cr_icr_pkg.bind_icr_variables(p_update_cursor, p_icr_rec);
822: --
823: --
824: arp_standard.debug('after .bind_app');
825: /*-----------------------------------------+
826: | Bind the variables in the where clause |
827: +-----------------------------------------*/
828: --
830: then
831: dbms_sql.bind_variable(p_update_cursor, ':where_1',
832: p_where1);
833: end if;
834: arp_standard.debug('after bind_variable ');
835: --
836: l_count := dbms_sql.execute(p_update_cursor);
837: --
838: arp_standard.debug( to_char(l_count) || ' rows updated');
834: arp_standard.debug('after bind_variable ');
835: --
836: l_count := dbms_sql.execute(p_update_cursor);
837: --
838: arp_standard.debug( to_char(l_count) || ' rows updated');
839: --
840: --
841: /*------------------------------------------------------------+
842: | Raise the NO_DATA_FOUND exception if no rows were updated |
843: +------------------------------------------------------------*/
844: --
845: if (l_count = 0)
846: then raise NO_DATA_FOUND;
847: arp_standard.debug('after l_count = 0');
848: end if;
849: --
850: --
851: arp_standard.debug('arp_cr_icr_pkg.generic_update()-');
847: arp_standard.debug('after l_count = 0');
848: end if;
849: --
850: --
851: arp_standard.debug('arp_cr_icr_pkg.generic_update()-');
852: --
853: EXCEPTION
854: WHEN OTHERS THEN
855: arp_standard.debug('EXCEPTION: arp_cr_icr_pkg.generic_update()
851: arp_standard.debug('arp_cr_icr_pkg.generic_update()-');
852: --
853: EXCEPTION
854: WHEN OTHERS THEN
855: arp_standard.debug('EXCEPTION: arp_cr_icr_pkg.generic_update()
856: ');
857: arp_standard.debug(l_update_statement);
858: arp_standard.debug('Error at character: ' ||
859: to_char(dbms_sql.last_error_position));
853: EXCEPTION
854: WHEN OTHERS THEN
855: arp_standard.debug('EXCEPTION: arp_cr_icr_pkg.generic_update()
856: ');
857: arp_standard.debug(l_update_statement);
858: arp_standard.debug('Error at character: ' ||
859: to_char(dbms_sql.last_error_position));
860: --arp_standard.debug('ERROR MESSAGE: ' ||
861: -- sqlerrm);
854: WHEN OTHERS THEN
855: arp_standard.debug('EXCEPTION: arp_cr_icr_pkg.generic_update()
856: ');
857: arp_standard.debug(l_update_statement);
858: arp_standard.debug('Error at character: ' ||
859: to_char(dbms_sql.last_error_position));
860: --arp_standard.debug('ERROR MESSAGE: ' ||
861: -- sqlerrm);
862: RAISE;
856: ');
857: arp_standard.debug(l_update_statement);
858: arp_standard.debug('Error at character: ' ||
859: to_char(dbms_sql.last_error_position));
860: --arp_standard.debug('ERROR MESSAGE: ' ||
861: -- sqlerrm);
862: RAISE;
863: END;
864: --
868: IS
869: --
870: BEGIN
871: --
872: arp_standard.debug('arp_cr_icr_pkg.set_to_dummy()+');
873: --
874: p_icr_rec.cash_receipt_id := AR_NUMBER_DUMMY;
875: p_icr_rec.amount := AR_NUMBER_DUMMY;
876: p_icr_rec.factor_discount_amount := AR_NUMBER_DUMMY;
920: p_icr_rec.application_ref_type := AR_TEXT_DUMMY;
921: p_icr_rec.customer_reference := AR_TEXT_DUMMY;
922: p_icr_rec.customer_reason := AR_TEXT_DUMMY;
923: --
924: arp_standard.debug('arp_cr_icr_pkg.set_to_dummy()-');
925: --
926: EXCEPTION
927: WHEN OTHERS THEN
928: arp_standard.debug('EXCEPTION: arp_cr_icr_pkg.set_to_dummy()');
924: arp_standard.debug('arp_cr_icr_pkg.set_to_dummy()-');
925: --
926: EXCEPTION
927: WHEN OTHERS THEN
928: arp_standard.debug('EXCEPTION: arp_cr_icr_pkg.set_to_dummy()');
929: RAISE;
930: --
931: END;
932: --
939: ar_interim_cash_receipts.cash_receipt_id%TYPE) IS
940: --
941: BEGIN
942: --
943: arp_standard.debug('arp_cr_icr_pkg.update_p()+ ');
944: --
945: --
946: arp_cr_icr_pkg.generic_update( pg_cursor1,
947: ' WHERE cash_receipt_id = :where_1',
947: ' WHERE cash_receipt_id = :where_1',
948: p_cash_receipt_id,
949: p_icr_rec);
950: --
951: arp_standard.debug('arp_cr_icr_pkg.update_p()- ' ||
952: to_char(sysdate, 'HH:MI:SS'));
953: --
954: --
955: EXCEPTION
953: --
954: --
955: EXCEPTION
956: WHEN OTHERS THEN
957: arp_standard.debug('EXCEPTION: arp_cr_icr_pkg.update_p()');
958: RAISE;
959: END;
960: --
961: /*===========================================================================+
981: +===========================================================================*/
982: PROCEDURE delete_p(
983: p_icr_id IN ar_interim_cash_receipts.cash_receipt_id%TYPE ) IS
984: BEGIN
985: arp_standard.debug( '>>>>>>>> arp_cr_icr_pkg.delete_p' );
986: --
987: DELETE FROM ar_interim_cash_receipts
988: WHERE cash_receipt_id = p_icr_id;
989: --
986: --
987: DELETE FROM ar_interim_cash_receipts
988: WHERE cash_receipt_id = p_icr_id;
989: --
990: arp_standard.debug( '<<<<<<<< arp_cr_icr_pkg.delete_p' );
991: EXCEPTION
992: WHEN OTHERS THEN
993: arp_standard.debug( 'EXCEPTION: arp_cr_icr_pkg.delete_p' );
994: RAISE;
989: --
990: arp_standard.debug( '<<<<<<<< arp_cr_icr_pkg.delete_p' );
991: EXCEPTION
992: WHEN OTHERS THEN
993: arp_standard.debug( 'EXCEPTION: arp_cr_icr_pkg.delete_p' );
994: RAISE;
995: END;
996: --
997: /*===========================================================================+
1017: +===========================================================================*/
1018: PROCEDURE lock_p( p_icr_id IN ar_interim_cash_receipts.cash_receipt_id%TYPE ) IS
1019: l_icr_id ar_interim_cash_receipts.cash_receipt_id%TYPE;
1020: BEGIN
1021: arp_standard.debug( '>>>>>>>> arp_cr_icr_pkg.lock_p' );
1022: --
1023: SELECT cash_receipt_id
1024: INTO l_icr_id
1025: FROM ar_interim_cash_receipts
1025: FROM ar_interim_cash_receipts
1026: WHERE cash_receipt_id = p_icr_id
1027: FOR UPDATE OF STATUS;
1028: --
1029: arp_standard.debug( '<<<<<<<< arp_cr_icr_pkg.lock_p' );
1030: EXCEPTION
1031: WHEN OTHERS THEN
1032: arp_standard.debug( 'EXCEPTION: arp_cr_icr_pkg.lock_p' );
1033: RAISE;
1028: --
1029: arp_standard.debug( '<<<<<<<< arp_cr_icr_pkg.lock_p' );
1030: EXCEPTION
1031: WHEN OTHERS THEN
1032: arp_standard.debug( 'EXCEPTION: arp_cr_icr_pkg.lock_p' );
1033: RAISE;
1034: END;
1035: --
1036: PROCEDURE nowaitlock_p( p_icr_id IN ar_interim_cash_receipts.cash_receipt_id%TYPE ) IS
1035: --
1036: PROCEDURE nowaitlock_p( p_icr_id IN ar_interim_cash_receipts.cash_receipt_id%TYPE ) IS
1037: l_icr_id ar_interim_cash_receipts.cash_receipt_id%TYPE;
1038: BEGIN
1039: arp_standard.debug( '>>>>>>>> arp_cr_icr_pkg.nowaitlock_p' );
1040: --
1041: SELECT cash_receipt_id
1042: INTO l_icr_id
1043: FROM ar_interim_cash_receipts
1043: FROM ar_interim_cash_receipts
1044: WHERE cash_receipt_id = p_icr_id
1045: FOR UPDATE OF STATUS NOWAIT;
1046: --
1047: arp_standard.debug( '<<<<<<<< arp_cr_icr_pkg.nowaitlock_p' );
1048: EXCEPTION
1049: WHEN OTHERS THEN
1050: arp_standard.debug( 'EXCEPTION: arp_cr_icr_pkg.nowaitlock_p' );
1051: RAISE;
1046: --
1047: arp_standard.debug( '<<<<<<<< arp_cr_icr_pkg.nowaitlock_p' );
1048: EXCEPTION
1049: WHEN OTHERS THEN
1050: arp_standard.debug( 'EXCEPTION: arp_cr_icr_pkg.nowaitlock_p' );
1051: RAISE;
1052: END;
1053: --
1054: /*===========================================================================+
1076: +===========================================================================*/
1077: PROCEDURE fetch_p( p_icr_id IN ar_interim_cash_receipts.cash_receipt_id%TYPE,
1078: p_icr_rec OUT NOCOPY ar_interim_cash_receipts%ROWTYPE ) IS
1079: BEGIN
1080: arp_standard.debug( '>>>>>>>> arp_cr_icr_pkg.fetch_p' );
1081: --
1082: SELECT *
1083: INTO p_icr_rec
1084: FROM ar_interim_cash_receipts
1083: INTO p_icr_rec
1084: FROM ar_interim_cash_receipts
1085: WHERE cash_receipt_id = p_icr_id;
1086: --
1087: arp_standard.debug( '<<<<<<<<< arp_cr_icr_pkg.fetch_p' );
1088: EXCEPTION
1089: --
1090: WHEN OTHERS THEN
1091: arp_standard.debug( 'EXCEPTION: arp_cr_icr_pkg.fetch_p' );
1087: arp_standard.debug( '<<<<<<<<< arp_cr_icr_pkg.fetch_p' );
1088: EXCEPTION
1089: --
1090: WHEN OTHERS THEN
1091: arp_standard.debug( 'EXCEPTION: arp_cr_icr_pkg.fetch_p' );
1092: RAISE;
1093: END;
1094: --
1095:
1095:
1096: PROCEDURE lock_fetch_p( p_icr_rec IN OUT NOCOPY ar_interim_cash_receipts%ROWTYPE ) IS
1097: BEGIN
1098: IF PG_DEBUG in ('Y', 'C') THEN
1099: arp_standard.debug( 'arp_cr_icr_pkg.lock_fetch_p()+' );
1100: END IF;
1101: --
1102: SELECT *
1103: INTO p_icr_rec
1105: WHERE cash_receipt_id = p_icr_rec.cash_receipt_id
1106: FOR UPDATE OF STATUS;
1107: --
1108: IF PG_DEBUG in ('Y', 'C') THEN
1109: arp_standard.debug( 'arp_cr_icr_pkg.lock_fetch_p()-' );
1110: END IF;
1111: EXCEPTION
1112: WHEN OTHERS THEN
1113: IF PG_DEBUG in ('Y', 'C') THEN
1110: END IF;
1111: EXCEPTION
1112: WHEN OTHERS THEN
1113: IF PG_DEBUG in ('Y', 'C') THEN
1114: arp_standard.debug( 'EXCEPTION: arp_cr_icr_pkg.lock_fetch_p' );
1115: END IF;
1116: RAISE;
1117: END lock_fetch_p;
1118: --
1119: --
1120: PROCEDURE nowaitlock_fetch_p( p_icr_rec IN OUT NOCOPY ar_interim_cash_receipts%ROWTYPE ) IS
1121: BEGIN
1122: IF PG_DEBUG in ('Y', 'C') THEN
1123: arp_standard.debug( 'arp_cr_icr_pkg.nowaitlock_fetch_p()+' );
1124: END IF;
1125: --
1126: SELECT *
1127: INTO p_icr_rec
1129: WHERE cash_receipt_id = p_icr_rec.cash_receipt_id
1130: FOR UPDATE OF STATUS NOWAIT;
1131: --
1132: IF PG_DEBUG in ('Y', 'C') THEN
1133: arp_standard.debug( 'arp_cr_icr_pkg.nowaitlock_fetch_p()-' );
1134: END IF;
1135: EXCEPTION
1136: WHEN OTHERS THEN
1137: IF PG_DEBUG in ('Y', 'C') THEN
1134: END IF;
1135: EXCEPTION
1136: WHEN OTHERS THEN
1137: IF PG_DEBUG in ('Y', 'C') THEN
1138: arp_standard.debug( 'EXCEPTION: arp_cr_icr_pkg.nowaitlock_fetch_p' );
1139: END IF;
1140: RAISE;
1141: END nowaitlock_fetch_p;
1142: --