Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RCXFMSUF

Package: Accounts Receivable

Routine: RCXFMSUF


Information

RCXFMSUF ;WISC/RFJ-calculate fms fund code for a bill ; 10/20/10 10:37am

Source Information

Source file <RCXFMSUF.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Accounts Receivable 2 $$ADDPTEDT^PRCAACC  STORE^RCXFMSUR  
Integrated Billing 2 SET^IBCSC5A  $$TYP^IBRFN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Accounts Receivable 11 PRCASER  PRCASVC  RCDMCR5B  RCNRIG  RCRJRBD  RCRJRCOC  RCRJRCOU  RCRJROIG  
RCXFMSC1  RCXFMST1  RCXFMSUR  

Entry Points

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

External References

Name Field # of Occurrence
SET^IBCSC5A CHECKRXS+3
$$TYP^IBRFN GETFUNDB+21
$$ADDPTEDT^PRCAACC GETFUNDB+11, GETFUNDB+47, GETFUNDB+62, GETFUNDB+65, GETFUNDB+66, GETFUNDB+69, GETFUNDB+70, GETFUNDB+73, GETFUNDB+74, GETFUNDB+77
STORE^RCXFMSUR GETFUNDB+52

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCA(430 - [#430] GETFUNDB+12, GETFUNDB+34, GETFUNDB+40

Label References

Name Line Occurrences
$$CHECKRXS GETFUNDB+22

Naked Globals

Name Field # of Occurrence
^(11 GETFUNDB+34

Local Variables

Legend:

>> 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

Marked Items

Name Field # of Occurrence
$T(@CATEGDA GETFUNDB+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All