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 |