1 PACKAGE BODY JG_ZZ_TA_ALLOCATED_LINES_PKG AS
2 /* $Header: jgzzallb.pls 120.1 2006/02/21 15:16:24 farishol ship $ */
3 --
4 -- PUBLIC FUNCTIONS
5 --
6 PROCEDURE Insert_Row( X_rowid IN OUT NOCOPY VARCHAR2
7 ,X_je_batch_id NUMBER
8 ,X_je_header_id NUMBER
9 ,X_je_line_num NUMBER
10 ,X_creation_date DATE
11 ,X_created_by NUMBER
12 ,X_last_updated_by NUMBER
13 ,X_last_update_date DATE
14 ,X_last_update_login NUMBER
15 ,X_request_id NUMBER
16 ,X_program_application_id NUMBER
17 ,X_program_id NUMBER
18 ,X_program_update_date DATE) IS
19 CURSOR C IS SELECT rowid
20 FROM JG_ZZ_TA_ALLOCATED_LINES
21 WHERE X_je_batch_id = je_batch_id AND
22 X_je_header_id = je_header_id AND
23 X_je_line_num = je_line_num;
24 BEGIN
25 INSERT INTO JG_ZZ_TA_ALLOCATED_LINES
26 (je_batch_id
27 ,je_header_id
28 ,je_line_num
29 ,creation_date
30 ,created_by
31 ,last_updated_by
32 ,last_update_date
33 ,last_update_login
34 ,request_id
35 ,program_application_id
36 ,program_id
37 ,program_update_date)
38 VALUES
39 (X_je_batch_id
40 ,X_je_header_id
41 ,X_je_line_num
42 ,X_creation_date
43 ,X_created_by
44 ,X_last_updated_by
45 ,X_last_update_date
46 ,X_last_update_login
47 ,X_request_id
48 ,X_program_application_id
49 ,X_program_id
50 ,X_program_update_date);
51 OPEN C;
52 FETCH C INTO X_rowid;
53 IF (C%NOTFOUND) THEN
54 CLOSE C;
55 raise NO_DATA_FOUND;
56 END IF;
57 CLOSE C;
58 END insert_row;
59
60 PROCEDURE Delete_Row( X_rowid VARCHAR2 ) IS
61 BEGIN
62 DELETE FROM JG_ZZ_TA_ALLOCATED_LINES
63 WHERE ROWID = X_rowid;
64 IF (SQL%NOTFOUND) THEN
65 RAISE NO_DATA_FOUND;
66 END IF;
67 END Delete_Row;
68
69 END JG_ZZ_TA_ALLOCATED_LINES_PKG;