- RCXFMSUF ;WISC/RFJ-calculate fms fund code for a bill ; 10/20/10 10:37am
- ;;4.5;Accounts Receivable;**90,101,135,157,160,165,170,203,207,173,211,192,220,235,273,310,315,338,351,360**;Mar 20, 1995;Build 10
- ;;Per VA Directive 6402, this routine should not be modifieD
- Q
- ;
- ;
- GETFUNDO(TYPE) ; return the fund for other type associated collections
- ; type can equal:
- ; I for interest A for admin
- ; M for marshall fee C for court cost
- I TYPE="I" Q "1435"
- I TYPE="A" Q "3220"
- I TYPE="M" Q "0869"
- I TYPE="C" Q "0869"
- Q ""
- ;
- ;
- GETFUNDB(BILLDA,DONTSTOR,RCEFT) ; return a bills fms fund code
- ; pass DONTSTOR equal 1 to prevent storing the fund code
- ; cannot rely on data in the fund field since it may reference the
- ; old funds S FUND=$P($G(^PRCA(430,BILLDA,11)),"^",17). since there
- ; are reports which use 11;17, set it for a bill once its computed
- ; until all references to the fund are eliminated.
- ; rceft = 1 if processing an EFT deposit
- ;
- N ACTDATE,CATEGDA,FUND,NEWFUND
- ;
- ; calculate a bills fund
- I $G(RCEFT)=1 S FUND="5287"_$S(DT<3030926:"",DT'<3030926&(DT<$$ADDPTEDT^PRCAACC()):".4",1:"04") Q FUND
- S CATEGDA=+$P($G(^PRCA(430,BILLDA,0)),"^",2)
- ;
- ;PRCA*4.5*360 - increased CATEGDA check for CC URGENT CARE
- I CATEGDA>85 Q ""
- ;
- ; piece 5 is new fund, remove spaces
- S FUND=$P($TR($T(@CATEGDA)," "),";",5)
- ;
- ; set fund 528711 for 3rd party RX bills after 4/27/2011
- I $$TYP^IBRFN(BILLDA)="PH" D
- . I (CATEGDA=6)!(CATEGDA=7)!(CATEGDA=9)!(CATEGDA=10),$$CHECKRXS(BILLDA) S FUND=528711
- ;
- ; if category is vendor(17), ex-employee(15), current employee(16)
- ; federal agency refund(13), federal agency reimb(14), military(12)
- ; set the fund to what is stored in the file. This was entered
- ; by the user during the audit process. If fund is in the file
- ; already, do not need to store it again.
- ; if category is nursing home proceeds (40), parking fees (41),
- ; cwt proceeds (42), comp & pen proceeds (43), enhanced use lease
- ; proceeds (44), set the fund to what is stored in the file.
- ; This was generated by the software at the time of bill enter.
- I CATEGDA=17!(CATEGDA=15)!(CATEGDA=16)!(CATEGDA=13)!(CATEGDA=14)!(CATEGDA=12)!(CATEGDA=40)!(CATEGDA=41)!(CATEGDA=42)!(CATEGDA=43)!(CATEGDA=44) D
- . I $P($G(^PRCA(430,BILLDA,11)),"^",17)'="" S FUND=$P(^(11),"^",17),DONTSTOR=1
- ;
- ; public law states that bills in the category ineligible (1),
- ; emerg/human (2), torts (10), or medicare (21) which are older
- ; than oct 1, 1992 should be reported under fund 3220.
- I CATEGDA=1!(CATEGDA=2)!(CATEGDA=10)!(CATEGDA=21) D
- . S ACTDATE=$P($G(^PRCA(430,BILLDA,6)),"^",21)
- . I ACTDATE,ACTDATE<2921001 S FUND=3220 Q
- . ;
- . ; patch157 changes ineligibles. an ineligible activated before
- . ; oct 1, 1992 or after sep 30, 2000 will be recorded in fund 0160A1.
- . ; otherwise it will be recorded in fund 5287.3 if before 3040928
- . ; if 3040928 or after, fund should be 528703
- . I CATEGDA=1,ACTDATE,ACTDATE<3001001 S FUND=$S(DT<$$ADDPTEDT^PRCAACC():"5287.3",1:528703)
- ;
- ; set the fund for the bill
- ; PRCA*4.5*310/DRF Add Non-VA fund 528713
- ;
- I $G(DONTSTOR)'=1 D STORE^RCXFMSUR(BILLDA,"",FUND)
- ;
- ; PRCA*4.5*338 Added funds for Community Care
- I FUND>528704,FUND<528709!(FUND=528710)!(FUND=528711) Q FUND
- I FUND=528713 Q FUND
- I FUND=528714 Q FUND
- ;
- I $G(REPRODT),REPRODT<3030926,$E(FUND,1,4)=5287 Q 5287
- I $G(REPRODT),REPRODT<3031001,$E(FUND,1,4)=5287,$G(REFMS) Q 5287
- I DT<3030926,$E(FUND,1,4)=5287 Q 5287 ; Effective date
- I $G(REPRODT),REPRODT<$$ADDPTEDT^PRCAACC(),FUND=528709 Q 4032 ;Effective date-528709
- I $G(REPRODT),REPRODT<3041001,FUND=528709,$G(REFMS) Q 4032 ;Resubmitted documents not held
- I $G(DATEEND),$E(DATEEND,2,5)<"0410",FUND=528709 Q 4032
- I DT<$$ADDPTEDT^PRCAACC(),FUND=528709 Q 4032
- I $G(REPRODT),REPRODT<$$ADDPTEDT^PRCAACC(),FUND=528701 Q 5287.1 ;Effective date-528701
- I $G(REPRODT),REPRODT<3041001,FUND=528701,$G(REFMS) Q 5287.1 ;Resubmitted documents not held
- I $G(DATEEND),$E(DATEEND,2,5)<"0410",FUND=528701 Q 5287.1
- I DT<$$ADDPTEDT^PRCAACC(),FUND=528701 Q 5287.1
- I $G(REPRODT),REPRODT<$$ADDPTEDT^PRCAACC(),FUND=528703 Q 5287.3 ;Effective date-528703
- I $G(REPRODT),REPRODT<3041001,FUND=528703,$G(REFMS) Q 5287.3 ;Resubmitted documents not held
- I $G(DATEEND),$E(DATEEND,2,5)<"0410",FUND=528703 Q 5287.3
- I DT<$$ADDPTEDT^PRCAACC(),FUND=528703 Q 5287.3
- I $G(REPRODT),REPRODT<$$ADDPTEDT^PRCAACC(),FUND=528704 Q 5287.4 ;Effective date-528704
- I $G(REPRODT),REPRODT<3041001,FUND=528704,$G(REFMS) Q 5287.4 ;Resubmitted documents not held
- I $G(DATEEND),$E(DATEEND,2,5)<"0410",FUND=528704 Q 5287.4
- I DT<$$ADDPTEDT^PRCAACC(),FUND=528704 Q 5287.4
- Q FUND
- ;
- CHECKRXS(BILLDA) ; returns true (1) if bill has any scripts on or after 4/27/11
- N RXNUM,NEWFUND,FILLDT,ARRXS
- S NEWFUND=0
- D SET^IBCSC5A(BILLDA,.ARRXS,)
- S RXNUM=0,FILLDT=""
- F S RXNUM=$O(ARRXS(RXNUM)) Q:RXNUM'>0!(NEWFUND) D
- . S FILLDT=$O(ARRXS(RXNUM,0))
- . I FILLDT'<3110427 S NEWFUND=1
- Q NEWFUND
- ;
- ; this is a listing of all categories and associated funds
- ; the label is from the internal entry number in the category
- ; file 430.2. piece 3 is a description, piece 4 is the old fund,
- ; piece 5 is the new fund
- ; PRCA*4.5*310/DRF Added 45 - FEE REIMB INS to routine.
- 0 ;;no fund ; ;
- 1 ;;INELIGIBLE HOSP. ;3220 ;0160R1
- 2 ;;EMERGENCY/HUMANITARIAN ;0160A1 ;528703
- 3 ;;NURSING HOME CARE(NSC) ;2431 ;528703
- 4 ;;OUTPATIENT CARE(NSC) ;2431 ;528703
- 5 ;;HOSPITAL CARE (NSC) ;2431 ;528703
- 6 ;;WORKMAN'S COMP. ;5014 ;528704
- 7 ;;NO-FAULT AUTO ACC. ;5014 ;528704
- 8 ;;CRIME OF PER.VIO. ;5014 ;528704
- 9 ;;REIMBURS.HEALTH INS. ;5014 ;528704
- 10 ;;TORT FEASOR ;0160A1 ;528704
- 11 ;;no entry ; ;
- 12 ;;MILITARY ;0160A1 ;0160R1
- 13 ;;FEDERAL AGENCIES-REFUND ;0160A1 ;0160A1
- 14 ;;FEDERAL AGENCIES-REIMB. ;0160R1 ;0160R1
- 15 ;;EX-EMPLOYEE ;0160A1 ;0160A1
- 16 ;;CURRENT EMP. ;0160A1 ;0160A1
- 17 ;;VENDOR ;0160A1 ;0160A1
- 18 ;;C (MEANS TEST) ;2431 ;528703
- 19 ;;SHARING AGREEMENTS ;0160A1 ;0160R1
- 20 ;;INTERAGENCY ;0160A1 ;0160R1
- 21 ;;MEDICARE ;5014 ;528704
- 22 ;;RX CO-PAYMENT/SC VET ;5014 ;528701
- 23 ;;RX CO-PAYMENT/NSC VET ;5014 ;528701
- 24 ;;NURSING HOME CARE PER DIEM ;2431 ;528703
- 25 ;;HOSPITAL CARE PER DIEM ;2431 ;528703
- 26 ;;PREPAYMENT ;5014 ;528703
- 27 ;;CHAMPVA SUBSISTENCE ;3220 ;3220
- 28 ;;CHAMPVA THIRD PARTY ;3220 ;0160R1
- 29 ;;CHAMPVA ;0160A1 ;0160R1
- 30 ;;TRICARE ;0160A1 ;0160R1
- 31 ;;TRICARE PATIENT ;0160A1 ;0160R1
- 32 ;;TRICARE THIRD PARTY ;0160A1 ;0160R1
- 33 ;;ADULT DAY HEALTH CARE ;4032 ;528709
- 34 ;;DOMICILIARY ;4032 ;528709
- 35 ;;RESPITE CARE-INSTITUTIONAL ;4032 ;528709
- 36 ;;RESPITE CARE-NON-INSTITUTIONAL;4032 ;528709
- 37 ;;GERIATRIC EVAL-INSTITUTIONAL ;4032 ;528709
- 38 ;;GERIATRIC EVAL-NON-INSTITUTION;4032 ;528709
- 39 ;;NURSING HOME CARE-LTC ;4032 ;528709
- 40 ;;NURSING HOME PROCEEDS ; ;528705
- 41 ;;PARKING FEES ; ;528706
- 42 ;;CWT PROCEEDS ; ;528707
- 43 ;;COMP & PEN PROCEEDS ; ;528708
- 44 ;;ENHANCED USE LEASE PROCEEDS ;5358.3 ;528710
- 45 ;;FEE REIMB INS ; ;528713
- 46 ;;EMERGENCY/HUMANITARIAN REIMB. ; ;528704 ;315
- 47 ;;INELIGIBLE REIMB. INS. ; ;0160R1 ;315
- 48 ;;CHOICE THIRD PARTY ; ;528713
- 49 ;;CC THIRD PARTY ; ;528713
- 50 ;;CCN THIRD PARTY ; ;528713
- 51 ;;CC MTF THIRD PARTY ; ;528713
- 52 ;;CHOICE NO-FAULT AUTO ; ;528713
- 53 ;;CHOICE TORT FEASOR ; ;528713
- 54 ;;CCN WORKERS' COMP ; ;528713
- 55 ;;CCN NO-FAULT AUTO ; ;528713
- 56 ;;CCN TORT FEASOR ; ;528713
- 57 ;;CC WORKERS' COMP ; ;528713
- 58 ;;CC NO-FAULT AUTO ; ;528713
- 59 ;;CC TORT FEASOR ; ;528713
- 60 ;;CHOICE WORKERS' COMP ; ;528713
- 61 ;;CHOICE INPT ; ;528714
- 62 ;;CHOICE RX CO-PAYMENT ; ;528714
- 63 ;;CC INPT ; ;528714
- 64 ;;CC RX CO-PAYMENT ; ;528714
- 65 ;;CCN INPT ; ;528714
- 66 ;;CCN RX CO-PAYMENT ; ;528714
- 67 ;;CC MTF INPT ; ;528714
- 68 ;;CC MTF RX CO-PAYMENT ; ;528714
- 69 ;;CC NURSING HOME CARE - LTC ; ;528714
- 70 ;;CC RESPITE CARE ; ;528714
- 71 ;;CCN NURSING HOME CARE - LTC ; ;528714
- 72 ;;CCN RESPITE CARE ; ;528714
- 73 ;;CHOICE NURSING HOME CARE - LTC ; ;528714
- 74 ;;CHOICE RESPITE CARE ; ;528714
- 75 ;;TRICARE DES ; ;0160R1
- 76 ;;TRICARE SCI ; ;0160R1
- 77 ;;TRICARE TBI ; ;0160R1
- 78 ;;TRICARE BLIND REHABILITATION ; ;0160R1
- 79 ;;TRICARE DENTAL ; ;0160R1
- 80 ;;TRICARE PHARMACY ; ;0160R1
- 81 ;;CHOICE OPT ; ;528714
- 82 ;;CC OPT ; ;528714
- 83 ;;CCN OPT ; ;528714
- 84 ;;CC MTF OPT ; ;528714
- 85 ;;CC URGENT CARE ; ;528714 ;PRCA*4.5*360
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCXFMSUF 9863 printed Jan 18, 2025@02:50:34 Page 2
- RCXFMSUF ;WISC/RFJ-calculate fms fund code for a bill ; 10/20/10 10:37am
- +1 ;;4.5;Accounts Receivable;**90,101,135,157,160,165,170,203,207,173,211,192,220,235,273,310,315,338,351,360**;Mar 20, 1995;Build 10
- +2 ;;Per VA Directive 6402, this routine should not be modifieD
- +3 QUIT
- +4 ;
- +5 ;
- GETFUNDO(TYPE) ; return the fund for other type associated collections
- +1 ; type can equal:
- +2 ; I for interest A for admin
- +3 ; M for marshall fee C for court cost
- +4 IF TYPE="I"
- QUIT "1435"
- +5 IF TYPE="A"
- QUIT "3220"
- +6 IF TYPE="M"
- QUIT "0869"
- +7 IF TYPE="C"
- QUIT "0869"
- +8 QUIT ""
- +9 ;
- +10 ;
- GETFUNDB(BILLDA,DONTSTOR,RCEFT) ; return a bills fms fund code
- +1 ; pass DONTSTOR equal 1 to prevent storing the fund code
- +2 ; cannot rely on data in the fund field since it may reference the
- +3 ; old funds S FUND=$P($G(^PRCA(430,BILLDA,11)),"^",17). since there
- +4 ; are reports which use 11;17, set it for a bill once its computed
- +5 ; until all references to the fund are eliminated.
- +6 ; rceft = 1 if processing an EFT deposit
- +7 ;
- +8 NEW ACTDATE,CATEGDA,FUND,NEWFUND
- +9 ;
- +10 ; calculate a bills fund
- +11 IF $GET(RCEFT)=1
- SET FUND="5287"_$SELECT(DT<3030926:"",DT'<3030926&(DT<$$ADDPTEDT^PRCAACC()):".4",1:"04")
- QUIT FUND
- +12 SET CATEGDA=+$PIECE($GET(^PRCA(430,BILLDA,0)),"^",2)
- +13 ;
- +14 ;PRCA*4.5*360 - increased CATEGDA check for CC URGENT CARE
- +15 IF CATEGDA>85
- QUIT ""
- +16 ;
- +17 ; piece 5 is new fund, remove spaces
- +18 SET FUND=$PIECE($TRANSLATE($TEXT(@CATEGDA)," "),";",5)
- +19 ;
- +20 ; set fund 528711 for 3rd party RX bills after 4/27/2011
- +21 IF $$TYP^IBRFN(BILLDA)="PH"
- Begin DoDot:1
- +22 IF (CATEGDA=6)!(CATEGDA=7)!(CATEGDA=9)!(CATEGDA=10)
- IF $$CHECKRXS(BILLDA)
- SET FUND=528711
- End DoDot:1
- +23 ;
- +24 ; if category is vendor(17), ex-employee(15), current employee(16)
- +25 ; federal agency refund(13), federal agency reimb(14), military(12)
- +26 ; set the fund to what is stored in the file. This was entered
- +27 ; by the user during the audit process. If fund is in the file
- +28 ; already, do not need to store it again.
- +29 ; if category is nursing home proceeds (40), parking fees (41),
- +30 ; cwt proceeds (42), comp & pen proceeds (43), enhanced use lease
- +31 ; proceeds (44), set the fund to what is stored in the file.
- +32 ; This was generated by the software at the time of bill enter.
- +33 IF CATEGDA=17!(CATEGDA=15)!(CATEGDA=16)!(CATEGDA=13)!(CATEGDA=14)!(CATEGDA=12)!(CATEGDA=40)!(CATEGDA=41)!(CATEGDA=42)!(CATEGDA=43)!(CATEGDA=44)
- Begin DoDot:1
- +34 IF $PIECE($GET(^PRCA(430,BILLDA,11)),"^",17)'=""
- SET FUND=$PIECE(^(11),"^",17)
- SET DONTSTOR=1
- End DoDot:1
- +35 ;
- +36 ; public law states that bills in the category ineligible (1),
- +37 ; emerg/human (2), torts (10), or medicare (21) which are older
- +38 ; than oct 1, 1992 should be reported under fund 3220.
- +39 IF CATEGDA=1!(CATEGDA=2)!(CATEGDA=10)!(CATEGDA=21)
- Begin DoDot:1
- +40 SET ACTDATE=$PIECE($GET(^PRCA(430,BILLDA,6)),"^",21)
- +41 IF ACTDATE
- IF ACTDATE<2921001
- SET FUND=3220
- QUIT
- +42 ;
- +43 ; patch157 changes ineligibles. an ineligible activated before
- +44 ; oct 1, 1992 or after sep 30, 2000 will be recorded in fund 0160A1.
- +45 ; otherwise it will be recorded in fund 5287.3 if before 3040928
- +46 ; if 3040928 or after, fund should be 528703
- +47 IF CATEGDA=1
- IF ACTDATE
- IF ACTDATE<3001001
- SET FUND=$SELECT(DT<$$ADDPTEDT^PRCAACC():"5287.3",1:528703)
- End DoDot:1
- +48 ;
- +49 ; set the fund for the bill
- +50 ; PRCA*4.5*310/DRF Add Non-VA fund 528713
- +51 ;
- +52 IF $GET(DONTSTOR)'=1
- DO STORE^RCXFMSUR(BILLDA,"",FUND)
- +53 ;
- +54 ; PRCA*4.5*338 Added funds for Community Care
- +55 IF FUND>528704
- IF FUND<528709!(FUND=528710)!(FUND=528711)
- QUIT FUND
- +56 IF FUND=528713
- QUIT FUND
- +57 IF FUND=528714
- QUIT FUND
- +58 ;
- +59 IF $GET(REPRODT)
- IF REPRODT<3030926
- IF $EXTRACT(FUND,1,4)=5287
- QUIT 5287
- +60 IF $GET(REPRODT)
- IF REPRODT<3031001
- IF $EXTRACT(FUND,1,4)=5287
- IF $GET(REFMS)
- QUIT 5287
- +61 ; Effective date
- IF DT<3030926
- IF $EXTRACT(FUND,1,4)=5287
- QUIT 5287
- +62 ;Effective date-528709
- IF $GET(REPRODT)
- IF REPRODT<$$ADDPTEDT^PRCAACC()
- IF FUND=528709
- QUIT 4032
- +63 ;Resubmitted documents not held
- IF $GET(REPRODT)
- IF REPRODT<3041001
- IF FUND=528709
- IF $GET(REFMS)
- QUIT 4032
- +64 IF $GET(DATEEND)
- IF $EXTRACT(DATEEND,2,5)<"0410"
- IF FUND=528709
- QUIT 4032
- +65 IF DT<$$ADDPTEDT^PRCAACC()
- IF FUND=528709
- QUIT 4032
- +66 ;Effective date-528701
- IF $GET(REPRODT)
- IF REPRODT<$$ADDPTEDT^PRCAACC()
- IF FUND=528701
- QUIT 5287.1
- +67 ;Resubmitted documents not held
- IF $GET(REPRODT)
- IF REPRODT<3041001
- IF FUND=528701
- IF $GET(REFMS)
- QUIT 5287.1
- +68 IF $GET(DATEEND)
- IF $EXTRACT(DATEEND,2,5)<"0410"
- IF FUND=528701
- QUIT 5287.1
- +69 IF DT<$$ADDPTEDT^PRCAACC()
- IF FUND=528701
- QUIT 5287.1
- +70 ;Effective date-528703
- IF $GET(REPRODT)
- IF REPRODT<$$ADDPTEDT^PRCAACC()
- IF FUND=528703
- QUIT 5287.3
- +71 ;Resubmitted documents not held
- IF $GET(REPRODT)
- IF REPRODT<3041001
- IF FUND=528703
- IF $GET(REFMS)
- QUIT 5287.3
- +72 IF $GET(DATEEND)
- IF $EXTRACT(DATEEND,2,5)<"0410"
- IF FUND=528703
- QUIT 5287.3
- +73 IF DT<$$ADDPTEDT^PRCAACC()
- IF FUND=528703
- QUIT 5287.3
- +74 ;Effective date-528704
- IF $GET(REPRODT)
- IF REPRODT<$$ADDPTEDT^PRCAACC()
- IF FUND=528704
- QUIT 5287.4
- +75 ;Resubmitted documents not held
- IF $GET(REPRODT)
- IF REPRODT<3041001
- IF FUND=528704
- IF $GET(REFMS)
- QUIT 5287.4
- +76 IF $GET(DATEEND)
- IF $EXTRACT(DATEEND,2,5)<"0410"
- IF FUND=528704
- QUIT 5287.4
- +77 IF DT<$$ADDPTEDT^PRCAACC()
- IF FUND=528704
- QUIT 5287.4
- +78 QUIT FUND
- +79 ;
- CHECKRXS(BILLDA) ; returns true (1) if bill has any scripts on or after 4/27/11
- +1 NEW RXNUM,NEWFUND,FILLDT,ARRXS
- +2 SET NEWFUND=0
- +3 DO SET^IBCSC5A(BILLDA,.ARRXS,)
- +4 SET RXNUM=0
- SET FILLDT=""
- +5 FOR
- SET RXNUM=$ORDER(ARRXS(RXNUM))
- if RXNUM'>0!(NEWFUND)
- QUIT
- Begin DoDot:1
- +6 SET FILLDT=$ORDER(ARRXS(RXNUM,0))
- +7 IF FILLDT'<3110427
- SET NEWFUND=1
- End DoDot:1
- +8 QUIT NEWFUND
- +9 ;
- +10 ; this is a listing of all categories and associated funds
- +11 ; the label is from the internal entry number in the category
- +12 ; file 430.2. piece 3 is a description, piece 4 is the old fund,
- +13 ; piece 5 is the new fund
- +14 ; PRCA*4.5*310/DRF Added 45 - FEE REIMB INS to routine.
- 0 ;;no fund ; ;
- 1 ;;INELIGIBLE HOSP. ;3220 ;0160R1
- 2 ;;EMERGENCY/HUMANITARIAN ;0160A1 ;528703
- 3 ;;NURSING HOME CARE(NSC) ;2431 ;528703
- 4 ;;OUTPATIENT CARE(NSC) ;2431 ;528703
- 5 ;;HOSPITAL CARE (NSC) ;2431 ;528703
- 6 ;;WORKMAN'S COMP. ;5014 ;528704
- 7 ;;NO-FAULT AUTO ACC. ;5014 ;528704
- 8 ;;CRIME OF PER.VIO. ;5014 ;528704
- 9 ;;REIMBURS.HEALTH INS. ;5014 ;528704
- 10 ;;TORT FEASOR ;0160A1 ;528704
- 11 ;;no entry ; ;
- 12 ;;MILITARY ;0160A1 ;0160R1
- 13 ;;FEDERAL AGENCIES-REFUND ;0160A1 ;0160A1
- 14 ;;FEDERAL AGENCIES-REIMB. ;0160R1 ;0160R1
- 15 ;;EX-EMPLOYEE ;0160A1 ;0160A1
- 16 ;;CURRENT EMP. ;0160A1 ;0160A1
- 17 ;;VENDOR ;0160A1 ;0160A1
- 18 ;;C (MEANS TEST) ;2431 ;528703
- 19 ;;SHARING AGREEMENTS ;0160A1 ;0160R1
- 20 ;;INTERAGENCY ;0160A1 ;0160R1
- 21 ;;MEDICARE ;5014 ;528704
- 22 ;;RX CO-PAYMENT/SC VET ;5014 ;528701
- 23 ;;RX CO-PAYMENT/NSC VET ;5014 ;528701
- 24 ;;NURSING HOME CARE PER DIEM ;2431 ;528703
- 25 ;;HOSPITAL CARE PER DIEM ;2431 ;528703
- 26 ;;PREPAYMENT ;5014 ;528703
- 27 ;;CHAMPVA SUBSISTENCE ;3220 ;3220
- 28 ;;CHAMPVA THIRD PARTY ;3220 ;0160R1
- 29 ;;CHAMPVA ;0160A1 ;0160R1
- 30 ;;TRICARE ;0160A1 ;0160R1
- 31 ;;TRICARE PATIENT ;0160A1 ;0160R1
- 32 ;;TRICARE THIRD PARTY ;0160A1 ;0160R1
- 33 ;;ADULT DAY HEALTH CARE ;4032 ;528709
- 34 ;;DOMICILIARY ;4032 ;528709
- 35 ;;RESPITE CARE-INSTITUTIONAL ;4032 ;528709
- 36 ;;RESPITE CARE-NON-INSTITUTIONAL;4032 ;528709
- 37 ;;GERIATRIC EVAL-INSTITUTIONAL ;4032 ;528709
- 38 ;;GERIATRIC EVAL-NON-INSTITUTION;4032 ;528709
- 39 ;;NURSING HOME CARE-LTC ;4032 ;528709
- 40 ;;NURSING HOME PROCEEDS ; ;528705
- 41 ;;PARKING FEES ; ;528706
- 42 ;;CWT PROCEEDS ; ;528707
- 43 ;;COMP & PEN PROCEEDS ; ;528708
- 44 ;;ENHANCED USE LEASE PROCEEDS ;5358.3 ;528710
- 45 ;;FEE REIMB INS ; ;528713
- 46 ;;EMERGENCY/HUMANITARIAN REIMB. ; ;528704 ;315
- 47 ;;INELIGIBLE REIMB. INS. ; ;0160R1 ;315
- 48 ;;CHOICE THIRD PARTY ; ;528713
- 49 ;;CC THIRD PARTY ; ;528713
- 50 ;;CCN THIRD PARTY ; ;528713
- 51 ;;CC MTF THIRD PARTY ; ;528713
- 52 ;;CHOICE NO-FAULT AUTO ; ;528713
- 53 ;;CHOICE TORT FEASOR ; ;528713
- 54 ;;CCN WORKERS' COMP ; ;528713
- 55 ;;CCN NO-FAULT AUTO ; ;528713
- 56 ;;CCN TORT FEASOR ; ;528713
- 57 ;;CC WORKERS' COMP ; ;528713
- 58 ;;CC NO-FAULT AUTO ; ;528713
- 59 ;;CC TORT FEASOR ; ;528713
- 60 ;;CHOICE WORKERS' COMP ; ;528713
- 61 ;;CHOICE INPT ; ;528714
- 62 ;;CHOICE RX CO-PAYMENT ; ;528714
- 63 ;;CC INPT ; ;528714
- 64 ;;CC RX CO-PAYMENT ; ;528714
- 65 ;;CCN INPT ; ;528714
- 66 ;;CCN RX CO-PAYMENT ; ;528714
- 67 ;;CC MTF INPT ; ;528714
- 68 ;;CC MTF RX CO-PAYMENT ; ;528714
- 69 ;;CC NURSING HOME CARE - LTC ; ;528714
- 70 ;;CC RESPITE CARE ; ;528714
- 71 ;;CCN NURSING HOME CARE - LTC ; ;528714
- 72 ;;CCN RESPITE CARE ; ;528714
- 73 ;;CHOICE NURSING HOME CARE - LTC ; ;528714
- 74 ;;CHOICE RESPITE CARE ; ;528714
- 75 ;;TRICARE DES ; ;0160R1
- 76 ;;TRICARE SCI ; ;0160R1
- 77 ;;TRICARE TBI ; ;0160R1
- 78 ;;TRICARE BLIND REHABILITATION ; ;0160R1
- 79 ;;TRICARE DENTAL ; ;0160R1
- 80 ;;TRICARE PHARMACY ; ;0160R1
- 81 ;;CHOICE OPT ; ;528714
- 82 ;;CC OPT ; ;528714
- 83 ;;CCN OPT ; ;528714
- 84 ;;CC MTF OPT ; ;528714
- 85 ;;CC URGENT CARE ; ;528714 ;PRCA*4.5*360