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 Dec 13, 2024@02:02:53 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 ;
