source: FOIAVistA/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCXV228A.m@ 1540

Last change on this file since 1540 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.0 KB
Line 
1RCXV228A ;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 ;
8EN ; 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 ;
49EXIT K RCXVDSC,RTASKS,ZTDESC,ZTRTN,ZTDTH,XPDQUES,RCXVFFD,RCXVFTD
50 K RCXFY03,RCXVFL,RFDATE,TIME,ZTSAVE,ZTIO,RCXVCFLG,RCQDT
51 Q
52 ;
53TSK ; 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 ;
Note: See TracBrowser for help on using the repository browser.