Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IB20PT

IB20PT.m

Go to the documentation of this file. 
  1. IB20PT ;ALB/CPM - IB V2.0 POST-INITIALIZATION ROUTINE ; 05-AUG-92
  1.  ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1.  ;
  1.  ; Perform one-time post init items
  1.  ;
  1.  I +$G(^DD(350,0,"VR"))<2 D
  1.  .D HOME^%ZIS
  1.  .D ^IB20PT5 ;  variety of one-time items
  1.  .D ^IB20PT3 ;  table pointer resolution
  1.  ;
  1.  ; Run at every installation
  1.  ;
  1.  D ^IBONIT ;    install protocols
  1.  D ^IB20PT4 ;   install list templates
  1.  D ^IB20PT2 ;   install imp/exp utility package entry
  1.  D ^IB20PT7 ;   add new rate types and revenue codes
  1.  D ^IB20PT71 ;  remove options from menus
  1.  D ^IB20PT8 ;   install routines from other packages
  1.  ;
  1.  ; Do this as the very last thing in the install
  1.  ;
  1.  I +$G(^DD(350,0,"VR"))<2 D
  1.  .D HOME^%ZIS
  1.  .D ^IB20PT1 ;  insurance file post-init conversion
  1.  ;
  1.  ; Installation has completed - display final messages
  1.  ;
  1.  D NOW^%DTC S IBEDT=$H
  1.  W !!,">>> Initialization Complete at " S Y=% D DT^DIQ
  1.  I $D(IBBDT) D
  1.  .S IBDAY=+IBEDT-(+IBBDT)*86400 ;additional seconds of over midnight
  1.  .S X=IBDAY+$P(IBEDT,",",2)-$P(IBBDT,",",2)
  1.  .W !,"    Elapse time for initialization was: ",X\3600," Hours,  ",X\60-(X\3600*60)," Minutes,  ",X#60," Seconds"
  1.  D MSG
  1.  K IBBDT,IBEDT,IBDAY,X,I
  1.  Q
  1.  ;
  1.  ;
  1. MSG W !!!,$TR($J("",79)," ","*")
  1.  W !!,"The installation of Integrated Billing Version 2.0 has completed."
  1.  ;
  1.  W !!,"Please remember to re-compile all templates, by typing D ALL^IBEFUTL1"
  1.  W !,"in programmer mode, on all of your systems."
  1.  ;
  1.  W !!,"Please be sure that the Means Test nightly billing compilation (option"
  1.  W !,"IB MT NIGHT COMP) is scheduled to run.  If it is not, it should be"
  1.  W !,"scheduled to run early each morning (after the G&L Recalculation)."
  1.  W !,"Be sure that it is not scheduled twice!!"
  1.  ;
  1.  W !!,"The Integrated Billing DGCR* routines have been converted to the IB*"
  1.  W !,"namespace.  The following DGCR* routines are still required on your system:"
  1.  W !!?8,"DGCRNS     DGCRAMS   DGCRP3"
  1.  W !!,"These routines were exported with this version."
  1.  W !!!,"The following DGCR* routines are now obsolete and may be deleted from"
  1.  W !,"your system:",!
  1.  F I=1:1 S X=$P($T(RTN+I),";;",2,99) Q:X=""  W !,X
  1.  ;
  1.  W !!!,"The following IB* routines are now obsolete and may be deleted from"
  1.  W !,"your system:",!!,"IBACKIN   IBEP      IBEHCFA   IBEHCF1   IBOHCTP   IBOHCP"
  1.  W !!,$TR($J("",79)," ","*")
  1.  Q
  1.  ;
  1. RTN ;Obsolete routines
  1.  ;;DGCRA     DGCRA0    DGCRA1    DGCRA2    DGCRA3    DGCRA31   DGCRA32   DGCRAMS1
  1.  ;;DGCRAMS2  DGCRB     DGCRB1    DGCRB2    DGCRBB    DGCRBB1   DGCRBB2   DGCRBR
  1.  ;;DGCRBULL  DGCRC     DGCRCC    DGCRCC1   DGCRCC2   DGCRCPT   DGCRMENU  DGCRNQ
  1.  ;;DGCRNQ1   DGCROBL   DGCROMBL  DGCRONS1  DGCRONS2  DGCRONSC  DGCROPV   DGCROPV1
  1.  ;;DGCROPV2  DGCRORT   DGCRORT1  DGCROST   DGCROST1  DGCROTR   DGCROTR1  DGCROTR2
  1.  ;;DGCROTR3  DGCROTR4  DGCRP     DGCRP0    DGCRP1    DGCRP2    DGCRP4    DGCRPAR
  1.  ;;DGCRPAR1  DGCRSC1   DGCRSC2   DGCRSC3   DGCRSC4   DGCRSC4A  DGCRSC4B  DGCRSC4C
  1.  ;;DGCRSC5   DGCRSC6   DGCRSC61  DGCRSC7   DGCRSC8   DGCRSC8H  DGCRSCE   DGCRSCE1
  1.  ;;DGCRSCH   DGCRSCH1  DGCRSCP   DGCRSCU   DGCRSCV   DGCRST    DGCRST1   DGCRST2
  1.  ;;DGCRST3   DGCRST4   DGCRST5   DGCRTN    DGCRTP    DGCRU     DGCRU1    DGCRU2
  1.  ;;DGCRU3    DGCRU4    DGCRU5    DGCRU6    DGCRU61   DGCRU62   DGCRU63   DGCRU7
  1.  ;;DGCRU71   DGCRVA    DGCRVA0   DGCRVA1   DGCRXX    DGCRXX1   DGCRXX10  DGCRXX11
  1.  ;;DGCRXX12  DGCRXX13  DGCRXX14  DGCRXX15  DGCRXX16  DGCRXX17  DGCRXX18  DGCRXX19
  1.  ;;DGCRXX2   DGCRXX3   DGCRXX4   DGCRXX5   DGCRXX6   DGCRXX7   DGCRXX8   DGCRXX9