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

Package: Integrated Billing

Routine: IBCRHRS


Information

IBCRHRS ;ALB/ARH - RATES: UPLOAD (RC) CHANGE SITE TYPE OPTION ; 25-JAN-13

Source Information

Source file <IBCRHRS.m>

Entry Points

Name Comments DBIA/ICR reference
OPTION ; Option entry Change Reasonable Charge Facility Type
OPTIONQ ;
XTMPKL ; delete any existing RC Upload Files in XTMP
XTMPHL(VERS) ; load version of RC Host Files IBCR RC into XTMP (IBCRHBS1)
XTMPHLQ
XTMPDT(VSDT,NWDT) ; update calculated charges IBCR UPLOAD effective date in XTMP, returns count changed
XTMPDTQ
CMINDT(CMRG,VSDT,NWDT) ; inactivate existing charges for selected Billing Region in Charge Master (#363.2)
CMINDTQ
CMRGFT(CMRG,NWFT) ; change the Billing Regions Facility Type in the Charge Master (#363.31,.03)
CMLOAD ; load charges into Charge Master
; queuing is not allowed to ensure the modified files are used and
; process completes fully.
ASKCMRG() ; ask user for Billing Region (#363.31), return Billing Region ifn ^ name ^ div/site ^ id/zip ^ chg type
GETHFRG(CMRG) ; get the Host File Site of Region selection, return IBCR RC SITE ifn ^ div/site ^ site name ^ id/zip ^ chg type
ASKNWFT(HFRG) ; determine/confirm from user the Facility Type Change based on the current Host File setting
ASKNWDT() ; ask the user for the effective date of the change, return date or 0
ASKFNL(CMRG,NWDT,NWFT) ; ask user if they really want to make the change, return true if yes
CHECK(VERS,VSDT,NWDT,CMRG,HFRG,NWFT) ; check the inputs to determine if change is ok
CHECKQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Change Reasonable Charges Facility Type:",!
  • Line Location: OPTION+3
Function Call: WRITE
  • Prompt: !,"This option allows the Facility Type of currently loaded Reasonable Charges"
  • Line Location: OPTION+4
Function Call: WRITE
  • Prompt: !,"to be changed on a specified date. A Non-Provider Based Freestanding site"
  • Line Location: OPTION+5
Function Call: WRITE
  • Prompt: !,"with only Professional charges may be changed to a Provider Based site with"
  • Line Location: OPTION+6
Function Call: WRITE
  • Prompt: !,"both Institutional and Professional charges.",!
  • Line Location: OPTION+7
Function Call: WRITE
  • Prompt: !,"This option will complete the following steps:"
  • Line Location: OPTION+8
Function Call: WRITE
  • Prompt: !,"1. Uploads the current version of Reasonable Charges."
  • Line Location: OPTION+9
Function Call: WRITE
  • Prompt: !,"2. Request the Region/Division to change, the new type and effective date."
  • Line Location: OPTION+10
Function Call: WRITE
  • Prompt: !,"3. Calculate the charges for the Region with the new type and effective date."
  • Line Location: OPTION+11
Function Call: WRITE
  • Prompt: !,"4. Request confirmation then update the permanent files in the Charge Master:"
  • Line Location: OPTION+12
Function Call: WRITE
  • Prompt: !," inactivate the currently loaded charges for the region, update the "
  • Line Location: OPTION+13
Function Call: WRITE
  • Prompt: !," Region's Type, and load the new charges into the Charge Master.",!
  • Line Location: OPTION+14
Function Call: WRITE
  • Prompt: !,"Only CBO can approve a Facility Type change for a division. "
  • Line Location: OPTION+15
Function Call: WRITE
  • Prompt: !,"Approval from CBO must be received before using this option to change charges.",!
  • Line Location: OPTION+16
Function Call: WRITE
  • Prompt: !,IBDS,!,"*** Set-Up process:",!
  • Line Location: OPTION+23
Function Call: WRITE
  • Prompt: !,IBDS,!,"*** Get specifications from user and check the change is valid",!
  • Line Location: OPTION+28
Function Call: WRITE
  • Prompt: !,IBDS,!,"*** Calculate charges and update effective date based on user entry",!
  • Line Location: OPTION+36
Function Call: WRITE
  • Prompt: !,IBDS,!,"*** Confirm Request to Update Charge Master",!
  • Line Location: OPTION+42
Function Call: WRITE
  • Prompt: !,IBDS,!,"*** Complete Request - Update Charge Master",!
  • Line Location: OPTION+46
Function Call: WRITE
  • Prompt: !,IBDS,!,"*** Process Complete, Charge Master Charges Updated.",!
  • Line Location: OPTIONQ+3
Function Call: WRITE
  • Prompt: !,IBDS,!,"*** Process Ended, No Permanent Changes.",!
  • Line Location: OPTIONQ+4
Function Call: WRITE
  • Prompt: !,"Removing any existing temporary Upload files: ",!
  • Line Location: XTMPKL+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: XTMPKL+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: XTMPKL+4
Function Call: WRITE
  • Prompt: !!,"Upload National Reasonable Charges v"_VERS_" Host Files to temporary local files:",!
  • Line Location: XTMPHL+3
Function Call: WRITE
  • Prompt: !,"Loading National Reasonable Charges v"_VERS_" Host Files into temporary local file:"
  • Line Location: XTMPHL+8
Function Call: WRITE
  • Prompt: !!," Error while processing host file, can not continue!",!!
  • Line Location: XTMPHL+12
Function Call: WRITE
  • Prompt: !!,"Upload of Reasonable Charges v"_VERS_" Host Files Complete.",!
  • Line Location: XTMPHL+13
Function Call: WRITE
  • Prompt: !!,"Changing Effective Date from ",$$FMTE^XLFDT(VSDT,2)," to ",$$FMTE^XLFDT(NWDT,2)," in Host Files."
  • Line Location: XTMPDT+6
Function Call: WRITE
  • Prompt: !!,"Host Files ",IBXRF1,?55,"Count = ",$P($G(^XTMP(IBXRF1,0)),U,4),!
  • Line Location: XTMPDT+7
Function Call: WRITE
  • Prompt: !,IBSUB,?25,IBCNT
  • Line Location: XTMPDT+16
Function Call: WRITE
  • Prompt: !!,"Error: All dates not changed, can not continue!",!
  • Line Location: XTMPDTQ+0
Function Call: WRITE
  • Prompt: !!,"Inactivating ",$P(CMRG,U,2)," existing charges on ",$$FMTE^XLFDT(IBINACT,2),":",!,"Please wait...",!
  • Line Location: CMINDT+7
Function Call: WRITE
  • Prompt: !,$P(IBCS0,U,1),?35,IBCNT
  • Line Location: CMINDT+20
Function Call: WRITE
  • Prompt: !!,"Unable to Inactivate current charges, can not continue!",!
  • Line Location: CMINDTQ+0
Function Call: WRITE
  • Prompt: !!,"Changing Billing Regions Facility Type: "
  • Line Location: CMRGFT+3
Function Call: WRITE
  • Prompt: !,"Billing Region ",$P($G(CMRG),U,2)," changed from ",IBX," to ",NWFT
  • Line Location: CMRGFT+7
Function Call: WRITE
  • Prompt: !!,"Load modified charges into Charge Master:",!
  • Line Location: CMLOAD+4
Function Call: WRITE
  • Prompt: !,"Report requires 120 columns. Queuing not allowed to ensure process completes."
  • Line Location: CMLOAD+7
Function Call: WRITE
  • Prompt: !,"Enter the Division to change the Reasonable Charges Facility Type:",!
  • Line Location: ASKCMRG+2
Function Call: WRITE
  • Prompt: !!,"Billing Region: ",$P(Y,U,2),?50,"3-Zip: ",$P(Y,U,4),?65,"Type: ",$P(Y,U,5)
  • Line Location: ASKCMRG+8
Function Call: WRITE
  • Prompt: ?16,$P(IBX,U,2),?24,$P(IBX,U,1),!
  • Line Location: ASKCMRG+10
Function Call: WRITE
  • Prompt: !!,"Error: Site ",$P($G(CMRG)," ",2)," not found in Host Files, can not continue!",!!
  • Line Location: GETHFRG+6
Function Call: WRITE
  • Prompt: !!,IBN," is currently Provider Based ",$S(IBT=1:"INPT/SFN/OPT (1)",1:"Outpatient Only (2)"),!
  • Line Location: ASKNWFT+6
Function Call: WRITE
  • Prompt: !!,IBN," is currently Non-Provider Based Freestanding (3)",!
  • Line Location: ASKNWFT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKNWDT+1
Function Call: WRITE
  • Prompt: !,"You have requested current charges for the following Region and Division "
  • Line Location: ASKFNL+2
Function Call: WRITE
  • Prompt: !,"Billing Region: ",$P(CMRG,U,2),?50,"3-Zip: ",$P(CMRG,U,4),?65,"Type: ",$P(CMRG,U,5)
  • Line Location: ASKFNL+5
Function Call: WRITE
  • Prompt: ?16,$P(IBX,U,2),?24,$P(IBX,U,1),!
  • Line Location: ASKFNL+7
Function Call: WRITE
  • Prompt: !,"New ",$S(NWFT=3:"Freestanding",1:"Provider Based")," charges will be loaded with an effective date of ",$$FMTE^XLFDT(NWDT,2),!
  • Line Location: ASKFNL+10
Function Call: WRITE
  • Prompt: !,IBDS,!
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !,"Error: Version of Host Files loaded is not the current RC version "_VERS_".",!
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: !,"Error: Site Number does not match in Host File and Charge Master"
  • Line Location: CHECK+7
Function Call: WRITE
  • Prompt: !," for selected Region. Data inconsistency unresolved.",!
  • Line Location: CHECK+8
Function Call: WRITE
  • Prompt: !,"Error: Identifier 3-digit zip does not match in Host File and Charge Master"
  • Line Location: CHECK+11
Function Call: WRITE
  • Prompt: !," for selected Region. Data inconsistency unresolved.",!
  • Line Location: CHECK+12
Function Call: WRITE
  • Prompt: !,"Error: Facility Type does not match in Host File and Charge Master"
  • Line Location: CHECK+15
Function Call: WRITE
  • Prompt: !," for selected Region. Data inconsistency unresolved.",!
  • Line Location: CHECK+16
Function Call: WRITE
  • Prompt: !,"Error: Host File Facility Type is the same as the selected Facility Type."
  • Line Location: CHECK+19
Function Call: WRITE
  • Prompt: !," This would result in no change to the charges.",!
  • Line Location: CHECK+20
Function Call: WRITE
  • Prompt: !,"Error: Host File Facility Type and Selected Facility Type are both"
  • Line Location: CHECK+23
Function Call: WRITE
  • Prompt: !," Provider Based. This would result in no change to the charges.",!
  • Line Location: CHECK+24
Function Call: WRITE
  • Prompt: !,"Error: Date entered ",$$FMTE^XLFDT(NWDT,2)," is before v",VERS," effective date ",$$FMTE^XLFDT(VSDT,2),"."
  • Line Location: CHECK+27
Function Call: WRITE
  • Prompt: !," This option may only be used to change the Facility Type of the"
  • Line Location: CHECK+28
Function Call: WRITE
  • Prompt: !," current version charges after they are effective. Use the regular"
  • Line Location: CHECK+29
Function Call: WRITE
  • Prompt: !," Upload to change charges on ",$$FMTE^XLFDT(VSDT,2),".",!
  • Line Location: CHECK+30
Function Call: WRITE
  • Prompt: !,"Error: Selected Billing Region ",$P(CMRG,U,2)
  • Line Location: CHECK+34
Function Call: WRITE
  • Prompt: !," does not have the current version ",VERS," of Reasonable Charges installed."
  • Line Location: CHECK+35
Function Call: WRITE
  • Prompt: !," This option may only be used to change the current version charges."
  • Line Location: CHECK+36
Function Call: WRITE
  • Prompt: !," Use the regular Upload option to change charges from previous versions.",!
  • Line Location: CHECK+37
Function Call: WRITE
  • Prompt: !,"Error: Selected Billing Region ",$P(CMRG,U,2)
  • Line Location: CHECK+41
Function Call: WRITE
  • Prompt: !," has more than one Division assigned. Changing the Facility Type"
  • Line Location: CHECK+42
Function Call: WRITE
  • Prompt: !," may only be applied to one Division. The extra Divisions need"
  • Line Location: CHECK+43
Function Call: WRITE
  • Prompt: !," to be removed from the Billing Region and charges loaded specifically"
  • Line Location: CHECK+44
Function Call: WRITE
  • Prompt: !," for those sites, usually at least two past versions.",!
  • Line Location: CHECK+45

FileMan Files Accessed Via FileMan Db Call

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