| 1 | RCXVP228 ;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 | ;
|
|---|
| 8 | EN ; 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 | ;
|
|---|
| 15 | ACT ;Queue up active bill transmission
|
|---|
| 16 | D P228^RCXVP201
|
|---|
| 17 | CUR ; 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 | ;
|
|---|
| 46 | FY04 ;
|
|---|
| 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
|
|---|
| 59 | EXIT K RCXVDSC,RTASKS,ZTDESC,ZTRTN,ZTDTH,XPDQUES,RCXVFFD,RCXVFTD
|
|---|
| 60 | K RCXFY03,RCXVFL,RFDATE,TIME,ZTSAVE,ZTIO,RCXVCFLG,RCQDT
|
|---|
| 61 | Q
|
|---|
| 62 | ;
|
|---|
| 63 | TSK ; 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 | ;
|
|---|
