Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call