Routine: RCXV228A

RCXV228A ;TJK/OI ALBANY@ALTOONA-AR Data Extraction Post-Install Program ;23-JUL-03

 ;;4.5;Accounts Receivable;**234**;Mar 20, 1995

 ;** Program Description **

 ;  This program sets up monthly historical transactions

 ;  for CBO to ARC Data Extractions (FY05)

EN ; Entry Point

 S RFDATE=$$SAT^RCXVUTIL(DT)

 ;  Set up monthly records since the end of the Fiscal Year 2004

 S RCXVDSC="CBO FISCAL YR 2005 (9/28/04-10/31/04)"

 S RCXVFFD=3040928,RCXVFTD=3041031,RCXVCFLG=1 D TSK

 S RCXVDSC="CBO FISCAL YR 2005 (11/1/04-11/30/04)"

 S RCXVFFD=3041101,RCXVFTD=3041130,RCXVCFLG=1 D TSK

 S RCXVDSC="CBO FISCAL YR 2005 (12/1/04-12/31/04)"

 S RCXVFFD=3041201,RCXVFTD=3041230,RCXVCFLG=1 D TSK

 S RCXVDSC="CBO FISCAL YR 2005 (1/1/05-1/31/05)"

 S RCXVFFD=3050101,RCXVFTD=3050131,RCXVCFLG=1 D TSK

 S RCXVDSC="CBO FISCAL YR 2005 (2/1/05-2/28/05)"

 S RCXVFFD=3050201,RCXVFTD=3050228,RCXVCFLG=1 D TSK

 S RCXVDSC="CBO FISCAL YR 2005 (3/1/05-3/31/05)"

 S RCXVFFD=3050301,RCXVFTD=3050331,RCXVCFLG=1 D TSK

 S RCXVDSC="CBO FISCAL YR 2005 (4/1/05-4/30/05)"

 S RCXVFFD=3050401,RCXVFTD=3050430,RCXVCFLG=1 D TSK

 S RCXVDSC="CBO FISCAL YR 2005 (5/1/05-5/31/05)"

 S RCXVFFD=3050501,RCXVFTD=3050531,RCXVCFLG=1 D TSK

 S RCXVDSC="CBO FISCAL YR 2005 (6/1/05-6/30/05)"

 S RCXVFFD=3050601,RCXVFTD=3050630,RCXVCFLG=1 D TSK

 S RCXVDSC="CBO FISCAL YR 2005 (7/1/05-7/31/05)"

 S RCXVFFD=3050701,RCXVFTD=3050731,RCXVCFLG=1 D TSK

 S RCXVDSC="CBO FISCAL YR 2005 (8/1/05-8/31/05)"

 S RCXVFFD=3050801,RCXVFTD=3050831,RCXVCFLG=1 D TSK

 S RCXVDSC="CBO FISCAL YR 2005 (9/1/05-9/27/05)"

 S RCXVFFD=3050901,RCXVFTD=3050927,RCXVCFLG=1 D TSK

EXIT K RCXVDSC,RTASKS,ZTDESC,ZTRTN,ZTDTH,XPDQUES,RCXVFFD,RCXVFTD

 K RCXFY03,RCXVFL,RFDATE,TIME,ZTSAVE,ZTIO,RCXVCFLG,RCQDT

TSK ;  Set up Task for current fiscal year 2005

 S ZTDESC=RCXVDSC,ZTRTN="CUR^RCXVTSK",ZTIO=""

 S ZTSAVE("RCXVFFD")="",ZTSAVE("RCXVFTD")="",ZTSAVE("RCXVCFLG")=""

 S ZTDTH=RFDATE_".06"

 D ^%ZTLOAD

 S RFDATE=$$FMADD^XLFDT(RFDATE,7)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCXV228A   2059     printed  Feb 18, 2025@23:15:50                                                                                                                                                                                                    Page 2

RCXV228A  ;TJK/OI ALBANY@ALTOONA-AR Data Extraction Post-Install Program ;23-JUL-03

 +1       ;;4.5;Accounts Receivable;**234**;Mar 20, 1995

 +2       ;

 +3       ;** Program Description **

 +4       ;  This program sets up monthly historical transactions

 +5       ;  for CBO to ARC Data Extractions (FY05)

 +6       ;

EN        ; Entry Point

 +1       ;

 +2        SET RFDATE=$$SAT^RCXVUTIL(DT)

 +3       ;

 +4       ;  Set up monthly records since the end of the Fiscal Year 2004

 +5        SET RCXVDSC="CBO FISCAL YR 2005 (9/28/04-10/31/04)"

 +6        SET RCXVFFD=3040928

           SET RCXVFTD=3041031

           SET RCXVCFLG=1

           DO TSK

 +7       ;

 +8        SET RCXVDSC="CBO FISCAL YR 2005 (11/1/04-11/30/04)"

 +9        SET RCXVFFD=3041101

           SET RCXVFTD=3041130

           SET RCXVCFLG=1

           DO TSK

 +10      ;

 +11       SET RCXVDSC="CBO FISCAL YR 2005 (12/1/04-12/31/04)"

 +12       SET RCXVFFD=3041201

           SET RCXVFTD=3041230

           SET RCXVCFLG=1

           DO TSK

 +13      ;

 +14       SET RCXVDSC="CBO FISCAL YR 2005 (1/1/05-1/31/05)"

 +15       SET RCXVFFD=3050101

           SET RCXVFTD=3050131

           SET RCXVCFLG=1

           DO TSK

 +16      ;

 +17       SET RCXVDSC="CBO FISCAL YR 2005 (2/1/05-2/28/05)"

 +18       SET RCXVFFD=3050201

           SET RCXVFTD=3050228

           SET RCXVCFLG=1

           DO TSK

 +19      ;

 +20       SET RCXVDSC="CBO FISCAL YR 2005 (3/1/05-3/31/05)"

 +21       SET RCXVFFD=3050301

           SET RCXVFTD=3050331

           SET RCXVCFLG=1

           DO TSK

 +22      ;

 +23       SET RCXVDSC="CBO FISCAL YR 2005 (4/1/05-4/30/05)"

 +24       SET RCXVFFD=3050401

           SET RCXVFTD=3050430

           SET RCXVCFLG=1

           DO TSK

 +25      ;

 +26       SET RCXVDSC="CBO FISCAL YR 2005 (5/1/05-5/31/05)"

 +27       SET RCXVFFD=3050501

           SET RCXVFTD=3050531

           SET RCXVCFLG=1

           DO TSK

 +28      ;

 +29       SET RCXVDSC="CBO FISCAL YR 2005 (6/1/05-6/30/05)"

 +30       SET RCXVFFD=3050601

           SET RCXVFTD=3050630

           SET RCXVCFLG=1

           DO TSK

 +31      ;

 +32       SET RCXVDSC="CBO FISCAL YR 2005 (7/1/05-7/31/05)"

 +33       SET RCXVFFD=3050701

           SET RCXVFTD=3050731

           SET RCXVCFLG=1

           DO TSK

 +34      ;

 +35       SET RCXVDSC="CBO FISCAL YR 2005 (8/1/05-8/31/05)"

 +36       SET RCXVFFD=3050801

           SET RCXVFTD=3050831

           SET RCXVCFLG=1

           DO TSK

 +37      ;

 +38       SET RCXVDSC="CBO FISCAL YR 2005 (9/1/05-9/27/05)"

 +39       SET RCXVFFD=3050901

           SET RCXVFTD=3050927

           SET RCXVCFLG=1

           DO TSK

 +40      ;

EXIT       KILL RCXVDSC,RTASKS,ZTDESC,ZTRTN,ZTDTH,XPDQUES,RCXVFFD,RCXVFTD

 +1        KILL RCXFY03,RCXVFL,RFDATE,TIME,ZTSAVE,ZTIO,RCXVCFLG,RCQDT

 +2        QUIT

 +3       ;

TSK       ;  Set up Task for current fiscal year 2005

 +1        SET ZTDESC=RCXVDSC

           SET ZTRTN="CUR^RCXVTSK"

           SET ZTIO=""

 +2        SET ZTSAVE("RCXVFFD")=""

           SET ZTSAVE("RCXVFTD")=""

           SET ZTSAVE("RCXVCFLG")=""

 +3        SET ZTDTH=RFDATE_".06"

 +4        DO ^%ZTLOAD

 +5        SET RFDATE=$$FMADD^XLFDT(RFDATE,7)

 +6        QUIT

 +7       ;

RCXV228A.m