[Home] [Help]
PACKAGE BODY: APPS.PO_DOCUMENTS_SV
Source
1 PACKAGE BODY PO_DOCUMENTS_SV as
2 /* $Header: POXDOTYB.pls 115.2 2002/11/23 03:30:29 sbull ship $ */
3 /*============================= po_documents_sv ===========================*/
4
5 /*===========================================================================
6
7 PROCEDURE NAME: get_doc_type_info
8
9 ===========================================================================*/
10 PROCEDURE get_doc_type_info ( x_doc_type_code IN VARCHAR2,
11 x_doc_subtype IN VARCHAR2,
12 x_type_name OUT NOCOPY VARCHAR2) IS
13 x_progress VARCHAR2(3) := NULL;
14 begin
15
16 x_progress := 10;
17
18 SELECT podt.type_name
19 INTO x_type_name
20 FROM po_document_types podt
21 WHERE podt.document_type_code = x_doc_type_code
22 AND podt.document_subtype = x_doc_subtype;
23
24 EXCEPTION
25 WHEN OTHERS THEN
26 po_message_s.sql_error('get_doc_type_info', x_progress, sqlcode);
27 raise;
28
29 end get_doc_type_info;
30
31
32
33 /*===========================================================================
34
35 PROCEDURE NAME: get_doc_security_level
36
37 ===========================================================================*/
38 PROCEDURE get_doc_security_level ( x_doc_type_code IN VARCHAR2,
39 x_doc_subtype IN VARCHAR2,
40 x_security_level OUT NOCOPY VARCHAR2) IS
41 x_progress VARCHAR2(3) := NULL;
42 begin
43
44 x_progress := 10;
45
46 SELECT podt.security_level_code
47 INTO x_security_level
48 FROM po_document_types podt
49 WHERE podt.document_type_code = x_doc_type_code
50 AND podt.document_subtype = x_doc_subtype;
51
52 EXCEPTION
53 WHEN OTHERS THEN
54 po_message_s.sql_error('get_doc_security_level', x_progress, sqlcode);
55 raise;
56
57 end get_doc_security_level;
58
59
60
61 /*===========================================================================
62
63 PROCEDURE NAME: get_doc_access_level
64
65 ===========================================================================*/
66 PROCEDURE get_doc_access_level ( x_doc_type_code IN VARCHAR2,
67 x_doc_subtype IN VARCHAR2,
68 x_access_level OUT NOCOPY VARCHAR2) IS
69 x_progress VARCHAR2(3) := NULL;
70 begin
71
72 x_progress := 10;
73
74 SELECT podt.access_level_code
75 INTO x_access_level
76 FROM po_document_types podt
77 WHERE podt.document_type_code = x_doc_type_code
78 AND podt.document_subtype = x_doc_subtype;
79
80 EXCEPTION
81 WHEN OTHERS THEN
82 po_message_s.sql_error('get_doc_access_level', x_progress, sqlcode);
83 raise;
84
85 end get_doc_access_level;
86
87
88 END PO_DOCUMENTS_SV;