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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^DIE  ^DIK  ^DIR  
Integrated Billing 1 ($$VERSION,MSGSITE,MSGVERS)^IBCRHBRV  
Kernel 1 $$UP^XLFSTR  

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

Package Total Caller Graph
Integrated Billing 1 IBCRHBR  

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

External References

Name Field # of Occurrence
^DIE SETRGZIP+10
^DIK CHKRGZIP+17
^DIR ASKNAM+8, CONT+5, LSTALL+7, LSTALL+8, ASKSEL+4, CHKRGZIP+32
$$VERSION^IBCRHBRV SELSITE+6, CONT+4, SETRGZIP+3, CHKRGZIP+4
MSGSITE^IBCRHBRV SELECT+7
MSGVERS^IBCRHBRV SELECT+7
$$UP^XLFSTR ASKNAM+9

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
Routine Call
  • DIE
  • Line Location:
    • SETRGZIP+10
Routine Call
  • DIR
  • Line Location:
    • ASKNAM+8
    • CONT+5
    • LSTALL+7
    • LSTALL+8
    • ASKSEL+4
    • CHKRGZIP+32

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(363.31 - [#363.31] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] MSGDIV+2, MSGDIV+3, CHKRGZIP+12
^IBE(363.31 - [#363.31] MSGDIV+5, MSGDIV+7, MSGDIV+8, SETRGZIP+5, SETRGZIP+6, CHKRGZIP+6, CHKRGZIP+7, CHKRGZIP+10, CHKRGZIP+11
^XTMP("IBCR RC SITE" SELECT+4, LSTALL+3, LSTALL+4, LSTALL+5, LSTSITE+7, LSTSITE+8, LSTSITE+9, SITEDV+4, SITEDV+5

Label References

Name Line Occurrences
$$ASKNAM SELECT+1
$$ASKSEL LSTSITE+12, LSTSITE+15
$$CONT SELECT+9
$$LSTSITE SELECT+3
$$SITEDV SETRGZIP+8, CHKRGZIP+8, CHKRGZIP+13
CHKRGZIP SELSITE+3
MSGDIV SELECT+7
SELECT SELECT+3, SELECT+4, SELECT+9
SETRGZIP SELSITE+3
SSQ SELECT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY CHKRGZIP+4~
ARRAY( CHKRGZIP+16*, CHKRGZIP+26, CHKRGZIP+27, CHKRGZIP+29, CHKRGZIP+30
ARRAY(0 CHKRGZIP+19
CNT ASKSEL~, ASKSEL+3, ASKSEL+4
DA SETRGZIP+3~, SETRGZIP+10*!, CHKRGZIP+4~, CHKRGZIP+17*
DA(1 CHKRGZIP+17*
DIC SETRGZIP+3~, SETRGZIP+10!, CHKRGZIP+4~
DIE SETRGZIP+3~, SETRGZIP+10*!
DIK CHKRGZIP+4~, CHKRGZIP+17*
DIR ASKNAM+1~, ASKNAM+8!, CONT+1~, CONT+5!, LSTALL+1~, LSTALL+7!, LSTALL+8!, LSTSITE+3~, ASKSEL+2~, CHKRGZIP+4~
, CHKRGZIP+32!
DIR("?" ASKNAM+2*, ASKNAM+3*, ASKNAM+4*, ASKNAM+5*, ASKNAM+6*, ASKNAM+7*, CONT+3*, ASKSEL+3*
DIR("??" ASKNAM+7*
DIR("A" ASKNAM+8*, CONT+4*, ASKSEL+4*
DIR(0 ASKNAM+8*, CONT+5*, LSTALL+7*, LSTALL+8*, ASKSEL+4*, CHKRGZIP+32*
DIRUT ASKNAM+1~, ASKNAM+8, CONT+1~, LSTALL+1~, LSTALL+3, LSTALL+4, LSTALL+8, LSTSITE+3~, ASKSEL+2~
DIV SITEDV~, SITEDV+4
DR SETRGZIP+3~, SETRGZIP+10*!
DTOUT LSTALL+1~, ASKSEL+2~, ASKSEL+5
DUOUT ASKNAM+1~, CONT+1~, LSTALL+1~, LSTSITE+3~, ASKSEL+2~, ASKSEL+5
IBCNT LSTALL+1~*, LSTALL+7*, LSTSITE+3~*, LSTSITE+10*, LSTSITE+11, LSTSITE+12, LSTSITE+13, LSTSITE+15, LSTSITE+16
IBDV CHKRGZIP+4~, CHKRGZIP+11*, CHKRGZIP+12, CHKRGZIP+16, CHKRGZIP+29*, CHKRGZIP+30
IBDVFN CHKRGZIP+4~, CHKRGZIP+10*, CHKRGZIP+11, CHKRGZIP+17
IBDVLN CHKRGZIP+4~, CHKRGZIP+12*, CHKRGZIP+13, CHKRGZIP+16
IBDVZIP CHKRGZIP+4~, CHKRGZIP+13*, CHKRGZIP+15, CHKRGZIP+16
IBEND LSTALL+1~*, LSTALL+7*, LSTALL+8, LSTSITE+3~*, LSTSITE+12*, LSTSITE+15
IBFND MSGDIV+1~*, MSGDIV+5, MSGDIV+6*, MSGDIV+9*
IBL LSTSITE+3~, LSTSITE+5*, LSTSITE+7
IBLN SETRGZIP+3~, SETRGZIP+6*, SETRGZIP+8, SITEDV+3~, SITEDV+5*, CHKRGZIP+4~, CHKRGZIP+7*, CHKRGZIP+8, CHKRGZIP+16, CHKRGZIP+27*
, CHKRGZIP+30*
IBMCDV SELSITE+5~, SELECT*, MSGDIV+1~*, MSGDIV+2*, MSGDIV+3, MSGDIV+8, MSGDIV+10
IBNODE LSTALL+1~, LSTALL+5*, LSTALL+6, LSTSITE+3~, LSTSITE+9*, LSTSITE+11
IBRG MSGDIV+1~, MSGDIV+5*, MSGDIV+6, MSGDIV+7, MSGDIV+9
IBRGFN SETRGZIP+3~, SETRGZIP+5*, SETRGZIP+6, SETRGZIP+10, CHKRGZIP+4~, CHKRGZIP+6*, CHKRGZIP+7, CHKRGZIP+10, CHKRGZIP+11, CHKRGZIP+16
, CHKRGZIP+17, CHKRGZIP+26*, CHKRGZIP+27, CHKRGZIP+29, CHKRGZIP+30
IBRGZIP CHKRGZIP+4~, CHKRGZIP+8*, CHKRGZIP+15
IBSEL LSTSITE+3~*, LSTSITE+7, LSTSITE+8, LSTSITE+12*, LSTSITE+15*, LSTSITE+16*, LSTSITE+18*, LSTSITE+20
IBSELDIV SELSITE+5~, SELECT*, SELECT+4*, SELECT+5*, SELECT+7, SELECT+9, SSQ
IBSNAME SELSITE+5~, SELECT+1*, SELECT+3
IBX SELSITE+5~, SELECT+7*, ASKNAM+1~*, ASKNAM+8*, ASKNAM+9*, ASKNAM+10, CONT+1~*, CONT+5*, CONT+6, LSTALL+1~
, LSTALL+3*, LSTALL+4, LSTSITE+3~, LSTSITE+5*, LSTSITE+7*, LSTSITE+8, ASKSEL+2~*, ASKSEL+5*, ASKSEL+6, MSGDIV+1~
, MSGDIV+3*, MSGDIV+4, SITEDV+3~*, SITEDV+5*, SITEDV+6
IBXIFN SELSITE+5~, SELECT+3*, SELECT+4, SELECT+5, LSTALL+1~, LSTALL+4*, LSTALL+5, LSTSITE+3~, LSTSITE+8*, LSTSITE+9
, LSTSITE+10
IBY ASKNAM+1~, MSGDIV+1~, MSGDIV+7*, MSGDIV+8, SITEDV+3~*, SITEDV+4*, SITEDV+5
IBZIP SETRGZIP+3~, SETRGZIP+8*, SETRGZIP+10
IOF CHKRGZIP+20, CHKRGZIP+32
SELARR LSTSITE+3~
SELARR( LSTSITE+10*, LSTSITE+18
SITE CONT~, CONT+2, MSGDIV~, MSGDIV+1*, MSGDIV+2, MSGDIV+6, MSGDIV+9, MSGDIV+10
SNAME LSTSITE~, LSTSITE+5, LSTSITE+7, LSTSITE+13
U SELECT+5, SELECT+7, CONT+2, LSTALL+6, LSTSITE+11, MSGDIV+4, SETRGZIP+6, SETRGZIP+8, SITEDV+5, CHKRGZIP+8
, CHKRGZIP+13, CHKRGZIP+16, CHKRGZIP+27, CHKRGZIP+30
X ASKNAM+1~, CONT+1~, LSTALL+1~, LSTSITE+3~, ASKSEL+2~, SETRGZIP+3~, CHKRGZIP+4~
Y ASKNAM+1~, ASKNAM+8, CONT+1~, CONT+5, LSTALL+1~, LSTSITE+3~, ASKSEL+2~, ASKSEL+5, SETRGZIP+3~, CHKRGZIP+4~
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 |  Local Variables  | All