DBA Data[Home] [Help]

APPS.IGF_SE_PAYMENT_PKG dependencies on IGF_SE_PAYMENT

Line 1: PACKAGE BODY igf_se_payment_pkg AS

1: PACKAGE BODY igf_se_payment_pkg AS
2: /* $Header: IGFSI02B.pls 120.1 2005/10/06 05:34:22 appldev ship $ */
3: /*=======================================================================+
4: | Copyright (c) 1994, 1996 Oracle Corp. Redwood Shores, California, USA|
5: | All rights reserved. |

Line 9: | PL/SQL body for package: IGF_SE_PAYMENT_PKG

5: | All rights reserved. |
6: +=======================================================================+
7: | |
8: | DESCRIPTION |
9: | PL/SQL body for package: IGF_SE_PAYMENT_PKG
10: | |
11: | NOTES |
12: | |
13: | This package has a flag on the end of some of the procedures called |

Line 40: old_references igf_se_payment%ROWTYPE;

36: | |
37: *=======================================================================*/
38:
39: l_rowid VARCHAR2(25);
40: old_references igf_se_payment%ROWTYPE;
41: new_references igf_se_payment%ROWTYPE;
42:
43: PROCEDURE set_column_values (
44: p_action IN VARCHAR2,

Line 41: new_references igf_se_payment%ROWTYPE;

37: *=======================================================================*/
38:
39: l_rowid VARCHAR2(25);
40: old_references igf_se_payment%ROWTYPE;
41: new_references igf_se_payment%ROWTYPE;
42:
43: PROCEDURE set_column_values (
44: p_action IN VARCHAR2,
45: x_rowid IN VARCHAR2,

Line 73: FROM IGF_SE_PAYMENT

69: */
70:
71: CURSOR cur_old_ref_values IS
72: SELECT *
73: FROM IGF_SE_PAYMENT
74: WHERE rowid = x_rowid;
75:
76: BEGIN
77:

Line 157: FROM igf_se_payment

153: || (reverse chronological order - newest change first)
154: */
155: CURSOR cur_rowid IS
156: SELECT rowid
157: FROM igf_se_payment
158: WHERE transaction_id = x_transaction_id
159: FOR UPDATE NOWAIT;
160:
161: lv_rowid cur_rowid%RowType;

Line 200: FROM igf_se_payment

196: || (reverse chronological order - newest change first)
197: */
198: CURSOR cur_rowid IS
199: SELECT rowid
200: FROM igf_se_payment
201: WHERE ((person_id = x_party_id));
202:
203: lv_rowid cur_rowid%RowType;
204:

Line 236: cp_auth_id igf_se_payment.auth_id%TYPE,

232: -------------------------------------------------------------------
233:
234: -- Get authorization id
235: CURSOR c_auth(
236: cp_auth_id igf_se_payment.auth_id%TYPE,
237: cp_person_id igf_ap_fa_base_rec_all.person_id%TYPE
238: ) IS
239: SELECT 'x'
240: FROM igf_se_auth

Line 248: cp_auth_id igf_se_payment.auth_id%TYPE,

244: l_auth c_auth%ROWTYPE;
245:
246: -- Get fund id
247: CURSOR c_fund(
248: cp_auth_id igf_se_payment.auth_id%TYPE,
249: cp_person_id igf_ap_fa_base_rec_all.person_id%TYPE
250: ) IS
251: SELECT auth.fund_id
252: FROM igf_se_auth auth

Line 459: FROM igf_se_payment

455: || (reverse chronological order - newest change first)
456: */
457: CURSOR c IS
458: SELECT rowid
459: FROM igf_se_payment
460: WHERE transaction_id = x_transaction_id;
461:
462: CURSOR c_payment_int IS
463: SELECT rowid , spi.*

Line 464: FROM igf_se_payment_int spi

460: WHERE transaction_id = x_transaction_id;
461:
462: CURSOR c_payment_int IS
463: SELECT rowid , spi.*
464: FROM igf_se_payment_int spi
465: WHERE spi.auth_id =x_auth_id AND
466: spi.payroll_id =x_payroll_id AND
467: spi.status NOT IN ('DONE','ERROR');
468:

Line 470: c_error_cd igf_se_payment_int.error_code%TYPE

466: spi.payroll_id =x_payroll_id AND
467: spi.status NOT IN ('DONE','ERROR');
468:
469: CURSOR c_get_se_errors(
470: c_error_cd igf_se_payment_int.error_code%TYPE
471: ) IS
472: SELECT meaning
473: FROM igf_lookups_view
474: WHERE lookup_type = 'IGF_STUD_EMP_ERROR'

Line 487: l_status igf_se_payment_int.status%TYPE;

483: x_request_id NUMBER;
484: x_program_id NUMBER;
485: x_program_application_id NUMBER;
486: x_program_update_date DATE;
487: l_status igf_se_payment_int.status%TYPE;
488: l_error igf_se_payment_int.error_code%TYPE;
489: l_error_meaming igf_lookups_view.meaning%TYPE;
490: my_exception EXCEPTION;
491:

Line 488: l_error igf_se_payment_int.error_code%TYPE;

484: x_program_id NUMBER;
485: x_program_application_id NUMBER;
486: x_program_update_date DATE;
487: l_status igf_se_payment_int.status%TYPE;
488: l_error igf_se_payment_int.error_code%TYPE;
489: l_error_meaming igf_lookups_view.meaning%TYPE;
490: my_exception EXCEPTION;
491:
492: BEGIN

Line 525: SELECT igf_se_payment_s.NEXTVAL

521: igs_ge_msg_stack.add;
522: app_exception.raise_exception;
523: END IF;
524:
525: SELECT igf_se_payment_s.NEXTVAL
526: INTO x_transaction_id
527: FROM dual;
528:
529:

Line 552: INSERT INTO igf_se_payment (

548:
549: -- issue a savepoint
550: SAVEPOINT se_payment;
551:
552: INSERT INTO igf_se_payment (
553: transaction_id,
554: payroll_id,
555: payroll_date,
556: auth_id,

Line 617: -- this means that the record is coming from IGF_SE_PAYMENT_INT table

613: IF l_status ='DONE' THEN -- that is its a success
614:
615: IF new_references.payroll_id IS NOT NULL THEN
616:
617: -- this means that the record is coming from IGF_SE_PAYMENT_INT table
618: -- update payment int table with the error code
619: OPEN c_payment_int;
620: FETCH c_payment_int INTO payment_int_rec;
621: IF c_payment_int%FOUND THEN

Line 625: igf_se_payment_int_pkg.update_row (

621: IF c_payment_int%FOUND THEN
622: CLOSE c_payment_int;
623:
624: BEGIN
625: igf_se_payment_int_pkg.update_row (
626: x_rowid => payment_int_rec.rowid,
627: x_transaction_id => payment_int_rec.transaction_id,
628: x_batch_id => payment_int_rec.batch_id,
629: x_payroll_id => payment_int_rec.payroll_id,

Line 663: -- this means that the record is coming from IGF_SE_PAYMENT_INT table

659:
660: WHEN my_exception THEN
661: IF new_references.payroll_id IS NOT NULL THEN
662:
663: -- this means that the record is coming from IGF_SE_PAYMENT_INT table
664: -- update payment int table with the error code
665: OPEN c_payment_int;
666: FETCH c_payment_int INTO payment_int_rec;
667: IF c_payment_int%FOUND THEN

Line 676: igf_se_payment_int_pkg.update_row (

672:
673: ROLLBACK TO se_payment;
674:
675: BEGIN
676: igf_se_payment_int_pkg.update_row (
677: x_rowid => payment_int_rec.rowid,
678: x_transaction_id => payment_int_rec.transaction_id,
679: x_batch_id => payment_int_rec.batch_id,
680: x_payroll_id => payment_int_rec.payroll_id,

Line 755: FROM igf_se_payment

751: fund_id,
752: paid_amount,
753: org_unit_cd,
754: source
755: FROM igf_se_payment
756: WHERE rowid = x_rowid
757: FOR UPDATE NOWAIT;
758:
759: tlinfo c1%ROWTYPE;

Line 820: c_error_cd igf_se_payment_int.error_code%TYPE

816: || (reverse chronological order - newest change first)
817: */
818:
819: CURSOR c_get_se_errors(
820: c_error_cd igf_se_payment_int.error_code%TYPE
821: ) IS
822: SELECT meaning
823: FROM igf_lookups_view
824: WHERE lookup_type = 'IGF_STUD_EMP_ERROR'

Line 834: l_status igf_se_payment_int.status%TYPE;

830: x_request_id NUMBER;
831: x_program_id NUMBER;
832: x_program_application_id NUMBER;
833: x_program_update_date DATE;
834: l_status igf_se_payment_int.status%TYPE;
835: l_error igf_se_payment_int.error_code%TYPE;
836: l_error_meaming igf_lookups_view.meaning%TYPE;
837: my_exception EXCEPTION;
838:

Line 835: l_error igf_se_payment_int.error_code%TYPE;

831: x_program_id NUMBER;
832: x_program_application_id NUMBER;
833: x_program_update_date DATE;
834: l_status igf_se_payment_int.status%TYPE;
835: l_error igf_se_payment_int.error_code%TYPE;
836: l_error_meaming igf_lookups_view.meaning%TYPE;
837: my_exception EXCEPTION;
838:
839: CURSOR c_payment_int IS

Line 841: FROM igf_se_payment_int spi

837: my_exception EXCEPTION;
838:
839: CURSOR c_payment_int IS
840: SELECT rowid , spi.*
841: FROM igf_se_payment_int spi
842: WHERE spi.auth_id =x_auth_id AND
843: spi.payroll_id =x_payroll_id AND
844: spi.status NOT IN ('DONE','ERROR');
845:

Line 907: UPDATE igf_se_payment

903: -- issue a savepoint
904:
905: SAVEPOINT se_payment_upd;
906:
907: UPDATE igf_se_payment
908: SET
909: payroll_id = new_references.payroll_id,
910: payroll_date = new_references.payroll_date,
911: auth_id = new_references.auth_id,

Line 942: -- this means that the record is coming from IGF_SE_PAYMENT_INT table

938: IF l_status ='DONE' THEN -- that is its a success
939:
940: IF new_references.payroll_id IS NOT NULL THEN
941:
942: -- this means that the record is coming from IGF_SE_PAYMENT_INT table
943: -- update payment int table with the error code
944: OPEN c_payment_int;
945: FETCH c_payment_int INTO payment_int_rec;
946: IF c_payment_int%FOUND THEN

Line 950: igf_se_payment_int_pkg.update_row(

946: IF c_payment_int%FOUND THEN
947: CLOSE c_payment_int;
948:
949: BEGIN
950: igf_se_payment_int_pkg.update_row(
951: x_rowid => payment_int_rec.rowid,
952: x_transaction_id => payment_int_rec.transaction_id,
953: x_batch_id => payment_int_rec.batch_id,
954: x_payroll_id => payment_int_rec.payroll_id,

Line 986: -- this means that the record is coming from IGF_SE_PAYMENT_INT table

982:
983: WHEN my_exception THEN
984: IF new_references.payroll_id IS NOT NULL THEN
985:
986: -- this means that the record is coming from IGF_SE_PAYMENT_INT table
987: -- update payment int table with the error code
988: OPEN c_payment_int;
989: FETCH c_payment_int INTO payment_int_rec;
990: IF c_payment_int%FOUND THEN

Line 999: igf_se_payment_int_pkg.update_row(

995:
996: ROLLBACK TO se_payment_upd;
997:
998: BEGIN
999: igf_se_payment_int_pkg.update_row(
1000: x_rowid => payment_int_rec.rowid,
1001: x_transaction_id => payment_int_rec.transaction_id,
1002: x_batch_id => payment_int_rec.batch_id,
1003: x_payroll_id => payment_int_rec.payroll_id,

Line 1069: FROM igf_se_payment

1065: || (reverse chronological order - newest change first)
1066: */
1067: CURSOR c1 IS
1068: SELECT rowid
1069: FROM igf_se_payment
1070: WHERE transaction_id = x_transaction_id;
1071:
1072: BEGIN
1073:

Line 1132: DELETE FROM igf_se_payment

1128: p_action => 'DELETE',
1129: x_rowid => x_rowid
1130: );
1131:
1132: DELETE FROM igf_se_payment
1133: WHERE rowid = x_rowid;
1134:
1135: IF (SQL%NOTFOUND) THEN
1136: RAISE NO_DATA_FOUND;

Line 1142: END igf_se_payment_pkg;

1138:
1139: END delete_row;
1140:
1141:
1142: END igf_se_payment_pkg;