source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCRER1.m@ 1203

IBCRER1 ;ALB/ARH - RATES: CM RC NATIONAL ENTER/EDIT OPTION (CONT) ; 13-FEB-2007
 ;;2.0;INTEGRATED BILLING;**370**;21-MAR-94;Build 5
 ;;Per VHA Directive 2004-038, this routine should not be modified.
 ;
 ;
CHGLN(IBEFF,IBTYP,IBLINE) ; get all user data for charge
 ; Input:  pass by reference to get/retain defaults: Effective Date, Inst/Prof
 ; Output: IBLINE if passed by reference
 ; IBLINE = 'cpt ifn^eff dt^mod ifn^type (I/P)^charge^incr type (PR/ML/HR/MN)^incr charge^inpt^snf^opt^free'
 ;          or null if no CPT, or -1 if invalid (exit)
 N IBCPT,IBMOD,IBCHGU,IBINCR,IBCHGI,IBINP,IBSNF,IBOPT,IBFS S IBEFF=$G(IBEFF),IBTYP=$G(IBTYP),IBLINE=""
 ;
 S IBCPT=$$GETCPT(IBEFF) I IBCPT<1 S IBLINE=-1 Q  ; active cpt code
 S IBEFF=$$GETEFF(IBEFF) Q:IBEFF<1  ; charge effective date
 S IBMOD=$$GETMOD() Q:IBMOD<0  ; modifier for procedure charge
 S IBTYP=$$GETTYP(IBTYP) Q:IBTYP<0  ; charge type, inst/prof
 S IBCHGU=$$GETCHGU() Q:IBCHGU<0  W ! ; unit charge
 ;
 S IBINCR=$$GETINCR() Q:IBINCR<0  ; type of incremental charge
 S IBCHGI=$$GETCHGI(IBINCR) Q:IBCHGI<0  W ! ; incremental charge
 ;
 S IBINP=$$GETIINP() Q:IBINP<0  ; inpatient indicator
 S IBSNF=$$GETISNF() Q:IBSNF<0  ; snf indicator
 S IBOPT=$$GETIOPT() Q:IBOPT<0  ; outpatient indictor
 S IBFS=$$GETIFS() Q:IBFS<0  ; freestanding indicator
 ;
 S IBLINE=+IBCPT_U_+IBEFF_U_IBMOD_U_IBTYP_U_IBCHGU_U_IBINCR_U_IBCHGI_U_IBINP_U_IBSNF_U_IBOPT_U_IBFS
 Q
 ;
GETCPT(EFFDT) ; Get CPT/HCPCS procedure associated with charge
 ; Returns: IFN of CPT/HCPCS selected, -1 if invalid
 N IBX,DIC,DIE,DA,DR,I,X,Y,DTOUT,DUOUT S IBX=-1
 ;
 S DIC("A")="Select PROCEDURE CPT/HCPCS: " I +$G(EFFDT) S DIC("S")="I $$CPTACT^IBACSV(+Y,EFFDT)"
 S DIC="^ICPT(",DIC(0)="AEMNQ" D ^DIC K DIC I +Y>0 S IBX=+Y
 I $D(DTOUT)!$D(DUOUT) S IBX=-1
 Q IBX
 ;
GETEFF(DEFAULT) ; Get Effective Date for charge, must be within date range of current version
 ; returns valid effective date, -1 if invalid
 N IBX,DIR,DUOUT,DTOUT,DIRUT,X,Y,IBY,IBI,IBZ,IBA,IBMIN S IBMIN="",IBA="",IBX=-1
 S IBY=$$VERSALL^IBCRHBRV() F IBI=1:1 S IBZ=$P(IBY,U,IBI) Q:IBZ=""  S IBMIN=IBZ
 S DIR("?",1)="Charge Effective Date must be within the date range of the current RC"
 S DIR("?",2)="version, v"_+IBMIN_".  Date must be between "_$$DATE(+$P(IBMIN,";",2))_" and Today.",DIR("?",3)=""
 S DIR("?")="Enter Effective Date of Charge."
 ;
 S DIR("A")="EFFECTIVE DATE" I +$G(DEFAULT)>0 S DIR("B")=$$DATE(DEFAULT),IBA="A",DIR("A")=DIR("A")_": "
 S DIR(0)="D"_IBA_"^"_+$P(IBMIN,";",2)_":"_DT_":EX" D ^DIR K DIR I Y?7N S IBX=+Y
 I $D(DTOUT)!$D(DUOUT) S IBX=-1
 Q IBX
 ;
GETMOD() ; Get Modifier associated with the procedure charge
 ; Modifier not limited to valid CPTs since that list is often out of date
 ; Returns: IFN of selected modifier, null if no modifier selected, -1 if invalid
 N IBX,DIR,DUOUT,DTOUT,DIRUT,X,Y S IBX=""
 S DIR("?",1)="Modifier is optional.  If a modifier is added then the charge will only"
 S DIR("?",2)="be applied if the modifier is assigned to the procedure on the bill.",DIR("?",3)=""
 S DIR("?")="Enter the Modifier associated with the procedure charge."
 ;
 S DIR("A")="MODIFIER"
 S DIR(0)="PO^DIC(81.3,:AEMQ" D ^DIR K DIR I Y>0 S IBX=+Y
 I $D(DUOUT)!$D(DTOUT) S IBX=-1
 Q IBX
 ;
GETTYP(DEFAULT) ; Get Charge Type: Institutional or Professional
 ; Returns: I for Institutional, P for Professional, -1 if invalid
 N IBX,DIR,DUOUT,DTOUT,DIRUT,X,Y S IBX=-1
 I $G(DEFAULT)'="" S DEFAULT=$S(DEFAULT="I":"Institutional",DEFAULT="P":"Professional",1:"")
 S DIR("?")="Enter the type of charge, either Institutional or Professional."
 ;
 S DIR("A")="CHARGE TYPE" I $G(DEFAULT)'="" S DIR("B")=DEFAULT
 S DIR(0)="SB^I:Institutional;P:Professional" D ^DIR S IBX=Y
 I $D(DTOUT)!$D(DUOUT) S IBX=-1
 Q IBX
 ;
GETCHGU() ; get procedures unit charge
 ; Returns: dollar amount (non-zero), -1 if invalid
 N IBX,DIR,DUOUT,DTOUT,DIRUT,X,Y S IBX=-1
 S DIR("?",1)="The dollar amount to be added to a bill for each of this procedure on the bill."
 S DIR("?",2)="Enter an amount greater than zero and less than 99999, 2 decimal digits."
 S DIR("?")="Enter the unit charge for Procedure to be used at all sites."
 ;
 S DIR("A")="UNIT CHARGE: "
 S DIR(0)="NA^.001:99999:2" D ^DIR K DIR I +Y>0 S IBX=Y
 I $D(DTOUT)!$D(DUOUT) S IBX=-1
 Q IBX
 ;
GETINCR() ; get the type of charge, identifies Charge Method and incremental calculations
 ; Returns: PR for standard, HR for observation, MN for anesthesia, ML for ambulance, -1 if invalid
 N IBX,DIR,DUOUT,DTOUT,DIRUT,X,Y S IBX=-1
 S DIR("?",1)="Most charges are a standard charge per procedure.  There are three types of"
 S DIR("?",2)="charges that require special calculations that add charge based on an "
 S DIR("?",3)="increment of units:  Anesthesia, Observation, Ambulance."
 S DIR("?")="Enter type of care that will identify the charge calculation."
 ;
 S DIR("A")="Standard, Observation, Anesthesia, or Ambulance",DIR("B")="Standard"
 S DIR(0)="SB^PR:Standard;HR:Observation;MN:Anesthesia;ML:Ambulance" D ^DIR S IBX=Y
 I $D(DTOUT)!$D(DUOUT) S IBX=-1
 ;
 Q IBX
 ;
GETCHGI(TYPE) ; if a special charge then get the incremental charge amount, anesthesia and observation only
 ; Returns: dollar amount if applicable (non-zero), null if not applicable, -1 if invalid
 N IBX,DIR,DUOUT,DTOUT,DIRUT,X,Y,IBTYP S TYPE=$G(TYPE),IBX=-1
 S IBTYP=$S(TYPE="MN":"Anesthesia",TYPE="HR":"Observation",1:"") I IBTYP="" S IBX=""
 S DIR("?",1)="Anesthesia and Observation have a unit charge added to a base/incremental"
 S DIR("?",2)="charge that is multiplied by the time associated with the procedure."
 S DIR("?",3)="Enter an amount greater than zero and less than 99999, 2 decimal digits.",DIR("?",4)=""
 S DIR("?")="Enter the base or incremental "_IBTYP_" charge for this procedure."
 ;
 S DIR("A")=IBTYP_" BASE CHARGE: "
 I IBTYP'="" S DIR(0)="NA^.001:99999:2" D ^DIR K DIR I +Y>0 S IBX=Y
 I $D(DTOUT)!$D(DUOUT) S IBX=-1
 Q IBX
 ;
GETIINP() ; Get Inpatient Indicator, is this charge billable for Inpatient care
 ; Returns: 1 for Yes Billable for Inpatient care, 0 for not billable, -1 if invalid
 N IBX,DIR,DUOUT,DTOUT,DIRUT,X,Y S IBX=0
 S DIR("?")="Enter Yes if this charge is billable for Inpatient care, No otherwise."
 ;
 S DIR(0)="Y",DIR("A")="INPATIENT",DIR("B")="No" D ^DIR I Y=1 S IBX=1
 I $D(DTOUT)!$D(DUOUT) S IBX=-1
 Q IBX
 ;
GETISNF() ; Get SNF Indicator, is this charge billable for Skilled Nursing care
 ; Returns: 1 for Yes Billable for SNF care, 0 for not billable, -1 if invalid
 N IBX,DIR,DUOUT,DTOUT,DIRUT,X,Y S IBX=0
 S DIR("?")="Enter Yes if this charge is billable for SNF care, No otherwise."
 ;
 S DIR(0)="Y",DIR("A")="SKILLED NURSING",DIR("B")="Yes" D ^DIR I Y=1 S IBX=1
 I $D(DTOUT)!$D(DUOUT) S IBX=-1
 Q IBX
 ;
GETIOPT() ; Get Outpatient Indicator, is this charge billable for Outpatient care
 ; Returns: 1 for Yes Billable for outpatient care, 0 for not billable, -1 if invalid
 N IBX,DIR,DUOUT,DTOUT,DIRUT,X,Y S IBX=0
 S DIR("?")="Enter Yes if this charge is billable for Outpatient care, No otherwise."
 ;
 S DIR(0)="Y",DIR("A")="OUTPATIENT",DIR("B")="Yes" D ^DIR I Y=1 S IBX=1
 I $D(DTOUT)!$D(DUOUT) S IBX=-1
 Q IBX
 ;
GETIFS() ; Get Freestanding Indicator, is this charge billable at Freestanding Sites
 ; Returns: 1 for Yes Billable at Non-Provider Based/Freestanding sites, 0 for not billable, -1 if invalid
 N IBX,DIR,DUOUT,DTOUT,DIRUT,X,Y S IBX=0
 S DIR("?",1)="All charges for Freestanding sites will be stored as Professional charges."
 S DIR("?")="Enter Yes if this charge is billable at Freestanding Sites, No otherwise."
 ;
 S DIR(0)="Y",DIR("A")="FREESTANDING",DIR("B")="Yes" D ^DIR I Y=1 S IBX=1
 I $D(DTOUT)!$D(DUOUT) S IBX=-1
 Q IBX
 ;
DATE(X) ; returns VA date in external form
 N Y S Y="" I $G(X)?7N.E S Y=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)
 Q Y