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

IB20PRE.m

Go to the documentation of this file. 
  1. IB20PRE ;ALB/CPM - IB V2.0 PRE-INITIALIZATION ROUTINE ; 01-SEP-93
  1.  ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1.  ;
  1. % D NOW^%DTC S IBBDT=$H,DT=X,Y=% W !!,"Initialization Started: " D DT^DIQ W !!
  1.  ;
  1. USER I $S('($D(DUZ)#2):1,'$D(^VA(200,+DUZ,0)):1,'$D(DUZ(0)):1,DUZ(0)'="@":1,1:0) W !!?3,"The variable DUZ must be set to an active user code and the variable",!?3,"DUZ(0) must equal '@' to initialize.",! K DIFQ G NO
  1.  ;
  1. MAS I $D(DIFQ),$G(^DG(43,1,"VERSION"))<5.3 K DIFQ W !!,?3,"PIMS Version 5.3 must be installed first!" G NO
  1.  ;
  1. PRC I $D(DIFQ),+$G(^DD(430,0,"VR"))'>3.5 K DIFQ W !!,"Accounts Receivable v3.7 must be installed first!" G NO
  1.  ;
  1. ABP ;check to see if they want the auto biller parameters set by post init
  1.  I +$G(^DD(350,0,"VR"))<2 D ABPT S DIR(0)="YO",DIR("?")="^D ABPT^IB20PRE" D ^DIR K DIR,DIRUT I Y=1 S IBAUTOBP=1
  1.  ;
  1.  ; - see if the global IBT has been installed, with correct protections.
  1.  S ^IBT(1)=0 ;     check write protection
  1.  S IBCHK=^IBT(1) ; check read protection
  1.  K ^IBT(1) ;       check delete protection
  1.  ;
  1.  ;
  1. NO I '$D(DIFQ) W !,"INITIALIZATION ABORTED" K IBBDT
  1.  K DIR,DIRUT,DUOUT,ERR,IBCHK
  1.  Q
  1.  ;
  1. ABPT ;
  1.  F IBI=3:1 S IBX=$P($T(ABPT+IBI),";;",2,999) Q:IBX=""  W !,IBX
  1.  Q
  1.  ;;The auto biller parameters can be set automatically during the post-init
  1.  ;;by answering the following question affirmatively.  If the auto biller
  1.  ;;parameters are set-up by the post-init then the Earliest Auto Bill
  1.  ;;Date of the current inpatient admissions will be set as they are
  1.  ;;loaded into the Claims Tracking module by one of the queued conversion
  1.  ;;routines.  The result will be that the auto biller will be able to
  1.  ;;process these inpatient admissions and possibly create bills for them
  1.  ;;when it runs.  If these parameters are not set and the auto biller
  1.  ;;will be running at your site for inpatient admissions then the
  1.  ;;Earliest Auto Bill Date of each current inpatient admission will
  1.  ;;have to be set manually after the conversion is done.
  1.  ;; 
  1.  ;;The parameters will be set up with the following values:
  1.  ;; 
  1.  ;;    Auto Biller Frequency: 7 days - the auto biller will not run
  1.  ;;                                    until 7 days after this install 
  1.  ;;    Automate Billing:      1 Yes  - the Earliest Auto bill date will
  1.  ;;                                    be set during the conversion
  1.  ;;    Billing Cycle:          left blank, billing cycle will be one
  1.  ;;                                    month
  1.  ;;    Days Delay:            2 days - number of days after the billing
  1.  ;;                                    cycle is completed that the bill
  1.  ;;                                    will be created
  1.  ;; 
  1.  ;;If these settings for the parameters are not what your site requires
  1.  ;;then you may change them after the installation is complete but
  1.  ;;before the conversions begin to run - there is a 15 minute window.
  1.  ;;These parameters can also be changed at any time after the
  1.  ;;installation and conversion are complete (option IB AUTO BILLER PARAMS).
  1.  ;; 
  1.  ;