Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IB20P773

IB20P773.m

Go to the documentation of this file.
  1. IB20P773 ;MNTVBB/DMR - IB*2.0*773 COST BASED & INTER AGENCY RATE UPDATE ; 07/27/2022@13:38
  1. ;;2.0;INTEGRATED BILLING;**773**;21-MAR-94;Build 1
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ;
  1. ; Add FY24 Cost Based/Interagency Charges to Charge Master 363.2
  1. Q
  1. POST ;
  1. N IBEFFDT,IBA,U S U="^"
  1. D MSG(" IB*2.0*773 Post-Install .....")
  1. S IBEFFDT=3231001 ; effective date of 10/01/2023
  1. D ADDCI(IBEFFDT) ; add Charge Items (363.2) with new rates
  1. D MSG(" IB*2.0*773 Post-Install Complete")
  1. Q
  1. ;
  1. ADDCI(IBEFFDT) ; pass in the effective date to add charge items with new charges
  1. N IBCNT,IBCNT1,IBDFLTDT,IBI,IBLN
  1. D MSG("")
  1. S (IBCNT,IBCNT1)=0,IBDFLTDT=+$G(IBEFFDT)
  1. I 'IBDFLTDT D MSG("** Error: No Effective Date, No Charges Added") G CIQ
  1. ;
  1. F IBI=1:1 S IBLN=$P($T(CIF+IBI),";;",2) Q:+IBLN!(IBLN="") I $E(IBLN)?1A D SETCI
  1. ;
  1. I +IBCNT1 D MSG(" >> "_IBCNT1_" Duplicate Charge Items already exist, not re-added")
  1. ;
  1. CIQ D MSG(" >> "_IBCNT_" Cost Based/Interagency Charge Items added to CHARGE ITEM file (#363.2)")
  1. D MSG("")
  1. Q
  1. ;
  1. SETCI ; set Charge Item (duplicates based on item, CS, eff dt, rev cd)
  1. ;
  1. N IBCHG,IBCI,IBCS,IBDT,IBFN,IBPE,IBRVCD,IBX,IBXRF,IBZ,DA,DD,DO,DLAYGO,DIC,DIE,DR,X,Y
  1. S IBCS=$P(IBLN,U,2),IBCS=+$O(^IBE(363.1,"B",IBCS,0)) I 'IBCS D MSG("** Error: Charge Set "_$P(IBLN,U,2)_" undefined") Q
  1. S IBCI=+$$MCCRUTL($P(IBLN,U,1),5) I 'IBCI D MSG("** Error: Bed Section "_$P(IBLN,U,1)_" undefined") Q
  1. S IBDT=IBDFLTDT I +$P(IBLN,U,3) S IBDT=+$P(IBLN,U,3)
  1. S IBRVCD=$$RVCD($P(IBLN,U,4))
  1. S IBCHG=+$P(IBLN,U,5)
  1. S IBXRF="AIVDTS"_IBCS
  1. ;
  1. S IBX=0 F S IBX=$O(^IBA(363.2,IBXRF,IBCI,-IBDT,IBX)) Q:'IBX S IBZ=$G(^IBA(363.2,IBX,0)) I $P(IBZ,U,6)=IBRVCD D
  1. . S IBCI=0,IBCNT1=IBCNT1+1 I +$P(IBZ,U,5)'=IBCHG D MSG("** Error: Item exists, wrong charge: "_IBLN)
  1. Q:'IBCI
  1. ;
  1. S DLAYGO=363.2,DIC="^IBA(363.2,",DIC(0)="L",X=IBCI_";DGCR(399.1," D FILE^DICN
  1. I Y<1 D MSG("** Error: when adding the charge item "_$P(IBLN,U,2)_" with rate "_IBCHG_" to the file, Log a ticket!") Q
  1. S IBFN=+Y,IBCNT=IBCNT+1
  1. ;
  1. S DR=".02///"_IBCS_";.03///"_IBDT_";.05///"_IBCHG I +IBRVCD S DR=DR_";.06///"_IBRVCD
  1. S DIE="^IBA(363.2,",DA=+IBFN D ^DIE
  1. Q
  1. ;
  1. ;
  1. MCCRUTL(IBC,IBPE) ; returns IEN in 399.1 if Name is found and piece P is true
  1. N IBX,IBY S IBY=""
  1. I $G(IBC)'="" S IBX=0 F S IBX=$O(^DGCR(399.1,"B",IBC,IBX)) Q:'IBX I $P($G(^DGCR(399.1,IBX,0)),U,+$G(IBPE)) S IBY=IBX
  1. Q IBY
  1. ;
  1. RVCD(RVCD) ; returns IFN if revenue code is valid and active
  1. N IBX,IBY S IBY=""
  1. I +$G(RVCD) S IBX=$G(^DGCR(399.2,+RVCD,0)) I +$P(IBX,U,3) S IBY=+RVCD
  1. Q IBY
  1. ;
  1. MSG(IBA) ;
  1. D MES^XPDUTL(IBA)
  1. Q
  1. ;
  1. CIF ; 68 Charge Items (363.2): Bedsection ^ Charge Set ^Effective Date ^ Revenue Code ^ Charge
  1. ;;
  1. TORT ;; Cost Based (Tortiously Liable) - All Inclusive
  1. ;;
  1. ;;ALCOHOL AND DRUG TREATMENT^TL-INPT (INCLUSIVE)^^^3749
  1. ;;BLIND REHABILITATION^TL-INPT (INCLUSIVE)^^^4226
  1. ;;GENERAL MEDICAL CARE^TL-INPT (INCLUSIVE)^^^6007
  1. ;;INTERMEDIATE CARE^TL-INPT (INCLUSIVE)^^^4116
  1. ;;NEUROLOGY^TL-INPT (INCLUSIVE)^^^5508
  1. ;;NURSING HOME CARE^TL-INPT (INCLUSIVE)^^^2537
  1. ;;POLYTRAUMA INPATIENT^TL-INPT (INCLUSIVE)^^^5270
  1. ;;PRRTP^TL-INPT (INCLUSIVE)^^^459
  1. ;;PSYCHIATRIC CARE^TL-INPT (INCLUSIVE)^^^4010
  1. ;;REHABILITATION MEDICINE^TL-INPT (INCLUSIVE)^^^4936
  1. ;;SPINAL CORD INJURY CARE^TL-INPT (INCLUSIVE)^^^4736
  1. ;;SURGICAL CARE^TL-INPT (INCLUSIVE)^^^10680
  1. ;;
  1. ;; Non-Professional: Nursing/Room/Board 101 & Ancillary 240
  1. ;;ALCOHOL AND DRUG TREATMENT^TL-INPT (NPF)^^101^2523
  1. ;;ALCOHOL AND DRUG TREATMENT^TL-INPT (NPF)^^240^868
  1. ;;BLIND REHABILITATION^TL-INPT (NPF)^^101^1787
  1. ;;BLIND REHABILITATION^TL-INPT (NPF)^^240^2099
  1. ;;GENERAL MEDICAL CARE^TL-INPT (NPF)^^101^3723
  1. ;;GENERAL MEDICAL CARE^TL-INPT (NPF)^^240^1565
  1. ;;INTERMEDIATE CARE^TL-INPT (NPF)^^101^3309
  1. ;;INTERMEDIATE CARE^TL-INPT (NPF)^^240^604
  1. ;;NEUROLOGY^TL-INPT (NPF)^^101^3248
  1. ;;NEUROLOGY^TL-INPT (NPF)^^240^1454
  1. ;;NURSING HOME CARE^TL-INPT (NPF)^^101^2115
  1. ;;NURSING HOME CARE^TL-INPT (NPF)^^240^343
  1. ;;POLYTRAUMA INPATIENT^TL-INPT (NPF)^^101^3061
  1. ;;POLYTRAUMA INPATIENT^TL-INPT (NPF)^^240^1610
  1. ;;PRRTP^TL-INPT (NPF)^^101^382
  1. ;;PRRTP^TL-INPT (NPF)^^240^48
  1. ;;PSYCHIATRIC CARE^TL-INPT (NPF)^^101^3000
  1. ;;PSYCHIATRIC CARE^TL-INPT (NPF)^^240^631
  1. ;;REHABILITATION MEDICINE^TL-INPT (NPF)^^101^2867
  1. ;;REHABILITATION MEDICINE^TL-INPT (NPF)^^240^1508
  1. ;;SPINAL CORD INJURY CARE^TL-INPT (NPF)^^101^2957
  1. ;;SPINAL CORD INJURY CARE^TL-INPT (NPF)^^240^1192
  1. ;;SURGICAL CARE^TL-INPT (NPF)^^101^6264
  1. ;;SURGICAL CARE^TL-INPT (NPF)^^240^3239
  1. ;;
  1. ;; Professional Physician
  1. ;;ALCOHOL AND DRUG TREATMENT^TL-INPT (PF)^^^358
  1. ;;BLIND REHABILITATION^TL-INPT (PF)^^^340
  1. ;;GENERAL MEDICAL CARE^TL-INPT (PF)^^^719
  1. ;;INTERMEDIATE CARE^TL-INPT (PF)^^^203
  1. ;;NEUROLOGY^TL-INPT (PF)^^^806
  1. ;;NURSING HOME CARE^TL-INPT (PF)^^^79
  1. ;;POLYTRAUMA INPATIENT^TL-INPT (PF)^^^599
  1. ;;PRRTP^TL-INPT (PF)^^^29
  1. ;;PSYCHIATRIC CARE^TL-INPT (PF)^^^379
  1. ;;REHABILITATION MEDICINE^TL-INPT (PF)^^^561
  1. ;;SPINAL CORD INJURY CARE^TL-INPT (PF)^^^587
  1. ;;SURGICAL CARE^TL-INPT (PF)^^^1177
  1. ;;
  1. ;; Outpatient Care Other
  1. ;;OUTPATIENT DENTAL^TL-OPT DENTAL^^^532
  1. ;;OUTPATIENT VISIT^TL-OPT VST^^^532
  1. ;;POLYTRAUMA OUTPATIENT VISIT^TL-OPT VST POLYTRAUMA^^^797
  1. ;;PM&RS OUTPATIENT VISIT^TL-OPT VST PM&RS^^^382
  1. ;;
  1. IA ;; Interagency
  1. ;;
  1. ;;ALCOHOL AND DRUG TREATMENT^IA-INPT^^^3509
  1. ;;BLIND REHABILITATION^IA-INPT^^^3956
  1. ;;GENERAL MEDICAL CARE^IA-INPT^^^5658
  1. ;;INTERMEDIATE CARE^IA-INPT^^^3874
  1. ;;NEUROLOGY^IA-INPT^^^5175
  1. ;;NURSING HOME CARE^IA-INPT^^^2379
  1. ;;POLYTRAUMA INPATIENT^IA-INPT^^^4925
  1. ;;PRRTP^IA-INPT^^^432
  1. ;;PSYCHIATRIC CARE^IA-INPT^^^3752
  1. ;;REHABILITATION MEDICINE^IA-INPT^^^4630
  1. ;;SPINAL CORD INJURY CARE^IA-INPT^^^4439
  1. ;;SURGICAL CARE^IA-INPT^^^10066
  1. ;;
  1. ;; Outpatient Care Other
  1. ;;OUTPATIENT DENTAL^IA-OPT DENTAL^^^501
  1. ;;OUTPATIENT VISIT^IA-OPT VST^^^501
  1. ;;POLYTRAUMA OUTPATIENT VISIT^IA-OPT VST POLYTRAUMA^^^746
  1. ;;PM&RS OUTPATIENT VISIT^IA-OPT VST PM&RS^^^356
  1. ;;
  1. Q