PACKAGE BODY: APPS.GR_DOCUMENTS

Source

1 PACKAGE BODY GR_DOCUMENTS AS
2 /*$Header: GRFMDOCB.pls 115.5 2002/10/25 18:53:18 mgrosser ship $*/
3 
4 
5 PROCEDURE paste_document
6 				(p_copy_from_document IN VARCHAR2,
7 				 p_paste_to_document IN VARCHAR2,
8 				 x_return_status OUT NOCOPY VARCHAR2,
9 				 x_oracle_error OUT NOCOPY NUMBER,
10 				 x_msg_data OUT NOCOPY VARCHAR2)
11  IS
12 
13 /*	Alpha Variables */
14 L_CODE_BLOCK		VARCHAR2(2000);
15 
16 
17 /* 	Numeric Variables */
18 L_ORACLE_ERROR		NUMBER;
19 
20 BEGIN
21 
22    l_code_block := NULL;
23 
24 EXCEPTION
25 
26    WHEN OTHERS THEN
27       l_oracle_error := APP_EXCEPTION.Get_Code;
28 	  l_code_block := l_code_block || ' ' || TO_CHAR(l_oracle_error);
29 	  FND_MESSAGE.SET_NAME('GR',
30 	                       'GR_UNEXPECTED_ERROR');
31 	  FND_MESSAGE.SET_TOKEN('TEXT',
32 	                        l_code_block,
33 	                        FALSE);
34       APP_EXCEPTION.Raise_Exception;
35 
36 END paste_document;
37 
38 PROCEDURE delete_document
39 				(p_delete_document IN VARCHAR2,
40 				 x_return_status OUT NOCOPY VARCHAR2,
41 				 x_oracle_error OUT NOCOPY NUMBER,
42 				 x_msg_data OUT NOCOPY VARCHAR2)
43 
44  IS
45 
46 /*	Alpha Variables */
47 L_CODE_BLOCK		VARCHAR2(2000);
48 
49 
50 /* 	Numeric Variables */
51 L_ORACLE_ERROR		NUMBER;
52 
53 BEGIN
54 
55    l_code_block := NULL;
56 
57 EXCEPTION
58 
59    WHEN OTHERS THEN
60       l_oracle_error := APP_EXCEPTION.Get_Code;
61 	  l_code_block := l_code_block || ' ' || TO_CHAR(l_oracle_error);
62 	  FND_MESSAGE.SET_NAME('GR',
63 	                       'GR_UNEXPECTED_ERROR');
64 	  FND_MESSAGE.SET_TOKEN('TEXT',
65 	                        l_code_block,
66 	                        FALSE);
67       APP_EXCEPTION.Raise_Exception;
68 
69 END delete_document;
70 
71 
72 END GR_DOCUMENTS;