[Home] [Help]
1: PACKAGE BODY AP_APXWTGNR_XMLP_PKG AS
2: /* $Header: APXWTGNRB.pls 120.0.12020000.3 2012/07/31 10:10:37 asansari ship $ */
3: FUNCTION GET_BASE_CURR_DATA RETURN BOOLEAN IS
4: BASE_CURR AP_SYSTEM_PARAMETERS.BASE_CURRENCY_CODE%TYPE;
5: PREC FND_CURRENCIES_VL.PRECISION%TYPE;
6: MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
7: DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
8: BEGIN
16: C.MINIMUM_ACCOUNTABLE_UNIT,
17: C.DESCRIPTION
18: INTO BASE_CURR,PREC,MIN_AU,DESCR
19: FROM
20: AP_SYSTEM_PARAMETERS P,
21: FND_CURRENCIES_VL C
22: WHERE P.BASE_CURRENCY_CODE = C.CURRENCY_CODE;
23: C_BASE_CURRENCY_CODE := BASE_CURR;
24: C_BASE_PRECISION := PREC;
520: CURSOR C_SOB IS
521: SELECT
522: SET_OF_BOOKS_ID
523: FROM
524: AP_SYSTEM_PARAMETERS;
525: BEGIN
526: OPEN C_SOB;
527: FETCH C_SOB
528: INTO P_SET_OF_BOOKS_ID;
659: SUM(AID.AMOUNT) AMOUNT,
660: SUM(AID.BASE_AMOUNT) BASE_AMOUNT
661: FROM
662: AP_INVOICE_DISTRIBUTIONS AID,
663: AP_SYSTEM_PARAMETERS ASP
664: WHERE (AID.ORG_ID = ASP.ORG_ID)
665: AND ( AID.INVOICE_ID =CINVOICEAMOUNTEXEMPT.INVOICE_ID )
666: AND ( AID.LINE_TYPE_LOOKUP_CODE <> 'AWT' )
667: AND (( ASP.CREATE_AWT_DISTS_TYPE='APPROVAL'
1086: SELECT
1087: NVL(SLA_LEDGER_CASH_BASIS_FLAG
1088: ,'N')
1089: FROM
1090: AP_SYSTEM_PARAMETERS ASP,
1091: GL_SETS_OF_BOOKS GLSOB
1092: WHERE ASP.SET_OF_BOOKS_ID = GLSOB.SET_OF_BOOKS_ID;
1093: L_CASH_BASIS_FLAG VARCHAR2(1);
1094: BEGIN
1305: CURSOR C_SYSTEM_OPTIONS IS
1306: SELECT
1307: CREATE_AWT_DISTS_TYPE
1308: FROM
1309: AP_SYSTEM_PARAMETERS;
1310: RET VARCHAR2(25);
1311: BEGIN
1312: OPEN C_SYSTEM_OPTIONS;
1313: FETCH C_SYSTEM_OPTIONS