1 type body ams_cpage_phone_t as
2
3 MEMBER FUNCTION getAreaCode return Varchar2 is
4 begin
5 return phone_area_code;
6 end getAreaCode;
7
8 MEMBER FUNCTION getCountryCode return Varchar2 is
9 begin
10 return phone_country_code;
11 end getCountryCode;
12
13 MEMBER FUNCTION getPhoneNumber return Varchar2 is
14 begin
15 return phone_number;
16 end getPhoneNumber;
17
18 MEMBER FUNCTION getRawPhoneNumber return Varchar2 is
19 begin
20 return raw_phone_number;
21 end getRawPhoneNumber;
22
23 MEMBER FUNCTION getPhoneExtension return Varchar2 is
24 begin
25 return phone_extension;
26 end getPhoneExtension;
27
28 MEMBER FUNCTION getLineType return Varchar2 is
29 begin
30 return phone_line_type;
31 end getLineType;
32
33 MEMBER FUNCTION getPriorityOfUse return Varchar2 is
34 begin
35 return priority_of_use_code;
36 end getPriorityOfUse;
37
38 MEMBER FUNCTION getContactPointPurpose return Varchar2 is
39 begin
40 return contact_point_purpose;
41 end getContactPointPurpose;
42
43 MEMBER FUNCTION getPopulated return Varchar2 is
44 begin
45 return populated;
46 end getPopulated;
47
48 MEMBER PROCEDURE setAreaCode(p_areaCode in Varchar2) is
49 begin
50 phone_area_code := p_areaCode;
51 end setAreaCode;
52
53 MEMBER PROCEDURE setCountryCode(p_countryCode in Varchar2) is
54 begin
55 phone_country_code := p_countryCode;
56 end setCountryCode;
57
58 MEMBER PROCEDURE setPhoneNumber(p_phoneNumber in Varchar2) is
59 begin
60 phone_number := p_phoneNumber;
61 end setPhoneNumber;
62
63 MEMBER PROCEDURE setRawPhoneNumber(p_rawPhoneNumber in Varchar2) is
64 begin
65 raw_phone_number := p_rawPhoneNumber;
66 end setRawPhoneNumber;
67
68 MEMBER PROCEDURE setPhoneExtension(p_phoneExtension in Varchar2) is
69 begin
70 phone_extension := p_phoneExtension;
71 end setPhoneExtension;
72
73 MEMBER PROCEDURE setLineType(p_lineType in Varchar2) is
74 begin
75 phone_line_type := p_lineType;
76 end setLineType;
77
78 MEMBER PROCEDURE setPriorityOfUse(p_priorityOfUse in Varchar2) is
79 begin
80 priority_of_use_code := p_priorityOfUse;
81 end setPriorityOfUse;
82
83 MEMBER PROCEDURE setContactPointPurpose(p_contactPointPurpose in Varchar2) is
84 begin
85 contact_point_purpose := p_contactPointPurpose;
86 end setContactPointPurpose;
87
88 MEMBER PROCEDURE setPopulated(p_populated in Varchar2) is
89 begin
90 populated := p_populated;
91 end setPopulated;
92
93 end;