source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IB20PT.m@ 1766

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

initial load of WorldVistAEHR

File size: 3.4 KB
Line 
1IB20PT ;ALB/CPM - IB V2.0 POST-INITIALIZATION ROUTINE ; 05-AUG-92
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;
4 ; Perform one-time post init items
5 ;
6 I +$G(^DD(350,0,"VR"))<2 D
7 .D HOME^%ZIS
8 .D ^IB20PT5 ; variety of one-time items
9 .D ^IB20PT3 ; table pointer resolution
10 ;
11 ; Run at every installation
12 ;
13 D ^IBONIT ; install protocols
14 D ^IB20PT4 ; install list templates
15 D ^IB20PT2 ; install imp/exp utility package entry
16 D ^IB20PT7 ; add new rate types and revenue codes
17 D ^IB20PT71 ; remove options from menus
18 D ^IB20PT8 ; install routines from other packages
19 ;
20 ; Do this as the very last thing in the install
21 ;
22 I +$G(^DD(350,0,"VR"))<2 D
23 .D HOME^%ZIS
24 .D ^IB20PT1 ; insurance file post-init conversion
25 ;
26 ; Installation has completed - display final messages
27 ;
28 D NOW^%DTC S IBEDT=$H
29 W !!,">>> Initialization Complete at " S Y=% D DT^DIQ
30 I $D(IBBDT) D
31 .S IBDAY=+IBEDT-(+IBBDT)*86400 ;additional seconds of over midnight
32 .S X=IBDAY+$P(IBEDT,",",2)-$P(IBBDT,",",2)
33 .W !," Elapse time for initialization was: ",X\3600," Hours, ",X\60-(X\3600*60)," Minutes, ",X#60," Seconds"
34 D MSG
35 K IBBDT,IBEDT,IBDAY,X,I
36 Q
37 ;
38 ;
39MSG W !!!,$TR($J("",79)," ","*")
40 W !!,"The installation of Integrated Billing Version 2.0 has completed."
41 ;
42 W !!,"Please remember to re-compile all templates, by typing D ALL^IBEFUTL1"
43 W !,"in programmer mode, on all of your systems."
44 ;
45 W !!,"Please be sure that the Means Test nightly billing compilation (option"
46 W !,"IB MT NIGHT COMP) is scheduled to run. If it is not, it should be"
47 W !,"scheduled to run early each morning (after the G&L Recalculation)."
48 W !,"Be sure that it is not scheduled twice!!"
49 ;
50 W !!,"The Integrated Billing DGCR* routines have been converted to the IB*"
51 W !,"namespace. The following DGCR* routines are still required on your system:"
52 W !!?8,"DGCRNS DGCRAMS DGCRP3"
53 W !!,"These routines were exported with this version."
54 W !!!,"The following DGCR* routines are now obsolete and may be deleted from"
55 W !,"your system:",!
56 F I=1:1 S X=$P($T(RTN+I),";;",2,99) Q:X="" W !,X
57 ;
58 W !!!,"The following IB* routines are now obsolete and may be deleted from"
59 W !,"your system:",!!,"IBACKIN IBEP IBEHCFA IBEHCF1 IBOHCTP IBOHCP"
60 W !!,$TR($J("",79)," ","*")
61 Q
62 ;
63RTN ;Obsolete routines
64 ;;DGCRA DGCRA0 DGCRA1 DGCRA2 DGCRA3 DGCRA31 DGCRA32 DGCRAMS1
65 ;;DGCRAMS2 DGCRB DGCRB1 DGCRB2 DGCRBB DGCRBB1 DGCRBB2 DGCRBR
66 ;;DGCRBULL DGCRC DGCRCC DGCRCC1 DGCRCC2 DGCRCPT DGCRMENU DGCRNQ
67 ;;DGCRNQ1 DGCROBL DGCROMBL DGCRONS1 DGCRONS2 DGCRONSC DGCROPV DGCROPV1
68 ;;DGCROPV2 DGCRORT DGCRORT1 DGCROST DGCROST1 DGCROTR DGCROTR1 DGCROTR2
69 ;;DGCROTR3 DGCROTR4 DGCRP DGCRP0 DGCRP1 DGCRP2 DGCRP4 DGCRPAR
70 ;;DGCRPAR1 DGCRSC1 DGCRSC2 DGCRSC3 DGCRSC4 DGCRSC4A DGCRSC4B DGCRSC4C
71 ;;DGCRSC5 DGCRSC6 DGCRSC61 DGCRSC7 DGCRSC8 DGCRSC8H DGCRSCE DGCRSCE1
72 ;;DGCRSCH DGCRSCH1 DGCRSCP DGCRSCU DGCRSCV DGCRST DGCRST1 DGCRST2
73 ;;DGCRST3 DGCRST4 DGCRST5 DGCRTN DGCRTP DGCRU DGCRU1 DGCRU2
74 ;;DGCRU3 DGCRU4 DGCRU5 DGCRU6 DGCRU61 DGCRU62 DGCRU63 DGCRU7
75 ;;DGCRU71 DGCRVA DGCRVA0 DGCRVA1 DGCRXX DGCRXX1 DGCRXX10 DGCRXX11
76 ;;DGCRXX12 DGCRXX13 DGCRXX14 DGCRXX15 DGCRXX16 DGCRXX17 DGCRXX18 DGCRXX19
77 ;;DGCRXX2 DGCRXX3 DGCRXX4 DGCRXX5 DGCRXX6 DGCRXX7 DGCRXX8 DGCRXX9
Note: See TracBrowser for help on using the repository browser.