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).
;;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20PRE 3044 printed Dec 13, 2024@02:05:05 Page 2
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 IF $DATA(DIFQ)
IF $GET(^DG(43,1,"VERSION"))<5.3
KILL DIFQ
WRITE !!,?3,"PIMS Version 5.3 must be installed first!"
GOTO NO
+1 ;
PRC IF $DATA(DIFQ)
IF +$GET(^DD(430,0,"VR"))'>3.5
KILL DIFQ
WRITE !!,"Accounts Receivable v3.7 must be installed first!"
GOTO 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 ;
