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

Package: Integrated Billing

Routine: IBCRHBSZ


Information

IBCRHBSZ ;ALB/ARH - RATES: UPLOAD (RC 2+) DIVISION FUNCTIONS ; 10-OCT-03

Source Information

Source file <IBCRHBSZ.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 ^DIE  ^DIK  ^DIR  
Integrated Billing 1 $$VERSION^IBCRHBRV  

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 IBCRHBS4  

Entry Points

Name Comments DBIA/ICR reference
SITEDV(DIV) ; return the host file 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 ^ type'
RGDV(DV) ; return Billing Region data on division passed in
; Input: site number, output 0 or 'IFN of region in 363.31 ^ site number ^ site city,st ^ 3-digit zip ^ type'
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)
; and set the Facility type into the Type field (363.31,.03)
; the 3-digit zip was not available with RC v1, so Regions created for RC v1 will not have this field set
; the type field was not available until RC v2, so Regions created before RC 2 will not have this field set
CHKRGZIP ; for all existing Billing Regions, check to ensure each division assigned is actually within that Region
; Check the Billing Region zip/type against the Host files zip/type for the site
; Also 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+17
^DIK CHKRGZIP+30
^DIR CHKRGZIP+46, CHKRGZIP+68
$$VERSION^IBCRHBRV SETRGZIP+5

Interaction Calls

Name Line Occurrences
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+34
Function Call: WRITE
  • Prompt: !,"Error Found: Billing Regions found in Charge Master with Incorrect Zip or Type."
  • Line Location: CHKRGZIP+35
Function Call: WRITE
  • Prompt: !,"Billing Regions are defined by both the 3-digit zip code and Type of Facility."
  • Line Location: CHKRGZIP+36
Function Call: WRITE
  • Prompt: !!,"There are Charge Master Billing Regions whose Zip or Type do not match the "
  • Line Location: CHKRGZIP+37
Function Call: WRITE
  • Prompt: !,"settings of that primary division in the new host files.",!
  • Line Location: CHKRGZIP+38
Function Call: WRITE
  • Prompt: !!,?3,"Billing Region",?32,"CM Zip-Type",?47,"HF Zip-Type",!,?3,"--------------------------------------------------------------------------"
  • Line Location: CHKRGZIP+40
Function Call: WRITE
  • Prompt: !,?3,IBRGFN,?35,$P(IBLN,U,1),"-",$P(IBLN,U,2),?50,$P(IBLN,U,3),"-",$P(IBLN,U,4)
  • Line Location: CHKRGZIP+42
Function Call: WRITE
  • Prompt: !!,"IT IS POSSIBLE THERE ARE PROBLEMS WITH THE CHARGES, PLEASE CONTACT SUPPORT."
  • Line Location: CHKRGZIP+44
Function Call: WRITE
  • Prompt: !,"********************************************************************************",!
  • Line Location: CHKRGZIP+45
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHKRGZIP+46
Function Call: WRITE
  • Prompt: @IOF,!,"********************************************************************************"
  • Line Location: CHKRGZIP+50
Function Call: WRITE
  • Prompt: !,"Error Found: Incorrect Billing Regions found in the Charge Master."
  • Line Location: CHKRGZIP+51
Function Call: WRITE
  • Prompt: !!,"Billing Regions are defined by the 3-digit zip code identifier and "
  • Line Location: CHKRGZIP+52
Function Call: WRITE
  • Prompt: !,"Type of Facility of the primary division. Only Divisions with the "
  • Line Location: CHKRGZIP+53
Function Call: WRITE
  • Prompt: !,"same 3-digit zip code and type should be assigned to a Billing Region."
  • Line Location: CHKRGZIP+54
Function Call: WRITE
  • Prompt: !!,"There were Divisions incorrectly associated with Billing Regions in the"
  • Line Location: CHKRGZIP+55
Function Call: WRITE
  • Prompt: !,"Charge Master. For the following Billing Regions, the corresponding "
  • Line Location: CHKRGZIP+56
Function Call: WRITE
  • Prompt: !,"Division has been deleted."
  • Line Location: CHKRGZIP+57
Function Call: WRITE
  • Prompt: !!,?3,"Billing Region",?43,"Division(s) Deleted",!,?3,"--------------------------------------------------------------------------"
  • Line Location: CHKRGZIP+58
Function Call: WRITE
  • Prompt: !,?3,$E($P(IBLN,U,1),1,23),?26,"(",$P(IBLN,U,2),"-",$P(IBLN,U,3),")"
  • Line Location: CHKRGZIP+61
Function Call: WRITE
  • Prompt: ?43,$P(IBLN,U,2),?50,$E($P(IBLN,U,1),1,20),?72,"(",$P(IBLN,U,3),"-",$P(IBLN,U,4),")",!
  • Line Location: CHKRGZIP+64
Function Call: WRITE
  • Prompt: !,"IT IS LIKELY THE ABOVE DIVISIONS NO LONGER HAVE ANY REASONABLE CHARGES ASSIGNED."
  • Line Location: CHKRGZIP+66
Function Call: WRITE
  • Prompt: !,"********************************************************************************",!
  • Line Location: CHKRGZIP+67
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHKRGZIP+68
Routine Call
  • DIE
  • Line Location:
    • SETRGZIP+17
Routine Call
  • DIR
  • Line Location:
    • CHKRGZIP+46
    • CHKRGZIP+68

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+21
^IBE(363.31 - [#363.31] RGDV+3, RGDV+5, RGDV+6, MSGDIV+5, MSGDIV+7, MSGDIV+8, SETRGZIP+7, SETRGZIP+8, CHKRGZIP+7, CHKRGZIP+8
CHKRGZIP+19, CHKRGZIP+20
^XTMP("IBCR RC SITE" SITEDV+4, SITEDV+5

Label References

Name Line Occurrences
$$SITEDV SETRGZIP+10, CHKRGZIP+9, CHKRGZIP+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY CHKRGZIP+5~
ARRAY( CHKRGZIP+29*, CHKRGZIP+60, CHKRGZIP+61, CHKRGZIP+63, CHKRGZIP+64
ARRAY(0 CHKRGZIP+48
ARRAY2 CHKRGZIP+5~
ARRAY2( CHKRGZIP+15*, CHKRGZIP+16*, CHKRGZIP+41, CHKRGZIP+42
ARRAY2("" CHKRGZIP+32
DA SETRGZIP+5~, SETRGZIP+17*!, CHKRGZIP+5~, CHKRGZIP+30*
DA(1 CHKRGZIP+30*
DIC SETRGZIP+5~, SETRGZIP+17!, CHKRGZIP+5~
DIE SETRGZIP+5~, SETRGZIP+17*!
DIK CHKRGZIP+5~, CHKRGZIP+30*
DIR CHKRGZIP+5~, CHKRGZIP+46!, CHKRGZIP+68!
DIR(0 CHKRGZIP+46*, CHKRGZIP+68*
DIV SITEDV~, SITEDV+4
DR SETRGZIP+5~, SETRGZIP+14*, SETRGZIP+15*, SETRGZIP+16*, SETRGZIP+17!
DV RGDV~, RGDV+3, RGDV+4, RGDV+7
IBDV CHKRGZIP+5~, CHKRGZIP+20*, CHKRGZIP+21, CHKRGZIP+29, CHKRGZIP+63*, CHKRGZIP+64
IBDVFN CHKRGZIP+5~, CHKRGZIP+19*, CHKRGZIP+20, CHKRGZIP+30
IBDVLN CHKRGZIP+5~, CHKRGZIP+21*, CHKRGZIP+22, CHKRGZIP+29
IBDVSITE CHKRGZIP+5~, CHKRGZIP+22*, CHKRGZIP+23, CHKRGZIP+24
IBDVTYPE CHKRGZIP+5~, CHKRGZIP+24*, CHKRGZIP+25, CHKRGZIP+27, CHKRGZIP+28, CHKRGZIP+29
IBDVZIP CHKRGZIP+5~, CHKRGZIP+23*, CHKRGZIP+25, CHKRGZIP+27, CHKRGZIP+29
IBFND RGDV+2~*, RGDV+3, RGDV+7*, RGDV+8, MSGDIV+1~*, MSGDIV+5, MSGDIV+6*, MSGDIV+9*
IBLN SITEDV+3~, SITEDV+5*, SETRGZIP+5~, SETRGZIP+8*, SETRGZIP+10, SETRGZIP+15, SETRGZIP+16, CHKRGZIP+5~, CHKRGZIP+8*, CHKRGZIP+9
CHKRGZIP+15, CHKRGZIP+16, CHKRGZIP+29, CHKRGZIP+42*, CHKRGZIP+61*, CHKRGZIP+64*
IBMCDV MSGDIV+1~*, MSGDIV+2*, MSGDIV+3, MSGDIV+8, MSGDIV+10
IBRG RGDV+2~, RGDV+3*, RGDV+4, RGDV+5, MSGDIV+1~, MSGDIV+5*, MSGDIV+6, MSGDIV+7, MSGDIV+9
IBRGFN SETRGZIP+5~, SETRGZIP+7*, SETRGZIP+8, SETRGZIP+17, CHKRGZIP+5~, CHKRGZIP+7*, CHKRGZIP+8, CHKRGZIP+19, CHKRGZIP+20, CHKRGZIP+29
CHKRGZIP+30, CHKRGZIP+41*, CHKRGZIP+42, CHKRGZIP+60*, CHKRGZIP+61, CHKRGZIP+63, CHKRGZIP+64
IBRGSITE CHKRGZIP+5~, CHKRGZIP+9*, CHKRGZIP+10, CHKRGZIP+11
IBRGTYPE CHKRGZIP+5~, CHKRGZIP+11*, CHKRGZIP+12, CHKRGZIP+15, CHKRGZIP+16, CHKRGZIP+27, CHKRGZIP+28
IBRGZIP CHKRGZIP+5~, CHKRGZIP+10*, CHKRGZIP+12, CHKRGZIP+15, CHKRGZIP+16, CHKRGZIP+27
IBSITE SETRGZIP+5~, SETRGZIP+10*, SETRGZIP+11, SETRGZIP+12
IBTYPE SETRGZIP+5~, SETRGZIP+12*, SETRGZIP+16
IBX SITEDV+3~*, SITEDV+5*, SITEDV+6, RGDV+2~, RGDV+6*, RGDV+7, MSGDIV+1~, MSGDIV+3*, MSGDIV+4
IBY SITEDV+3~*, SITEDV+4*, SITEDV+5, RGDV+2~, RGDV+5*, RGDV+6, RGDV+7, MSGDIV+1~, MSGDIV+7*, MSGDIV+8
IBZIP SETRGZIP+5~, SETRGZIP+11*, SETRGZIP+15
IOF CHKRGZIP+34, CHKRGZIP+46, CHKRGZIP+50, CHKRGZIP+68
SITE MSGDIV~, MSGDIV+1*, MSGDIV+2, MSGDIV+6, MSGDIV+9, MSGDIV+10
U SITEDV+5, RGDV+7, MSGDIV+4, SETRGZIP+8, SETRGZIP+11, SETRGZIP+12, SETRGZIP+15, SETRGZIP+16, CHKRGZIP+10, CHKRGZIP+11
CHKRGZIP+15, CHKRGZIP+16, CHKRGZIP+22, CHKRGZIP+23, CHKRGZIP+24, CHKRGZIP+29, CHKRGZIP+42, CHKRGZIP+61, CHKRGZIP+64
X SETRGZIP+5~, CHKRGZIP+5~
Y SETRGZIP+5~, CHKRGZIP+5~
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