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

IB20P570.m

Go to the documentation of this file. 
  1. IB20P570 ;ALB/CXW - IB*2*570 POST INIT:COST-BASED/INTERAGENCY/CONDITION;7/7/16
  1.  ;;2.0;INTEGRATED BILLING;**570**;21-MAR-94;Build 22
  1.  ;;Per VA Directive 6402, this routine should not be modified.
  1.  ; 
  1.  ;
  1.  ; Add CY2016 Cost Based/Interagency Charges to Charge Master 363.2
  1.  ; Add condition code(s) in mccr utility file 399.1
  1.  Q
  1. POST ;
  1.  N IBEFFDT,IBA,U S U="^"
  1.  D MSG("    IB*2.0*570 Post-Install .....")
  1.  S IBEFFDT=3160707 ; effective date of 07/07/2016
  1.  D ADDCI(IBEFFDT)  ; add Charge Items (363.2) with new 66 rates
  1.  D MCCR            ; effective date of 07/01/2016
  1.  D MSG("    IB*2*570 Post-Install Complete")
  1.  Q
  1.  ;
  1. ADDCI(IBEFFDT) ; Add Charge Items (363.2) needs Charge Sets, pass in the effective date of the new charges
  1.  N IBC,IBCHG,IBCNT,IBCNT1,IBCI,IBCS,IBDFLTDT,IBDT,IBFN,IBI,IBLN,IBPE,IBRVCD,IBX,IBXRF,IBZ,DA,DD,DO,DLAYGO,DIC,DIE,DR,X,Y
  1.  ; 
  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 (#363.2).")
  1.  D MSG("")
  1.  Q
  1.  ;
  1. SETCI ; set Charge Item (duplicates based on item, CS, eff dt, rev cd)
  1.  ;
  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.  K DD,DO S DLAYGO=363.2,DIC="^IBA(363.2,",DIC(0)="L",X=IBCI_";DGCR(399.1," D FILE^DICN K DIC
  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!") K X,Y 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 K DIE,DA,DR,X,Y
  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. EXCODE(IBC,IBPE) ; returns IEN in 399.1 if Code 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,"C",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. MCCR ; Condition code flag in field #.22/piece 15
  1.  N IBC,IBCD,IBCNT,IBFD,IBPE,IBI,IBLN,DA,DD,DO,DLAYGO,DIC,DIE,DR,X,Y
  1.  S IBCNT=0,IBPE=15,IBFD=.22
  1.  F IBI=1:1 S IBLN=$P($T(CONU+IBI),";;",2) Q:IBLN="QUIT"  D
  1.  . S IBCD=$P(IBLN,U)_" "_$P(IBLN,U,2)
  1.  . I (+$$MCCRUTL($P(IBLN,U,2),IBPE))!(+$$EXCODE($P(IBLN,U),IBPE)) D MSG("       #"_IBCD_" already exists, not re-added") Q
  1.  . K DD,DO S DLAYGO=399.1,DIC="^DGCR(399.1,",DIC(0)="L",X=$P(IBLN,U,2)
  1.  . D FILE^DICN I Y<1 D MSG("** Error: when adding Condition #"_IBCD_" to the file, Log a ticket!") K X,Y Q
  1.  . S DA=+Y,DIE=DIC,DR=".02///"_$P(IBLN,U,1)_";"_IBFD_"///"_1
  1.  . D ^DIE K DIE,DR,DA,X,Y
  1.  . S IBCNT=IBCNT+1
  1.  D MSG("    >> "_IBCNT_" Condition Code added (#399.1).")
  1.  D MSG("")
  1.  Q
  1.  ;
  1. MSG(IBA) ;
  1.  D MES^XPDUTL(IBA)
  1.  Q
  1. CONU ; Condition code^name
  1.  ;;54^NO SKILL HH VISITS IN BILL PERIOD. POLICY EXCEPT DOC AT HHA.
  1.  ;;QUIT
  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)^^^1861
  1.  ;;BLIND REHABILITATION^TL-INPT (INCLUSIVE)^^^1741
  1.  ;;GENERAL MEDICAL CARE^TL-INPT (INCLUSIVE)^^^3720
  1.  ;;INTERMEDIATE CARE^TL-INPT (INCLUSIVE)^^^2233
  1.  ;;NEUROLOGY^TL-INPT (INCLUSIVE)^^^3564
  1.  ;;NURSING HOME CARE^TL-INPT (INCLUSIVE)^^^1197
  1.  ;;POLYTRAUMA INPATIENT^TL-INPT (INCLUSIVE)^^^3227
  1.  ;;PRRTP^TL-INPT (INCLUSIVE)^^^695
  1.  ;;PSYCHIATRIC CARE^TL-INPT (INCLUSIVE)^^^1771
  1.  ;;REHABILITATION MEDICINE^TL-INPT (INCLUSIVE)^^^2477
  1.  ;;SPINAL CORD INJURY CARE^TL-INPT (INCLUSIVE)^^^2631
  1.  ;;SURGICAL CARE^TL-INPT (INCLUSIVE)^^^5910
  1.  ;;             
  1.  ;; Non-Professional: Nursing/Room/Board 101 & Ancillary 240    
  1.  ;;ALCOHOL AND DRUG TREATMENT^TL-INPT (NPF)^^101^1252
  1.  ;;ALCOHOL AND DRUG TREATMENT^TL-INPT (NPF)^^240^431
  1.  ;;BLIND REHABILITATION^TL-INPT (NPF)^^101^736
  1.  ;;BLIND REHABILITATION^TL-INPT (NPF)^^240^865
  1.  ;;GENERAL MEDICAL CARE^TL-INPT (NPF)^^101^2306
  1.  ;;GENERAL MEDICAL CARE^TL-INPT (NPF)^^240^969
  1.  ;;INTERMEDIATE CARE^TL-INPT (NPF)^^101^1795
  1.  ;;INTERMEDIATE CARE^TL-INPT (NPF)^^240^328
  1.  ;;NEUROLOGY^TL-INPT (NPF)^^101^2101
  1.  ;;NEUROLOGY^TL-INPT (NPF)^^240^941
  1.  ;;NURSING HOME CARE^TL-INPT (NPF)^^101^998
  1.  ;;NURSING HOME CARE^TL-INPT (NPF)^^240^162
  1.  ;;POLYTRAUMA INPATIENT^TL-INPT (NPF)^^101^1874
  1.  ;;POLYTRAUMA INPATIENT^TL-INPT (NPF)^^240^986
  1.  ;;PRRTP^TL-INPT (NPF)^^101^578
  1.  ;;PRRTP^TL-INPT (NPF)^^240^73
  1.  ;;PSYCHIATRIC CARE^TL-INPT (NPF)^^101^1325
  1.  ;;PSYCHIATRIC CARE^TL-INPT (NPF)^^240^279
  1.  ;;REHABILITATION MEDICINE^TL-INPT (NPF)^^101^1439
  1.  ;;REHABILITATION MEDICINE^TL-INPT (NPF)^^240^757
  1.  ;;SPINAL CORD INJURY CARE^TL-INPT (NPF)^^101^1643
  1.  ;;SPINAL CORD INJURY CARE^TL-INPT (NPF)^^240^662
  1.  ;;SURGICAL CARE^TL-INPT (NPF)^^101^3466
  1.  ;;SURGICAL CARE^TL-INPT (NPF)^^240^1793
  1.  ;;              
  1.  ;; Professional Physician
  1.  ;;ALCOHOL AND DRUG TREATMENT^TL-INPT (PF)^^^178
  1.  ;;BLIND REHABILITATION^TL-INPT (PF)^^^140
  1.  ;;GENERAL MEDICAL CARE^TL-INPT (PF)^^^445
  1.  ;;INTERMEDIATE CARE^TL-INPT (PF)^^^110
  1.  ;;NEUROLOGY^TL-INPT (PF)^^^522
  1.  ;;NURSING HOME CARE^TL-INPT (PF)^^^37
  1.  ;;POLYTRAUMA INPATIENT^TL-INPT (PF)^^^367
  1.  ;;PRRTP^TL-INPT (PF)^^^44
  1.  ;;PSYCHIATRIC CARE^TL-INPT (PF)^^^167
  1.  ;;REHABILITATION MEDICINE^TL-INPT (PF)^^^281
  1.  ;;SPINAL CORD INJURY CARE^TL-INPT (PF)^^^326
  1.  ;;SURGICAL CARE^TL-INPT (PF)^^^651
  1.  ;;                    
  1.  ;; Outpatient Care Other
  1.  ;;OUTPATIENT DENTAL^TL-OPT DENTAL^^^335
  1.  ;;OUTPATIENT VISIT^TL-OPT VST^^^335
  1.  ;;PM&RS OUTPATIENT VISIT^TL-OPT VST PM&RS^^^537
  1.  ;;POLYTRAUMA OUTPATIENT VISIT^TL-OPT VST POLYTRAUMA^^^212
  1.  ;;          
  1. IA ;; Interagency
  1.  ;;            
  1.  ;;ALCOHOL AND DRUG TREATMENT^IA-INPT^^^1765
  1.  ;;BLIND REHABILITATION^IA-INPT^^^1653
  1.  ;;GENERAL MEDICAL CARE^IA-INPT^^^3553
  1.  ;;INTERMEDIATE CARE^IA-INPT^^^2126
  1.  ;;NEUROLOGY^IA-INPT^^^3401
  1.  ;;NURSING HOME CARE^IA-INPT^^^1138
  1.  ;;POLYTRAUMA INPATIENT^IA-INPT^^^3057
  1.  ;;PRRTP^IA-INPT^^^662
  1.  ;;PSYCHIATRIC CARE^IA-INPT^^^1679
  1.  ;;REHABILITATION MEDICINE^IA-INPT^^^2354
  1.  ;;SPINAL CORD INJURY CARE^IA-INPT^^^2502
  1.  ;;SURGICAL CARE^IA-INPT^^^5642
  1.  ;;OUTPATIENT DENTAL^IA-OPT DENTAL^^^319
  1.  ;;OUTPATIENT VISIT^IA-OPT VST^^^319
  1.  ;;PM&RS OUTPATIENT VISIT^IA-OPT VST PM&RS^^^510
  1.  ;;POLYTRAUMA OUTPATIENT VISIT^IA-OPT VST POLYTRAUMA^^^199
  1.  ;;
  1.  Q