IB20P437.m

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 ---IB20P437   1170     printed  Apr 09, 2024@21:19:07                                                                                                                                                                                                    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      ;