1: PACKAGE BODY AR_GTA_TRX_LINES_ALL_PKG AS
2: --$Header: ARGUGLAB.pls 120.0.12010000.3 2010/01/19 09:22:24 choli noship $
3: --+=======================================================================+
4: --| Copyright (c) 1998 Oracle Corporation |
5: --| Redwood Shores, CA, USA |
9: --| ARUGLAB.pls |
10: --| |
11: --| DESCRIPTION |
12: --| This package provides table handers for |
13: --| table AR_GTA_TRX_LINES_ALL,these handlers |
14: --| will be called by 'Golden Tax Workbench' form and 'Golden Tax |
15: --| invoie import' program to operate data in table |
16: --| AR_GTA_TRX_LINES_ALL |
17: --| |
12: --| This package provides table handers for |
13: --| table AR_GTA_TRX_LINES_ALL,these handlers |
14: --| will be called by 'Golden Tax Workbench' form and 'Golden Tax |
15: --| invoie import' program to operate data in table |
16: --| AR_GTA_TRX_LINES_ALL |
17: --| |
18: --| PROCEDURE LIST |
19: --| PROCEDURE Insert_Row |
20: --| PROCEDURE Update_Row |
37: --
38: -- DESCRIPTION:
39: --
40: -- This procedure is to insert data that are passed in by parameters into
41: -- table AR_GTA_TRX_LINES_ALL to create a new record
42: --
43: -- PARAMETERS:
44: -- In: p_org_id Identifier of operating unit
45: -- p_gta_trx_header_id Identifier of GTA invoice header
173: CURSOR C IS
174: SELECT
175: ROWID
176: FROM
177: ar_gta_trx_lines_all
178: WHERE gta_trx_line_id=p_gta_trx_line_id;
179:
180: BEGIN
181:
189: );
190:
191: END IF; --( l_proc_level >= l_dbg_level)
192:
193: --Insert data into table AR_GTA_TRX_LINES_ALL
194: INSERT INTO ar_gta_trx_lines_all(
195: org_id
196: ,gta_trx_header_id
197: ,gta_trx_line_id
190:
191: END IF; --( l_proc_level >= l_dbg_level)
192:
193: --Insert data into table AR_GTA_TRX_LINES_ALL
194: INSERT INTO ar_gta_trx_lines_all(
195: org_id
196: ,gta_trx_header_id
197: ,gta_trx_line_id
198: ,matched_flag
340: -- Update_Row Public
341: --
342: -- DESCRIPTION:
343: --
344: -- This procedure is used to update data in table AR_GTA_TRX_LINES_ALL
345: -- according to parameters passed in
346: --
347: -- PARAMETERS:
348: -- In: p_org_id Identifier of operating unit
460: );
461:
462: END IF; --( l_proc_level >= l_dbg_level)
463:
464: --Update data on table AR_GTA_TRX_LINES_ALL
465: UPDATE ar_gta_trx_lines_all
466: SET
467: org_id = p_org_id
468: ,gta_trx_header_id = p_gta_trx_header_id
461:
462: END IF; --( l_proc_level >= l_dbg_level)
463:
464: --Update data on table AR_GTA_TRX_LINES_ALL
465: UPDATE ar_gta_trx_lines_all
466: SET
467: org_id = p_org_id
468: ,gta_trx_header_id = p_gta_trx_header_id
469: ,gta_trx_line_id = p_gta_trx_line_id
531: --
532: -- DESCRIPTION:
533: --
534: -- This procedure is used to update implement lock on row level on table
535: -- AR_GTA_TRX_LINES_ALL
536: --
537: -- PARAMETERS:
538: -- In: p_org_id Identifier of operating unit
539: -- p_gta_trx_header_id Identifier of GTA invoice header
646: CURSOR c IS
647: SELECT
648: *
649: FROM
650: ar_gta_trx_lines_all
651: WHERE ROWID=p_rowid
652: FOR UPDATE OF gta_trx_line_id NOWAIT;
653:
654: recinfo c%ROWTYPE;
1019: --
1020: -- DESCRIPTION:
1021: --
1022: -- This procedure is used to delete record from table
1023: -- AR_GTA_TRX_LINES_ALL
1024: --
1025: -- PARAMETERS:
1026: --
1027: -- In Out: p_row_id Row id of a table record
1054: );
1055:
1056: END IF; --( l_proc_level >= l_dbg_level)
1057:
1058: --Delete row from table AR_GTA_TRX_LINES_ALL
1059: DELETE
1060: FROM AR_GTA_TRX_LINES_ALL
1061: WHERE ROWID = p_rowid;
1062:
1056: END IF; --( l_proc_level >= l_dbg_level)
1057:
1058: --Delete row from table AR_GTA_TRX_LINES_ALL
1059: DELETE
1060: FROM AR_GTA_TRX_LINES_ALL
1061: WHERE ROWID = p_rowid;
1062:
1063: --In case of delete failed,raise error
1064: IF (SQL%NOTFOUND) THEN
1083: --
1084: -- DESCRIPTION:
1085: --
1086: -- This procedure is used to retrieve record by parameter p_header
1087: -- from table AR_GTA_TRX_LINES_ALL
1088: --
1089: -- PARAMETERS:
1090: -- In: p_trx_line_id Identifier of GTA invoice header
1091: --
1217: x_trx_line_rec.request_id,
1218: x_trx_line_rec.discount_amount,
1219: x_trx_line_rec.discount_tax_amount,
1220: x_trx_line_rec.discount_rate
1221: FROM ar_gta_trx_lines_all
1222: WHERE gta_trx_line_id = p_trx_line_id;
1223: --log for debug
1224: IF( l_proc_level >= l_dbg_level)
1225: THEN
1231:
1232: END IF; --( l_proc_level >= l_dbg_level)
1233: END Query_Row;
1234:
1235: END AR_GTA_TRX_LINES_ALL_PKG;