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

IB20P460.m

Go to the documentation of this file.
  1. IB20P460 ;ALB/CXW - IB*2.0*460 Post Init: Administrative Charge Update; 08-01-2011
  1. ;;2.0;INTEGRATED BILLING;**460**;21-MAR-94;Build 3
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. Q
  1. ;
  1. ;
  1. POST ; post-install of patch installation
  1. ; update out-patient pharmacy admini/disp fee & adj change in file #363
  1. ; default rate types for 3rd party pharmacy claims
  1. ; ibraty=rate type name1^rate type name2^rate type name3.in file #399.3
  1. ; ibeffdt=effective external date (mm/dd/yyyy)
  1. ; ibadfe=administrative fee (dollar.cent)
  1. ; ibdisp=dispensing fee (dollar.cent)
  1. ; ibadjust=adjustment mumps code
  1. ;
  1. N IBI,IBJ,IBRATY,IBEFFDT,IBADFE,IBDISP,IBADJUST
  1. D MES^XPDUTL("Patch Post-Install starts...")
  1. S IBRATY="REIMBURSABLE INS.^NO FAULT INS.^WORKERS' COMP.^TORT FEASOR"
  1. S IBEFFDT="01/01/2012"
  1. S IBADFE=""
  1. S IBDISP="12.39"
  1. S IBADJUST=""
  1. I IBADJUST="" S IBADJUST="S X=X+"_(+IBDISP+IBADFE)
  1. F IBI=1:1 S IBJ=$P(IBRATY,U,IBI) Q:IBJ="" I '$O(^DGCR(399.3,"B",IBJ,0)) D MES^XPDUTL("The Rate Type "_IBJ_" not defined, the rate schedule adjustments not updated")
  1. D ENT^IB3PSOU(IBRATY,IBEFFDT,IBADFE,IBDISP,IBADJUST)
  1. D MES^XPDUTL("Patch Post-Install is complete.")
  1. Q
  1. ;