74: END reset_message_flag;
75:
76: -- =======
77: -- init_message_stack
78: -- Call FND_MSG_PUB to initialize the message stack.
79: -- =======
80:
81: PROCEDURE init_message_stack is
82: begin
82: begin
83: IF G_pub_msg_int THEN
84: NULL ;
85: ELSE
86: FND_MSG_PUB.Initialize;
87: G_pub_msg_int := TRUE ;
88: END IF ;
89: END init_message_stack ;
90:
120: IF P_token3 is not NULL then
121: fnd_message.set_token(P_token3, P_val3 ) ;
122: END IF ;
123:
124: fnd_msg_pub.add ;
125:
126: FND_MSG_PUB.Count_And_Get
127: ( p_count => G_msg_count ,
128: p_data => G_msg_data );
122: END IF ;
123:
124: fnd_msg_pub.add ;
125:
126: FND_MSG_PUB.Count_And_Get
127: ( p_count => G_msg_count ,
128: p_data => G_msg_data );
129:
130: IF L_DEBUG = 'Y' THEN
131: gms_error_pkg.gms_debug('Stage :'||G_stage||' Label :'||p_label, 'C');
132: END IF;
133:
134:
135: IF FND_MSG_PUB.check_msg_level( NVL(G_msg_count,0) ) THEN
136: Raise FND_API.G_EXC_ERROR ;
137: ELSE
138: NULL ;
139: END IF;
910: WHEN OTHERS THEN
911: ROLLBACK TO save_award_pvt;
912: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
913:
914: FND_MSG_PUB.add_exc_msg
915: ( p_pkg_name => G_PKG_NAME
916: , p_procedure_name => l_api_name );
917: FND_MSG_PUB.Count_And_Get
918: ( p_count => x_msg_count ,
913:
914: FND_MSG_PUB.add_exc_msg
915: ( p_pkg_name => G_PKG_NAME
916: , p_procedure_name => l_api_name );
917: FND_MSG_PUB.Count_And_Get
918: ( p_count => x_msg_count ,
919: p_data => x_msg_data );
920:
921: END create_award ;
1232: -- Validation Passed
1233: NULL ;
1234: ELSE
1235: add_message_to_stack( P_label => 'GMS_AWD_FLEX_INVALID' ) ;
1236: fnd_msg_pub.add_exc_msg(p_pkg_name => 'GMS_AWARD_PVT',
1237: p_procedure_name => 'CREATE_AWARD',
1238: p_error_text => substr(FND_FLEX_DESCVAL.error_message,1,240)) ;
1239: l_error := TRUE ;
1240:
3068: x_msg_data := G_msg_data ;
3069: WHEN OTHERS THEN
3070: ROLLBACK TO copy_award_pvt ;
3071: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3072: FND_MSG_PUB.add_exc_msg ( p_pkg_name => G_PKG_NAME
3073: , p_procedure_name => l_api_name );
3074: FND_MSG_PUB.Count_And_Get
3075: ( p_count => x_msg_count ,
3076: p_data => x_msg_data );
3070: ROLLBACK TO copy_award_pvt ;
3071: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3072: FND_MSG_PUB.add_exc_msg ( p_pkg_name => G_PKG_NAME
3073: , p_procedure_name => l_api_name );
3074: FND_MSG_PUB.Count_And_Get
3075: ( p_count => x_msg_count ,
3076: p_data => x_msg_data );
3077:
3078: END COPY_AWARD ;
3223: -- Validation Passed
3224: NULL ;
3225: ELSE
3226: add_message_to_stack( P_label => 'GMS_AWD_FLEX_INVALID' ) ;
3227: fnd_msg_pub.add_exc_msg(p_pkg_name => 'GMS_AWARD_PVT',
3228: p_procedure_name => 'CREATE_INSTALLMENT',
3229: p_error_text => substr(FND_FLEX_DESCVAL.error_message,1,240)) ;
3230: l_error := TRUE ;
3231:
3440: G_installment_rec := NULL ; -- Resetting the record vaarible.
3441: ROLLBACK TO create_installment_pvt ;
3442: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3443:
3444: FND_MSG_PUB.add_exc_msg
3445: ( p_pkg_name => G_PKG_NAME
3446: , p_procedure_name => l_api_name );
3447:
3448: FND_MSG_PUB.Count_And_Get
3444: FND_MSG_PUB.add_exc_msg
3445: ( p_pkg_name => G_PKG_NAME
3446: , p_procedure_name => l_api_name );
3447:
3448: FND_MSG_PUB.Count_And_Get
3449: ( p_count => x_msg_count ,
3450: p_data => x_msg_data );
3451:
3452:
3871: G_personnel_rec := NULL ; -- Resetting the record vaarible.
3872: ROLLBACK TO create_personnel_pvt;
3873: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3874:
3875: FND_MSG_PUB.add_exc_msg
3876: ( p_pkg_name => G_PKG_NAME
3877: , p_procedure_name => l_api_name );
3878: FND_MSG_PUB.Count_And_Get
3879: ( p_count => x_msg_count ,
3874:
3875: FND_MSG_PUB.add_exc_msg
3876: ( p_pkg_name => G_PKG_NAME
3877: , p_procedure_name => l_api_name );
3878: FND_MSG_PUB.Count_And_Get
3879: ( p_count => x_msg_count ,
3880: p_data => x_msg_data );
3881:
3882:
4117: G_term_condition_rec := NULL ; -- Resetting the record vaarible.
4118: ROLLBACK TO create_award_term_cond_pvt ;
4119: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4120:
4121: FND_MSG_PUB.add_exc_msg
4122: ( p_pkg_name => G_PKG_NAME
4123: , p_procedure_name => l_api_name );
4124: FND_MSG_PUB.Count_And_Get
4125: ( p_count => X_msg_count ,
4120:
4121: FND_MSG_PUB.add_exc_msg
4122: ( p_pkg_name => G_PKG_NAME
4123: , p_procedure_name => l_api_name );
4124: FND_MSG_PUB.Count_And_Get
4125: ( p_count => X_msg_count ,
4126: p_data => X_msg_data );
4127:
4128:
4302: G_reference_number_rec := NULL ; -- Resetting the record vaarible.
4303: ROLLBACK TO create_reference_number_pvt ;
4304: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4305:
4306: FND_MSG_PUB.add_exc_msg
4307: ( p_pkg_name => G_PKG_NAME
4308: , p_procedure_name => l_api_name );
4309: FND_MSG_PUB.Count_And_Get
4310: ( p_count => x_msg_count ,
4305:
4306: FND_MSG_PUB.add_exc_msg
4307: ( p_pkg_name => G_PKG_NAME
4308: , p_procedure_name => l_api_name );
4309: FND_MSG_PUB.Count_And_Get
4310: ( p_count => x_msg_count ,
4311: p_data => x_msg_data );
4312:
4313: END CREATE_REFERENCE_NUMBER ;
4583: WHEN OTHERS THEN
4584: ROLLBACK TO create_contact_pvt;
4585: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4586:
4587: FND_MSG_PUB.add_exc_msg
4588: ( p_pkg_name => G_PKG_NAME
4589: , p_procedure_name => l_api_name );
4590: FND_MSG_PUB.Count_And_Get
4591: ( p_count => x_msg_count ,
4586:
4587: FND_MSG_PUB.add_exc_msg
4588: ( p_pkg_name => G_PKG_NAME
4589: , p_procedure_name => l_api_name );
4590: FND_MSG_PUB.Count_And_Get
4591: ( p_count => x_msg_count ,
4592: p_data => x_msg_data );
4593:
4594: END CREATE_CONTACT ;
4900: WHEN OTHERS THEN
4901: ROLLBACK TO create_report_pvt;
4902: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4903:
4904: FND_MSG_PUB.add_exc_msg
4905: ( p_pkg_name => G_PKG_NAME
4906: , p_procedure_name => l_api_name );
4907: FND_MSG_PUB.Count_And_Get
4908: ( p_count => x_msg_count ,
4903:
4904: FND_MSG_PUB.add_exc_msg
4905: ( p_pkg_name => G_PKG_NAME
4906: , p_procedure_name => l_api_name );
4907: FND_MSG_PUB.Count_And_Get
4908: ( p_count => x_msg_count ,
4909: p_data => x_msg_data );
4910:
4911: end CREATE_REPORT ;
5102: WHEN OTHERS THEN
5103: ROLLBACK TO create_notification_pvt;
5104: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5105:
5106: FND_MSG_PUB.add_exc_msg
5107: ( p_pkg_name => G_PKG_NAME
5108: , p_procedure_name => l_api_name );
5109: FND_MSG_PUB.Count_And_Get
5110: ( p_count => x_msg_count ,
5105:
5106: FND_MSG_PUB.add_exc_msg
5107: ( p_pkg_name => G_PKG_NAME
5108: , p_procedure_name => l_api_name );
5109: FND_MSG_PUB.Count_And_Get
5110: ( p_count => x_msg_count ,
5111: p_data => x_msg_data );
5112:
5113: END CREATE_NOTIFICATION ;
5650: WHEN OTHERS THEN
5651: ROLLBACK TO add_funding_pvt;
5652: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5653:
5654: FND_MSG_PUB.add_exc_msg
5655: ( P_PKG_NAME => G_PKG_NAME
5656: , P_PROCEDURE_NAME => l_api_name );
5657: FND_MSG_PUB.Count_And_Get
5658: ( P_COUNT => x_msg_count ,
5653:
5654: FND_MSG_PUB.add_exc_msg
5655: ( P_PKG_NAME => G_PKG_NAME
5656: , P_PROCEDURE_NAME => l_api_name );
5657: FND_MSG_PUB.Count_And_Get
5658: ( P_COUNT => x_msg_count ,
5659: P_DATA => x_msg_data );
5660:
5661: END ADD_FUNDING;