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

Package: Integrated Billing

Routine: IBCRHBS4


Information

IBCRHBS4 ;ALB/ARH - RATES: UPLOAD (RC 2+) SELECT SITES ; 10-OCT-03

Source Information

Source file <IBCRHBS4.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 ^ type'
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 ^
DV999(SITE) ; check if Site is an valid site or a temporary placeholder
ASKDV(SITE) ; Get new Division number, Name and Type for invalid sites
; return: "" or 'IFN of site in IBCR RC SITE ^ site number ^ site name ^ 3-digit zip ^ type'
ASKTYP
ASKDVQ
RECHK(SITE) ; re-check site against existing region, Division number and Type are critical

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),?60,$P(SITE,U,4),?67,$P(SITE,U,5),!
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LSTALL+1
Function Call: WRITE
  • Prompt: !,?10,$P(IBNODE,U,1),?22,$P(IBNODE,U,2),?60,$P(IBNODE,U,3),?67,$P(IBNODE,U,4)
  • 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: !,?4,IBCNT,")",?10,$P(IBNODE,U,1),?22,$P(IBNODE,U,2),?60,$P(IBNODE,U,3),?67,$P(IBNODE,U,4)
  • 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: !!,"--------------------------------------------------------------------------------"
  • Line Location: ASKDV+4
Function Call: WRITE
  • Prompt: !,"'",$P(SITE,U,2)," - ",$P(SITE,U,3),"' is an invalid site number, you may now enter",!,"the correct information on the site you are loading charges for.",!
  • Line Location: ASKDV+5
Function Call: WRITE
  • Prompt: !!,">> ",IBNDIV," is not a valid Medical Center division on your system.",!!
  • Line Location: ASKDV+13
Function Call: WRITE
  • Prompt: !!,"**Site exists."
  • Line Location: ASKDV+15
Function Call: WRITE
  • Prompt: !!,"** Region ",IBNDIV," already exists."
  • Line Location: ASKDV+18
Function Call: WRITE
  • Prompt: !!,"** Region ",IBNDIV," already exists."
  • Line Location: ASKDV+19
Function Call: WRITE
  • Prompt: !!,"*** IT IS VERY IMPORTANT THAT TYPE OF FACILITY BE SET CORRECTLY"
  • Line Location: ASKDV+27
Function Call: WRITE
  • Prompt: !,"*** IF THERE IS ANY DOUBT OF THE TYPE OF FACILITY THEN CONTACT THE CBO ",!,?4,"OR ENTER A NOIS BEFORE CONTINUING"
  • Line Location: ASKDV+28
Function Call: WRITE
  • Prompt: !!,"--------------------------------------------------------------------------------",!
  • Line Location: ASKDVQ+0
Function Call: WRITE
  • Prompt: !,"*** Error: Division selected does not match existing Region"
  • Line Location: RECHK+8
Function Call: WRITE
  • Prompt: !,?10,$P(SITE,U,2),?20,$P(SITE,U,3),?55,$P(SITE,U,4),?65,$P(SITE,U,5)
  • Line Location: RECHK+9
Function Call: WRITE
  • Prompt: !,?10,$P(IBY,U,2),?20,$P(IBY,U,3),?55,$P(IBY,U,4),?65,$P(IBY,U,5)
  • Line Location: RECHK+10
Function Call: WRITE
  • Prompt: !,"** Error: Required data missing (zip or type):"
  • Line Location: RECHK+13
Function Call: WRITE
  • Prompt: !,?10,$P(SITE,U,2),?20,$P(SITE,U,3),?55,$P(SITE,U,4),?65,$P(SITE,U,5)
  • Line Location: RECHK+14
Function Call: WRITE
  • Prompt: !,"** Error: No Area Factors defined for site/zip:"
  • Line Location: RECHK+17
Function Call: WRITE
  • Prompt: !,?10,$P(SITE,U,2),?20,$P(SITE,U,3),?55,$P(SITE,U,4),?65,$P(SITE,U,5)
  • Line Location: RECHK+18

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