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
Q
;
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)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCXV228A 2059 printed Dec 13, 2024@01:49:26 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 ;
