RCXVP201 ;DAOU/ALA-AR Data Extraction Post-Install Program ;23-JUL-03
;;4.5;Accounts Receivable;**201,228**;Mar 20, 1995
;
;** Program Description **
; This program will be run on installation of patch
; PRCA*4.5*201 for CBO to ARC Data Extractions
;
EN ; Entry Point
NEW RJ,RCLM,IEN,TXT,VAL
;
M XPDQUES=^TMP("RCXVINSTALL")
;
; Set up the maximum number of records in a batch
S RCXVUP(342,"1,",20.05)=5000
S RCXVUP(342,"1,",20.01)=$S($G(XPDQUES("PRE DIREC"))'="":$G(XPDQUES("PRE DIREC")),1:"PRT$:[SPOOL]")
S RCXVUP(342,"1,",20.02)=$S($G(XPDQUES("POS MAIL"))'="":$G(XPDQUES("POS MAIL")),1:"RCXVFTP")
S RCXVUP(342,"1,",20.06)=$S($P($$PARAM^HLCS2(),U,3)="P":"PRODUCTION",1:"TEST")
S RCXVUP(342,"1,",20.04)="ON"
;
D FILE^DIE("E","RCXVUP","ERROR")
;
; Add installer to mail group RCXVFTP
D ADDMBRS^XMXAPIG(DUZ,"RCXVFTP",DUZ)
;
P228 ;Entry point from PRCA*4.5*228 postinit (RCXVP228)
AC ; Set up the active records into the AR Queue File (#348.4)
S RCXVDSC="CBO ACTIVE BILLS"
S RCXVFL=$$TASK^RCXVUTIL(RCXVDSC)
I 'RCXVFL D
. S ZTDESC=RCXVDSC,ZTRTN="ACT^RCXVTSK",ZTIO=""
. ;2 lines below changed to automatically queue at 8pm
. ;S TIME=$S($G(XPDQUES("PRE HISTM"))'="":$P($G(XPDQUES("PRE HISTM")),".",2),1:"20")
. S ZTDTH=$$DT^XLFDT()_".20"
. D ^%ZTLOAD
;QUIT Below terminates call from 228 post-init
Q
;
CUR ; Set up records since the end of the Fiscal Year 2003
S RCXVDSC="CBO FISCAL YR 2004 (9/26/03-10/31/03)"
S RCXVFFD=3030926,RCXVFTD=3031031,RCXVCFLG=1
S RFDATE=$$SAT^RCXVUTIL(DT) D TSK
;
S RCXVDSC="CBO FISCAL YR 2004 (11/1/03-11/30/03)"
S RCXVFFD=3031101,RCXVFTD=3031130,RCXVCFLG=1 D TSK
;
S RCXVDSC="CBO FISCAL YR 2004 (12/1/03-12/31/03)"
S RCXVFFD=3031201,RCXVFTD=3031231,RCXVCFLG=1 D TSK
;
S RCXVDSC="CBO FISCAL YR 2004 (1/1/04-1/31/04)"
S RCXVFFD=3040101,RCXVFTD=3040131,RCXVCFLG=1 D TSK
;
S RCXVDSC="CBO FISCAL YR 2004 (2/1/04-2/29/04)"
S RCXVFFD=3040201,RCXVFTD=3040229,RCXVCFLG=1 D TSK
;
S RCXVDSC="CBO FISCAL YR 2004 (3/1/04-3/31/04)"
S RCXVFFD=3040301,RCXVFTD=3040331,RCXVCFLG=1 D TSK
;
S RCXVDSC="CBO FISCAL YR 2004 (4/1/04-4/30/04)"
S RCXVFFD=3040401,RCXVFTD=3040430,RCXVCFLG=1 D TSK
;
I $E(DT,4,5)="05" D
. S RCXVDSC="CBO FISCAL YR 2004 (5/1/04-5/31/04)"
. S RCXVFFD=3040501,RCXVFTD=3040531,RCXVCFLG=1 D TSK
;
I $E(DT,4,5)="06" D
. S RCXVDSC="CBO FISCAL YR 2004 (5/1/04-5/31/04)"
. S RCXVFFD=3040501,RCXVFTD=3040531,RCXVCFLG=1 D TSK
. S RCXVDSC="CBO FISCAL YR 2004 (6/1/04-6/30/04)"
. S RCXVFFD=3040601,RCXVFTD=3040630,RCXVCFLG=1 D TSK
;
I $E(DT,4,5)="07" D
. S RCXVDSC="CBO FISCAL YR 2004 (5/1/04-5/31/04)"
. S RCXVFFD=3040501,RCXVFTD=3040531,RCXVCFLG=1 D TSK
. S RCXVDSC="CBO FISCAL YR 2004 (6/1/04-6/30/04)"
. S RCXVFFD=3040601,RCXVFTD=3040630,RCXVCFLG=1 D TSK
. S RCXVDSC="CBO FISCAL YR 2004 (7/1/04-7/31/04)"
. S RCXVFFD=3040701,RCXVFTD=3040731,RCXVCFLG=1 D TSK
;
I $E(DT,4,5)="08" D
. S RCXVDSC="CBO FISCAL YR 2004 (5/1/04-5/31/04)"
. S RCXVFFD=3040501,RCXVFTD=3040531,RCXVCFLG=1 D TSK
. S RCXVDSC="CBO FISCAL YR 2004 (6/1/04-6/30/04)"
. S RCXVFFD=3040601,RCXVFTD=3040630,RCXVCFLG=1 D TSK
. S RCXVDSC="CBO FISCAL YR 2004 (7/1/04-7/31/04)"
. S RCXVFFD=3040701,RCXVFTD=3040731,RCXVCFLG=1 D TSK
. S RCXVDSC="CBO FISCAL YR 2004 (8/1/04-8/31/04)"
. S RCXVFFD=3040801,RCXVFTD=3040831,RCXVCFLG=1 D TSK
;
I $E(DT,4,5)="09" D
. S RCXVDSC="CBO FISCAL YR 2004 (5/1/04-5/31/04)"
. S RCXVFFD=3040501,RCXVFTD=3040531,RCXVCFLG=1 D TSK
. S RCXVDSC="CBO FISCAL YR 2004 (6/1/04-6/30/04)"
. S RCXVFFD=3040601,RCXVFTD=3040630,RCXVCFLG=1 D TSK
. S RCXVDSC="CBO FISCAL YR 2004 (7/1/04-7/31/04)"
. S RCXVFFD=3040701,RCXVFTD=3040731,RCXVCFLG=1 D TSK
. S RCXVDSC="CBO FISCAL YR 2004 (8/1/04-8/31/04)"
. S RCXVFFD=3040801,RCXVFTD=3040831,RCXVCFLG=1 D TSK
. S RCXVDSC="CBO FISCAL YR 2004 (9/1/04-9/27/04)"
. S RCXVFFD=3040901,RCXVFTD=3040927,RCXVCFLG=1 D TSK
;
F03 ; Historical for Fiscal Year 2003
S RCXVDSC="CBO HISTORICAL EXTRACT FY03"
S RCXVFL=$$TASK^RCXVUTIL(RCXVDSC)
I $G(RFDATE)="" S ZTDTH=$$SAT^RCXVUTIL(DT),RFDATE=$$FMADD^XLFDT(ZTDTH,7)
I 'RCXVFL D
. S RCXVFFD=3021001,RCXVFTD=3030925
. S ZTDESC=RCXVDSC,ZTRTN="HIS^RCXVTSK",ZTIO=""
. S ZTSAVE("RCXVFFD")="",ZTSAVE("RCXVFTD")=""
. S ZTDTH=RFDATE_".06",RFDATE=$$FMADD^XLFDT(RFDATE,7)
. D ^%ZTLOAD
;
F02 ; Historical for Fiscal Year 2002
S RCXVDSC="CBO HISTORICAL EXTRACT FY02"
S RCXVFL=$$TASK^RCXVUTIL(RCXVDSC)
I $G(RFDATE)="" S ZTDTH=$$SAT^RCXVUTIL(DT),RFDATE=$$FMADD^XLFDT(ZTDTH,7)
I 'RCXVFL D
. S RCXVFFD=3011001,RCXVFTD=3020930
. S ZTDESC=RCXVDSC,ZTRTN="HIS^RCXVTSK",ZTIO=""
. S ZTSAVE("RCXVFFD")="",ZTSAVE("RCXVFTD")=""
. S ZTDTH=RFDATE_".06",RFDATE=$$FMADD^XLFDT(RFDATE,7)
. D ^%ZTLOAD
;
F01 ; Historical for Fiscal Year 2001
S RCXVDSC="CBO HISTORICAL EXTRACT FY01"
S RCXVFL=$$TASK^RCXVUTIL(RCXVDSC)
I $G(RFDATE)="" S ZTDTH=$$SAT^RCXVUTIL(DT),RFDATE=$$FMADD^XLFDT(ZTDTH,7)
I 'RCXVFL D
. S RCXVFFD=3001001,RCXVFTD=3010930
. S ZTDESC=RCXVDSC,ZTRTN="HIS^RCXVTSK",ZTIO=""
. S ZTSAVE("RCXVFFD")="",ZTSAVE("RCXVFTD")=""
. S ZTDTH=RFDATE_".06"
. D ^%ZTLOAD
;
FLG ; Update with CBO EXTRACT FLAG
F RJ=1:1 S RCLM=$T(TTS+RJ) Q:RCLM=" ;;Q" D
. S IEN=$P(RCLM,";",3),TXT=$P(RCLM,";",4),VAL=$P(RCLM,";",5)
. I $P(^PRCA(430.3,IEN,0),U,1)=TXT S RCXVUP(430.3,IEN_",",5)=VAL
D FILE^DIE("I","RCXVUP","RCERR")
;
EXIT K RCXVDSC,RTASKS,ZTDESC,ZTRTN,ZTDTH,XPDQUES,RCXVFFD,RCXVFTD
K RCXFY03,RCXVFL,RFDATE,TIME
K ^TMP("RCXVINSTALL")
Q
;
TSK ; Set up Task for current fiscal year 2004
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
;
TTS ; AR TRANSACTION TYPE File (#430.3) Update
;;1;INCREASE ADJUSTMENT;1
;;2;PAYMENT (IN PART);1
;;3;REFER TO RC;1
;;4;REFER TO DOJ;1
;;5;REESTABLISH TO RC/DOJ;1
;;6;RETURNED BY RC/DOJ;1
;;7;CASH COLLECTION BY RC/DOJ;1
;;8;TERM.BY FIS.OFFICER;1
;;9;TERM.BY COMPROMISE;1
;;10;WAIVED IN FULL;1
;;11;WAIVED IN PART;1
;;12;ADMIN.COST CHARGE;1
;;13;INTEREST/ADM. CHARGE;1
;;14;EXEMPT INT/ADM. COST;1
;;15;INCOMPLETE;0
;;16;ACTIVE;1
;;17;IN-ACTIVE;
;;18;NEW BILL;0
;;19;SUSPENSE;1
;;20;PENDING APPROVAL;0
;;21;PENDING CALM CODE;0
;;22;COLLECTED/CLOSED;1
;;23;WRITE-OFF;1
;;24;MARSHAL/COURT COST;1
;;25;REPAYMENT PLAN;0
;;26;CANCELLED BILL;1
;;27;BILL INCOMPLETE;0
;;28;OLD BILL;0
;;29;TERM.BY RC/DOJ;1
;;30;DEBIT VOUCHER (SF 5515);0
;;31;RETURNED FROM AR (NEW);0
;;32;RETURNED FOR AMENDMENT;0
;;33;AMENDED BILL;0
;;34;PAYMENT (IN FULL);1
;;35;DECREASE ADJUSTMENT;1
;;36;DELETE (AMEND);0
;;37;ADD (AMEND);0
;;38;AMEND;0
;;39;CANCELLATION;1
;;40;SUSPENDED;1
;;41;REFUNDED;1
;;42;OPEN;0
;;43;RE-ESTABLISH;1
;;44;REFUND REVIEW;1
;;45;COMMENT;0
;;46;UNSUSPENDED;1
;;47;CHARGE SUSPENDED;1
;;48;PENDING ARCHIVE;0
;;49;ARCHIVED;0
;;Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCXVP201 7018 printed Nov 22, 2024@16:59:55 Page 2
RCXVP201 ;DAOU/ALA-AR Data Extraction Post-Install Program ;23-JUL-03
+1 ;;4.5;Accounts Receivable;**201,228**;Mar 20, 1995
+2 ;
+3 ;** Program Description **
+4 ; This program will be run on installation of patch
+5 ; PRCA*4.5*201 for CBO to ARC Data Extractions
+6 ;
EN ; Entry Point
+1 NEW RJ,RCLM,IEN,TXT,VAL
+2 ;
+3 MERGE XPDQUES=^TMP("RCXVINSTALL")
+4 ;
+5 ; Set up the maximum number of records in a batch
+6 SET RCXVUP(342,"1,",20.05)=5000
+7 SET RCXVUP(342,"1,",20.01)=$SELECT($GET(XPDQUES("PRE DIREC"))'="":$GET(XPDQUES("PRE DIREC")),1:"PRT$:[SPOOL]")
+8 SET RCXVUP(342,"1,",20.02)=$SELECT($GET(XPDQUES("POS MAIL"))'="":$GET(XPDQUES("POS MAIL")),1:"RCXVFTP")
+9 SET RCXVUP(342,"1,",20.06)=$SELECT($PIECE($$PARAM^HLCS2(),U,3)="P":"PRODUCTION",1:"TEST")
+10 SET RCXVUP(342,"1,",20.04)="ON"
+11 ;
+12 DO FILE^DIE("E","RCXVUP","ERROR")
+13 ;
+14 ; Add installer to mail group RCXVFTP
+15 DO ADDMBRS^XMXAPIG(DUZ,"RCXVFTP",DUZ)
+16 ;
P228 ;Entry point from PRCA*4.5*228 postinit (RCXVP228)
AC ; Set up the active records into the AR Queue File (#348.4)
+1 SET RCXVDSC="CBO ACTIVE BILLS"
+2 SET RCXVFL=$$TASK^RCXVUTIL(RCXVDSC)
+3 IF 'RCXVFL
Begin DoDot:1
+4 SET ZTDESC=RCXVDSC
SET ZTRTN="ACT^RCXVTSK"
SET ZTIO=""
+5 ;2 lines below changed to automatically queue at 8pm
+6 ;S TIME=$S($G(XPDQUES("PRE HISTM"))'="":$P($G(XPDQUES("PRE HISTM")),".",2),1:"20")
+7 SET ZTDTH=$$DT^XLFDT()_".20"
+8 DO ^%ZTLOAD
End DoDot:1
+9 ;QUIT Below terminates call from 228 post-init
+10 QUIT
+11 ;
CUR ; Set up records since the end of the Fiscal Year 2003
+1 SET RCXVDSC="CBO FISCAL YR 2004 (9/26/03-10/31/03)"
+2 SET RCXVFFD=3030926
SET RCXVFTD=3031031
SET RCXVCFLG=1
+3 SET RFDATE=$$SAT^RCXVUTIL(DT)
DO TSK
+4 ;
+5 SET RCXVDSC="CBO FISCAL YR 2004 (11/1/03-11/30/03)"
+6 SET RCXVFFD=3031101
SET RCXVFTD=3031130
SET RCXVCFLG=1
DO TSK
+7 ;
+8 SET RCXVDSC="CBO FISCAL YR 2004 (12/1/03-12/31/03)"
+9 SET RCXVFFD=3031201
SET RCXVFTD=3031231
SET RCXVCFLG=1
DO TSK
+10 ;
+11 SET RCXVDSC="CBO FISCAL YR 2004 (1/1/04-1/31/04)"
+12 SET RCXVFFD=3040101
SET RCXVFTD=3040131
SET RCXVCFLG=1
DO TSK
+13 ;
+14 SET RCXVDSC="CBO FISCAL YR 2004 (2/1/04-2/29/04)"
+15 SET RCXVFFD=3040201
SET RCXVFTD=3040229
SET RCXVCFLG=1
DO TSK
+16 ;
+17 SET RCXVDSC="CBO FISCAL YR 2004 (3/1/04-3/31/04)"
+18 SET RCXVFFD=3040301
SET RCXVFTD=3040331
SET RCXVCFLG=1
DO TSK
+19 ;
+20 SET RCXVDSC="CBO FISCAL YR 2004 (4/1/04-4/30/04)"
+21 SET RCXVFFD=3040401
SET RCXVFTD=3040430
SET RCXVCFLG=1
DO TSK
+22 ;
+23 IF $EXTRACT(DT,4,5)="05"
Begin DoDot:1
+24 SET RCXVDSC="CBO FISCAL YR 2004 (5/1/04-5/31/04)"
+25 SET RCXVFFD=3040501
SET RCXVFTD=3040531
SET RCXVCFLG=1
DO TSK
End DoDot:1
+26 ;
+27 IF $EXTRACT(DT,4,5)="06"
Begin DoDot:1
+28 SET RCXVDSC="CBO FISCAL YR 2004 (5/1/04-5/31/04)"
+29 SET RCXVFFD=3040501
SET RCXVFTD=3040531
SET RCXVCFLG=1
DO TSK
+30 SET RCXVDSC="CBO FISCAL YR 2004 (6/1/04-6/30/04)"
+31 SET RCXVFFD=3040601
SET RCXVFTD=3040630
SET RCXVCFLG=1
DO TSK
End DoDot:1
+32 ;
+33 IF $EXTRACT(DT,4,5)="07"
Begin DoDot:1
+34 SET RCXVDSC="CBO FISCAL YR 2004 (5/1/04-5/31/04)"
+35 SET RCXVFFD=3040501
SET RCXVFTD=3040531
SET RCXVCFLG=1
DO TSK
+36 SET RCXVDSC="CBO FISCAL YR 2004 (6/1/04-6/30/04)"
+37 SET RCXVFFD=3040601
SET RCXVFTD=3040630
SET RCXVCFLG=1
DO TSK
+38 SET RCXVDSC="CBO FISCAL YR 2004 (7/1/04-7/31/04)"
+39 SET RCXVFFD=3040701
SET RCXVFTD=3040731
SET RCXVCFLG=1
DO TSK
End DoDot:1
+40 ;
+41 IF $EXTRACT(DT,4,5)="08"
Begin DoDot:1
+42 SET RCXVDSC="CBO FISCAL YR 2004 (5/1/04-5/31/04)"
+43 SET RCXVFFD=3040501
SET RCXVFTD=3040531
SET RCXVCFLG=1
DO TSK
+44 SET RCXVDSC="CBO FISCAL YR 2004 (6/1/04-6/30/04)"
+45 SET RCXVFFD=3040601
SET RCXVFTD=3040630
SET RCXVCFLG=1
DO TSK
+46 SET RCXVDSC="CBO FISCAL YR 2004 (7/1/04-7/31/04)"
+47 SET RCXVFFD=3040701
SET RCXVFTD=3040731
SET RCXVCFLG=1
DO TSK
+48 SET RCXVDSC="CBO FISCAL YR 2004 (8/1/04-8/31/04)"
+49 SET RCXVFFD=3040801
SET RCXVFTD=3040831
SET RCXVCFLG=1
DO TSK
End DoDot:1
+50 ;
+51 IF $EXTRACT(DT,4,5)="09"
Begin DoDot:1
+52 SET RCXVDSC="CBO FISCAL YR 2004 (5/1/04-5/31/04)"
+53 SET RCXVFFD=3040501
SET RCXVFTD=3040531
SET RCXVCFLG=1
DO TSK
+54 SET RCXVDSC="CBO FISCAL YR 2004 (6/1/04-6/30/04)"
+55 SET RCXVFFD=3040601
SET RCXVFTD=3040630
SET RCXVCFLG=1
DO TSK
+56 SET RCXVDSC="CBO FISCAL YR 2004 (7/1/04-7/31/04)"
+57 SET RCXVFFD=3040701
SET RCXVFTD=3040731
SET RCXVCFLG=1
DO TSK
+58 SET RCXVDSC="CBO FISCAL YR 2004 (8/1/04-8/31/04)"
+59 SET RCXVFFD=3040801
SET RCXVFTD=3040831
SET RCXVCFLG=1
DO TSK
+60 SET RCXVDSC="CBO FISCAL YR 2004 (9/1/04-9/27/04)"
+61 SET RCXVFFD=3040901
SET RCXVFTD=3040927
SET RCXVCFLG=1
DO TSK
End DoDot:1
+62 ;
F03 ; Historical for Fiscal Year 2003
+1 SET RCXVDSC="CBO HISTORICAL EXTRACT FY03"
+2 SET RCXVFL=$$TASK^RCXVUTIL(RCXVDSC)
+3 IF $GET(RFDATE)=""
SET ZTDTH=$$SAT^RCXVUTIL(DT)
SET RFDATE=$$FMADD^XLFDT(ZTDTH,7)
+4 IF 'RCXVFL
Begin DoDot:1
+5 SET RCXVFFD=3021001
SET RCXVFTD=3030925
+6 SET ZTDESC=RCXVDSC
SET ZTRTN="HIS^RCXVTSK"
SET ZTIO=""
+7 SET ZTSAVE("RCXVFFD")=""
SET ZTSAVE("RCXVFTD")=""
+8 SET ZTDTH=RFDATE_".06"
SET RFDATE=$$FMADD^XLFDT(RFDATE,7)
+9 DO ^%ZTLOAD
End DoDot:1
+10 ;
F02 ; Historical for Fiscal Year 2002
+1 SET RCXVDSC="CBO HISTORICAL EXTRACT FY02"
+2 SET RCXVFL=$$TASK^RCXVUTIL(RCXVDSC)
+3 IF $GET(RFDATE)=""
SET ZTDTH=$$SAT^RCXVUTIL(DT)
SET RFDATE=$$FMADD^XLFDT(ZTDTH,7)
+4 IF 'RCXVFL
Begin DoDot:1
+5 SET RCXVFFD=3011001
SET RCXVFTD=3020930
+6 SET ZTDESC=RCXVDSC
SET ZTRTN="HIS^RCXVTSK"
SET ZTIO=""
+7 SET ZTSAVE("RCXVFFD")=""
SET ZTSAVE("RCXVFTD")=""
+8 SET ZTDTH=RFDATE_".06"
SET RFDATE=$$FMADD^XLFDT(RFDATE,7)
+9 DO ^%ZTLOAD
End DoDot:1
+10 ;
F01 ; Historical for Fiscal Year 2001
+1 SET RCXVDSC="CBO HISTORICAL EXTRACT FY01"
+2 SET RCXVFL=$$TASK^RCXVUTIL(RCXVDSC)
+3 IF $GET(RFDATE)=""
SET ZTDTH=$$SAT^RCXVUTIL(DT)
SET RFDATE=$$FMADD^XLFDT(ZTDTH,7)
+4 IF 'RCXVFL
Begin DoDot:1
+5 SET RCXVFFD=3001001
SET RCXVFTD=3010930
+6 SET ZTDESC=RCXVDSC
SET ZTRTN="HIS^RCXVTSK"
SET ZTIO=""
+7 SET ZTSAVE("RCXVFFD")=""
SET ZTSAVE("RCXVFTD")=""
+8 SET ZTDTH=RFDATE_".06"
+9 DO ^%ZTLOAD
End DoDot:1
+10 ;
FLG ; Update with CBO EXTRACT FLAG
+1 FOR RJ=1:1
SET RCLM=$TEXT(TTS+RJ)
if RCLM=" ;;Q"
QUIT
Begin DoDot:1
+2 SET IEN=$PIECE(RCLM,";",3)
SET TXT=$PIECE(RCLM,";",4)
SET VAL=$PIECE(RCLM,";",5)
+3 IF $PIECE(^PRCA(430.3,IEN,0),U,1)=TXT
SET RCXVUP(430.3,IEN_",",5)=VAL
End DoDot:1
+4 DO FILE^DIE("I","RCXVUP","RCERR")
+5 ;
EXIT KILL RCXVDSC,RTASKS,ZTDESC,ZTRTN,ZTDTH,XPDQUES,RCXVFFD,RCXVFTD
+1 KILL RCXFY03,RCXVFL,RFDATE,TIME
+2 KILL ^TMP("RCXVINSTALL")
+3 QUIT
+4 ;
TSK ; Set up Task for current fiscal year 2004
+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 ;
TTS ; AR TRANSACTION TYPE File (#430.3) Update
+1 ;;1;INCREASE ADJUSTMENT;1
+2 ;;2;PAYMENT (IN PART);1
+3 ;;3;REFER TO RC;1
+4 ;;4;REFER TO DOJ;1
+5 ;;5;REESTABLISH TO RC/DOJ;1
+6 ;;6;RETURNED BY RC/DOJ;1
+7 ;;7;CASH COLLECTION BY RC/DOJ;1
+8 ;;8;TERM.BY FIS.OFFICER;1
+9 ;;9;TERM.BY COMPROMISE;1
+10 ;;10;WAIVED IN FULL;1
+11 ;;11;WAIVED IN PART;1
+12 ;;12;ADMIN.COST CHARGE;1
+13 ;;13;INTEREST/ADM. CHARGE;1
+14 ;;14;EXEMPT INT/ADM. COST;1
+15 ;;15;INCOMPLETE;0
+16 ;;16;ACTIVE;1
+17 ;;17;IN-ACTIVE;
+18 ;;18;NEW BILL;0
+19 ;;19;SUSPENSE;1
+20 ;;20;PENDING APPROVAL;0
+21 ;;21;PENDING CALM CODE;0
+22 ;;22;COLLECTED/CLOSED;1
+23 ;;23;WRITE-OFF;1
+24 ;;24;MARSHAL/COURT COST;1
+25 ;;25;REPAYMENT PLAN;0
+26 ;;26;CANCELLED BILL;1
+27 ;;27;BILL INCOMPLETE;0
+28 ;;28;OLD BILL;0
+29 ;;29;TERM.BY RC/DOJ;1
+30 ;;30;DEBIT VOUCHER (SF 5515);0
+31 ;;31;RETURNED FROM AR (NEW);0
+32 ;;32;RETURNED FOR AMENDMENT;0
+33 ;;33;AMENDED BILL;0
+34 ;;34;PAYMENT (IN FULL);1
+35 ;;35;DECREASE ADJUSTMENT;1
+36 ;;36;DELETE (AMEND);0
+37 ;;37;ADD (AMEND);0
+38 ;;38;AMEND;0
+39 ;;39;CANCELLATION;1
+40 ;;40;SUSPENDED;1
+41 ;;41;REFUNDED;1
+42 ;;42;OPEN;0
+43 ;;43;RE-ESTABLISH;1
+44 ;;44;REFUND REVIEW;1
+45 ;;45;COMMENT;0
+46 ;;46;UNSUSPENDED;1
+47 ;;47;CHARGE SUSPENDED;1
+48 ;;48;PENDING ARCHIVE;0
+49 ;;49;ARCHIVED;0
+50 ;;Q
