| 1 | RCXV228A ;TJK/OI ALBANY@ALTOONA-AR Data Extraction Post-Install Program ;23-JUL-03
|
|---|
| 2 | ;;4.5;Accounts Receivable;**234**;Mar 20, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ;** Program Description **
|
|---|
| 5 | ; This program sets up monthly historical transactions
|
|---|
| 6 | ; for CBO to ARC Data Extractions (FY05)
|
|---|
| 7 | ;
|
|---|
| 8 | EN ; Entry Point
|
|---|
| 9 | ;
|
|---|
| 10 | S RFDATE=$$SAT^RCXVUTIL(DT)
|
|---|
| 11 | ;
|
|---|
| 12 | ; Set up monthly records since the end of the Fiscal Year 2004
|
|---|
| 13 | S RCXVDSC="CBO FISCAL YR 2005 (9/28/04-10/31/04)"
|
|---|
| 14 | S RCXVFFD=3040928,RCXVFTD=3041031,RCXVCFLG=1 D TSK
|
|---|
| 15 | ;
|
|---|
| 16 | S RCXVDSC="CBO FISCAL YR 2005 (11/1/04-11/30/04)"
|
|---|
| 17 | S RCXVFFD=3041101,RCXVFTD=3041130,RCXVCFLG=1 D TSK
|
|---|
| 18 | ;
|
|---|
| 19 | S RCXVDSC="CBO FISCAL YR 2005 (12/1/04-12/31/04)"
|
|---|
| 20 | S RCXVFFD=3041201,RCXVFTD=3041230,RCXVCFLG=1 D TSK
|
|---|
| 21 | ;
|
|---|
| 22 | S RCXVDSC="CBO FISCAL YR 2005 (1/1/05-1/31/05)"
|
|---|
| 23 | S RCXVFFD=3050101,RCXVFTD=3050131,RCXVCFLG=1 D TSK
|
|---|
| 24 | ;
|
|---|
| 25 | S RCXVDSC="CBO FISCAL YR 2005 (2/1/05-2/28/05)"
|
|---|
| 26 | S RCXVFFD=3050201,RCXVFTD=3050228,RCXVCFLG=1 D TSK
|
|---|
| 27 | ;
|
|---|
| 28 | S RCXVDSC="CBO FISCAL YR 2005 (3/1/05-3/31/05)"
|
|---|
| 29 | S RCXVFFD=3050301,RCXVFTD=3050331,RCXVCFLG=1 D TSK
|
|---|
| 30 | ;
|
|---|
| 31 | S RCXVDSC="CBO FISCAL YR 2005 (4/1/05-4/30/05)"
|
|---|
| 32 | S RCXVFFD=3050401,RCXVFTD=3050430,RCXVCFLG=1 D TSK
|
|---|
| 33 | ;
|
|---|
| 34 | S RCXVDSC="CBO FISCAL YR 2005 (5/1/05-5/31/05)"
|
|---|
| 35 | S RCXVFFD=3050501,RCXVFTD=3050531,RCXVCFLG=1 D TSK
|
|---|
| 36 | ;
|
|---|
| 37 | S RCXVDSC="CBO FISCAL YR 2005 (6/1/05-6/30/05)"
|
|---|
| 38 | S RCXVFFD=3050601,RCXVFTD=3050630,RCXVCFLG=1 D TSK
|
|---|
| 39 | ;
|
|---|
| 40 | S RCXVDSC="CBO FISCAL YR 2005 (7/1/05-7/31/05)"
|
|---|
| 41 | S RCXVFFD=3050701,RCXVFTD=3050731,RCXVCFLG=1 D TSK
|
|---|
| 42 | ;
|
|---|
| 43 | S RCXVDSC="CBO FISCAL YR 2005 (8/1/05-8/31/05)"
|
|---|
| 44 | S RCXVFFD=3050801,RCXVFTD=3050831,RCXVCFLG=1 D TSK
|
|---|
| 45 | ;
|
|---|
| 46 | S RCXVDSC="CBO FISCAL YR 2005 (9/1/05-9/27/05)"
|
|---|
| 47 | S RCXVFFD=3050901,RCXVFTD=3050927,RCXVCFLG=1 D TSK
|
|---|
| 48 | ;
|
|---|
| 49 | EXIT K RCXVDSC,RTASKS,ZTDESC,ZTRTN,ZTDTH,XPDQUES,RCXVFFD,RCXVFTD
|
|---|
| 50 | K RCXFY03,RCXVFL,RFDATE,TIME,ZTSAVE,ZTIO,RCXVCFLG,RCQDT
|
|---|
| 51 | Q
|
|---|
| 52 | ;
|
|---|
| 53 | TSK ; Set up Task for current fiscal year 2005
|
|---|
| 54 | S ZTDESC=RCXVDSC,ZTRTN="CUR^RCXVTSK",ZTIO=""
|
|---|
| 55 | S ZTSAVE("RCXVFFD")="",ZTSAVE("RCXVFTD")="",ZTSAVE("RCXVCFLG")=""
|
|---|
| 56 | S ZTDTH=RFDATE_".06"
|
|---|
| 57 | D ^%ZTLOAD
|
|---|
| 58 | S RFDATE=$$FMADD^XLFDT(RFDATE,7)
|
|---|
| 59 | Q
|
|---|
| 60 | ;
|
|---|
