source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCXVP228.m@ 1006

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

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1RCXVP228 ;DAOU/ALA-AR Data Extraction Post-Install Program ;23-JUL-03
2 ;;4.5;Accounts Receivable;**228**;Mar 20, 1995
3 ;
4 ;** Program Description **
5 ; This program will be run on installation of patch
6 ; PRCA*4.5*228 for CBO to ARC Data Extractions (FY05)
7 ;
8EN ; Entry Point
9 NEW RCXVX,RCXVCFLG,X,RCXVOID
10 ;
11 S:'$G(RCQDT) RCQDT=DT
12 ; Reset CBO Flag field to for bills in OPEN status to "INCLUDE"
13 S $P(^PRCA(430.3,42,0),U,6)=1
14 ;
15ACT ;Queue up active bill transmission
16 D P228^RCXVP201
17CUR ; Set up records from installation date until end of Fiscal Year 2004
18 N VALUE,DIERR,Z,X,Y
19 S VALUE="PRCA*4.5*201"
20 D FIND^DIC(9.7,"","@;.01;17IE","P",VALUE,"","","","","Z")
21 S RCXVX=0,RCXVFFD="",RCXVOID=""
22 F S RCXVX=$O(Z("DILIST",RCXVX)) Q:'RCXVX D Q:RCXVFFD
23 . S RCXVFFD=$P(Z("DILIST",RCXVX,0),U,3)
24 . Q:'RCXVFFD
25 . S RCXVFFD=$P(RCXVFFD,".")
26 . Q
27 I 'RCXVFFD!(RCXVFFD>3040927) S RCXVFFD=3040825
28 S (RCXVOID,X)=RCXVFFD
29 S RCXVDSC="CBO FISCAL YR 2004 ("_+$E(X,4,5)_"/"_+$E(X,6,7)_"/"_$E(X,2,3)_"-9/27/04)"
30 S RCXVFTD=3040927,RFDATE=$$SAT^RCXVUTIL(DT),RCXVCFLG=1 D TSK
31 ;
32 ; Set up records since the end of the Fiscal Year 2004
33 S RCXVDSC="CBO FISCAL YR 2005 (9/28/04-12/31/04)"
34 S RCXVFFD=3040928,RCXVFTD=3041231,RCXVCFLG=1 D TSK
35 ;
36 S RCXVDSC="CBO FISCAL YR 2005 (1/1/05-3/31/05)"
37 S RCXVFFD=3050101,RCXVFTD=3050331,RCXVCFLG=1 D TSK
38 ;
39 S RCXVDSC="CBO FISCAL YR 2005 (4/1/05-6/30/05)"
40 S RCXVFFD=3050401,RCXVFTD=3050630,RCXVCFLG=1 D TSK
41 G FY04:RCQDT<3050701
42 ;
43 S RCXVDSC="CBO FISCAL YR 2005 (7/1/05-"_+$E(RCQDT,4,5)_"/"_+$E(RCQDT,6,7)_"/"_$E(RCQDT,2,3)_")"
44 S RCXVFFD=3050701,RCXVFTD=RCQDT,RCXVCFLG=1 D TSK
45 ;
46FY04 ;
47 S RCXVDSC="CBO FISCAL YR 2004 (9/26/03-12/31/03)"
48 S RCXVFFD=3030927,RCXVFTD=3031231,RCXVCFLG=1 D TSK
49 ;
50 S RCXVDSC="CBO FISCAL YR 2004 (1/1/04-3/31/04)"
51 S RCXVFFD=3040101,RCXVFTD=3040331,RCXVCFLG=1 D TSK
52 ;
53 S RCXVDSC="CBO FISCAL YR 2004 (4/1/04-6/30/04)"
54 S RCXVFFD=3040401,RCXVFTD=3040630,RCXVCFLG=1 D TSK
55 ;
56 S X1=RCXVOID,X2=-1 D C^%DTC
57 S RCXVDSC="CBO FISCAL YR 2004 (7/1/04-"_+$E(X,4,5)_"/"_+$E(X,6,7)_"/"_$E(X,2,3)_")"
58 S RCXVFFD=3040701,RCXVFTD=3040927,RCXVCFLG=1 D TSK
59EXIT K RCXVDSC,RTASKS,ZTDESC,ZTRTN,ZTDTH,XPDQUES,RCXVFFD,RCXVFTD
60 K RCXFY03,RCXVFL,RFDATE,TIME,ZTSAVE,ZTIO,RCXVCFLG,RCQDT
61 Q
62 ;
63TSK ; Set up Task for current fiscal year 2005
64 S ZTDESC=RCXVDSC,ZTRTN="CUR^RCXVTSK",ZTIO=""
65 S ZTSAVE("RCXVFFD")="",ZTSAVE("RCXVFTD")="",ZTSAVE("RCXVCFLG")=""
66 S ZTDTH=RFDATE_".06"
67 D ^%ZTLOAD
68 I RCXVFTD=3050630,RCQDT>3050630 S RFDATE=$$FMADD^XLFDT(RFDATE,1) Q
69 I RCXVFTD=RCQDT,RCQDT>3050630 S RFDATE=$$FMADD^XLFDT(RFDATE,6) Q
70 S RFDATE=$$FMADD^XLFDT(RFDATE,7)
71 Q
72 ;
Note: See TracBrowser for help on using the repository browser.