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