source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IB20PRE.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.9 KB
Line 
1IB20PRE ;ALB/CPM - IB V2.0 PRE-INITIALIZATION ROUTINE ; 01-SEP-93
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;
4% D NOW^%DTC S IBBDT=$H,DT=X,Y=% W !!,"Initialization Started: " D DT^DIQ W !!
5 ;
6USER 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
7 ;
8MAS I $D(DIFQ),$G(^DG(43,1,"VERSION"))<5.3 K DIFQ W !!,?3,"PIMS Version 5.3 must be installed first!" G NO
9 ;
10PRC I $D(DIFQ),+$G(^DD(430,0,"VR"))'>3.5 K DIFQ W !!,"Accounts Receivable v3.7 must be installed first!" G NO
11 ;
12ABP ;check to see if they want the auto biller parameters set by post init
13 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
14 ;
15 ; - see if the global IBT has been installed, with correct protections.
16 S ^IBT(1)=0 ; check write protection
17 S IBCHK=^IBT(1) ; check read protection
18 K ^IBT(1) ; check delete protection
19 ;
20 ;
21NO I '$D(DIFQ) W !,"INITIALIZATION ABORTED" K IBBDT
22 K DIR,DIRUT,DUOUT,ERR,IBCHK
23 Q
24 ;
25ABPT ;
26 F IBI=3:1 S IBX=$P($T(ABPT+IBI),";;",2,999) Q:IBX="" W !,IBX
27 Q
28 ;;The auto biller parameters can be set automatically during the post-init
29 ;;by answering the following question affirmatively. If the auto biller
30 ;;parameters are set-up by the post-init then the Earliest Auto Bill
31 ;;Date of the current inpatient admissions will be set as they are
32 ;;loaded into the Claims Tracking module by one of the queued conversion
33 ;;routines. The result will be that the auto biller will be able to
34 ;;process these inpatient admissions and possibly create bills for them
35 ;;when it runs. If these parameters are not set and the auto biller
36 ;;will be running at your site for inpatient admissions then the
37 ;;Earliest Auto Bill Date of each current inpatient admission will
38 ;;have to be set manually after the conversion is done.
39 ;;
40 ;;The parameters will be set up with the following values:
41 ;;
42 ;; Auto Biller Frequency: 7 days - the auto biller will not run
43 ;; until 7 days after this install
44 ;; Automate Billing: 1 Yes - the Earliest Auto bill date will
45 ;; be set during the conversion
46 ;; Billing Cycle: left blank, billing cycle will be one
47 ;; month
48 ;; Days Delay: 2 days - number of days after the billing
49 ;; cycle is completed that the bill
50 ;; will be created
51 ;;
52 ;;If these settings for the parameters are not what your site requires
53 ;;then you may change them after the installation is complete but
54 ;;before the conversions begin to run - there is a 15 minute window.
55 ;;These parameters can also be changed at any time after the
56 ;;installation and conversion are complete (option IB AUTO BILLER PARAMS).
57 ;;
58 ;
Note: See TracBrowser for help on using the repository browser.