1: PACKAGE BODY PON_AUCTION_PO_PKG as
2: /* $Header: PONAUPOB.pls 120.8.12020000.3 2013/02/09 11:08:08 hvutukur ship $ */
3:
4: g_fnd_debug CONSTANT VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5: g_pkg_name CONSTANT VARCHAR2(30) := 'PON_AUCTION_PO_PKG';
1: PACKAGE BODY PON_AUCTION_PO_PKG as
2: /* $Header: PONAUPOB.pls 120.8.12020000.3 2013/02/09 11:08:08 hvutukur ship $ */
3:
4: g_fnd_debug CONSTANT VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5: g_pkg_name CONSTANT VARCHAR2(30) := 'PON_AUCTION_PO_PKG';
6: g_module_prefix CONSTANT VARCHAR2(50) := 'pon.plsql.' || g_pkg_name || '.';
7: g_module VARCHAR2(200) := 'PON.PLSQL.PON_AUCTION_PO_PKG';
8:
9: PROCEDURE log_message(p_message IN VARCHAR2)
3:
4: g_fnd_debug CONSTANT VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5: g_pkg_name CONSTANT VARCHAR2(30) := 'PON_AUCTION_PO_PKG';
6: g_module_prefix CONSTANT VARCHAR2(50) := 'pon.plsql.' || g_pkg_name || '.';
7: g_module VARCHAR2(200) := 'PON.PLSQL.PON_AUCTION_PO_PKG';
8:
9: PROCEDURE log_message(p_message IN VARCHAR2)
10:
11: IS
87: error_msg := '';
88:
89:
90: IF (attachmentType = 'PON_BID_ATTRIBUTES') THEN
91: PON_AUCTION_PO_PKG.GET_ATTRIBUTE_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
92: ELSIF (attachmentType = 'PON_BID_HEADER_ATTRIBUTES') THEN
93: PON_AUCTION_PO_PKG.GET_HDR_ATTRIBUTE_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
94: ELSIF (attachmentType = 'PON_BID_BUYER_NOTES') THEN
95: PON_AUCTION_PO_PKG.GET_NOTE_TO_BUYER_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
89:
90: IF (attachmentType = 'PON_BID_ATTRIBUTES') THEN
91: PON_AUCTION_PO_PKG.GET_ATTRIBUTE_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
92: ELSIF (attachmentType = 'PON_BID_HEADER_ATTRIBUTES') THEN
93: PON_AUCTION_PO_PKG.GET_HDR_ATTRIBUTE_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
94: ELSIF (attachmentType = 'PON_BID_BUYER_NOTES') THEN
95: PON_AUCTION_PO_PKG.GET_NOTE_TO_BUYER_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
96: ELSIF (attachmentType = 'PON_AUCTION_SUPPLIER_NOTES') THEN
97: PON_AUCTION_PO_PKG.GET_NOTE_TO_SUPP_ATTACHMENT(pk1, pk3, attachmentDesc, attachment, error_code, error_msg, 'BOTH');
91: PON_AUCTION_PO_PKG.GET_ATTRIBUTE_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
92: ELSIF (attachmentType = 'PON_BID_HEADER_ATTRIBUTES') THEN
93: PON_AUCTION_PO_PKG.GET_HDR_ATTRIBUTE_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
94: ELSIF (attachmentType = 'PON_BID_BUYER_NOTES') THEN
95: PON_AUCTION_PO_PKG.GET_NOTE_TO_BUYER_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
96: ELSIF (attachmentType = 'PON_AUCTION_SUPPLIER_NOTES') THEN
97: PON_AUCTION_PO_PKG.GET_NOTE_TO_SUPP_ATTACHMENT(pk1, pk3, attachmentDesc, attachment, error_code, error_msg, 'BOTH');
98: ELSIF (attachmentType = 'PON_AUC_SUPPLIER_LINE_NOTES') THEN
99: PON_AUCTION_PO_PKG.GET_NOTE_TO_SUPP_ATTACHMENT(pk1, pk3, attachmentDesc, attachment, error_code, error_msg, 'LINE');
93: PON_AUCTION_PO_PKG.GET_HDR_ATTRIBUTE_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
94: ELSIF (attachmentType = 'PON_BID_BUYER_NOTES') THEN
95: PON_AUCTION_PO_PKG.GET_NOTE_TO_BUYER_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
96: ELSIF (attachmentType = 'PON_AUCTION_SUPPLIER_NOTES') THEN
97: PON_AUCTION_PO_PKG.GET_NOTE_TO_SUPP_ATTACHMENT(pk1, pk3, attachmentDesc, attachment, error_code, error_msg, 'BOTH');
98: ELSIF (attachmentType = 'PON_AUC_SUPPLIER_LINE_NOTES') THEN
99: PON_AUCTION_PO_PKG.GET_NOTE_TO_SUPP_ATTACHMENT(pk1, pk3, attachmentDesc, attachment, error_code, error_msg, 'LINE');
100: ELSIF (attachmentType = 'PON_AUC_SUPPLIER_HEADER_NOTES') THEN
101: PON_AUCTION_PO_PKG.GET_NOTE_TO_SUPP_ATTACHMENT(pk1, pk3, attachmentDesc, attachment, error_code, error_msg, 'HEADER');
95: PON_AUCTION_PO_PKG.GET_NOTE_TO_BUYER_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
96: ELSIF (attachmentType = 'PON_AUCTION_SUPPLIER_NOTES') THEN
97: PON_AUCTION_PO_PKG.GET_NOTE_TO_SUPP_ATTACHMENT(pk1, pk3, attachmentDesc, attachment, error_code, error_msg, 'BOTH');
98: ELSIF (attachmentType = 'PON_AUC_SUPPLIER_LINE_NOTES') THEN
99: PON_AUCTION_PO_PKG.GET_NOTE_TO_SUPP_ATTACHMENT(pk1, pk3, attachmentDesc, attachment, error_code, error_msg, 'LINE');
100: ELSIF (attachmentType = 'PON_AUC_SUPPLIER_HEADER_NOTES') THEN
101: PON_AUCTION_PO_PKG.GET_NOTE_TO_SUPP_ATTACHMENT(pk1, pk3, attachmentDesc, attachment, error_code, error_msg, 'HEADER');
102: ELSIF (attachmentType = 'PON_BID_TOTAL_COST') THEN
103: PON_AUCTION_PO_PKG.GET_TOTAL_COST_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
97: PON_AUCTION_PO_PKG.GET_NOTE_TO_SUPP_ATTACHMENT(pk1, pk3, attachmentDesc, attachment, error_code, error_msg, 'BOTH');
98: ELSIF (attachmentType = 'PON_AUC_SUPPLIER_LINE_NOTES') THEN
99: PON_AUCTION_PO_PKG.GET_NOTE_TO_SUPP_ATTACHMENT(pk1, pk3, attachmentDesc, attachment, error_code, error_msg, 'LINE');
100: ELSIF (attachmentType = 'PON_AUC_SUPPLIER_HEADER_NOTES') THEN
101: PON_AUCTION_PO_PKG.GET_NOTE_TO_SUPP_ATTACHMENT(pk1, pk3, attachmentDesc, attachment, error_code, error_msg, 'HEADER');
102: ELSIF (attachmentType = 'PON_BID_TOTAL_COST') THEN
103: PON_AUCTION_PO_PKG.GET_TOTAL_COST_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
104: ELSIF (attachmentType = 'PON_JOB_DETAILS') THEN
105: PON_AUCTION_PO_PKG.GET_JOB_DETAILS_ATTACHMENT(pk1, pk3,
99: PON_AUCTION_PO_PKG.GET_NOTE_TO_SUPP_ATTACHMENT(pk1, pk3, attachmentDesc, attachment, error_code, error_msg, 'LINE');
100: ELSIF (attachmentType = 'PON_AUC_SUPPLIER_HEADER_NOTES') THEN
101: PON_AUCTION_PO_PKG.GET_NOTE_TO_SUPP_ATTACHMENT(pk1, pk3, attachmentDesc, attachment, error_code, error_msg, 'HEADER');
102: ELSIF (attachmentType = 'PON_BID_TOTAL_COST') THEN
103: PON_AUCTION_PO_PKG.GET_TOTAL_COST_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
104: ELSIF (attachmentType = 'PON_JOB_DETAILS') THEN
105: PON_AUCTION_PO_PKG.GET_JOB_DETAILS_ATTACHMENT(pk1, pk3,
106: attachmentDesc, attachment,
107: error_code, error_msg);
101: PON_AUCTION_PO_PKG.GET_NOTE_TO_SUPP_ATTACHMENT(pk1, pk3, attachmentDesc, attachment, error_code, error_msg, 'HEADER');
102: ELSIF (attachmentType = 'PON_BID_TOTAL_COST') THEN
103: PON_AUCTION_PO_PKG.GET_TOTAL_COST_ATTACHMENT(pk1, pk2, pk3, attachmentDesc, attachment, error_code, error_msg);
104: ELSIF (attachmentType = 'PON_JOB_DETAILS') THEN
105: PON_AUCTION_PO_PKG.GET_JOB_DETAILS_ATTACHMENT(pk1, pk3,
106: attachmentDesc, attachment,
107: error_code, error_msg);
108: ELSIF(attachmentType = 'PON_AUC_PYMNT_SHIP_SUPP_NOTES') and (pk1 is not null) THEN
109: GET_PAYMENT_NOTE_TO_SUPP(pk1, attachmentDesc, attachment, error_code, error_msg);
111:
112: END IF;
113:
114: IF (error_code = 'FAILURE') THEN
115: x_progress := 'PON_AUCTION_PO_PKG: GET_ATTACHMENT: EXCEPTION handling pk1:' || pk1 || ' pk2: ' || pk2 || ' pk3: ' || pk3 || ' attachmentType: ' || attachmentType;
116: log_message(x_progress);
117: END IF;
118:
119: EXCEPTION
120:
121: when others then
122: error_code := 'FAILURE';
123: error_msg := SQLERRM;
124: x_progress := 'PON_AUCTION_PO_PKG: GET_ATTACHMENT: EXCEPTION handling pk1: ' || pk1 || ' pk2: ' || pk2 || ' pk3: ' || pk3 || ' attachmentType: ' || attachmentType;
125: log_message(x_progress);
126:
127: END GET_ATTACHMENT;
128:
805: END GET_PAYMENT_NOTE_TO_SUPP;
806:
807:
808:
809: END PON_AUCTION_PO_PKG;