PACKAGE BODY: APPS.PO_TYPE_CONVERTER

Source

1 PACKAGE BODY PO_TYPE_CONVERTER AS
2 -- $Header: PO_TYPE_CONVERTER.plb 120.2 2005/08/11 16:23:56 jjessup noship $
3 
4 FUNCTION to_po_tbl_varchar1(
5   p_input_tbl IN PO_TBL_VARCHAR30
6 )
7 RETURN PO_TBL_VARCHAR1
8 IS
9 l_output_tbl PO_TBL_VARCHAR1;
10 BEGIN
11 IF (p_input_tbl IS NULL) THEN
12   l_output_tbl := NULL;
13 ELSE
14   l_output_tbl := PO_TBL_VARCHAR1();
15   l_output_tbl.extend(p_input_tbl.COUNT);
16   FOR i IN 1 .. p_input_tbl.COUNT LOOP
17     l_output_tbl(i) := SUBSTRB(p_input_tbl(i),1,1);
18   END LOOP;
19 END IF;
20 RETURN l_output_tbl;
21 END to_po_tbl_varchar1;
22 
23 
24 FUNCTION to_po_tbl_varchar4000(
25   p_input_tbl IN PO_TBL_NUMBER
26 )
27 RETURN PO_TBL_VARCHAR4000
28 IS
29 l_output_tbl PO_TBL_VARCHAR4000;
30 BEGIN
31 IF (p_input_tbl IS NULL) THEN
32   l_output_tbl := NULL;
33 ELSE
34   l_output_tbl := PO_TBL_VARCHAR4000();
35   l_output_tbl.extend(p_input_tbl.COUNT);
36   FOR i IN 1 .. p_input_tbl.COUNT LOOP
37     l_output_tbl(i) := TO_CHAR(p_input_tbl(i));
38   END LOOP;
39 END IF;
40 RETURN l_output_tbl;
41 END to_po_tbl_varchar4000;
42 
43 
44 FUNCTION to_po_tbl_varchar4000(
45   p_input_tbl IN PO_TBL_VARCHAR30
46 )
47 RETURN PO_TBL_VARCHAR4000
48 IS
49 l_output_tbl PO_TBL_VARCHAR4000;
50 BEGIN
51 IF (p_input_tbl IS NULL) THEN
52   l_output_tbl := NULL;
53 ELSE
54   l_output_tbl := PO_TBL_VARCHAR4000();
55   l_output_tbl.extend(p_input_tbl.COUNT);
56   FOR i IN 1 .. p_input_tbl.COUNT LOOP
57     l_output_tbl(i) := p_input_tbl(i);
58   END LOOP;
59 END IF;
60 RETURN l_output_tbl;
61 END to_po_tbl_varchar4000;
62 
63 
64 FUNCTION to_po_tbl_varchar4000(
65   p_input_tbl IN PO_TBL_VARCHAR1
66 )
67 RETURN PO_TBL_VARCHAR4000
68 IS
69 l_output_tbl PO_TBL_VARCHAR4000;
70 BEGIN
71 IF (p_input_tbl IS NULL) THEN
72   l_output_tbl := NULL;
73 ELSE
74   l_output_tbl := PO_TBL_VARCHAR4000();
75   l_output_tbl.extend(p_input_tbl.COUNT);
76   FOR i IN 1 .. p_input_tbl.COUNT LOOP
77     l_output_tbl(i) := p_input_tbl(i);
78   END LOOP;
79 END IF;
80 RETURN l_output_tbl;
81 END to_po_tbl_varchar4000;
82 
83 
84 FUNCTION to_po_tbl_varchar4000(
85   p_input_tbl IN PO_TBL_DATE
86 )
87 RETURN PO_TBL_VARCHAR4000
88 IS
89 l_output_tbl PO_TBL_VARCHAR4000;
90 BEGIN
91 IF (p_input_tbl IS NULL) THEN
92   l_output_tbl := NULL;
93 ELSE
94   l_output_tbl := PO_TBL_VARCHAR4000();
95   l_output_tbl.extend(p_input_tbl.COUNT);
96   FOR i IN 1 .. p_input_tbl.COUNT LOOP
97     l_output_tbl(i) := p_input_tbl(i);
98   END LOOP;
99 END IF;
100 RETURN l_output_tbl;
101 END to_po_tbl_varchar4000;
102 
103 
104 FUNCTION to_po_tbl_varchar4000(
105   p_input_tbl IN PO_TBL_VARCHAR2000
106 )
107 RETURN PO_TBL_VARCHAR4000
108 IS
109 l_output_tbl PO_TBL_VARCHAR4000;
110 BEGIN
111 IF (p_input_tbl IS NULL) THEN
112   l_output_tbl := NULL;
113 ELSE
114   l_output_tbl := PO_TBL_VARCHAR4000();
115   l_output_tbl.extend(p_input_tbl.COUNT);
116   FOR i IN 1 .. p_input_tbl.COUNT LOOP
117     l_output_tbl(i) := p_input_tbl(i);
118   END LOOP;
119 END IF;
120 RETURN l_output_tbl;
121 END to_po_tbl_varchar4000;
122 
123 END PO_TYPE_CONVERTER;