[Home] [Help]
96: p_object_version_number IN NUMBER ,
97: p_delete_flag IN VARCHAR2 := 'N'
98: )
99: IS
100: -- Cursor to retrieve doc type code from fnd lookups
101: CURSOR get_doc_type_code(c_doc_type_code VARCHAR2)
102: IS
103: SELECT lookup_code
104: FROM FND_LOOKUPS
100: -- Cursor to retrieve doc type code from fnd lookups
101: CURSOR get_doc_type_code(c_doc_type_code VARCHAR2)
102: IS
103: SELECT lookup_code
104: FROM FND_LOOKUPS
105: WHERE lookup_code = c_doc_type_code
106: AND lookup_type = 'AHL_DOC_TYPE'
107: AND ENABLED_FLAG = 'Y'
108: -- pbarman April 2003
107: AND ENABLED_FLAG = 'Y'
108: -- pbarman April 2003
109: AND sysdate between nvl(start_date_active,sysdate)
110: AND nvl(end_date_active,sysdate);
111: --Cursor to retrieve doc sub type code from fnd lookups
112: CURSOR get_doc_sub_type_code(c_doc_sub_type_code VARCHAR2)
113: IS
114: SELECT lookup_code
115: FROM FND_LOOKUPS
111: --Cursor to retrieve doc sub type code from fnd lookups
112: CURSOR get_doc_sub_type_code(c_doc_sub_type_code VARCHAR2)
113: IS
114: SELECT lookup_code
115: FROM FND_LOOKUPS
116: WHERE lookup_code = c_doc_sub_type_code
117: AND lookup_type = 'AHL_DOC_SUB_TYPE'
118: AND ENABLED_FLAG = 'Y'
119: -- pbarman April 2003
118: AND ENABLED_FLAG = 'Y'
119: -- pbarman April 2003
120: AND sysdate between nvl(start_date_active,sysdate)
121: AND nvl(end_date_active,sysdate);
122: --Cursor to retrieve operator code from fnd lookups
123: --CURSOR get_operator_code(c_operator_code VARCHAR2)
124: -- IS
125: --SELECT lookup_code
126: -- FROM FND_LOOKUPS
122: --Cursor to retrieve operator code from fnd lookups
123: --CURSOR get_operator_code(c_operator_code VARCHAR2)
124: -- IS
125: --SELECT lookup_code
126: -- FROM FND_LOOKUPS
127: -- WHERE lookup_code = c_operator_code
128: -- AND lookup_type = 'AHL_OPERATOR_TYPE'
129: -- AND sysdate between nvl(start_date_active,sysdate)
130: -- AND nvl(end_date_active,sysdate);
138: WHERE party_id = c_operator_code
139: AND ( party_type ='ORGANIZATION' or party_type = 'PERSON' );
140:
141:
142: --Cursor to retrieve product type code from fnd lookups
143:
144: CURSOR get_product_type_code(c_product_type_code VARCHAR2)
145: IS
146: SELECT lookup_code
351: */
352: --Added pjha 02-Jul-2002 for Restricting Subscription Avail to 'Yes' If supplier
353: --Exists for the doc: End
354:
355: --This condition checks for existence of doc type code in fnd lookups \
356:
357: IF p_doc_type_code IS NOT NULL
358: THEN
359: OPEN get_doc_type_code(p_doc_type_code);
364: FND_MSG_PUB.ADD;
365: END IF;
366: CLOSE get_doc_type_code;
367: END IF;
368: --Checks for sub type code in fnd lookups
369:
370:
371: IF p_doc_sub_type_code IS NOT NULL
372: THEN
388: END IF;
389:
390: CLOSE get_sub_type_exists;
391: END IF;
392: --Checks for Operator code in fnd lookups
393: IF p_operator_code IS NOT NULL
394: THEN
395: --Enhancement no #2275357 : pbarman : April 2003
396: OPEN get_operator_code_hz(p_operator_code);
1158: P_PREFERENCE_CODE IN VARCHAR2 ,
1159: --P_OBJECT_VERSION_NUMBER IN NUMBER,
1160: P_DELETE_FLAG IN VARCHAR2 := 'N')
1161: IS
1162: -- Cursor to retrieve the preference code from fnd lookups
1163: CURSOR get_preference_code(c_preference_code VARCHAR2)
1164: IS
1165: SELECT lookup_code
1166: FROM FND_LOOKUP_VALUES_VL
1283: THEN
1284: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NULL');
1285: FND_MSG_PUB.ADD;
1286: END IF;
1287: -- This condition checks for existence of preference code in fnd lookups
1288: IF p_preference_code IS NOT NULL
1289: THEN
1290: OPEN get_preference_code(p_preference_code);
1291: FETCH get_preference_code INTO l_dummy;