49: /* Returns TRUE if mandatory information is missing from record,
50: ** otherwise returns FALSE if information is complete
51: */
52: FUNCTION is_seed_qual_rec_missing
53: ( p_seed_qual_rec IN JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type)
54: RETURN VARCHAR2
55: IS
56: BEGIN
57:
72: ** All mandatory items are present
73: ** Convert missing values to defaults
74: */
75: PROCEDURE validate_seed_qual_rec
76: ( p_seed_qual_rec IN JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type,
77: p_validation_mode IN VARCHAR2,
78: p_validation_level IN NUMBER,
79: x_return_status OUT NOCOPY VARCHAR2)
80: IS
79: x_return_status OUT NOCOPY VARCHAR2)
80: IS
81: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
82:
83: l_seed_qual_rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type := p_seed_qual_rec;
84:
85: BEGIN
86:
87:
121:
122:
123: /* Insert seeded qualifier record into database */
124: PROCEDURE Create_Seed_Qual_Record
125: ( p_seed_qual_rec IN JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type,
126: x_seed_qual_out_rec OUT NOCOPY JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type )
127: IS
128:
129: CURSOR c_chk_qual_name (l_qual_name VARCHAR2) IS
122:
123: /* Insert seeded qualifier record into database */
124: PROCEDURE Create_Seed_Qual_Record
125: ( p_seed_qual_rec IN JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type,
126: x_seed_qual_out_rec OUT NOCOPY JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type )
127: IS
128:
129: CURSOR c_chk_qual_name (l_qual_name VARCHAR2) IS
130: SELECT seeded_qual_id
133:
134: l_seeded_qual_id_csr NUMBER;
135:
136: l_rowid ROWID;
137: l_seed_qual_rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC;
138: l_seed_qual_out_rec JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_OUT_REC;
139:
140: BEGIN
141:
134: l_seeded_qual_id_csr NUMBER;
135:
136: l_rowid ROWID;
137: l_seed_qual_rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC;
138: l_seed_qual_out_rec JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_OUT_REC;
139:
140: BEGIN
141:
142: -- Initialise API return status to success
204:
205:
206: -- Update seeded qualifier record in database
207: PROCEDURE Update_Seed_Qual_Record
208: ( p_seed_qual_rec IN JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type,
209: x_seed_qual_out_rec OUT NOCOPY JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type )
210: IS
211:
212: l_rowid ROWID;
205:
206: -- Update seeded qualifier record in database
207: PROCEDURE Update_Seed_Qual_Record
208: ( p_seed_qual_rec IN JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type,
209: x_seed_qual_out_rec OUT NOCOPY JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type )
210: IS
211:
212: l_rowid ROWID;
213: l_seed_qual_rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC;
209: x_seed_qual_out_rec OUT NOCOPY JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type )
210: IS
211:
212: l_rowid ROWID;
213: l_seed_qual_rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC;
214: l_seed_qual_out_rec JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_OUT_REC;
215:
216: BEGIN
217: -- Initialise API return status to success
210: IS
211:
212: l_rowid ROWID;
213: l_seed_qual_rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC;
214: l_seed_qual_out_rec JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_OUT_REC;
215:
216: BEGIN
217: -- Initialise API return status to success
218: l_seed_qual_out_rec.return_status := FND_API.G_RET_STS_SUCCESS;
353: ----------------------------------------------------------------------
354:
355: -- Converts missing items' values to default values
356: PROCEDURE convert_miss_qual_usgs_rec
357: ( p_qual_usgs_rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type,
358: x_qual_usgs_rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type)
359: IS
360:
361: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type := p_qual_usgs_rec;
354:
355: -- Converts missing items' values to default values
356: PROCEDURE convert_miss_qual_usgs_rec
357: ( p_qual_usgs_rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type,
358: x_qual_usgs_rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type)
359: IS
360:
361: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type := p_qual_usgs_rec;
362:
357: ( p_qual_usgs_rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type,
358: x_qual_usgs_rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type)
359: IS
360:
361: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type := p_qual_usgs_rec;
362:
363: BEGIN
364:
365: IF (l_qual_usgs_rec.enabled_flag = FND_API.G_MISS_CHAR) THEN
406:
407: -- Returns TRUE if mandatory information is missing from record,
408: -- otherwise returns FALSE if information is complete
409: FUNCTION is_qual_usgs_rec_missing
410: ( p_qual_usgs_rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type)
411: RETURN VARCHAR2
412: IS
413: BEGIN
414:
533: ** value, so that the record can still be inserted into the database
534: ** Checks items that use lookup values
535: */
536: FUNCTION qual_usgs_info_is_valid
537: ( p_qual_usgs_rec IN OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type)
538: RETURN VARCHAR2
539: IS
540:
541: /* return varaible */
541: /* return varaible */
542: l_return_variable VARCHAR2(1) := FND_API.G_TRUE;
543:
544: /* local scratch record */
545: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type;
546:
547: BEGIN
548:
549:
573: ** All mandatory items are present
574: ** Convert missing values to defaults
575: */
576: PROCEDURE validate_qual_usgs_rec
577: ( p_qual_usgs_rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type,
578: p_validation_mode IN VARCHAR2,
579: p_validation_level IN NUMBER,
580: x_return_status OUT NOCOPY VARCHAR2)
581: IS
592: -- Initialise return status
593: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
594:
595: -- Initialise local Qualifer Usages record
596: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type := p_qual_usgs_rec;
597:
598: BEGIN
599:
600:
765:
766: -- Insert qualifier usage record into database
767: PROCEDURE Create_Qual_Usgs_Record
768: ( p_seed_qual_id IN NUMBER,
769: p_qual_usgs_rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type,
770: x_qual_usgs_out_rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type)
771: IS
772:
773: l_return_csr VARCHAR2(1);
766: -- Insert qualifier usage record into database
767: PROCEDURE Create_Qual_Usgs_Record
768: ( p_seed_qual_id IN NUMBER,
769: p_qual_usgs_rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type,
770: x_qual_usgs_out_rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type)
771: IS
772:
773: l_return_csr VARCHAR2(1);
774:
772:
773: l_return_csr VARCHAR2(1);
774:
775: l_rowid ROWID;
776: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC;
777: l_qual_usgs_out_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_OUT_REC;
778:
779: BEGIN
780:
773: l_return_csr VARCHAR2(1);
774:
775: l_rowid ROWID;
776: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC;
777: l_qual_usgs_out_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_OUT_REC;
778:
779: BEGIN
780:
781: l_qual_usgs_rec := p_qual_usgs_rec;
859:
860:
861: -- Update qualifier usage record in database
862: PROCEDURE Update_Qual_Usgs_Record
863: ( p_qual_usgs_rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type,
864: x_qual_usgs_out_rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type)
865: IS
866:
867: l_rowid ROWID;
860:
861: -- Update qualifier usage record in database
862: PROCEDURE Update_Qual_Usgs_Record
863: ( p_qual_usgs_rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type,
864: x_qual_usgs_out_rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type)
865: IS
866:
867: l_rowid ROWID;
868: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC;
864: x_qual_usgs_out_rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type)
865: IS
866:
867: l_rowid ROWID;
868: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC;
869: l_qual_usgs_out_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_OUT_REC;
870:
871: BEGIN
872:
865: IS
866:
867: l_rowid ROWID;
868: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC;
869: l_qual_usgs_out_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_OUT_REC;
870:
871: BEGIN
872:
873:
1111: -- IN :
1112: -- Required
1113: -- Parameter Name Data Type Default
1114: -- p_api_version NUMBER
1115: -- p_Seed_Qual_Rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC
1116: -- p_Qual_Usgs_Rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC
1117: --
1118: -- Optional
1119: -- Parameter Name Data Type Default
1112: -- Required
1113: -- Parameter Name Data Type Default
1114: -- p_api_version NUMBER
1115: -- p_Seed_Qual_Rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC
1116: -- p_Qual_Usgs_Rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC
1117: --
1118: -- Optional
1119: -- Parameter Name Data Type Default
1120: -- P_Init_Msg_List VARCHAR2 FND_API.G_FALSE
1143: x_Return_Status OUT NOCOPY VARCHAR2,
1144: x_Msg_Count OUT NOCOPY NUMBER,
1145: x_Msg_Data OUT NOCOPY VARCHAR2,
1146: -- commented eihsu 11/04
1147: p_Seed_Qual_Rec IN JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type ,--:= JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC,
1148: p_Qual_Usgs_Rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type ,--:= JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC,
1149: x_Seed_Qual_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type,
1150: x_Qual_Usgs_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type
1151: )
1144: x_Msg_Count OUT NOCOPY NUMBER,
1145: x_Msg_Data OUT NOCOPY VARCHAR2,
1146: -- commented eihsu 11/04
1147: p_Seed_Qual_Rec IN JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type ,--:= JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC,
1148: p_Qual_Usgs_Rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type ,--:= JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC,
1149: x_Seed_Qual_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type,
1150: x_Qual_Usgs_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type
1151: )
1152: IS
1145: x_Msg_Data OUT NOCOPY VARCHAR2,
1146: -- commented eihsu 11/04
1147: p_Seed_Qual_Rec IN JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type ,--:= JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC,
1148: p_Qual_Usgs_Rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type ,--:= JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC,
1149: x_Seed_Qual_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type,
1150: x_Qual_Usgs_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type
1151: )
1152: IS
1153: l_api_name CONSTANT VARCHAR2(30) := 'Create_Qualifier';
1146: -- commented eihsu 11/04
1147: p_Seed_Qual_Rec IN JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type ,--:= JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC,
1148: p_Qual_Usgs_Rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type ,--:= JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC,
1149: x_Seed_Qual_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type,
1150: x_Qual_Usgs_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type
1151: )
1152: IS
1153: l_api_name CONSTANT VARCHAR2(30) := 'Create_Qualifier';
1154: l_api_version CONSTANT NUMBER := 1.0;
1153: l_api_name CONSTANT VARCHAR2(30) := 'Create_Qualifier';
1154: l_api_version CONSTANT NUMBER := 1.0;
1155: l_return_status VARCHAR2(1);
1156:
1157: l_seed_qual_rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type;
1158: l_seed_qual_out_rec JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type;
1159:
1160: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type;
1161: l_qual_usgs_out_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type;
1154: l_api_version CONSTANT NUMBER := 1.0;
1155: l_return_status VARCHAR2(1);
1156:
1157: l_seed_qual_rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type;
1158: l_seed_qual_out_rec JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type;
1159:
1160: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type;
1161: l_qual_usgs_out_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type;
1162:
1156:
1157: l_seed_qual_rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type;
1158: l_seed_qual_out_rec JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type;
1159:
1160: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type;
1161: l_qual_usgs_out_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type;
1162:
1163: /* variable for qualifier disable eligibility test */
1164: l_qualifier_used VARCHAR2(30);
1157: l_seed_qual_rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type;
1158: l_seed_qual_out_rec JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type;
1159:
1160: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type;
1161: l_qual_usgs_out_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type;
1162:
1163: /* variable for qualifier disable eligibility test */
1164: l_qualifier_used VARCHAR2(30);
1165:
1386: -- IN :
1387: -- Required
1388: -- Parameter Name Data Type Default
1389: -- p_api_version NUMBER
1390: -- p_Seed_Qual_Rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC
1391: -- p_Qual_Usgs_Rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC
1392: --
1393: -- Optional
1394: -- Parameter Name Data Type Default
1387: -- Required
1388: -- Parameter Name Data Type Default
1389: -- p_api_version NUMBER
1390: -- p_Seed_Qual_Rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC
1391: -- p_Qual_Usgs_Rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC
1392: --
1393: -- Optional
1394: -- Parameter Name Data Type Default
1395: -- P_Init_Msg_List VARCHAR2 FND_API.G_FALSE
1417: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1418: x_Return_Status OUT NOCOPY VARCHAR2,
1419: x_Msg_Count OUT NOCOPY NUMBER,
1420: x_Msg_Data OUT NOCOPY VARCHAR2,
1421: p_Seed_Qual_Rec IN JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC,
1422: p_Qual_Usgs_Rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC,
1423: x_Seed_Qual_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type,
1424: x_Qual_Usgs_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type
1425: )
1418: x_Return_Status OUT NOCOPY VARCHAR2,
1419: x_Msg_Count OUT NOCOPY NUMBER,
1420: x_Msg_Data OUT NOCOPY VARCHAR2,
1421: p_Seed_Qual_Rec IN JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC,
1422: p_Qual_Usgs_Rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC,
1423: x_Seed_Qual_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type,
1424: x_Qual_Usgs_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type
1425: )
1426: IS
1419: x_Msg_Count OUT NOCOPY NUMBER,
1420: x_Msg_Data OUT NOCOPY VARCHAR2,
1421: p_Seed_Qual_Rec IN JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC,
1422: p_Qual_Usgs_Rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC,
1423: x_Seed_Qual_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type,
1424: x_Qual_Usgs_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type
1425: )
1426: IS
1427: l_api_name CONSTANT VARCHAR2(30) := 'Update_Qualifier';
1420: x_Msg_Data OUT NOCOPY VARCHAR2,
1421: p_Seed_Qual_Rec IN JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_SEED_QUAL_REC,
1422: p_Qual_Usgs_Rec IN JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type := JTF_QUALIFIER_PUB.G_MISS_QUAL_USGS_ALL_REC,
1423: x_Seed_Qual_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type,
1424: x_Qual_Usgs_Rec OUT NOCOPY JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type
1425: )
1426: IS
1427: l_api_name CONSTANT VARCHAR2(30) := 'Update_Qualifier';
1428: l_api_version CONSTANT NUMBER := 1.0;
1428: l_api_version CONSTANT NUMBER := 1.0;
1429: l_return_status VARCHAR2(1);
1430:
1431: /* local scratch records */
1432: l_seed_qual_rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type;
1433: l_seed_qual_out_rec JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type;
1434:
1435: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type;
1436: l_qual_usgs_out_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type;
1429: l_return_status VARCHAR2(1);
1430:
1431: /* local scratch records */
1432: l_seed_qual_rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type;
1433: l_seed_qual_out_rec JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type;
1434:
1435: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type;
1436: l_qual_usgs_out_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type;
1437:
1431: /* local scratch records */
1432: l_seed_qual_rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type;
1433: l_seed_qual_out_rec JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type;
1434:
1435: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type;
1436: l_qual_usgs_out_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type;
1437:
1438: BEGIN
1439:
1432: l_seed_qual_rec JTF_QUALIFIER_PUB.Seed_Qual_Rec_Type;
1433: l_seed_qual_out_rec JTF_QUALIFIER_PUB.Seed_Qual_Out_Rec_Type;
1434:
1435: l_qual_usgs_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Rec_Type;
1436: l_qual_usgs_out_rec JTF_QUALIFIER_PUB.Qual_Usgs_All_Out_Rec_Type;
1437:
1438: BEGIN
1439:
1440: