IB20PRE.m

IB20PRE	;ALB/CPM - IB V2.0 PRE-INITIALIZATION ROUTINE ; 01-SEP-93

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	;

%	D NOW^%DTC S IBBDT=$H,DT=X,Y=% W !!,"Initialization Started: " D DT^DIQ W !!

	;

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

	;

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

	;

PRC	;I $D(DIFQ),+$G(^DD(430,0,"VR"))'>3.5 K DIFQ W !!,"Accounts Receivable v3.7 must be installed first!" G NO

	;

ABP	;check to see if they want the auto biller parameters set by post init

	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

	;

	; - see if the global IBT has been installed, with correct protections.

	S ^IBT(1)=0 ;     check write protection

	S IBCHK=^IBT(1) ; check read protection

	K ^IBT(1) ;       check delete protection

	;

	;

NO	I '$D(DIFQ) W !,"INITIALIZATION ABORTED" K IBBDT

	K DIR,DIRUT,DUOUT,ERR,IBCHK

	Q

	;

ABPT	;

	F IBI=3:1 S IBX=$P($T(ABPT+IBI),";;",2,999) Q:IBX=""  W !,IBX

	Q

	;;The auto biller parameters can be set automatically during the post-init

	;;by answering the following question affirmatively.  If the auto biller

	;;parameters are set-up by the post-init then the Earliest Auto Bill

	;;Date of the current inpatient admissions will be set as they are

	;;loaded into the Claims Tracking module by one of the queued conversion

	;;routines.  The result will be that the auto biller will be able to

	;;process these inpatient admissions and possibly create bills for them

	;;when it runs.  If these parameters are not set and the auto biller

	;;will be running at your site for inpatient admissions then the

	;;Earliest Auto Bill Date of each current inpatient admission will

	;;have to be set manually after the conversion is done.

	;; 

	;;The parameters will be set up with the following values:

	;; 

	;;    Auto Biller Frequency: 7 days - the auto biller will not run

	;;                                    until 7 days after this install 

	;;    Automate Billing:      1 Yes  - the Earliest Auto bill date will

	;;                                    be set during the conversion

	;;    Billing Cycle:          left blank, billing cycle will be one

	;;                                    month

	;;    Days Delay:            2 days - number of days after the billing

	;;                                    cycle is completed that the bill

	;;                                    will be created

	;; 

	;;If these settings for the parameters are not what your site requires

	;;then you may change them after the installation is complete but

	;;before the conversions begin to run - there is a 15 minute window.

	;;These parameters can also be changed at any time after the

	;;installation and conversion are complete (option IB AUTO BILLER PARAMS).

	;; 

	;

IB20PRE   ;ALB/CPM - IB V2.0 PRE-INITIALIZATION ROUTINE ; 01-SEP-93

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2       ;

%          DO NOW^%DTC

           SET IBBDT=$HOROLOG

           SET DT=X

           SET Y=%

           WRITE !!,"Initialization Started: "

           DO DT^DIQ

           WRITE !!

 +1       ;

USER       IF $SELECT('($DATA(DUZ)#2):1,'$DATA(^VA(200,+DUZ,0)):1,'$DATA(DUZ(0)):1,DUZ(0)'="@":1,1:0)

               WRITE !!?3,"The variable DUZ must be set to an active user code and the variable",!?3,"DUZ(0) must equal '@' to initialize.",!

               KILL DIFQ

               GOTO NO

 +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       ;

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       ;

ABP       ;check to see if they want the auto biller parameters set by post init

 +1        IF +$GET(^DD(350,0,"VR"))<2

               DO ABPT

               SET DIR(0)="YO"

               SET DIR("?")="^D ABPT^IB20PRE"

               DO ^DIR

               KILL DIR,DIRUT

               IF Y=1

                   SET IBAUTOBP=1

 +2       ;

 +3       ; - see if the global IBT has been installed, with correct protections.

 +4       ;     check write protection

           SET ^IBT(1)=0

 +5       ; check read protection

           SET IBCHK=^IBT(1)

 +6       ;       check delete protection

           KILL ^IBT(1)

 +7       ;

 +8       ;

NO         IF '$DATA(DIFQ)

               WRITE !,"INITIALIZATION ABORTED"

               KILL IBBDT

 +1        KILL DIR,DIRUT,DUOUT,ERR,IBCHK

 +2        QUIT 

 +3       ;

ABPT      ;

 +1        FOR IBI=3:1

               SET IBX=$PIECE($TEXT(ABPT+IBI),";;",2,999)

               IF IBX=""

                   QUIT 

               WRITE !,IBX

 +2        QUIT 

 +3       ;;The auto biller parameters can be set automatically during the post-init

 +4       ;;by answering the following question affirmatively.  If the auto biller

 +5       ;;parameters are set-up by the post-init then the Earliest Auto Bill

 +6       ;;Date of the current inpatient admissions will be set as they are

 +7       ;;loaded into the Claims Tracking module by one of the queued conversion

 +8       ;;routines.  The result will be that the auto biller will be able to

 +9       ;;process these inpatient admissions and possibly create bills for them

 +10      ;;when it runs.  If these parameters are not set and the auto biller

 +11      ;;will be running at your site for inpatient admissions then the

 +12      ;;Earliest Auto Bill Date of each current inpatient admission will

 +13      ;;have to be set manually after the conversion is done.

 +14      ;; 

 +15      ;;The parameters will be set up with the following values:

 +16      ;; 

 +17      ;;    Auto Biller Frequency: 7 days - the auto biller will not run

 +18      ;;                                    until 7 days after this install 

 +19      ;;    Automate Billing:      1 Yes  - the Earliest Auto bill date will

 +20      ;;                                    be set during the conversion

 +21      ;;    Billing Cycle:          left blank, billing cycle will be one

 +22      ;;                                    month

 +23      ;;    Days Delay:            2 days - number of days after the billing

 +24      ;;                                    cycle is completed that the bill

 +25      ;;                                    will be created

 +26      ;; 

 +27      ;;If these settings for the parameters are not what your site requires

 +28      ;;then you may change them after the installation is complete but

 +29      ;;before the conversions begin to run - there is a 15 minute window.

 +30      ;;These parameters can also be changed at any time after the

 +31      ;;installation and conversion are complete (option IB AUTO BILLER PARAMS).

 +32      ;; 

 +33      ;