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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RCXFMSUR

Package: Accounts Receivable

Routine: RCXFMSUR


Information

RCXFMSUR ;WISC/RFJ-revenue source codes ;10/19/10 1:47pm

Source Information

Source file <RCXFMSUR.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 4 EN^DDIOL  (,IX)^DIC  ^DIE  EN^DIQ1  
Accounts Receivable 2 ($$ADDPTEDT,$$PTACCT)^PRCAACC  ($$CHECKRXS,$$GETFUNDB)^RCXFMSUF  
Registration 2 $$BIL^DGMTUB  DEM^VADPT  
Integrated Billing 1 $$TYP^IBRFN  
Kernel 1 $$FMDIFF^XLFDT  
List Manager 1 $$UPPER^VALM1  

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

Package Total Caller Graph
Accounts Receivable 15 PRCA FMS RSC CALCULATE  PRCA FMS RSC ENTER/EDIT  PRCAI162  PRCARFD1  RCBMILLT  RCDMCR5B  RCDPAPLI  RCNRIG  
RCRJRBD  RCRJRCOC  RCRJRCOU  RCRJROIG  RCXFMSC1  RCXFMSUF  ^PRCA(430  

Entry Points

Name Comments DBIA/ICR reference
CALCRSC(BILLDA,RCEFT) ; calculate the revenue source code for a bill
; rceft = 1 if processing an EFT deposit
; returns the 4 column (character) rsc
STORE(DA,RSC,FUND) ; store the revenue source code or fund in the file
COLUMN1() ; return column 1 number
COLUMN2() ; return column 2 number
COLUMN3() ; return the column 3 number
COLUMN4() ; return the column 4 number (reserved for future expansion)
DIQ399(DA)
TYPECARE ; compute type of care (2 digit binary)
; type of care is set as follows:
; 00 = inpatient (hospital) 01 = outpatient
; 10 = nursing home 11 = other
; default is other if it cannot be computed
ADDEDIT ; enter/edit revenue source codes for fund 0160A1 bills. These
; bills have the rsc entered by the user. The user can select
; from rscs in file 347.3
UPD
RSC ;revenue code (#430/255)
SHOW ; show/calculate revenue source code for a selected bill
GETCCRSC(CATEGDA,BILLDA) ;Retrieve the RSC for Community Care Categories

External References

Name Field # of Occurrence
EN^DDIOL RSC+1
$$BIL^DGMTUB COLUMN3+25
^DIC ADDEDIT+20, SHOW+11
IX^DIC ADDEDIT+24
^DIE STORE+7, UPD
EN^DIQ1 DIQ399+3
$$TYP^IBRFN CALCRSC+27, GETCCRSC+34
$$ADDPTEDT^PRCAACC SHOW+3, SHOW+4
$$PTACCT^PRCAACC SHOW+18, SHOW+33
$$CHECKRXS^RCXFMSUF CALCRSC+28, GETCCRSC+35
$$GETFUNDB^RCXFMSUF SHOW+18, SHOW+28
DEM^VADPT COLUMN3+19
$$UPPER^VALM1 ADDEDIT+19
$$FMDIFF^XLFDT COLUMN3+30

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option should be used with CAUTION. This option will allow the"
  • Line Location: ADDEDIT+3
Function Call: WRITE
  • Prompt: !,"user owning the PRCASVC supervisor security key, to add or edit the"
  • Line Location: ADDEDIT+4
Function Call: WRITE
  • Prompt: !,"Revenue Source Codes selectable for non MCCF bills. If an invalid"
  • Line Location: ADDEDIT+5
Function Call: WRITE
  • Prompt: !,"Revenue Source Code is entered or changed, all code sheets sent to"
  • Line Location: ADDEDIT+6
Function Call: WRITE
  • Prompt: !,"FMS referencing the invalid Revenue Source Code will reject. Be"
  • Line Location: ADDEDIT+7
Function Call: WRITE
  • Prompt: !,"cautious when entering new Revenue Source Codes or editing existing"
  • Line Location: ADDEDIT+8
Function Call: WRITE
  • Prompt: !,"Revenue Source Codes. New Revenue Source Codes should only be added"
  • Line Location: ADDEDIT+9
Function Call: WRITE
  • Prompt: !,"after they have been added in FMS."
  • Line Location: ADDEDIT+10
Function Call: WRITE
  • Prompt: !!,"You are not an owner of the PRCASVC security key."
  • Line Location: ADDEDIT+12
Function Call: WRITE
  • Prompt: " ",X," ",$P($G(^RC(347.3,Y,0)),U,2)
  • Line Location: ADDEDIT+22
Function Call: WRITE
  • Prompt: " INACTIVE"
  • Condition for execution: $P(^(0),U,3)
  • Line Location: ADDEDIT+22
Function Call: WRITE
  • Prompt: !!,"This option will show the calculated Revenue Source Code for a selected"
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !,"bill. The Revenue Source Code is only calculated for accrued bills in"
  • Line Location: SHOW+2
Function Call: WRITE
  • Prompt: !,"funds 528701,528703,528704,528709/4032,528711,528713,528714"
  • Line Location: SHOW+3
Function Call: WRITE
  • Prompt: !,"funds 5287.1,5287.3,5287.4,4032"
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+11
Function Call: WRITE
  • Prompt: !!," Bill Number: ",$P($G(^PRCA(430,BILLDA,0)),"^")
  • Line Location: SHOW+31
Function Call: WRITE
  • Prompt: !," Fund: ",FUND
  • Line Location: SHOW+32
Function Call: WRITE
  • Prompt: !," The Revenue Source Code cannot be calculated for non-accrued bills."
  • Line Location: SHOW+34
Function Call: WRITE
  • Prompt: !," The Revenue Source Code for non-accrued bills are input by the user."
  • Line Location: SHOW+35
Function Call: WRITE
  • Prompt: !," The Revenue Source Code is currently entered as: "
  • Line Location: SHOW+36
Function Call: WRITE
  • Prompt: $S(RSC="":"<not entered>",1:RSC)
  • Line Location: SHOW+38
Function Call: WRITE
  • Prompt: !,"Revenue Source Code: ",RSC
  • Line Location: SHOW+41
Routine Call
  • DIC
  • Line Location:
    • ADDEDIT+20
    • SHOW+11
Routine Call
  • DIC
  • Line Location:
    • ADDEDIT+24
Routine Call
  • DIE
  • Line Location:
    • STORE+7
    • UPD

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RC(347.3 - [#347.3] Classic Fileman Calls
^DGCR(399 - [#399] Classic Fileman Calls
^PRCA(430 - [#430] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCA(430 - [#430] CALCRSC+6, CALCRSC+10, STORE+1, COLUMN3+18, SHOW+16, SHOW+24, SHOW+31, SHOW+37
^RC(347.3 - [#347.3] ADDEDIT+22, ADDEDIT+23, RSC+1, RSC+2
^XUSEC("PRCASVC" ADDEDIT+12

Label References

Name Line Occurrences
$$CALCRSC SHOW+40
$$COLUMN1 CALCRSC+23
$$COLUMN2 CALCRSC+30
$$COLUMN3 CALCRSC+40
$$COLUMN4 CALCRSC+41
$$GETCCRSC CALCRSC+14, CALCRSC+17
DIQ399 COLUMN2+30, COLUMN3+3, GETCCRSC+36
STORE CALCRSC+15, CALCRSC+18, CALCRSC+21, CALCRSC+33, CALCRSC+37, CALCRSC+43
TYPECARE COLUMN3+9
UPD ADDEDIT+22, ADDEDIT+24

Naked Globals

Name Field # of Occurrence
^( ADDEDIT+22
^(0 ADDEDIT+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ADDEDIT+14~, SHOW+6~
%Y ADDEDIT+14~, SHOW+6~
AGE COLUMN3+1~, COLUMN3+30*, COLUMN3+32
BILLDA CALCRSC~, CALCRSC+6, CALCRSC+10, CALCRSC+14, CALCRSC+15, CALCRSC+17, CALCRSC+18, CALCRSC+21, CALCRSC+27, CALCRSC+28
, CALCRSC+33, CALCRSC+37, CALCRSC+43, COLUMN2+30, COLUMN2+31, COLUMN3+3, COLUMN3+7, COLUMN3+16, COLUMN3+18, COLUMN3+25
, COLUMN3+30, TYPECARE+7, TYPECARE+9, TYPECARE+11, SHOW+6~, SHOW+13*, SHOW+16, SHOW+18, SHOW+24, SHOW+28
SHOW+31, SHOW+37, SHOW+40, GETCCRSC~, GETCCRSC+34, GETCCRSC+35, GETCCRSC+36, GETCCRSC+38
C ADDEDIT+14~, SHOW+6~
CATEG SHOW+7~, SHOW+24*, SHOW+26
CATEGDA CALCRSC+3~, CALCRSC+10*, CALCRSC+13, CALCRSC+14, CALCRSC+16, CALCRSC+17, CALCRSC+21, CALCRSC+37, COLUMN2+1, COLUMN2+2
, COLUMN2+3, COLUMN2+4, COLUMN2+5, COLUMN2+6, COLUMN2+7, COLUMN2+8, COLUMN2+9, COLUMN2+10, COLUMN2+11, COLUMN2+12
, COLUMN2+13, COLUMN2+14, COLUMN2+15, COLUMN2+16, COLUMN2+17, COLUMN2+18, COLUMN2+19, COLUMN2+20, COLUMN2+21, COLUMN2+22
, COLUMN2+23, COLUMN2+24, COLUMN2+25, COLUMN2+26, COLUMN2+27, COLUMN2+28, COLUMN3+7, GETCCRSC~, GETCCRSC+3, GETCCRSC+4
, GETCCRSC+5, GETCCRSC+6, GETCCRSC+7, GETCCRSC+8, GETCCRSC+9, GETCCRSC+10, GETCCRSC+11, GETCCRSC+12, GETCCRSC+13, GETCCRSC+14
, GETCCRSC+15, GETCCRSC+16, GETCCRSC+17, GETCCRSC+18, GETCCRSC+19, GETCCRSC+20, GETCCRSC+21, GETCCRSC+22, GETCCRSC+23, GETCCRSC+24
, GETCCRSC+25, GETCCRSC+26, GETCCRSC+27, GETCCRSC+28, GETCCRSC+29, GETCCRSC+30, GETCCRSC+31, GETCCRSC+39, GETCCRSC+40, GETCCRSC+41
, GETCCRSC+42, GETCCRSC+43, GETCCRSC+44, GETCCRSC+45, GETCCRSC+46, GETCCRSC+47, GETCCRSC+48, GETCCRSC+49, GETCCRSC+50
COL COLUMN2+29~, COLUMN2+31*, COLUMN2+32
COLUMN1 CALCRSC+3~, CALCRSC+23*, CALCRSC+37, CALCRSC+43, CALCRSC+44
COLUMN2 CALCRSC+3~, CALCRSC+30*, CALCRSC+33, CALCRSC+37, CALCRSC+43, CALCRSC+44, COLUMN2+28, COLUMN2+32*
COLUMN3 CALCRSC+3~, CALCRSC+40*, CALCRSC+43, CALCRSC+44, COLUMN3+7*
COLUMN4 CALCRSC+3~, CALCRSC+41*, CALCRSC+43, CALCRSC+44
D STORE+2~, ADDEDIT+14~, ADDEDIT+24*
D0 STORE+2~, DIQ399+1~, ADDEDIT+14~
DA STORE~, STORE+1, DIQ399~, ADDEDIT+14~, UPD*
DECIMAL COLUMN3+1~, COLUMN3+37*, COLUMN3+38*, COLUMN3+39*, COLUMN3+40*, COLUMN3+41, COLUMN3+42
DFN COLUMN3+1~, COLUMN3+18*, COLUMN3+25
DI STORE+2~, ADDEDIT+14~
DIC STORE+2~, STORE+6*, DIQ399+1~, DIQ399+3*, ADDEDIT+14~, ADDEDIT+17*, SHOW+6~, SHOW+10*
DIC(0 ADDEDIT+17*, SHOW+10*
DIE STORE+2~, STORE+6*, ADDEDIT+14~, ADDEDIT+17*, UPD*
DIQ DIQ399+1~, DIQ399+3*
DIQ(0 DIQ399+3*
DIQ2 DIQ399+1~
DLAYGO ADDEDIT+14~, ADDEDIT+17*
DQ STORE+2~, ADDEDIT+14~
DR STORE+2~, STORE+3*, STORE+4*, STORE+5*, DIQ399+1~, DIQ399+3*, ADDEDIT+14~, UPD*
DT SHOW+3, SHOW+4
DTIME ADDEDIT+18
DUZ ADDEDIT+12
FUND STORE~, STORE+5, SHOW+6~, SHOW+16*, SHOW+18*, SHOW+23, SHOW+28*, SHOW+32, SHOW+33
I SHOW+6~
IBCNDATA COLUMN3+1~, DIQ399+2!, GETCCRSC+1~
IBCNDATA(399 COLUMN2+31, COLUMN3+7, COLUMN3+16, COLUMN3+25, COLUMN3+30, TYPECARE+7, TYPECARE+9, TYPECARE+11, GETCCRSC+38
RCEFT CALCRSC~, CALCRSC+5
RCIOPFLG GETCCRSC+1~, GETCCRSC+32*, GETCCRSC+38*, GETCCRSC+40, GETCCRSC+41, GETCCRSC+43, GETCCRSC+44, GETCCRSC+46, GETCCRSC+47, GETCCRSC+49
, GETCCRSC+50
RCRJFLAG ADDEDIT+14~, ADDEDIT+16, ADDEDIT+21*, SHOW+6~, SHOW+9, SHOW+12*
RCRSC GETCCRSC+1~, GETCCRSC+2*, GETCCRSC+31, GETCCRSC+39*, GETCCRSC+40*, GETCCRSC+41*, GETCCRSC+42*, GETCCRSC+43*, GETCCRSC+44*, GETCCRSC+45*
, GETCCRSC+46*, GETCCRSC+47*, GETCCRSC+48*, GETCCRSC+49*, GETCCRSC+50*
RSC CALCRSC+3~, CALCRSC+5*, CALCRSC+6*, CALCRSC+7, CALCRSC+13, CALCRSC+14*, CALCRSC+15, CALCRSC+16, CALCRSC+17*, CALCRSC+18
, STORE~, STORE+4, SHOW+6~, SHOW+37*, SHOW+38, SHOW+40*, SHOW+41
RX3P CALCRSC+26~*, CALCRSC+28*, COLUMN2+5, COLUMN2+7, COLUMN2+9, COLUMN2+13, GETCCRSC+1~, GETCCRSC+33*, GETCCRSC+35*, GETCCRSC+39
, GETCCRSC+42, GETCCRSC+45, GETCCRSC+48
TYPEAGE COLUMN3+1~, COLUMN3+31*, COLUMN3+32*, COLUMN3+40
TYPECARE COLUMN3+1~, COLUMN3+37, TYPECARE+5*, TYPECARE+7*, TYPECARE+9*, TYPECARE+11*
TYPEMEAN COLUMN3+1~, COLUMN3+24*, COLUMN3+25*, COLUMN3+39
TYPESERV COLUMN3+1~, COLUMN3+14*, COLUMN3+16*, COLUMN3+38
U ADDEDIT+21, ADDEDIT+22
VA COLUMN3+1~
VADM COLUMN3+1~
VADM(3 COLUMN3+30
VAERR COLUMN3+1~
X STORE+2~, ADDEDIT+14~, ADDEDIT+18*, ADDEDIT+19*, ADDEDIT+20, ADDEDIT+21, ADDEDIT+22, ADDEDIT+23*, RSC+1!, RSC+2*
SHOW+6~
X1 ADDEDIT+14~, ADDEDIT+19*, ADDEDIT+23
X2 ADDEDIT+14~, ADDEDIT+23*
X3 ADDEDIT+14~, ADDEDIT+23*
Y STORE+2~, ADDEDIT+14~, ADDEDIT+20, ADDEDIT+22*, ADDEDIT+24, UPDSHOW+6~, SHOW+12, SHOW+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All