1: PACKAGE BODY AR_ADJVALIDATE_PUB AS
2: /* $Header: ARTAADVB.pls 115.9 2003/10/10 14:27:25 mraymond ship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) :='AR_ADJVALIDATE_PUB';
4:
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
6: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
7: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
8: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
9: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
2: /* $Header: ARTAADVB.pls 115.9 2003/10/10 14:27:25 mraymond ship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30) :='AR_ADJVALIDATE_PUB';
4:
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
6: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
7: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
8: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
9: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
10:
3: G_PKG_NAME CONSTANT VARCHAR2(30) :='AR_ADJVALIDATE_PUB';
4:
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
6: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
7: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
8: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
9: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
10:
11: G_caching_done varchar2(1) := FND_API.G_FALSE;
4:
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
6: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
7: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
8: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
9: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
10:
11: G_caching_done varchar2(1) := FND_API.G_FALSE;
12: G_cache_date date := NULL ;
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
6: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
7: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
8: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
9: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
10:
11: G_caching_done varchar2(1) := FND_API.G_FALSE;
12: G_cache_date date := NULL ;
13: G_receivables_name ar_receivables_trx.name%type := NULL;
120: p_token2_name IN varchar2 default NULL,
121: p_token2_value IN varchar2 default NULL,
122: p_token3_name IN varchar2 default NULL,
123: p_token3_value IN varchar2 default NULL,
124: p_msg_level IN number default FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH
125: ) IS
126: l_mesg varchar2(2000);
127: l_msg_count number;
128: l_msg_data varchar2(2000);
150: THEN
151: FND_MESSAGE.SET_TOKEN ( p_token3_name, p_token3_value ) ;
152: END IF ;
153:
154: FND_MSG_PUB.ADD ;
155:
156: IF PG_DEBUG in ('Y', 'C') THEN
157: arp_util.debug ('aapi_message()-' , G_MSG_HIGH);
158: END IF;
167: END IF;
168: /*-----------------------------------------------+
169: | Set unexpected error message and status |
170: +-----------------------------------------------*/
171: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'aapi_message');
172:
173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
174:
175: END aapi_message;
247: IF PG_DEBUG in ('Y', 'C') THEN
248: arp_util.debug('EXCEPTION: Init_Context_Rec() ', G_MSG_UERROR);
249: END IF;
250:
251: FND_MSG_PUB.Add_Exc_Msg (
252: G_PKG_NAME,
253: 'Init_Context_Rec'
254: );
255: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
352: END IF;
353: /*-----------------------------------------------+
354: | Set unexpected error message and status |
355: +-----------------------------------------------*/
356: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Cache_Gl_Periods');
357: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
358: RETURN;
359:
360: END Cache_Gl_Periods;
438: END IF;
439: /*-----------------------------------------------+
440: | Set unexpected error message and status |
441: +-----------------------------------------------*/
442: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Cache_Approval_Type');
443: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
444: RETURN;
445:
446: END Cache_Approval_Type;
524: END IF;
525: /*-----------------------------------------------+
526: | Set unexpected error message and status |
527: +-----------------------------------------------*/
528: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Cache_Adjustment_Type');
529: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
530: RETURN;
531:
532: END Cache_Adjustment_Type;
610: END IF;
611: /*-----------------------------------------------+
612: | Set unexpected error message and status |
613: +-----------------------------------------------*/
614: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Cache_Adjustment_Reason');
615: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
616: RETURN;
617:
618: END Cache_Adjustment_Reason;
701: END IF;
702: /*-----------------------------------------------+
703: | Set unexpected error message and status |
704: +-----------------------------------------------*/
705: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Cache_Receivables_Trx');
706: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
707: RETURN;
708:
709: END Cache_Receivables_Trx;
796: END IF;
797: /*-----------------------------------------------+
798: | Set unexpected error message and status |
799: +-----------------------------------------------*/
800: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Cache_Ussgl_Code');
801: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
802: RETURN;
803:
804: END Cache_Ussgl_code;
893: END IF;
894: /*-----------------------------------------------+
895: | Set unexpected error message and status |
896: +-----------------------------------------------*/
897: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Cache_Code_Combination');
898: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
899: RETURN;
900:
901: END Cache_Code_Combination;
1093: IF PG_DEBUG in ('Y', 'C') THEN
1094: arp_util.debug('EXCEPTION: Cache_Details() ', G_MSG_UERROR);
1095: END IF;
1096:
1097: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Cache_Details');
1098: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1099: RETURN;
1100:
1101: END Cache_Details;
1203:
1204: /*-------------------------------------------------+
1205: | Set unexpected error message, status and return |
1206: +-------------------------------------------------*/
1207: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Within_approval_limits');
1208: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1209: RETURN;
1210: END;
1211:
1257: END IF;
1258: /*-----------------------------------------------+
1259: | Set unexpected error message and status |
1260: +-----------------------------------------------*/
1261: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Within_approval_limits'
1262: );
1263: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1264: RETURN;
1265:
1362:
1363: /*-----------------------------------------------+
1364: | Set unexpected error message and status |
1365: +-----------------------------------------------*/
1366: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Validate_Type' );
1367:
1368: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1369:
1370: RETURN;
1578:
1579: /*-----------------------------------------------+
1580: | Set unexpected error message and status |
1581: +-----------------------------------------------*/
1582: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Validate_Payschd');
1583: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1584: RETURN;
1585: END ;
1586:
1643: END IF;
1644: /*-----------------------------------------------+
1645: | Set unexpected error message and status |
1646: +-----------------------------------------------*/
1647: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Validate_Payschd' );
1648: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1649: RETURN;
1650:
1651: END Validate_Payschd;
1857:
1858: /*-----------------------------------------------+
1859: | Set unexpected error message and status |
1860: +-----------------------------------------------*/
1861: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Validate_Amount');
1862: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1863: RETURN;
1864:
1865: END Validate_Amount;
2023: WHEN OTHERS THEN
2024: /*---------------------------------------------+
2025: |Set unexpected error message and status |
2026: +---------------------------------------------*/
2027: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Validate_Rcvtrxccid');
2028: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2029: RETURN;
2030: END ;
2031:
2088: END IF;
2089: /*-----------------------------------------------+
2090: | Set unexpected error message and status |
2091: +-----------------------------------------------*/
2092: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Validate_Rcvtrxccid');
2093: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2094:
2095: RETURN;
2096:
2312: END IF;
2313: /*-----------------------------------------------+
2314: | Set unexpected error message and status |
2315: +-----------------------------------------------*/
2316: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Validate_dates' );
2317: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2318:
2319: RETURN;
2320:
2514: END IF;
2515: /*-----------------------------------------------+
2516: | Set unexpected error message and status |
2517: +-----------------------------------------------*/
2518: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Validate_doc_seq' );
2519: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2520: RETURN;
2521:
2522: END Validate_doc_seq;
2631: END IF;
2632: /*-----------------------------------------------+
2633: | Set unexpected error message and status |
2634: +-----------------------------------------------*/
2635: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Validate_Reason_code' );
2636: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2637:
2638: RETURN;
2639:
2708: END IF;
2709: /*-----------------------------------------------+
2710: | Set unexpected error message and status |
2711: +-----------------------------------------------*/
2712: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Validate_Desc_Flexfield' );
2713: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2714: RETURN;
2715: END ;
2716:
2758: END IF;
2759: /*-----------------------------------------------+
2760: | Set unexpected error message and status |
2761: +-----------------------------------------------*/
2762: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Validate_Desc_Flexfield' );
2763: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2764:
2765: RETURN;
2766:
2847: END IF;
2848: /*-----------------------------------------------+
2849: | Set unexpected error message and status |
2850: +-----------------------------------------------*/
2851: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Validate_Created_From'
2852: );
2853: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2854: RETURN;
2855:
2980: END IF;
2981: /*-----------------------------------------------+
2982: | Set unexpected error message and status |
2983: +-----------------------------------------------*/
2984: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Validate_Ussgl_code' );
2985: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2986:
2987: RETURN;
2988:
3091: END IF;
3092: /*-----------------------------------------------+
3093: | Set unexpected error message and status |
3094: +-----------------------------------------------*/
3095: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Validate_Associated_Receipt');
3096: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3097: RETURN;
3098:
3099: END Validate_Associated_Receipt;