PACKAGE BODY: APPS.PO_DOC_STYLE_HELPER

Source

1 PACKAGE BODY PO_DOC_STYLE_HELPER AS
2   /* $Header: PO_DOC_STYLE_HELPER.plb 120.1 2010/04/22 09:46:56 adjain noship $ */
3 
4   FUNCTION get_is_formal_change_required(p_style_id IN NUMBER) RETURN VARCHAR2 IS
5 
6   d_progress NUMBER;
7   d_module   VARCHAR2(60) := 'po.plsql.PO_DOC_STYLE_HELPER.get_is_formal_change_required';
8 
9   l_is_formal_chng_req  VARCHAR2(1);
10   BEGIN
11 	d_progress := 0;
12 
13 	IF (PO_LOG.d_proc) THEN
14 	       PO_LOG.proc_begin(d_module);
15 	       PO_LOG.proc_begin(d_module, 'p_style_id', p_style_id);
16 	END IF;
17 
18 	SELECT DECODE(NVL(CHANGE_PROCESS_TYPE,'CHANGE_ORDER'),'MODIFICATION','Y','N')
19 	INTO l_is_formal_chng_req
20 	FROM PO_DOC_STYLE_HEADERS
21 	WHERE STYLE_ID = p_style_id;
22 
23 	d_progress := 10;
24 
25 	return l_is_formal_chng_req;
26   EXCEPTION
27     WHEN OTHERS THEN
28       IF (PO_LOG.d_exc) THEN
29         PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
30       END IF;
31       RAISE;
32 
33   END get_is_formal_change_required;
34 
35   FUNCTION get_clm_flag(p_style_id IN NUMBER) RETURN VARCHAR2 IS
36 
37   d_progress NUMBER;
38   d_module   VARCHAR2(60) := 'po.plsql.PO_DOC_STYLE_HELPER.get_clm_flag';
39 
40   l_clm_flag  VARCHAR2(1);
41   BEGIN
42 	d_progress := 0;
43 
44 	IF (PO_LOG.d_proc) THEN
45 	       PO_LOG.proc_begin(d_module);
46 	       PO_LOG.proc_begin(d_module, 'p_style_id', p_style_id);
47 	END IF;
48 
49 	SELECT NVL(CLM_FLAG,'N')
50 	INTO l_clm_flag
51 	FROM PO_DOC_STYLE_HEADERS
52 	WHERE STYLE_ID = p_style_id;
53 
54 	d_progress := 10;
55 	return l_clm_flag;
56   EXCEPTION
57     WHEN OTHERS THEN
58       IF (PO_LOG.d_exc) THEN
59         PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
60       END IF;
61       RAISE;
62 
63   END get_clm_flag;
64 
65   FUNCTION get_clm_flag_for_po(p_po_header_id IN NUMBER) RETURN VARCHAR2 IS
66 
67   d_progress NUMBER;
68   d_module   VARCHAR2(60) := 'po.plsql.PO_DOC_STYLE_HELPER.get_clm_flag_for_po';
69 
70   l_clm_flag  VARCHAR2(1);
71   BEGIN
72 	d_progress := 0;
73 
74 	IF (PO_LOG.d_proc) THEN
75 	       PO_LOG.proc_begin(d_module);
76 	       PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
77 	END IF;
78 
79 	SELECT NVL(CLM_FLAG,'N')
80 	INTO l_clm_flag
81 	FROM PO_DOC_STYLE_HEADERS pdsh, po_headers_all pha
82 	WHERE pha.po_header_id = p_po_header_id
83   AND   pha.STYLE_ID = pdsh.style_id;
84 
85 	d_progress := 10;
86 	return l_clm_flag;
87   EXCEPTION
88     WHEN OTHERS THEN
89       IF (PO_LOG.d_exc) THEN
90         PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
91       END IF;
92       RAISE;
93 
94   END get_clm_flag_for_po;
95 END PO_DOC_STYLE_HELPER;
96