[Home] [Help]
1: PACKAGE BODY JMF_GTA_TRX_LINES_ALL_PKG AS
2: --$Header: JMFUGLAB.pls 120.2 2005/10/20 10:25:30 yawang noship $
3: --+=======================================================================+
4: --| Copyright (c) 1998 Oracle Corporation |
5: --| Redwood Shores, CA, USA |
9: --| JMFUGLAB.pls |
10: --| |
11: --| DESCRIPTION |
12: --| This package provides table handers for |
13: --| table JMF_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: --| JMF_GTA_TRX_LINES_ALL |
17: --| |
12: --| This package provides table handers for |
13: --| table JMF_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: --| JMF_GTA_TRX_LINES_ALL |
17: --| |
18: --| PROCEDURE LIST |
19: --| PROCEDURE Insert_Row |
20: --| PROCEDURE Update_Row |
33: --
34: -- DESCRIPTION:
35: --
36: -- This procedure is to insert data that are passed in by parameters into
37: -- table JMF_GTA_TRX_LINES_ALL to create a new record
38: --
39: -- PARAMETERS:
40: -- In: p_org_id Identifier of operating unit
41: -- p_gta_trx_header_id Identifier of GTA invoice header
161: CURSOR C IS
162: SELECT
163: ROWID
164: FROM
165: jmf_gta_trx_lines_all
166: WHERE gta_trx_line_id=p_gta_trx_line_id;
167:
168: BEGIN
169:
177: );
178:
179: END IF; --( l_proc_level >= l_dbg_level)
180:
181: --Insert data into table JMF_GTA_TRX_LINES_ALL
182: INSERT INTO jmf_gta_trx_lines_all(
183: org_id
184: ,gta_trx_header_id
185: ,gta_trx_line_id
178:
179: END IF; --( l_proc_level >= l_dbg_level)
180:
181: --Insert data into table JMF_GTA_TRX_LINES_ALL
182: INSERT INTO jmf_gta_trx_lines_all(
183: org_id
184: ,gta_trx_header_id
185: ,gta_trx_line_id
186: ,matched_flag
309: -- Update_Row Public
310: --
311: -- DESCRIPTION:
312: --
313: -- This procedure is used to update data in table JMF_GTA_TRX_LINES_ALL
314: -- according to parameters passed in
315: --
316: -- PARAMETERS:
317: -- In: p_org_id Identifier of operating unit
429: );
430:
431: END IF; --( l_proc_level >= l_dbg_level)
432:
433: --Update data on table JMF_GTA_TRX_LINES_ALL
434: UPDATE jmf_gta_trx_lines_all
435: SET
436: org_id = p_org_id
437: ,gta_trx_header_id = p_gta_trx_header_id
430:
431: END IF; --( l_proc_level >= l_dbg_level)
432:
433: --Update data on table JMF_GTA_TRX_LINES_ALL
434: UPDATE jmf_gta_trx_lines_all
435: SET
436: org_id = p_org_id
437: ,gta_trx_header_id = p_gta_trx_header_id
438: ,gta_trx_line_id = p_gta_trx_line_id
500: --
501: -- DESCRIPTION:
502: --
503: -- This procedure is used to update implement lock on row level on table
504: -- JMF_GTA_TRX_LINES_ALL
505: --
506: -- PARAMETERS:
507: -- In: p_org_id Identifier of operating unit
508: -- p_gta_trx_header_id Identifier of GTA invoice header
614: CURSOR c IS
615: SELECT
616: *
617: FROM
618: jmf_gta_trx_lines_all
619: WHERE ROWID=p_rowid
620: FOR UPDATE OF gta_trx_line_id NOWAIT;
621:
622: recinfo c%ROWTYPE;
981: --
982: -- DESCRIPTION:
983: --
984: -- This procedure is used to delete record from table
985: -- JMF_GTA_TRX_LINES_ALL
986: --
987: -- PARAMETERS:
988: --
989: -- In Out: p_row_id Row id of a table record
1016: );
1017:
1018: END IF; --( l_proc_level >= l_dbg_level)
1019:
1020: --Delete row from table JMF_GTA_TRX_LINES_ALL
1021: DELETE
1022: FROM JMF_GTA_TRX_LINES_ALL
1023: WHERE ROWID = p_rowid;
1024:
1018: END IF; --( l_proc_level >= l_dbg_level)
1019:
1020: --Delete row from table JMF_GTA_TRX_LINES_ALL
1021: DELETE
1022: FROM JMF_GTA_TRX_LINES_ALL
1023: WHERE ROWID = p_rowid;
1024:
1025: --In case of delete failed,raise error
1026: IF (SQL%NOTFOUND) THEN
1038:
1039: END IF; --( l_proc_level >= l_dbg_level)
1040: END Delete_Row;
1041:
1042: END JMF_GTA_TRX_LINES_ALL_PKG;
1043: