PRCABJV ;WASH-ISC@ALTOONA,PA/TJK-FILE VERIFICATION FOR BACKGROUND JOB ; Jul 23, 2020@11:17
V ;;4.5;Accounts Receivable;**1,48,63,114,141,170,176,173,192,220,296,310,315,338,350,360,369,377,367,409,436**;Mar 20, 1995;Build 3
;Per VA Directive 6402, this routine should not be modified.
;;patch 192 changes all occurrences of CHAMPUS to TRICARE
EN1(FILE,X1,X2,ERROR) ;
;FILE IS THE FILE NUMBER
;X1 AND X2 ARE 3 PART VARIABLES SEPARATED BY SEMI-COLONS WITH
;THE FORMAT (X-REF INDEX;NODE;PIECE)
;AN ERROR ARRAY IS SET IF VALIDATION FAILS
NEW LT,CNT,I,I1,I2,I3,REC,IND,ND,PC,DATA,J,LN,FILENT
S LT=$S(FILE[430.3:"TRANST",FILE[430.2:"CAT",1:"EVENT"),CNT=0
F I=1,2 S J=@("X"_I),IND(I)=$P(J,";"),ND(I)=$P(J,";",2),PC(I)=$P(J,";",3)
F I1=1:1 D Q:(DATA(0)="EOF")!(ERROR)
.S LN=$T(@LT+I1) F I=3:1:6 S DATA(I-3)=$P(LN,";",I)
.Q:DATA(0)="EOF"
.G RC:FILE<430
.I '$D(^PRCA(FILE,"B",DATA(0))) S ERROR=1 Q
.S REC=$O(^PRCA(FILE,"B",DATA(0),0)) I 'REC S ERROR=1 Q
.I DATA(3)'=REC S ERROR=1 Q
.I $P(^PRCA(FILE,REC,0),U)'=DATA(0) S ERROR=1 Q
.G CNT:X1=""
.F I2=1,2 D Q:ERROR I I2=1,X2="" Q
..I '$D(^PRCA(FILE,IND(I2),DATA(I2))) S ERROR=1 G Q2
..; do not check if category number is a zero
..I I2=1,DATA(1)'=0,$O(^PRCA(FILE,IND(I2),DATA(I2),0))'=REC S ERROR=1 G Q2
..I $P(^PRCA(FILE,REC,ND(I2)),U,PC(I2))'=DATA(I2) S ERROR=1
Q2 ..Q
CNT .Q:ERROR
.S CNT=CNT+1
Q1 .Q
RC .I '$D(^RC(FILE,"B",DATA(0))) S ERROR=1 Q
.S REC=$O(^RC(FILE,"B",DATA(0),0)) I 'REC S ERROR=1 Q
.I DATA(3)'=REC S ERROR=1 Q
.I $P(^RC(FILE,REC,0),U)'=DATA(0) S ERROR=1 Q
.G CNT:X1=""
.F I3=1,2 D Q:ERROR I I3=1,X2="" Q
..I '$D(^RC(FILE,IND(I3),DATA(I3))) S ERROR=1 G Q3
..I $O(^RC(FILE,IND(I3),DATA(I3),0))'=REC S ERROR=1 G Q3
..I $P(^RC(FILE,REC,ND(I3)),U,PC(I3))'=DATA(I3) S ERROR=1
Q3 ..Q
.G CNT
I FILE>429.99,$P(^PRCA(FILE,0),U,4)'=CNT S ERROR=1 G EXIT
G EXIT:FILE>429.99
I $P(^RC(FILE,0),U,4)'=CNT S ERROR=1
EXIT Q:'ERROR
S FILENT=$S(FILE>429.99:$P(^PRCA(FILE,0),U,4),1:$P(^RC(FILE,0),U,4))
S ERROR(1)="An error has been detected in the "_$P(^DIC(FILE,0),U)_" File."
I DATA(0)="EOF" S ERROR(2)="There are too many entries in your file."
I DATA(0)'="EOF" S ERROR(2)="The "_DATA(0)_" Entry in your file is missing or corrupted."
Q
TRANST ;
;;ACTIVE;102;A;16
;;ADD (AMEND);302;AD;37
;;ADMIN.COST CHARGE;12;AC;12
;;AMEND;303;AM;38
;;AMENDED BILL;110;AB;33
;;ARCHIVED;115;XX;49
;;BILL INCOMPLETE;201;BI;27
;;CANCELLATION;111;CN;39
;;CANCELLED BILL;210;CB;26
;;CASH COLLECTION BY RC/DOJ;7;CJ;7
;;CHARGE SUSPENDED;19;CS;47
;;CLOSE REPAYMENT PLAN;68;RZ;91
;;COLLECTED/CLOSED;108;CC;22
;;COMMENT;17;CM;45
;;CS ADD CASE INFO;47;CZ;67
;;CS ADMIN ADJ TR REV?N;54;AO;76
;;CS ADMIN ADJ TR REV?Y;53;AN;75
;;CS ADMIN.COST CHARGE;52;AE;74
;;CS AUTO RECALL BILL <$25;66;AR;89
;;CS BILL RECALL;34;CR;53
;;CS CASE RECALL;45;CO;64
;;CS DEBTOR NEW BILL;39;CK;85
;;CS DEBTOR RECALL;35;CE;56
;;CS DEBTOR RE-REFER BILL;64;RS;87
;;CS DECR ADJ NOT APP;40;CA;66
;;CS DECREASE ADJ;49;CY;70
;;CS DEL BILL RECALL;37;CF;55
;;CS DEL CASE RECALL;46;CG;65
;;CS DEL DEBTOR RECALL;38;CL;57
;;CS INC ADJ TR REV?N;58;AT;80
;;CS INC ADJ TR REV?Y;57;AS;79
;;CS INCREASE ADJ;51;AI;73
;;CS NEW DBTR NEW BILL;48;CH;68
;;CS PEND RECON;61;RK;83
;;CS RECALL PLACED;62;CQ;84
;;CS RECON WORKED;50;CV;71
;;CS RE-REFER BILL CANCEL;65;RC;88
;;CS RE-REFER BILL REQUEST;63;RR;86
;;CS STOP DELETED;36;CD;54
;;CS STOP PLACED;33;CP;51
;;CS UPDATE DEBT;41;CU;60
;;DEBIT VOUCHER (SF 5515);30;DV;30
;;DECREASE ADJUSTMENT;21;DA;35
;;DEL REPAY PLAN;31;DP;72
;;DELETE (AMEND);301;DL;36
;;EDIT REPAYMENT PLAN;67;EZ;90
;;EXEMPT INT/ADM. COST;14;E;14
;;IN-ACTIVE;103;IA;17
;;INCOMPLETE;101;IN;15
;;INCREASE ADJUSTMENT;1;AJ;1
;;INTEREST/ADM. CHARGE;13;IC;13
;;MARSHAL/COURT COST;15;ML;24
;;NEW BILL;104;N;18
;;OLD BILL;106;OB;28
;;OPEN;112;OP;42
;;PAYMENT (IN FULL);20;PF;34
;;PAYMENT (IN PART);2;PP;2
;;PENDING APPROVAL;205;PA;20
;;PENDING ARCHIVE;114;X;48
;;PENDING CALM CODE;107;PC;21
;;REESTABLISH TO RC/DOJ;5;RR;5
;;RE-ESTABLISH;250;RW;43
;;REFER TO DOJ;4;RJ;4
;;REFER TO RC;3;RC;3
;;REFUND REVIEW;113;PR;44
;;REFUNDED;120;RF;41
;;REPAYMENT PLAN;16;RP;25
;;RETURNED BY RC/DOJ;6;RD;6
;;RETURNED FOR AMENDMENT;230;RA;32
;;RETURNED FROM AR (NEW);220;RT;31
;;RPP TERMINATED;69;RT;92
;;SUSPENDED;240;SP;40
;;SUSPENSE;105;S;19
;;TERM.BY COMPROMISE;9;TC;9
;;TERM.BY FIS.OFFICER;8;TO;8
;;TERM.BY RC/DOJ;29;TJ;29
;;UNSUSPENDED;18;US;46
;;WAIVED IN FULL;10;WF;10
;;WAIVED IN PART;11;WP;11
;;WRITE-OFF;109;WO;23
;;EOF
;
;PRCA*4.5*338 - Added and Alphabetized Community Care categories
CAT ;patch 192 - ISC-0502-N2803 change Champus to Tricare
;;ADULT DAY HEALTH CARE;40;AD;33
;;C (MEANS TEST);24;C;18
;;CC INPT;65;CJ;63
;;CC MTF INPT;69;CX;67
;;CC MTF OPT;86;D3;84
;;CC MTF RX CO-PAYMENT;70;CY;68
;;CC MTF THIRD PARTY;53;C4;51
;;CC NO-FAULT AUTO;60;C8;58
;;CC NURSING HOME CARE - LTC;71;CL;69
;;CC OPT;84;D1;82
;;CC RESPITE CARE;72;CN;70
;;CC RX CO-PAYMENT;66;CK;64
;;CC THIRD PARTY;51;C2;49
;;CC TORT FEASOR;61;C9;59
;;CC URGENT CARE;87;U1;85
;;CC WORKERS' COMP;59;CA;57
;;CCN INPT;67;CO;65
;;CCN NO-FAULT AUTO;57;CB;55
;;CCN NURSING HOME CARE - LTC;73;CR;71
;;CCN OPT;85;D2;83
;;CCN RESPITE CARE;74;CU;72
;;CCN RX CO-PAYMENT;68;CQ;66
;;CCN THIRD PARTY;52;C3;50
;;CCN TORT FEASOR;58;CC;56
;;CCN WORKERS' COMP;56;CD;54
;;CHAMPVA;36;CV;29
;;CHAMPVA SUBSISTENCE;34;CS;27
;;CHAMPVA THIRD PARTY;35;CT;28
;;CHOICE INPT;63;CF;61
;;CHOICE NO-FAULT AUTO;54;C5;52
;;CHOICE NURSING HOME CARE - LTC;75;CH;73
;;CHOICE OPT;83;CZ;81
;;CHOICE RESPITE CARE;76;CI;74
;;CHOICE RX CO-PAYMENT;64;CG;62
;;CHOICE THIRD PARTY;50;C1;48
;;CHOICE TORT FEASOR;55;C6;53
;;CHOICE WORKERS' COMP;62;C7;60
;;COMP & PEN PROCEEDS;8;CM;43
;;CRIME OF PER.VIO.;27;CP;8
;;CURRENT EMP.;14;CE;16
;;CWT PROCEEDS;7;CW;42
;;DOMICILIARY;41;DO;34
;;EMERGENCY/HUMANITARIAN;25;H;2
;;EMERGENCY/HUMANITARIAN REIMB.;48;HR;46
;;ENHANCED USE LEASE PROCEEDS;10;EP;44
;;EX-EMPLOYEE;13;E;15
;;FEDERAL AGENCIES-REFUND;15;F2;13
;;FEDERAL AGENCIES-REIMB.;16;F1;14
;;FEE REIMB INS;47;FR;45
;;GERIATRIC EVAL-INSTITUTIONAL;44;GE;37
;;GERIATRIC EVAL-NON-INSTITUTION;45;GN;38
;;HOSPITAL CARE (NSC);1;HC;5
;;HOSPITAL CARE PER DIEM;32;HP;25
;;INELIGIBLE HOSP.;20;I;1
;;INELIGIBLE HOSP. REIMB.;49;IR;47
;;INTERAGENCY;19;IA;20
;;MEDICARE;28;MC;21
;;MILITARY;17;M;12
;;NO-FAULT AUTO ACC.;26;NA;7
;;NURSING HOME CARE PER DIEM;31;NP;24
;;NURSING HOME CARE(NSC);3;NC;3
;;NURSING HOME CARE-LTC;46;NL;39
;;NURSING HOME PROCEEDS;5;NH;40
;;OUTPATIENT CARE(NSC);2;OC;4
;;PARKING FEES;6;PF;41
;;PREPAYMENT;33;PP;26
;;REIMBURS.HEALTH INS.;21;RI;9
;;RESPITE CARE-INSTITUTIONAL;42;RC;35
;;RESPITE CARE-NON-INSTITUTIONAL;43;RN;36
;;RX CO-PAYMENT/NSC VET;30;PN;23
;;RX CO-PAYMENT/SC VET;29;PS;22
;;SHARING AGREEMENTS;18;SA;19
;;TORT FEASOR;22;TF;10
;;TRICARE;37;T1;30
;;TRICARE BLIND REHABILITATION;80;T7;78
;;TRICARE DENTAL;81;T8;79
;;TRICARE DES;77;T4;75
;;TRICARE PATIENT;38;T2;31
;;TRICARE PHARMACY;82;T9;80
;;TRICARE SCI;78;T5;76
;;TRICARE TBI;79;T6;77
;;TRICARE THIRD PARTY;39;T3;32
;;VENDOR;11;V;17
;;WORKMAN'S COMP.;23;WC;6
;;EOF
; PRCA*4.5*367 - Added comment line for CHAMPVA Event Type
EVENT ;
;;CASH PAYMENT;6;;6
;;CHECK/MO PAYMENT;4;;4
;;COMMENT;1;;1
;;CREDIT CARD PAYMENT;7;;7
;;DEPT OF JUSTICE PAYMENT;5;;5
;;REGIONAL COUNSEL PAYMENT;3;;3
;;FOLLOW-UP LETTER;10;;10
;;IRS PAYMENT;11;;11
;;PATIENT STATEMENT;2;;2
;;TDA PAYMENT;8;;8
;;UB PRINTED;9;;9
;;LOCKBOX;12;;12
;;TOP PAYMENT;13;;13
;;EDI LOCKBOX;14;;14
;;ADMINISTRATIVE OFFSET;15;;15
;;PRIVATE COLLECTION AGENCY;16;;16
;;CHAMPVA;17;;17
;;OGC-EFT;18;;18
;;OGC-CHK;19;;19
;;EOF
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCABJV 8006 printed Dec 13, 2024@01:39:06 Page 2
PRCABJV ;WASH-ISC@ALTOONA,PA/TJK-FILE VERIFICATION FOR BACKGROUND JOB ; Jul 23, 2020@11:17
V ;;4.5;Accounts Receivable;**1,48,63,114,141,170,176,173,192,220,296,310,315,338,350,360,369,377,367,409,436**;Mar 20, 1995;Build 3
+1 ;Per VA Directive 6402, this routine should not be modified.
+2 ;;patch 192 changes all occurrences of CHAMPUS to TRICARE
EN1(FILE,X1,X2,ERROR) ;
+1 ;FILE IS THE FILE NUMBER
+2 ;X1 AND X2 ARE 3 PART VARIABLES SEPARATED BY SEMI-COLONS WITH
+3 ;THE FORMAT (X-REF INDEX;NODE;PIECE)
+4 ;AN ERROR ARRAY IS SET IF VALIDATION FAILS
+5 NEW LT,CNT,I,I1,I2,I3,REC,IND,ND,PC,DATA,J,LN,FILENT
+6 SET LT=$SELECT(FILE[430.3:"TRANST",FILE[430.2:"CAT",1:"EVENT")
SET CNT=0
+7 FOR I=1,2
SET J=@("X"_I)
SET IND(I)=$PIECE(J,";")
SET ND(I)=$PIECE(J,";",2)
SET PC(I)=$PIECE(J,";",3)
+8 FOR I1=1:1
Begin DoDot:1
+9 SET LN=$TEXT(@LT+I1)
FOR I=3:1:6
SET DATA(I-3)=$PIECE(LN,";",I)
+10 if DATA(0)="EOF"
QUIT
+11 if FILE<430
GOTO RC
+12 IF '$DATA(^PRCA(FILE,"B",DATA(0)))
SET ERROR=1
QUIT
+13 SET REC=$ORDER(^PRCA(FILE,"B",DATA(0),0))
IF 'REC
SET ERROR=1
QUIT
+14 IF DATA(3)'=REC
SET ERROR=1
QUIT
+15 IF $PIECE(^PRCA(FILE,REC,0),U)'=DATA(0)
SET ERROR=1
QUIT
+16 if X1=""
GOTO CNT
+17 FOR I2=1,2
Begin DoDot:2
+18 IF '$DATA(^PRCA(FILE,IND(I2),DATA(I2)))
SET ERROR=1
GOTO Q2
+19 ; do not check if category number is a zero
+20 IF I2=1
IF DATA(1)'=0
IF $ORDER(^PRCA(FILE,IND(I2),DATA(I2),0))'=REC
SET ERROR=1
GOTO Q2
+21 IF $PIECE(^PRCA(FILE,REC,ND(I2)),U,PC(I2))'=DATA(I2)
SET ERROR=1
Q2 QUIT
End DoDot:2
if ERROR
QUIT
IF I2=1
IF X2=""
QUIT
CNT if ERROR
QUIT
+1 SET CNT=CNT+1
Q1 QUIT
RC IF '$DATA(^RC(FILE,"B",DATA(0)))
SET ERROR=1
QUIT
+1 SET REC=$ORDER(^RC(FILE,"B",DATA(0),0))
IF 'REC
SET ERROR=1
QUIT
+2 IF DATA(3)'=REC
SET ERROR=1
QUIT
+3 IF $PIECE(^RC(FILE,REC,0),U)'=DATA(0)
SET ERROR=1
QUIT
+4 if X1=""
GOTO CNT
+5 FOR I3=1,2
Begin DoDot:2
+6 IF '$DATA(^RC(FILE,IND(I3),DATA(I3)))
SET ERROR=1
GOTO Q3
+7 IF $ORDER(^RC(FILE,IND(I3),DATA(I3),0))'=REC
SET ERROR=1
GOTO Q3
+8 IF $PIECE(^RC(FILE,REC,ND(I3)),U,PC(I3))'=DATA(I3)
SET ERROR=1
Q3 QUIT
End DoDot:2
if ERROR
QUIT
IF I3=1
IF X2=""
QUIT
+1 GOTO CNT
End DoDot:1
if (DATA(0)="EOF")!(ERROR)
QUIT
+2 IF FILE>429.99
IF $PIECE(^PRCA(FILE,0),U,4)'=CNT
SET ERROR=1
GOTO EXIT
+3 if FILE>429.99
GOTO EXIT
+4 IF $PIECE(^RC(FILE,0),U,4)'=CNT
SET ERROR=1
EXIT if 'ERROR
QUIT
+1 SET FILENT=$SELECT(FILE>429.99:$PIECE(^PRCA(FILE,0),U,4),1:$PIECE(^RC(FILE,0),U,4))
+2 SET ERROR(1)="An error has been detected in the "_$PIECE(^DIC(FILE,0),U)_" File."
+3 IF DATA(0)="EOF"
SET ERROR(2)="There are too many entries in your file."
+4 IF DATA(0)'="EOF"
SET ERROR(2)="The "_DATA(0)_" Entry in your file is missing or corrupted."
+5 QUIT
TRANST ;
+1 ;;ACTIVE;102;A;16
+2 ;;ADD (AMEND);302;AD;37
+3 ;;ADMIN.COST CHARGE;12;AC;12
+4 ;;AMEND;303;AM;38
+5 ;;AMENDED BILL;110;AB;33
+6 ;;ARCHIVED;115;XX;49
+7 ;;BILL INCOMPLETE;201;BI;27
+8 ;;CANCELLATION;111;CN;39
+9 ;;CANCELLED BILL;210;CB;26
+10 ;;CASH COLLECTION BY RC/DOJ;7;CJ;7
+11 ;;CHARGE SUSPENDED;19;CS;47
+12 ;;CLOSE REPAYMENT PLAN;68;RZ;91
+13 ;;COLLECTED/CLOSED;108;CC;22
+14 ;;COMMENT;17;CM;45
+15 ;;CS ADD CASE INFO;47;CZ;67
+16 ;;CS ADMIN ADJ TR REV?N;54;AO;76
+17 ;;CS ADMIN ADJ TR REV?Y;53;AN;75
+18 ;;CS ADMIN.COST CHARGE;52;AE;74
+19 ;;CS AUTO RECALL BILL <$25;66;AR;89
+20 ;;CS BILL RECALL;34;CR;53
+21 ;;CS CASE RECALL;45;CO;64
+22 ;;CS DEBTOR NEW BILL;39;CK;85
+23 ;;CS DEBTOR RECALL;35;CE;56
+24 ;;CS DEBTOR RE-REFER BILL;64;RS;87
+25 ;;CS DECR ADJ NOT APP;40;CA;66
+26 ;;CS DECREASE ADJ;49;CY;70
+27 ;;CS DEL BILL RECALL;37;CF;55
+28 ;;CS DEL CASE RECALL;46;CG;65
+29 ;;CS DEL DEBTOR RECALL;38;CL;57
+30 ;;CS INC ADJ TR REV?N;58;AT;80
+31 ;;CS INC ADJ TR REV?Y;57;AS;79
+32 ;;CS INCREASE ADJ;51;AI;73
+33 ;;CS NEW DBTR NEW BILL;48;CH;68
+34 ;;CS PEND RECON;61;RK;83
+35 ;;CS RECALL PLACED;62;CQ;84
+36 ;;CS RECON WORKED;50;CV;71
+37 ;;CS RE-REFER BILL CANCEL;65;RC;88
+38 ;;CS RE-REFER BILL REQUEST;63;RR;86
+39 ;;CS STOP DELETED;36;CD;54
+40 ;;CS STOP PLACED;33;CP;51
+41 ;;CS UPDATE DEBT;41;CU;60
+42 ;;DEBIT VOUCHER (SF 5515);30;DV;30
+43 ;;DECREASE ADJUSTMENT;21;DA;35
+44 ;;DEL REPAY PLAN;31;DP;72
+45 ;;DELETE (AMEND);301;DL;36
+46 ;;EDIT REPAYMENT PLAN;67;EZ;90
+47 ;;EXEMPT INT/ADM. COST;14;E;14
+48 ;;IN-ACTIVE;103;IA;17
+49 ;;INCOMPLETE;101;IN;15
+50 ;;INCREASE ADJUSTMENT;1;AJ;1
+51 ;;INTEREST/ADM. CHARGE;13;IC;13
+52 ;;MARSHAL/COURT COST;15;ML;24
+53 ;;NEW BILL;104;N;18
+54 ;;OLD BILL;106;OB;28
+55 ;;OPEN;112;OP;42
+56 ;;PAYMENT (IN FULL);20;PF;34
+57 ;;PAYMENT (IN PART);2;PP;2
+58 ;;PENDING APPROVAL;205;PA;20
+59 ;;PENDING ARCHIVE;114;X;48
+60 ;;PENDING CALM CODE;107;PC;21
+61 ;;REESTABLISH TO RC/DOJ;5;RR;5
+62 ;;RE-ESTABLISH;250;RW;43
+63 ;;REFER TO DOJ;4;RJ;4
+64 ;;REFER TO RC;3;RC;3
+65 ;;REFUND REVIEW;113;PR;44
+66 ;;REFUNDED;120;RF;41
+67 ;;REPAYMENT PLAN;16;RP;25
+68 ;;RETURNED BY RC/DOJ;6;RD;6
+69 ;;RETURNED FOR AMENDMENT;230;RA;32
+70 ;;RETURNED FROM AR (NEW);220;RT;31
+71 ;;RPP TERMINATED;69;RT;92
+72 ;;SUSPENDED;240;SP;40
+73 ;;SUSPENSE;105;S;19
+74 ;;TERM.BY COMPROMISE;9;TC;9
+75 ;;TERM.BY FIS.OFFICER;8;TO;8
+76 ;;TERM.BY RC/DOJ;29;TJ;29
+77 ;;UNSUSPENDED;18;US;46
+78 ;;WAIVED IN FULL;10;WF;10
+79 ;;WAIVED IN PART;11;WP;11
+80 ;;WRITE-OFF;109;WO;23
+81 ;;EOF
+82 ;
+83 ;PRCA*4.5*338 - Added and Alphabetized Community Care categories
CAT ;patch 192 - ISC-0502-N2803 change Champus to Tricare
+1 ;;ADULT DAY HEALTH CARE;40;AD;33
+2 ;;C (MEANS TEST);24;C;18
+3 ;;CC INPT;65;CJ;63
+4 ;;CC MTF INPT;69;CX;67
+5 ;;CC MTF OPT;86;D3;84
+6 ;;CC MTF RX CO-PAYMENT;70;CY;68
+7 ;;CC MTF THIRD PARTY;53;C4;51
+8 ;;CC NO-FAULT AUTO;60;C8;58
+9 ;;CC NURSING HOME CARE - LTC;71;CL;69
+10 ;;CC OPT;84;D1;82
+11 ;;CC RESPITE CARE;72;CN;70
+12 ;;CC RX CO-PAYMENT;66;CK;64
+13 ;;CC THIRD PARTY;51;C2;49
+14 ;;CC TORT FEASOR;61;C9;59
+15 ;;CC URGENT CARE;87;U1;85
+16 ;;CC WORKERS' COMP;59;CA;57
+17 ;;CCN INPT;67;CO;65
+18 ;;CCN NO-FAULT AUTO;57;CB;55
+19 ;;CCN NURSING HOME CARE - LTC;73;CR;71
+20 ;;CCN OPT;85;D2;83
+21 ;;CCN RESPITE CARE;74;CU;72
+22 ;;CCN RX CO-PAYMENT;68;CQ;66
+23 ;;CCN THIRD PARTY;52;C3;50
+24 ;;CCN TORT FEASOR;58;CC;56
+25 ;;CCN WORKERS' COMP;56;CD;54
+26 ;;CHAMPVA;36;CV;29
+27 ;;CHAMPVA SUBSISTENCE;34;CS;27
+28 ;;CHAMPVA THIRD PARTY;35;CT;28
+29 ;;CHOICE INPT;63;CF;61
+30 ;;CHOICE NO-FAULT AUTO;54;C5;52
+31 ;;CHOICE NURSING HOME CARE - LTC;75;CH;73
+32 ;;CHOICE OPT;83;CZ;81
+33 ;;CHOICE RESPITE CARE;76;CI;74
+34 ;;CHOICE RX CO-PAYMENT;64;CG;62
+35 ;;CHOICE THIRD PARTY;50;C1;48
+36 ;;CHOICE TORT FEASOR;55;C6;53
+37 ;;CHOICE WORKERS' COMP;62;C7;60
+38 ;;COMP & PEN PROCEEDS;8;CM;43
+39 ;;CRIME OF PER.VIO.;27;CP;8
+40 ;;CURRENT EMP.;14;CE;16
+41 ;;CWT PROCEEDS;7;CW;42
+42 ;;DOMICILIARY;41;DO;34
+43 ;;EMERGENCY/HUMANITARIAN;25;H;2
+44 ;;EMERGENCY/HUMANITARIAN REIMB.;48;HR;46
+45 ;;ENHANCED USE LEASE PROCEEDS;10;EP;44
+46 ;;EX-EMPLOYEE;13;E;15
+47 ;;FEDERAL AGENCIES-REFUND;15;F2;13
+48 ;;FEDERAL AGENCIES-REIMB.;16;F1;14
+49 ;;FEE REIMB INS;47;FR;45
+50 ;;GERIATRIC EVAL-INSTITUTIONAL;44;GE;37
+51 ;;GERIATRIC EVAL-NON-INSTITUTION;45;GN;38
+52 ;;HOSPITAL CARE (NSC);1;HC;5
+53 ;;HOSPITAL CARE PER DIEM;32;HP;25
+54 ;;INELIGIBLE HOSP.;20;I;1
+55 ;;INELIGIBLE HOSP. REIMB.;49;IR;47
+56 ;;INTERAGENCY;19;IA;20
+57 ;;MEDICARE;28;MC;21
+58 ;;MILITARY;17;M;12
+59 ;;NO-FAULT AUTO ACC.;26;NA;7
+60 ;;NURSING HOME CARE PER DIEM;31;NP;24
+61 ;;NURSING HOME CARE(NSC);3;NC;3
+62 ;;NURSING HOME CARE-LTC;46;NL;39
+63 ;;NURSING HOME PROCEEDS;5;NH;40
+64 ;;OUTPATIENT CARE(NSC);2;OC;4
+65 ;;PARKING FEES;6;PF;41
+66 ;;PREPAYMENT;33;PP;26
+67 ;;REIMBURS.HEALTH INS.;21;RI;9
+68 ;;RESPITE CARE-INSTITUTIONAL;42;RC;35
+69 ;;RESPITE CARE-NON-INSTITUTIONAL;43;RN;36
+70 ;;RX CO-PAYMENT/NSC VET;30;PN;23
+71 ;;RX CO-PAYMENT/SC VET;29;PS;22
+72 ;;SHARING AGREEMENTS;18;SA;19
+73 ;;TORT FEASOR;22;TF;10
+74 ;;TRICARE;37;T1;30
+75 ;;TRICARE BLIND REHABILITATION;80;T7;78
+76 ;;TRICARE DENTAL;81;T8;79
+77 ;;TRICARE DES;77;T4;75
+78 ;;TRICARE PATIENT;38;T2;31
+79 ;;TRICARE PHARMACY;82;T9;80
+80 ;;TRICARE SCI;78;T5;76
+81 ;;TRICARE TBI;79;T6;77
+82 ;;TRICARE THIRD PARTY;39;T3;32
+83 ;;VENDOR;11;V;17
+84 ;;WORKMAN'S COMP.;23;WC;6
+85 ;;EOF
+86 ; PRCA*4.5*367 - Added comment line for CHAMPVA Event Type
EVENT ;
+1 ;;CASH PAYMENT;6;;6
+2 ;;CHECK/MO PAYMENT;4;;4
+3 ;;COMMENT;1;;1
+4 ;;CREDIT CARD PAYMENT;7;;7
+5 ;;DEPT OF JUSTICE PAYMENT;5;;5
+6 ;;REGIONAL COUNSEL PAYMENT;3;;3
+7 ;;FOLLOW-UP LETTER;10;;10
+8 ;;IRS PAYMENT;11;;11
+9 ;;PATIENT STATEMENT;2;;2
+10 ;;TDA PAYMENT;8;;8
+11 ;;UB PRINTED;9;;9
+12 ;;LOCKBOX;12;;12
+13 ;;TOP PAYMENT;13;;13
+14 ;;EDI LOCKBOX;14;;14
+15 ;;ADMINISTRATIVE OFFSET;15;;15
+16 ;;PRIVATE COLLECTION AGENCY;16;;16
+17 ;;CHAMPVA;17;;17
+18 ;;OGC-EFT;18;;18
+19 ;;OGC-CHK;19;;19
+20 ;;EOF
