DBA Data[Home] [Help]

APPS.AHL_FMP_EFFECTIVITY_DTL_PVT dependencies on FND_MSG_PUB

Line 85: FND_MSG_PUB.ADD;

81:
82: IF G_APPLN_USAGE IS NULL
83: THEN
84: FND_MESSAGE.SET_NAME('AHL','AHL_COM_APP_PRFL_UNDEF');
85: FND_MSG_PUB.ADD;
86: RETURN;
87: END IF;
88:
89:

Line 92: FND_MSG_PUB.add;

88:
89:
90: IF ( G_APPLN_USAGE = 'PM' ) THEN
91: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_PM_MED_PM_INSTALL' );
92: FND_MSG_PUB.add;
93: x_return_status := FND_API.G_RET_STS_ERROR;
94: RETURN;
95: END IF;
96:

Line 102: FND_MSG_PUB.add;

98:
99: IF ( p_mr_header_id = FND_API.G_MISS_NUM OR
100: p_mr_header_id IS NULL ) THEN
101: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_MR_HEADER_ID_NULL' );
102: FND_MSG_PUB.add;
103: x_return_status := FND_API.G_RET_STS_ERROR;
104: RETURN;
105: END IF;
106:

Line 117: FND_MSG_PUB.add;

113: );
114:
115: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
116: FND_MESSAGE.set_name( 'AHL', l_msg_data );
117: FND_MSG_PUB.add;
118: x_return_status := l_return_status;
119: RETURN;
120: END IF;
121:

Line 126: FND_MSG_PUB.add;

122: -- Check if a valid value is passed in p_mr_effectivity_id
123: IF ( p_mr_effectivity_id = FND_API.G_MISS_NUM OR
124: p_mr_effectivity_id IS NULL ) THEN
125: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_MRE_ID_NULL' );
126: FND_MSG_PUB.add;
127: x_return_status := FND_API.G_RET_STS_ERROR;
128: RETURN;
129: END IF;
130:

Line 141: FND_MSG_PUB.add;

137: );
138:
139: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
140: FND_MESSAGE.set_name( 'AHL', l_msg_data );
141: FND_MSG_PUB.add;
142: x_return_status := l_return_status;
143: RETURN;
144: END IF;
145:

Line 150: FND_MSG_PUB.add;

146: -- Check if atleast one record is passed in p_effectivity_detail_tbl
147: IF ( p_effectivity_detail_tbl.count < 1 ) THEN
148: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
149: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME );
150: FND_MSG_PUB.add;
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: RETURN;
153: END IF;
154:

Line 163: FND_MSG_PUB.add;

159: p_effectivity_detail_tbl(i).dml_operation <> 'C' ) THEN
160: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_DML_INVALID' );
161: FND_MESSAGE.set_token( 'FIELD', p_effectivity_detail_tbl(i).dml_operation );
162: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_tbl(i) ) );
163: FND_MSG_PUB.add;
164: x_return_status := FND_API.G_RET_STS_ERROR;
165: RETURN;
166: END IF;
167: END LOOP;

Line 279: FND_MSG_PUB.add;

275: END IF;
276: END IF;
277:
278: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_rec ) );
279: FND_MSG_PUB.add;
280: END IF;
281:
282: END IF;
283:

Line 309: FND_MSG_PUB.add;

305: ELSE
306: FND_MESSAGE.set_token( 'FIELD', p_x_effectivity_detail_rec.country );
307: END IF;
308: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_rec ) );
309: FND_MSG_PUB.add;
310: END IF;
311:
312: END IF;
313:

Line 519: FND_MSG_PUB.add;

515:
516: IF get_old_rec%NOTFOUND THEN
517: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_INVALID_EFF_DTL_REC' );
518: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_rec ) );
519: FND_MSG_PUB.add;
520: CLOSE get_old_rec;
521: RAISE FND_API.G_EXC_ERROR;
522: END IF;
523:

Line 694: FND_MSG_PUB.add;

690: IF ( p_effectivity_detail_rec.exclude_flag IS NULL OR
691: p_effectivity_detail_rec.exclude_flag = FND_API.G_MISS_CHAR ) THEN
692: FND_MESSAGE.set_name( 'AHL','AHL_FMP_EX_FLAG_NULL' );
693: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
694: FND_MSG_PUB.add;
695: ELSE
696: -- Check if the Exclude Flag does not contain an invalid value.
697: IF ( p_effectivity_detail_rec.exclude_flag <> 'Y' AND
698: p_effectivity_detail_rec.exclude_flag <> 'N' ) THEN

Line 702: FND_MSG_PUB.add;

698: p_effectivity_detail_rec.exclude_flag <> 'N' ) THEN
699: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_EX_FLAG' );
700: FND_MESSAGE.set_token( 'FIELD', p_effectivity_detail_rec.exclude_flag );
701: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
702: FND_MSG_PUB.add;
703: END IF;
704: END IF;
705: RETURN;
706: END IF;

Line 713: FND_MSG_PUB.add;

709: -- Check if the Exclude Flag does not contain a null value.
710: IF ( p_effectivity_detail_rec.exclude_flag = FND_API.G_MISS_CHAR ) THEN
711: FND_MESSAGE.set_name( 'AHL','AHL_FMP_EX_FLAG_NULL' );
712: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
713: FND_MSG_PUB.add;
714: ELSIF ( p_effectivity_detail_rec.exclude_flag IS NOT NULL ) THEN
715: -- Check if the Exclude Flag does not contain an invalid value.
716: IF ( p_effectivity_detail_rec.exclude_flag <> 'Y' AND
717: p_effectivity_detail_rec.exclude_flag <> 'N' ) THEN

Line 721: FND_MSG_PUB.add;

717: p_effectivity_detail_rec.exclude_flag <> 'N' ) THEN
718: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_EX_FLAG' );
719: FND_MESSAGE.set_token( 'FIELD', p_effectivity_detail_rec.exclude_flag );
720: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
721: FND_MSG_PUB.add;
722: END IF;
723: END IF;
724: END IF;
725:

Line 731: FND_MSG_PUB.add;

727: IF ( p_effectivity_detail_rec.mr_effectivity_detail_id IS NULL OR
728: p_effectivity_detail_rec.mr_effectivity_detail_id = FND_API.G_MISS_NUM ) THEN
729: FND_MESSAGE.set_name( 'AHL','AHL_FMP_MR_EFF_DTL_ID_NULL' );
730: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
731: FND_MSG_PUB.add;
732: END IF;
733:
734: -- Check if the mandatory Object Version Number column contains a null value.
735: IF ( p_effectivity_detail_rec.object_version_number IS NULL OR

Line 739: FND_MSG_PUB.add;

735: IF ( p_effectivity_detail_rec.object_version_number IS NULL OR
736: p_effectivity_detail_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
737: FND_MESSAGE.set_name( 'AHL','AHL_FMP_MED_OBJ_VERSION_NULL' );
738: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
739: FND_MSG_PUB.add;
740: END IF;
741:
742: END validate_attributes;
743:

Line 775: FND_MSG_PUB.add;

771: FND_MESSAGE.set_name( 'AHL', l_msg_data );
772: FND_MESSAGE.set_token( 'FIELD1', p_effectivity_detail_rec.serial_number_from );
773: FND_MESSAGE.set_token( 'FIELD2', p_effectivity_detail_rec.serial_number_to );
774: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
775: FND_MSG_PUB.add;
776: END IF;
777: END IF;
778:
779: -- Check if Manufacture date range is valid

Line 788: FND_MSG_PUB.add;

784: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_MFG_DT_RANGE' );
785: FND_MESSAGE.set_token( 'FIELD1', p_effectivity_detail_rec.manufacture_date_from );
786: FND_MESSAGE.set_token( 'FIELD2', p_effectivity_detail_rec.manufacture_date_to );
787: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
788: FND_MSG_PUB.add;
789: END IF;
790: END IF;
791:
792: -- Check if atleast one value is passed in the record

Line 802: FND_MSG_PUB.add;

798: p_effectivity_detail_rec.manufacture_date_to IS NULL AND
799: p_effectivity_detail_rec.country IS NULL AND
800: p_effectivity_detail_rec.country_code IS NULL ) THEN
801: FND_MESSAGE.set_name( 'AHL','AHL_FMP_ONE_VALUE_REQD' );
802: FND_MSG_PUB.add;
803: END IF;
804:
805: END validate_record;
806:

Line 854: FND_MSG_PUB.add;

850: EXIT WHEN get_dup_rec%NOTFOUND;
851:
852: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_DUPLICATE_MED_REC' );
853: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_effectivity_detail_rec ) );
854: FND_MSG_PUB.add;
855: END LOOP;
856:
857: IF ( get_dup_rec%ROWCOUNT > 0 ) THEN
858: CLOSE get_dup_rec;

Line 950: FND_MSG_PUB.initialize;

946: END IF;
947:
948: -- Initialize message list if p_init_msg_list is set to TRUE.
949: IF FND_API.to_boolean( p_init_msg_list ) THEN
950: FND_MSG_PUB.initialize;
951: END IF;
952:
953: -- Enable Debug (optional)
954: IF ( G_DEBUG = 'Y' ) THEN

Line 1097: l_msg_count := FND_MSG_PUB.count_msg;

1093: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : after validate_record' );
1094: END IF;
1095:
1096: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1097: l_msg_count := FND_MSG_PUB.count_msg;
1098: IF l_msg_count > 0 THEN
1099: x_msg_count := l_msg_count;
1100: RAISE FND_API.G_EXC_ERROR;
1101: END IF;

Line 1217: FND_MSG_PUB.add;

1213: -- If the record does not exist, then, abort API.
1214: IF ( SQL%ROWCOUNT = 0 ) THEN
1215: FND_MESSAGE.set_name('AHL','AHL_FMP_RECORD_CHANGED');
1216: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_tbl(i) ) );
1217: FND_MSG_PUB.add;
1218: RAISE FND_API.G_EXC_ERROR;
1219: END IF;
1220:
1221: -- Set OUT values

Line 1235: FND_MSG_PUB.add;

1231: -- If the record does not exist, then, abort API.
1232: IF ( SQL%ROWCOUNT = 0 ) THEN
1233: FND_MESSAGE.set_name('AHL','AHL_FMP_RECORD_CHANGED');
1234: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
1235: FND_MSG_PUB.add;
1236: RAISE FND_API.G_EXC_ERROR;
1237: END IF;
1238: END IF;
1239:

Line 1297: FND_MSG_PUB.add;

1293: )
1294: THEN
1295: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_OVERLAP_MED_REC' );
1296: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_tbl(i) ) );
1297: FND_MSG_PUB.add;
1298: RAISE FND_API.G_EXC_ERROR;
1299: END IF;
1300:
1301: END IF;

Line 1336: FND_MSG_PUB.count_and_get

1332: COMMIT WORK;
1333: END IF;
1334:
1335: -- Count and Get messages (optional)
1336: FND_MSG_PUB.count_and_get
1337: (
1338: p_encoded => FND_API.G_FALSE,
1339: p_count => x_msg_count,
1340: p_data => x_msg_data

Line 1353: FND_MSG_PUB.count_and_get

1349:
1350: WHEN FND_API.G_EXC_ERROR THEN
1351: ROLLBACK TO process_effectivity_detail_PVT;
1352: x_return_status := FND_API.G_RET_STS_ERROR ;
1353: FND_MSG_PUB.count_and_get
1354: (
1355: p_encoded => FND_API.G_FALSE,
1356: p_count => x_msg_count,
1357: p_data => x_msg_data

Line 1368: FND_MSG_PUB.count_and_get

1364:
1365: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1366: ROLLBACK TO process_effectivity_detail_PVT;
1367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1368: FND_MSG_PUB.count_and_get
1369: (
1370: p_encoded => FND_API.G_FALSE,
1371: p_count => x_msg_count,
1372: p_data => x_msg_data

Line 1383: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )

1379:
1380: WHEN OTHERS THEN
1381: ROLLBACK TO process_effectivity_detail_PVT;
1382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1383: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1384: THEN
1385: FND_MSG_PUB.add_exc_msg
1386: (
1387: p_pkg_name => G_PKG_NAME,

Line 1385: FND_MSG_PUB.add_exc_msg

1381: ROLLBACK TO process_effectivity_detail_PVT;
1382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1383: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1384: THEN
1385: FND_MSG_PUB.add_exc_msg
1386: (
1387: p_pkg_name => G_PKG_NAME,
1388: p_procedure_name => G_API_NAME,
1389: p_error_text => SUBSTRB(SQLERRM,1,240)

Line 1392: FND_MSG_PUB.count_and_get

1388: p_procedure_name => G_API_NAME,
1389: p_error_text => SUBSTRB(SQLERRM,1,240)
1390: );
1391: END IF;
1392: FND_MSG_PUB.count_and_get
1393: (
1394: p_encoded => FND_API.G_FALSE,
1395: p_count => x_msg_count,
1396: p_data => x_msg_data