RCXFMSUF ;WISC/RFJ-calculate fms fund code for a bill ; 10/20/10 10:37am
Source file <RCXFMSUF.m>
| Package | Total | Call Graph |
|---|---|---|
| Accounts Receivable | 2 | $$ADDPTEDT^PRCAACC STORE^RCXFMSUR |
| Integrated Billing | 2 | SET^IBCSC5A $$TYP^IBRFN |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 |
|
| 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 |
|
| CHECKRXS(BILLDA) | ; returns true (1) if bill has any scripts on or after 4/27/11
|
|
| 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
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRCA(430 - [#430] | GETFUNDB+12, GETFUNDB+34, GETFUNDB+40 |
| Name | Line Occurrences |
|---|---|
| $$CHECKRXS | GETFUNDB+22 |
| Name | Field # of Occurrence |
|---|---|
| ^(11 | GETFUNDB+34 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTDATE | GETFUNDB+8~, GETFUNDB+40*, GETFUNDB+41, GETFUNDB+47 |
| ARRXS | CHECKRXS+1~, CHECKRXS+3 |
| ARRXS( | CHECKRXS+5, CHECKRXS+6 |
| BILLDA | GETFUNDB~, GETFUNDB+12, GETFUNDB+21, GETFUNDB+22, GETFUNDB+34, GETFUNDB+40, GETFUNDB+52, CHECKRXS~, CHECKRXS+3 |
| CATEGDA | GETFUNDB+8~, GETFUNDB+12*, GETFUNDB+15, GETFUNDB+22, GETFUNDB+33, GETFUNDB+39, GETFUNDB+47 |
| >> DATEEND | GETFUNDB+64, GETFUNDB+68, GETFUNDB+72, GETFUNDB+76 |
| DONTSTOR | GETFUNDB~, GETFUNDB+34*, GETFUNDB+52 |
| DT | GETFUNDB+11, GETFUNDB+47, GETFUNDB+61, GETFUNDB+65, GETFUNDB+69, GETFUNDB+73, GETFUNDB+77 |
| FILLDT | CHECKRXS+1~, CHECKRXS+4*, CHECKRXS+6*, CHECKRXS+7 |
| FUND | GETFUNDB+8~, GETFUNDB+11*, GETFUNDB+18*, GETFUNDB+22*, GETFUNDB+34*, GETFUNDB+41*, GETFUNDB+47*, GETFUNDB+52, GETFUNDB+55, GETFUNDB+56 , GETFUNDB+57, GETFUNDB+59, GETFUNDB+60, GETFUNDB+61, GETFUNDB+62, GETFUNDB+63, GETFUNDB+64, GETFUNDB+65, GETFUNDB+66, GETFUNDB+67 , GETFUNDB+68, GETFUNDB+69, GETFUNDB+70, GETFUNDB+71, GETFUNDB+72, GETFUNDB+73, GETFUNDB+74, GETFUNDB+75, GETFUNDB+76, GETFUNDB+77 , GETFUNDB+78 |
| NEWFUND | GETFUNDB+8~, CHECKRXS+1~, CHECKRXS+2*, CHECKRXS+5, CHECKRXS+7*, CHECKRXS+8 |
| RCEFT | GETFUNDB~, GETFUNDB+11 |
| >> REFMS | GETFUNDB+60, GETFUNDB+63, GETFUNDB+67, GETFUNDB+71, GETFUNDB+75 |
| >> REPRODT | GETFUNDB+59, GETFUNDB+60, GETFUNDB+62, GETFUNDB+63, GETFUNDB+66, GETFUNDB+67, GETFUNDB+70, GETFUNDB+71, GETFUNDB+74, GETFUNDB+75 |
| RXNUM | CHECKRXS+1~, CHECKRXS+4*, CHECKRXS+5*, CHECKRXS+6 |
| TYPE | GETFUNDO~, GETFUNDO+4, GETFUNDO+5, GETFUNDO+6, GETFUNDO+7 |
| Name | Field # of Occurrence |
|---|---|
| $T(@CATEGDA | GETFUNDB+18 |