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

Package: Integrated Billing

Routine: IBCRHBR4


Information

IBCRHBR4 ;ALB/ARH - RATES: UPLOAD (RC) SELECT SITES ; 10-OCT-1998

Source Information

Source file <IBCRHBR4.m>

Entry Points

Name Comments DBIA/ICR reference
SELSITE() ; select one site to calculate RC charges for
; return: 0 or 'IFN of site in IBCR RC SITE ^ site number ^ site name ^ 3-digit zip'
SELECT
SSQ
ASKNAM() ; ask the user to enter the name of a site/division, return upper case name entered or null
CONT(SITE) ; as user if they want to load this division, return 1 if accept division and calculate charges, else 0
LSTALL ; list all sites, user cannot select, nothing returned
LSTSITE(SNAME) ; search, display, selecy from list of sites
; returns 'site IFN in IBCR RC SITE' if one selected, 0 if none selected, -1 if ^
ASKSEL(CNT) ; ask user to select from list of sites, returns number selected, 0 if none selected, -1 if ^
MSGDIV(SITE) ; check if division selected is defined as a division (40.8) on the system
SETRGZIP ; for all existing Billing Regions, set the sites 3-digit zip code into the Identifier field (363.31,.02)
; the 3-digit zip was not available with RC v1, so Regions created for RC v1 will not have this field set
SITEDV(DIV) ; return the site data on the division passed in
; input: site number, output: 0 or 'IFN of site in IBCR RC SITE ^ site number ^ site name ^ 3-digit zip'
CHKRGZIP ; for all existing Billing Regions, check to ensure each division assigned is actually within that Region
; the 3-digit zip of the Regions Divisions must match the 3-digit zip of the Regions primary division
; if the 3-digit zips do not match, the Division is deleted from the Region

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"Select Site to calculate Reasonable Charges v"_$$VERSION^IBCRHBRV_" for load into Charge Master"
  • Line Location: SELSITE+6
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: SELSITE+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKNAM+8
Function Call: WRITE
  • Prompt: !,?15,$P(SITE,U,2),?27,$P(SITE,U,3),!
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LSTALL+1
Function Call: WRITE
  • Prompt: !,?15,$P(IBNODE,U,1),?27,$P(IBNODE,U,2),?65,$P(IBNODE,U,3)
  • Line Location: LSTALL+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LSTALL+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LSTALL+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LSTALL+8
Function Call: WRITE
  • Prompt: !
  • Line Location: LSTALL+8
Function Call: WRITE
  • Prompt: !
  • Line Location: LSTSITE+3
Function Call: WRITE
  • Prompt: !,?9,IBCNT,")",?15,$P(IBNODE,U,1),?27,$P(IBNODE,U,2),?65,$P(IBNODE,U,3)
  • Line Location: LSTSITE+11
Function Call: WRITE
  • Prompt: ?40,"??"
  • Line Location: LSTSITE+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSEL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSEL+5
Function Call: WRITE
  • Prompt: !!,?5,$P(IBX,U,2),?15,$P(IBX,U,1)," is a valid Medical Center division on your system.",!
  • Line Location: MSGDIV+4
Function Call: WRITE
  • Prompt: !!,?5,SITE," is already assigned to Billing Region: ",IBRG,!
  • Line Location: MSGDIV+9
Function Call: WRITE
  • Prompt: !!,?5,"*** ",SITE," is NOT defined as a Medical Center Division on your system ***",!
  • Line Location: MSGDIV+10
Function Call: WRITE
  • Prompt: @IOF,!,"********************************************************************************"
  • Line Location: CHKRGZIP+20
Function Call: WRITE
  • Prompt: !,"Incorrect Billing Regions found in the Charge Master."
  • Line Location: CHKRGZIP+21
Function Call: WRITE
  • Prompt: !!,"Billing Regions are defined by the 3-digit zip code identifier of the primary",!,"division. Only Divisions with the same 3-digit zip code identifier should",!,"be assigned to a Billing Region."
  • Line Location: CHKRGZIP+22
Function Call: WRITE
  • Prompt: !!,"There were Divisions incorrectly associated with Billing Regions in the",!,"Charge Master. For the following Billing Regions, the corresponding Division",!,"has been deleted."
  • Line Location: CHKRGZIP+23
Function Call: WRITE
  • Prompt: !!,?3,"Billing Region",?43,"Division(s) Deleted",!,?3,"--------------------------------------------------------------------------"
  • Line Location: CHKRGZIP+24
Function Call: WRITE
  • Prompt: !,?3,$E($P(IBLN,U,1),1,23),?26,"(",$P(IBLN,U,2),")"
  • Line Location: CHKRGZIP+27
Function Call: WRITE
  • Prompt: ?43,$P(IBLN,U,2),?50,$E($P(IBLN,U,1),1,20),?72,"(",$P(IBLN,U,3),")",!
  • Line Location: CHKRGZIP+30
Function Call: WRITE
  • Prompt: !,"********************************************************************************",!
  • Line Location: CHKRGZIP+31
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHKRGZIP+32

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(363.31 - [#363.31] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call