| [613] | 1 | IB20PT ;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 | ;
|
|---|
| 39 | MSG 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 | ;
|
|---|
| 63 | RTN ;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
|
|---|
