[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);
1072: P_PREFERENCE_CODE IN VARCHAR2 ,
1073: --P_OBJECT_VERSION_NUMBER IN NUMBER,
1074: P_DELETE_FLAG IN VARCHAR2 := 'N')
1075: IS
1076: -- Cursor to retrieve the preference code from fnd lookups
1077: CURSOR get_preference_code(c_preference_code VARCHAR2)
1078: IS
1079: SELECT lookup_code
1080: FROM FND_LOOKUP_VALUES_VL
1197: THEN
1198: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NULL');
1199: FND_MSG_PUB.ADD;
1200: END IF;
1201: -- This condition checks for existence of preference code in fnd lookups
1202: IF p_preference_code IS NOT NULL
1203: THEN
1204: OPEN get_preference_code(p_preference_code);
1205: FETCH get_preference_code INTO l_dummy;