- IB20P437 ;WOIFO/PLT-Patch IB*2.0*437 Environment Check/Pre/Post Initial ;8/17/10 10:21
- ;;2.0;INTEGRATED BILLING;**437**;21-MAR-94;Build 11
- ;;Per VHA Directive 2004-038, this routine should not be modified.
- QUIT ;invalid entry
- ;
- ENVCHK ;environment check of patch installation
- ;reserved, not in use
- QUIT
- ;
- PREINS ;pre-install of patche installation
- ;reserved, not in use
- QUIT
- ;
- POSTINS ;post-install of patch installation
- N IBRATY,IBEFFDT,IBADFE,IBDISP,IBADJUST
- D MES^XPDUTL("Patch Post-Install starts.")
- ;update out-patient pharmacy admini/disp fee & adj change in file#363
- ;set default values
- S IBRATY="",IBEFFDT="03/18/2011",IBADFE="",IBDISP="11.40"
- S IBADJUST=""
- I IBADJUST="" S IBADJUST="S X=X+"_(+IBDISP+IBADFE)
- ;ibraty=rate type name of file #399.3^rate type name^rate type name...
- ; ="" for all-reimburs ins., no fault ins., tort feasor, works' comp.
- ;ibeffdt=effective external date (mm/dd/yyyy)
- ;ibadfe=administrative fee (ddd.cc)
- ;ibdisp=dispensing fee (ddd.cc)
- ;ibadjust=adjustment mumps code
- D ENT^IB3PSOU(IBRATY,IBEFFDT,IBADFE,IBDISP,IBADJUST)
- D MES^XPDUTL("Patch Post-Install is done!")
- QUIT
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P437 1170 printed Mar 13, 2025@21:07:39 Page 2
- IB20P437 ;WOIFO/PLT-Patch IB*2.0*437 Environment Check/Pre/Post Initial ;8/17/10 10:21
- +1 ;;2.0;INTEGRATED BILLING;**437**;21-MAR-94;Build 11
- +2 ;;Per VHA Directive 2004-038, this routine should not be modified.
- +3 ;invalid entry
- QUIT
- +4 ;
- ENVCHK ;environment check of patch installation
- +1 ;reserved, not in use
- +2 QUIT
- +3 ;
- PREINS ;pre-install of patche installation
- +1 ;reserved, not in use
- +2 QUIT
- +3 ;
- POSTINS ;post-install of patch installation
- +1 NEW IBRATY,IBEFFDT,IBADFE,IBDISP,IBADJUST
- +2 DO MES^XPDUTL("Patch Post-Install starts.")
- +3 ;update out-patient pharmacy admini/disp fee & adj change in file#363
- +4 ;set default values
- +5 SET IBRATY=""
- SET IBEFFDT="03/18/2011"
- SET IBADFE=""
- SET IBDISP="11.40"
- +6 SET IBADJUST=""
- +7 IF IBADJUST=""
- SET IBADJUST="S X=X+"_(+IBDISP+IBADFE)
- +8 ;ibraty=rate type name of file #399.3^rate type name^rate type name...
- +9 ; ="" for all-reimburs ins., no fault ins., tort feasor, works' comp.
- +10 ;ibeffdt=effective external date (mm/dd/yyyy)
- +11 ;ibadfe=administrative fee (ddd.cc)
- +12 ;ibdisp=dispensing fee (ddd.cc)
- +13 ;ibadjust=adjustment mumps code
- +14 DO ENT^IB3PSOU(IBRATY,IBEFFDT,IBADFE,IBDISP,IBADJUST)
- +15 DO MES^XPDUTL("Patch Post-Install is done!")
- +16 QUIT
- +17 ;
