Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RCXFMSUF

RCXFMSUF.m

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