RCXFMSPR ;WISC/RFJ-print revenue source codes ;8/31/10 11:34am
;;4.5;Accounts Receivable;**90,96,101,156,170,203,273,310,315,338,351,357**;Mar 20, 1995;Build 6
;Per VA Directive 6402, this routine should not be modified.
W !,"This option will print out a list of the revenue source codes sent from"
W !,"the VISTA system to FMS."
;
; select device
W ! S %ZIS="Q" D ^%ZIS Q:POP
I $D(IO("Q")) D D ^%ZTLOAD K IO("Q"),ZTSK Q
. S ZTDESC="Revenue Source Code Report",ZTRTN="DQ^RCXFMSPR"
. S ZTSAVE("ZTREQ")="@"
W !!,"<*> please wait <*>"
;
DQ ; queue starts here
N %,%I,BINARY,COL2DESC,COL3DESC,COLUMN1,COLUMN2,COLUMN3,COLUMN4
N DECIMAL,DESCRIP,NOW,PAGE,RCSTFLAG,SCREEN,X,Y
D NOW^%DTC S Y=% D DD^%DT S NOW=Y
S PAGE=1,SCREEN=0 I '$D(ZTQUEUED),IO=IO(0),$E(IOST)="C" S SCREEN=1
U IO D H
;
S COLUMN1="A",COLUMN2="R",COLUMN3="R",COLUMN4="V",DESCRIP="Miscellaneous"
D WRITEIT
;
; for now, column 1 is always 8 and column 4 is always Z
S COLUMN1=8,COLUMN4="Z"
F COLUMN2=1:1:9,"A","B","C","D","E","F","G","H","I","J","K","L","M","Q","R","S","T" D Q:$G(RCSTFLAG)
. S COL2DESC=$P($T(@("A"_COLUMN2)),";",3)
. ;
. S COLUMN3=$S(COLUMN2=5:"*",1:"Z")
. S DESCRIP=COL2DESC D WRITEIT
. ;
. I $G(RCSTFLAG) Q
. ;
. ; show hsif - disabled by patch 203
. ;I COLUMN2="B"!(COLUMN2="C") S DESCRIP=DESCRIP_" HSIF",COLUMN3=1 D WRITEIT
;
I $G(RCSTFLAG) D Q Q
;
; print reimbursable health insurance rsc's
S COLUMN2=5
W !!?6,"For REIMBURSABLE HEALTH INSURANCE [85*Z]:"
F DECIMAL=0:1:31 D Q:$G(RCSTFLAG)
. I DECIMAL<10 S COLUMN3=DECIMAL
. E S COLUMN3=$C(65+DECIMAL-10)
. ;
. ; convert decimal to binary (ex: 10011) so it can be
. ; parsed in rsc to get the description
. S BINARY=$$CONVERT(DECIMAL)
. S COL3DESC=$P($T(@("B"_$E(BINARY,1,2))),";",3)
. S COL3DESC=COL3DESC_", "_$P($T(@("C"_$E(BINARY,3))),";",3)
. S COL3DESC=COL3DESC_", "_$P($T(@("D"_$E(BINARY,4))),";",3)
. S COL3DESC=COL3DESC_", "_$P($T(@("E"_$E(BINARY,5))),";",3)
. S DESCRIP=COL3DESC
. D WRITEIT
;
; print fee basis reimbursable health insurance rsc's (PRCA*4.5*310/DRF)
S COLUMN2="F"
W !!?6,"For FEE REIMBURSABLE HEALTH INSURANCE [8F*Z]:"
F DECIMAL=1:1:2 D Q:$G(RCSTFLAG)
. S DESCRIP="FEE BASIS, NSC VET, MT CAT A, "_$S(DECIMAL=1:"INPATIENT",DECIMAL=2:"OUTPATIENT",1:"")
. S COLUMN3=DECIMAL
. D WRITEIT
;
; print EMERGENCY/HUMANITARIAN REIMB. PRCA*4.5*315
; 8VZZ;HUMAN 3RD-PRTY OUTPATIENT
; 8UZZ;HUMAN 3RD-PRTY INPATIENT
S COLUMN3="Z"
W !!?6,"For EMERGENCY/HUMANITARIAN REIMBURSABLE HEALTH INSURANCE [8*ZZ]:"
F DECIMAL="U","V" D Q:$G(RCSTFLAG)
. S DESCRIP="EMERGENCY/HUMANITARIAN REIMB. INS., "_$S(DECIMAL="U":"INPATIENT",DECIMAL="V":"OUTPATIENT",1:"")
. S COLUMN2=DECIMAL
. D WRITEIT
;
Q D ^%ZISC
; print CCAD rsc's (PRCA*4.5*338)
N DATA,LOOP
S (COLUMN2,COLUMN3,COLUMN4)="" ;Clear other columns
W !!?6,"For COMMUNITY CARE:"
F LOOP=1:1 S DATA=$T(CCADRSC+LOOP) Q:(DATA="")!($P(DATA,";",3)="END") D Q:$G(RCSTFLAG)
. S COLUMN1=$P(DATA,";",3),DESCRIP=$P(DATA,";",4)
. D WRITEIT
Q
;
;
GETDESC(RSC) ; return the description for the revenue source code
N BINARY,COL3DESC,COLUMN2,COLUMN3,DESC,RCARY
;new resource codes for emergency/humanitarian reimb. PRCA*4.5*315
I RSC="8UZZ" Q "Emergency/Humanitarian Reimb. Ins., Inpatient"
I RSC="8VZZ" Q "Emergency/Humanitarian Reimb. Ins., Outpatient"
I RSC="ARRV" Q "Miscellaneous"
I RSC=8046 Q "Administrative"
I RSC=8047 Q "Interest"
I RSC=8048 Q "Marshal Fee and Court Cost"
;PRCA*4.5*338 - check to see if RSC is a Community Care RSC and add RSCs missing a description.
I RSC=8000 Q "Non Medical Reimbursements"
I RSC=8023 Q "Compensated Work Therapy"
I RSC=8024 Q "Tort Feasor"
I RSC=8041 Q "FED OWCP"
F LOOP=1:1 S DATA=$T(CCADRSC+LOOP) Q:(DATA="")!($P(DATA,";",3)="END") D
. S RCARY($P(DATA,";",3))=$P(DATA,";",4)
I $G(RCARY(RSC))'="" Q $G(RCARY(RSC))
;end PRCA*4.5*338
S DESC="UNKNOWN"
S COLUMN2=$E(RSC,2)
I "123456789ABCDEFGHIJKLMNQRST"[COLUMN2 S DESC=$P($T(@("A"_COLUMN2)),";",3) ;PRCA*4.5*357
; HSIF reference disabled by patch 203
; I RSC="8B1Z"!(RSC="8C1Z") S DESC=DESC_" (HSIF)"
I COLUMN2'=5 Q DESC
;
S COLUMN3=$E(RSC,3)
; convert alpha letters to decimal
I "0123456789"'[COLUMN3 S COLUMN3=$A(COLUMN3)-55
S BINARY=$$CONVERT(COLUMN3)
S COL3DESC=$P($T(@("B"_$E(BINARY,1,2))),";",3)
S COL3DESC=COL3DESC_", "_$P($T(@("C"_$E(BINARY,3))),";",3)
S COL3DESC=COL3DESC_", "_$P($T(@("D"_$E(BINARY,4))),";",3)
S COL3DESC=COL3DESC_", "_$P($T(@("E"_$E(BINARY,5))),";",3)
Q "RHI, "_COL3DESC
;
;
CONVERT(DECIMAL) ; convert decimal number to binary (5 digits)
N Y
S Y=""
F S Y=$E("0123456789ABCDEF",DECIMAL#2+1)_Y,DECIMAL=DECIMAL\2 Q:DECIMAL<1
S Y=$E("00000",0,5-$L(Y))_Y
Q Y
;
;
WRITEIT ; display the rsc
W !,COLUMN1,COLUMN2,COLUMN3,COLUMN4,?6,DESCRIP
I $Y>(IOSL-5) D:SCREEN PAUSE Q:$G(RCSTFLAG) D H
Q
;
;
PAUSE ; pause at end of page
N X U IO(0) W !,"Press RETURN to continue, '^' to exit:" R X:DTIME S:'$T X="^" S:X["^" RCSTFLAG=1 U IO
Q
;
;
H ; header
S %=NOW_" PAGE "_PAGE,PAGE=PAGE+1 I PAGE'=2!(SCREEN) W @IOF
W $C(13),"REVENUE SOURCE CODE REPORT (VISTA TO FMS)",?(80-$L(%)),%
W !,"RSC",?6,"Description"
S %="",$P(%,"-",81)=""
W !,%
Q
;
;
; this is a listing of all column2 values with a description
A1 ;;Hospital Care (NSC)
A2 ;;Outpatient Care (NSC)
A3 ;;Nursing Home Care (NSC)
A4 ;;Ineligible Hospitalization
A5 ;;Reimbursable Health Insurance
A6 ;;Tort Feasor
A7 ;;Workmans Compensation (Non-Federal)
A8 ;;C (Means Test)
A9 ;;Emergency/Humanitarian
AA ;;No Fault Auto Accident
AB ;;Pharmacy Co-Pay (SC Vet)
AC ;;Pharmacy Co-Pay (NSC Vet)
AD ;;Nursing Home Care Per Diem
AE ;;Hospital Care Per Diem
AF ;;Medicare
AG ;;Adult Day Health Care (LTC)
AH ;;Domiciliary (LTC)
AI ;;Respite Care-Institutional (LTC)
AJ ;;Respite Care-Non-Institutional (LTC)
AK ;;Geriatric Eval-Institutional (LTC)
AL ;;Geriatric Eval-Non-Institutional (LTC)
AM ;;Nursing Home Care-Long Term Care (LTC)
AN ;;EDI 3RD PARTY LOCKBOX
AQ ;;Pharmacy No Fault Auto Acc
AR ;;Pharmacy Reimburs Health Ins
AS ;;Pharmacy Tort Feasor
AT ;;Pharmacy Workman's Comp
;
;
; this is a listing for the type of care, first 2 binary digits
; if column2 is reimbursable health insurance
B00 ;;Inpatient (Hosp)
B01 ;;Outpatient
B10 ;;Nursing Home
B11 ;;Other
;
;
; this is a listing for the service connected, binary digit 3
C0 ;;SC for NSC
C1 ;;NSC Vet
;
;
; this is a listing for means test, binary digit 4
D0 ;;MT Cat A
D1 ;;MT Cat C
;
;
; this is a listing for age group, binary digit 5
E0 ;;Age <65
E1 ;;Age 65+
;
;
; Community Care RSC listing PRCA*4.5*338
CCADRSC ;;
;;8C6C;CC 3rd-Pty Workers' Comp
;;8C5C;CC 3rd-Pty Tort Feasor
;;8C4C;CC 3rd-Pty No-Fault Auto
;;8C1C;CC 3rd-Pty Inpatient
;;8C2C;CC 3rd-Pty Outpatient
;;8C3C;CC 3rd-Pty RX
;;86CC;CC Choice 3rd-Pty Workers' Comp
;;85CC;CC Choice 3rd-Pty Tort Feasor
;;84CC;CC Choice 3rd-Pty No-Fault Auto
;;81CC;CC Choice 3rd-Pty Inpatient
;;82CC;CC Choice 3rd-Pty Outpatient
;;83CC;CC Choice 3rd-Pty RX
;;8CD4;CC DOD 3rd-Pty Inpatient
;;8CD5;CC DOD 3rd-Pty Outpatient
;;8CD6;CC DOD 3rd-Pty RX
;;8CNW;CCN 3rd-Pty Workers' Comp
;;8CN9;CCN 3rd-Pty Tort Feasor
;;8CN8;CCN 3rd-Pty No-Fault Auto
;;8CN5;CCN 3rd-Pty Inpatient
;;8CN6;CCN 3rd-Pty Outpatient
;;8CN7;CCN 3rd-Pty RX
;;8CC1;CC 1st-Pty Inpatient
;;8CC2;CC 1st-Pty Outpatient
;;8CC3;CC 1st-Pty RX
;;8CC4;CC 1st-Pty LTC
;;8CC5;CC Choice 1st-Pty Inpatient
;;8CC6;CC Choice 1st-Pty Outpatient
;;8CC7;CC Choice 1st-Pty RX
;;8CC8;CC Choice 1st-Pty LTC
;;8CN1;CCN 1st-Pty Inpatient
;;8CN2;CCN 1st-Pty Outpatient
;;8CN3;CCN 1st-Pty RX
;;8CN4;CCN 1st-Pty LTC
;;8CD1;CC DOD 1st-Pty Inpatient
;;8CD2;CC DOD 1st-Pty Outpatient
;;8CD3;CC DOD 1st-Pty RX
;;8CCU;CC 1st-Pty Urgent Care
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCXFMSPR 7990 printed Oct 16, 2024@17:50:06 Page 2
RCXFMSPR ;WISC/RFJ-print revenue source codes ;8/31/10 11:34am
+1 ;;4.5;Accounts Receivable;**90,96,101,156,170,203,273,310,315,338,351,357**;Mar 20, 1995;Build 6
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 WRITE !,"This option will print out a list of the revenue source codes sent from"
+4 WRITE !,"the VISTA system to FMS."
+5 ;
+6 ; select device
+7 WRITE !
SET %ZIS="Q"
DO ^%ZIS
if POP
QUIT
+8 IF $DATA(IO("Q"))
Begin DoDot:1
+9 SET ZTDESC="Revenue Source Code Report"
SET ZTRTN="DQ^RCXFMSPR"
+10 SET ZTSAVE("ZTREQ")="@"
End DoDot:1
DO ^%ZTLOAD
KILL IO("Q"),ZTSK
QUIT
+11 WRITE !!,"<*> please wait <*>"
+12 ;
DQ ; queue starts here
+1 NEW %,%I,BINARY,COL2DESC,COL3DESC,COLUMN1,COLUMN2,COLUMN3,COLUMN4
+2 NEW DECIMAL,DESCRIP,NOW,PAGE,RCSTFLAG,SCREEN,X,Y
+3 DO NOW^%DTC
SET Y=%
DO DD^%DT
SET NOW=Y
+4 SET PAGE=1
SET SCREEN=0
IF '$DATA(ZTQUEUED)
IF IO=IO(0)
IF $EXTRACT(IOST)="C"
SET SCREEN=1
+5 USE IO
DO H
+6 ;
+7 SET COLUMN1="A"
SET COLUMN2="R"
SET COLUMN3="R"
SET COLUMN4="V"
SET DESCRIP="Miscellaneous"
+8 DO WRITEIT
+9 ;
+10 ; for now, column 1 is always 8 and column 4 is always Z
+11 SET COLUMN1=8
SET COLUMN4="Z"
+12 FOR COLUMN2=1:1:9,"A","B","C","D","E","F","G","H","I","J","K","L","M","Q","R","S","T"
Begin DoDot:1
+13 SET COL2DESC=$PIECE($TEXT(@("A"_COLUMN2)),";",3)
+14 ;
+15 SET COLUMN3=$SELECT(COLUMN2=5:"*",1:"Z")
+16 SET DESCRIP=COL2DESC
DO WRITEIT
+17 ;
+18 IF $GET(RCSTFLAG)
QUIT
+19 ;
+20 ; show hsif - disabled by patch 203
+21 ;I COLUMN2="B"!(COLUMN2="C") S DESCRIP=DESCRIP_" HSIF",COLUMN3=1 D WRITEIT
End DoDot:1
if $GET(RCSTFLAG)
QUIT
+22 ;
+23 IF $GET(RCSTFLAG)
DO Q
QUIT
+24 ;
+25 ; print reimbursable health insurance rsc's
+26 SET COLUMN2=5
+27 WRITE !!?6,"For REIMBURSABLE HEALTH INSURANCE [85*Z]:"
+28 FOR DECIMAL=0:1:31
Begin DoDot:1
+29 IF DECIMAL<10
SET COLUMN3=DECIMAL
+30 IF '$TEST
SET COLUMN3=$CHAR(65+DECIMAL-10)
+31 ;
+32 ; convert decimal to binary (ex: 10011) so it can be
+33 ; parsed in rsc to get the description
+34 SET BINARY=$$CONVERT(DECIMAL)
+35 SET COL3DESC=$PIECE($TEXT(@("B"_$EXTRACT(BINARY,1,2))),";",3)
+36 SET COL3DESC=COL3DESC_", "_$PIECE($TEXT(@("C"_$EXTRACT(BINARY,3))),";",3)
+37 SET COL3DESC=COL3DESC_", "_$PIECE($TEXT(@("D"_$EXTRACT(BINARY,4))),";",3)
+38 SET COL3DESC=COL3DESC_", "_$PIECE($TEXT(@("E"_$EXTRACT(BINARY,5))),";",3)
+39 SET DESCRIP=COL3DESC
+40 DO WRITEIT
End DoDot:1
if $GET(RCSTFLAG)
QUIT
+41 ;
+42 ; print fee basis reimbursable health insurance rsc's (PRCA*4.5*310/DRF)
+43 SET COLUMN2="F"
+44 WRITE !!?6,"For FEE REIMBURSABLE HEALTH INSURANCE [8F*Z]:"
+45 FOR DECIMAL=1:1:2
Begin DoDot:1
+46 SET DESCRIP="FEE BASIS, NSC VET, MT CAT A, "_$SELECT(DECIMAL=1:"INPATIENT",DECIMAL=2:"OUTPATIENT",1:"")
+47 SET COLUMN3=DECIMAL
+48 DO WRITEIT
End DoDot:1
if $GET(RCSTFLAG)
QUIT
+49 ;
+50 ; print EMERGENCY/HUMANITARIAN REIMB. PRCA*4.5*315
+51 ; 8VZZ;HUMAN 3RD-PRTY OUTPATIENT
+52 ; 8UZZ;HUMAN 3RD-PRTY INPATIENT
+53 SET COLUMN3="Z"
+54 WRITE !!?6,"For EMERGENCY/HUMANITARIAN REIMBURSABLE HEALTH INSURANCE [8*ZZ]:"
+55 FOR DECIMAL="U","V"
Begin DoDot:1
+56 SET DESCRIP="EMERGENCY/HUMANITARIAN REIMB. INS., "_$SELECT(DECIMAL="U":"INPATIENT",DECIMAL="V":"OUTPATIENT",1:"")
+57 SET COLUMN2=DECIMAL
+58 DO WRITEIT
End DoDot:1
if $GET(RCSTFLAG)
QUIT
+59 ;
Q DO ^%ZISC
+1 ; print CCAD rsc's (PRCA*4.5*338)
+2 NEW DATA,LOOP
+3 ;Clear other columns
SET (COLUMN2,COLUMN3,COLUMN4)=""
+4 WRITE !!?6,"For COMMUNITY CARE:"
+5 FOR LOOP=1:1
SET DATA=$TEXT(CCADRSC+LOOP)
if (DATA="")!($PIECE(DATA,";",3)="END")
QUIT
Begin DoDot:1
+6 SET COLUMN1=$PIECE(DATA,";",3)
SET DESCRIP=$PIECE(DATA,";",4)
+7 DO WRITEIT
End DoDot:1
if $GET(RCSTFLAG)
QUIT
+8 QUIT
+9 ;
+10 ;
GETDESC(RSC) ; return the description for the revenue source code
+1 NEW BINARY,COL3DESC,COLUMN2,COLUMN3,DESC,RCARY
+2 ;new resource codes for emergency/humanitarian reimb. PRCA*4.5*315
+3 IF RSC="8UZZ"
QUIT "Emergency/Humanitarian Reimb. Ins., Inpatient"
+4 IF RSC="8VZZ"
QUIT "Emergency/Humanitarian Reimb. Ins., Outpatient"
+5 IF RSC="ARRV"
QUIT "Miscellaneous"
+6 IF RSC=8046
QUIT "Administrative"
+7 IF RSC=8047
QUIT "Interest"
+8 IF RSC=8048
QUIT "Marshal Fee and Court Cost"
+9 ;PRCA*4.5*338 - check to see if RSC is a Community Care RSC and add RSCs missing a description.
+10 IF RSC=8000
QUIT "Non Medical Reimbursements"
+11 IF RSC=8023
QUIT "Compensated Work Therapy"
+12 IF RSC=8024
QUIT "Tort Feasor"
+13 IF RSC=8041
QUIT "FED OWCP"
+14 FOR LOOP=1:1
SET DATA=$TEXT(CCADRSC+LOOP)
if (DATA="")!($PIECE(DATA,";",3)="END")
QUIT
Begin DoDot:1
+15 SET RCARY($PIECE(DATA,";",3))=$PIECE(DATA,";",4)
End DoDot:1
+16 IF $GET(RCARY(RSC))'=""
QUIT $GET(RCARY(RSC))
+17 ;end PRCA*4.5*338
+18 SET DESC="UNKNOWN"
+19 SET COLUMN2=$EXTRACT(RSC,2)
+20 ;PRCA*4.5*357
IF "123456789ABCDEFGHIJKLMNQRST"[COLUMN2
SET DESC=$PIECE($TEXT(@("A"_COLUMN2)),";",3)
+21 ; HSIF reference disabled by patch 203
+22 ; I RSC="8B1Z"!(RSC="8C1Z") S DESC=DESC_" (HSIF)"
+23 IF COLUMN2'=5
QUIT DESC
+24 ;
+25 SET COLUMN3=$EXTRACT(RSC,3)
+26 ; convert alpha letters to decimal
+27 IF "0123456789"'[COLUMN3
SET COLUMN3=$ASCII(COLUMN3)-55
+28 SET BINARY=$$CONVERT(COLUMN3)
+29 SET COL3DESC=$PIECE($TEXT(@("B"_$EXTRACT(BINARY,1,2))),";",3)
+30 SET COL3DESC=COL3DESC_", "_$PIECE($TEXT(@("C"_$EXTRACT(BINARY,3))),";",3)
+31 SET COL3DESC=COL3DESC_", "_$PIECE($TEXT(@("D"_$EXTRACT(BINARY,4))),";",3)
+32 SET COL3DESC=COL3DESC_", "_$PIECE($TEXT(@("E"_$EXTRACT(BINARY,5))),";",3)
+33 QUIT "RHI, "_COL3DESC
+34 ;
+35 ;
CONVERT(DECIMAL) ; convert decimal number to binary (5 digits)
+1 NEW Y
+2 SET Y=""
+3 FOR
SET Y=$EXTRACT("0123456789ABCDEF",DECIMAL#2+1)_Y
SET DECIMAL=DECIMAL\2
if DECIMAL<1
QUIT
+4 SET Y=$EXTRACT("00000",0,5-$LENGTH(Y))_Y
+5 QUIT Y
+6 ;
+7 ;
WRITEIT ; display the rsc
+1 WRITE !,COLUMN1,COLUMN2,COLUMN3,COLUMN4,?6,DESCRIP
+2 IF $Y>(IOSL-5)
if SCREEN
DO PAUSE
if $GET(RCSTFLAG)
QUIT
DO H
+3 QUIT
+4 ;
+5 ;
PAUSE ; pause at end of page
+1 NEW X
USE IO(0)
WRITE !,"Press RETURN to continue, '^' to exit:"
READ X:DTIME
if '$TEST
SET X="^"
if X["^"
SET RCSTFLAG=1
USE IO
+2 QUIT
+3 ;
+4 ;
H ; header
+1 SET %=NOW_" PAGE "_PAGE
SET PAGE=PAGE+1
IF PAGE'=2!(SCREEN)
WRITE @IOF
+2 WRITE $CHAR(13),"REVENUE SOURCE CODE REPORT (VISTA TO FMS)",?(80-$LENGTH(%)),%
+3 WRITE !,"RSC",?6,"Description"
+4 SET %=""
SET $PIECE(%,"-",81)=""
+5 WRITE !,%
+6 QUIT
+7 ;
+8 ;
+9 ; this is a listing of all column2 values with a description
A1 ;;Hospital Care (NSC)
A2 ;;Outpatient Care (NSC)
A3 ;;Nursing Home Care (NSC)
A4 ;;Ineligible Hospitalization
A5 ;;Reimbursable Health Insurance
A6 ;;Tort Feasor
A7 ;;Workmans Compensation (Non-Federal)
A8 ;;C (Means Test)
A9 ;;Emergency/Humanitarian
AA ;;No Fault Auto Accident
AB ;;Pharmacy Co-Pay (SC Vet)
AC ;;Pharmacy Co-Pay (NSC Vet)
AD ;;Nursing Home Care Per Diem
AE ;;Hospital Care Per Diem
AF ;;Medicare
AG ;;Adult Day Health Care (LTC)
AH ;;Domiciliary (LTC)
AI ;;Respite Care-Institutional (LTC)
AJ ;;Respite Care-Non-Institutional (LTC)
AK ;;Geriatric Eval-Institutional (LTC)
AL ;;Geriatric Eval-Non-Institutional (LTC)
AM ;;Nursing Home Care-Long Term Care (LTC)
AN ;;EDI 3RD PARTY LOCKBOX
AQ ;;Pharmacy No Fault Auto Acc
AR ;;Pharmacy Reimburs Health Ins
AS ;;Pharmacy Tort Feasor
AT ;;Pharmacy Workman's Comp
+1 ;
+2 ;
+3 ; this is a listing for the type of care, first 2 binary digits
+4 ; if column2 is reimbursable health insurance
B00 ;;Inpatient (Hosp)
B01 ;;Outpatient
B10 ;;Nursing Home
B11 ;;Other
+1 ;
+2 ;
+3 ; this is a listing for the service connected, binary digit 3
C0 ;;SC for NSC
C1 ;;NSC Vet
+1 ;
+2 ;
+3 ; this is a listing for means test, binary digit 4
D0 ;;MT Cat A
D1 ;;MT Cat C
+1 ;
+2 ;
+3 ; this is a listing for age group, binary digit 5
E0 ;;Age <65
E1 ;;Age 65+
+1 ;
+2 ;
+3 ; Community Care RSC listing PRCA*4.5*338
CCADRSC ;;
+1 ;;8C6C;CC 3rd-Pty Workers' Comp
+2 ;;8C5C;CC 3rd-Pty Tort Feasor
+3 ;;8C4C;CC 3rd-Pty No-Fault Auto
+4 ;;8C1C;CC 3rd-Pty Inpatient
+5 ;;8C2C;CC 3rd-Pty Outpatient
+6 ;;8C3C;CC 3rd-Pty RX
+7 ;;86CC;CC Choice 3rd-Pty Workers' Comp
+8 ;;85CC;CC Choice 3rd-Pty Tort Feasor
+9 ;;84CC;CC Choice 3rd-Pty No-Fault Auto
+10 ;;81CC;CC Choice 3rd-Pty Inpatient
+11 ;;82CC;CC Choice 3rd-Pty Outpatient
+12 ;;83CC;CC Choice 3rd-Pty RX
+13 ;;8CD4;CC DOD 3rd-Pty Inpatient
+14 ;;8CD5;CC DOD 3rd-Pty Outpatient
+15 ;;8CD6;CC DOD 3rd-Pty RX
+16 ;;8CNW;CCN 3rd-Pty Workers' Comp
+17 ;;8CN9;CCN 3rd-Pty Tort Feasor
+18 ;;8CN8;CCN 3rd-Pty No-Fault Auto
+19 ;;8CN5;CCN 3rd-Pty Inpatient
+20 ;;8CN6;CCN 3rd-Pty Outpatient
+21 ;;8CN7;CCN 3rd-Pty RX
+22 ;;8CC1;CC 1st-Pty Inpatient
+23 ;;8CC2;CC 1st-Pty Outpatient
+24 ;;8CC3;CC 1st-Pty RX
+25 ;;8CC4;CC 1st-Pty LTC
+26 ;;8CC5;CC Choice 1st-Pty Inpatient
+27 ;;8CC6;CC Choice 1st-Pty Outpatient
+28 ;;8CC7;CC Choice 1st-Pty RX
+29 ;;8CC8;CC Choice 1st-Pty LTC
+30 ;;8CN1;CCN 1st-Pty Inpatient
+31 ;;8CN2;CCN 1st-Pty Outpatient
+32 ;;8CN3;CCN 1st-Pty RX
+33 ;;8CN4;CCN 1st-Pty LTC
+34 ;;8CD1;CC DOD 1st-Pty Inpatient
+35 ;;8CD2;CC DOD 1st-Pty Outpatient
+36 ;;8CD3;CC DOD 1st-Pty RX
+37 ;;8CCU;CC 1st-Pty Urgent Care
+38 ;;END
