- IB20P460 ;ALB/CXW - IB*2.0*460 Post Init: Administrative Charge Update; 08-01-2011
- ;;2.0;INTEGRATED BILLING;**460**;21-MAR-94;Build 3
- ;;Per VHA Directive 2004-038, this routine should not be modified.
- Q
- ;
- ;
- POST ; post-install of patch installation
- ; update out-patient pharmacy admini/disp fee & adj change in file #363
- ; default rate types for 3rd party pharmacy claims
- ; ibraty=rate type name1^rate type name2^rate type name3.in file #399.3
- ; ibeffdt=effective external date (mm/dd/yyyy)
- ; ibadfe=administrative fee (dollar.cent)
- ; ibdisp=dispensing fee (dollar.cent)
- ; ibadjust=adjustment mumps code
- ;
- N IBI,IBJ,IBRATY,IBEFFDT,IBADFE,IBDISP,IBADJUST
- D MES^XPDUTL("Patch Post-Install starts...")
- S IBRATY="REIMBURSABLE INS.^NO FAULT INS.^WORKERS' COMP.^TORT FEASOR"
- S IBEFFDT="01/01/2012"
- S IBADFE=""
- S IBDISP="12.39"
- S IBADJUST=""
- I IBADJUST="" S IBADJUST="S X=X+"_(+IBDISP+IBADFE)
- 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")
- D ENT^IB3PSOU(IBRATY,IBEFFDT,IBADFE,IBDISP,IBADJUST)
- D MES^XPDUTL("Patch Post-Install is complete.")
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P460 1212 printed Feb 18, 2025@23:29:25 Page 2
- 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
- +2 ;;Per VHA Directive 2004-038, this routine should not be modified.
- +3 QUIT
- +4 ;
- +5 ;
- POST ; post-install of patch installation
- +1 ; update out-patient pharmacy admini/disp fee & adj change in file #363
- +2 ; default rate types for 3rd party pharmacy claims
- +3 ; ibraty=rate type name1^rate type name2^rate type name3.in file #399.3
- +4 ; ibeffdt=effective external date (mm/dd/yyyy)
- +5 ; ibadfe=administrative fee (dollar.cent)
- +6 ; ibdisp=dispensing fee (dollar.cent)
- +7 ; ibadjust=adjustment mumps code
- +8 ;
- +9 NEW IBI,IBJ,IBRATY,IBEFFDT,IBADFE,IBDISP,IBADJUST
- +10 DO MES^XPDUTL("Patch Post-Install starts...")
- +11 SET IBRATY="REIMBURSABLE INS.^NO FAULT INS.^WORKERS' COMP.^TORT FEASOR"
- +12 SET IBEFFDT="01/01/2012"
- +13 SET IBADFE=""
- +14 SET IBDISP="12.39"
- +15 SET IBADJUST=""
- +16 IF IBADJUST=""
- SET IBADJUST="S X=X+"_(+IBDISP+IBADFE)
- +17 FOR IBI=1:1
- SET IBJ=$PIECE(IBRATY,U,IBI)
- if IBJ=""
- QUIT
- IF '$ORDER(^DGCR(399.3,"B",IBJ,0))
- DO MES^XPDUTL("The Rate Type "_IBJ_" not defined, the rate schedule adjustments not updated")
- +18 DO ENT^IB3PSOU(IBRATY,IBEFFDT,IBADFE,IBDISP,IBADJUST)
- +19 DO MES^XPDUTL("Patch Post-Install is complete.")
- +20 QUIT
- +21 ;