- 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 Jan 18, 2025@02:50:29 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