| 1 | ONCOENV ;WASH ISC/SRR,MLH-PACKAGE ENVIRONMENT CHECK VERSION 2.11
|
|---|
| 2 | ;;2.11;ONCOLOGY;;Mar 07, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ; Just a reminder - if variables are defined here for the post init,
|
|---|
| 5 | ; don't NEW them in this routine or they'll be clobbered.
|
|---|
| 6 | I '$D(IOF) S IOP="HOME" D ^%ZIS ; set up environment
|
|---|
| 7 | ;
|
|---|
| 8 | PRE ; PRE INIT - Check user and device
|
|---|
| 9 | I $G(DUZ)<1 W !!!?15,"YOU ARE NOT IDENTIFIED AS A USER!!",!!?17,"TERMINATING this Installation!",!!! K DIFQ
|
|---|
| 10 | E D CK
|
|---|
| 11 | D EX ; clean up
|
|---|
| 12 | QUIT
|
|---|
| 13 | ;
|
|---|
| 14 | CK ;Check if installed
|
|---|
| 15 | ; 7/14/94 MLH added NEW to next line to cause version to be
|
|---|
| 16 | ; correctly identified
|
|---|
| 17 | NN N VR,V S VR=$P($T(ONCOENV+1),";",3),V=$G(^ONCO(169.99,0,"NVR")) ; version number
|
|---|
| 18 | IF V=VR D ; already installed - bail out?
|
|---|
| 19 | . N I,Y
|
|---|
| 20 | . S I=$P(^ONCO(169.99,0),U,3) ; site number
|
|---|
| 21 | . S Y=$P(^ONCO(169.99,I,0),U,4) ; installation date
|
|---|
| 22 | . D DD^%DT
|
|---|
| 23 | . W !!,*7,*7,?10,"INSTALLATION "_V_" Completed: "_Y_"."
|
|---|
| 24 | . I '$$GOAHEAD K DIFQ ; let user bail out
|
|---|
| 25 | . Q
|
|---|
| 26 | ;END IF
|
|---|
| 27 | ;
|
|---|
| 28 | I $D(DIFQ) D START ; didn't bail out
|
|---|
| 29 | I $D(DIFQ),'OFST D RSTSET ; set up for restaging
|
|---|
| 30 | ;
|
|---|
| 31 | ; 7/12/94 MLH REMOVED logic to check proceeding w/o restaging
|
|---|
| 32 | ; to entry point ONCOENA
|
|---|
| 33 | ;
|
|---|
| 34 | I $D(DIFQ),$G(ONCOI1ST)'>0 D QNORSTG^ONCOENA ; they don't want to restage - do they want to quit?
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | START S XIU="T",OFST=0,NM="ONCOLOGY TUMOR REGISTRY"
|
|---|
| 38 | S %H=$H D YX^%DTC S (ONCOBEG,ONCOST)=Y D DD^%DT
|
|---|
| 39 | D LOGO^ONCODIS,V W !!
|
|---|
| 40 | IF '$O(^ONCO(160,0)) D ; virgin install
|
|---|
| 41 | . S OFST=1
|
|---|
| 42 | . D CV
|
|---|
| 43 | . Q
|
|---|
| 44 | ELSE D ; non-virgin
|
|---|
| 45 | . D CI
|
|---|
| 46 | . Q
|
|---|
| 47 | ;END IF
|
|---|
| 48 | ;
|
|---|
| 49 | EX ;Exit conversion
|
|---|
| 50 | K DIK,DIR,DIU,ER,RR,I,J,K,L,LTD,MC,N,N1,NAC,NF,NFM,NXT,REM,S,T,TC,XDD,XIU F I="T","N","M" K ^UTILITY($J,I)
|
|---|
| 51 | Q
|
|---|
| 52 | ;
|
|---|
| 53 | CI ;CHECK INSTALLATION VERSION
|
|---|
| 54 | S INS=$G(^ONCO(169.99,0,"INS"))
|
|---|
| 55 | IF INS'="",'$D(^DD(160)) D ; previously aborted in the middle?
|
|---|
| 56 | . W !!?10,"Appears installation was started, not completed"
|
|---|
| 57 | . W !?10,"- no other information available, will continue..."
|
|---|
| 58 | . S V=$G(^ONCO(169.99,0,"OVR"))
|
|---|
| 59 | . Q
|
|---|
| 60 | ELSE D
|
|---|
| 61 | . IF INS'="" D ; previously aborted in the middle?
|
|---|
| 62 | .. S VX=$P(INS,U),ST=$P(INS,U,2),Y=ST D DD^%DT
|
|---|
| 63 | .. W !!?10,"Appears installation of V"_VX_" on "_Y
|
|---|
| 64 | .. W !?10,"began, but did not complete - will continue installation..."
|
|---|
| 65 | .. Q
|
|---|
| 66 | . ;END IF
|
|---|
| 67 | . ;
|
|---|
| 68 | . D CV ; get version number
|
|---|
| 69 | . Q
|
|---|
| 70 | ;END IF
|
|---|
| 71 | ;
|
|---|
| 72 | CN W !!,"I am going to clean out DD's (national fields only)."
|
|---|
| 73 | W !,"I will also purge the static files, except for FOLLOW-UP FORM LETTER."
|
|---|
| 74 | D AB ; do they want to abort?
|
|---|
| 75 | I Y'=1 ; yes, user bailed out
|
|---|
| 76 | E I V=""!(V>1.79) ; no, and no need to do ICDO conv
|
|---|
| 77 | E W !!,"Please convert to Version 2.0 before proceeding.",!! K DIFQ ; no, but version too old - must do ICDO conv
|
|---|
| 78 | ;END IF
|
|---|
| 79 | ;
|
|---|
| 80 | Q
|
|---|
| 81 | ;
|
|---|
| 82 | V W !!!?25,"INSTALLATION: VERSION ",VR,!?25,Y Q
|
|---|
| 83 | ;
|
|---|
| 84 | AB K DIR S DIR("A")=" CONTINUE with Installation: ",DIR("B")="Yes",DIR(0)="Y" D ^DIR Q:Y=1 D ABORT Q
|
|---|
| 85 | ABORT W !!?7,"Installation aborted - you may DO ^ONCOINIT at any time." K DIFQ
|
|---|
| 86 | Q
|
|---|
| 87 | ;
|
|---|
| 88 | GOAHEAD() ; does user want to go ahead with installation?
|
|---|
| 89 | N DIR
|
|---|
| 90 | S DIR("A")="Do you want to proceed",DIR("B")="No",DIR(0)="Y"
|
|---|
| 91 | S DIR("?",1)="It appears that you have already installed this version successfully."
|
|---|
| 92 | S DIR("?",2)="Unless your ISC has requested that you reinstall, you can stop here"
|
|---|
| 93 | S DIR("?",2.5)="and no changes will have been made to the package."
|
|---|
| 94 | IF $T(+2)["2.1;" D ; following message applies only to released version
|
|---|
| 95 | . S DIR("?",2.9)=""
|
|---|
| 96 | . S DIR("?",3)="Remember that if you proceed with installation, you must re-apply"
|
|---|
| 97 | . S DIR("?",4)="all patches to this package before allowing users to log back in"
|
|---|
| 98 | . S DIR("?",5)="to the system."
|
|---|
| 99 | . S DIR("?",5.9)=""
|
|---|
| 100 | . S DIR("?",6)="If you need further help, answer No here and contact your ISC."
|
|---|
| 101 | . Q
|
|---|
| 102 | ;END IF
|
|---|
| 103 | ;
|
|---|
| 104 | D ^DIR
|
|---|
| 105 | Q Y
|
|---|
| 106 | ;
|
|---|
| 107 | CV S VRN=$G(^ONCO(169.99,0,"NVR")),V=$P(VRN,U),VND=$P(VRN,U,3),V=$S('V:"NONE",1:V),VX=$S(V["T":"Alpha Test",V["V":"Beta Test/Verification",1:"Released")_" Version",^ONCO(169.99,0,"OVR")=V
|
|---|
| 108 | I 'OFST W !?20,"VERSION "_V_" currently installed",!?32,VX
|
|---|
| 109 | E I '$D(^ONCO(160)) W !,?20,"This is a VIRGIN Installation",!!
|
|---|
| 110 | Q
|
|---|
| 111 | ;
|
|---|
| 112 | RSTSET ;JAH 01FEB95; Set up for restaging - called by CK
|
|---|
| 113 | W !!,"The post-initialization can automatically recompute"
|
|---|
| 114 | W !,"the AJCC staging of entries on your primary file with"
|
|---|
| 115 | W !,"a DIAGNOSIS DATE on or after a date you specify."
|
|---|
| 116 | W !!,"Answer YES to restage."
|
|---|
| 117 | S DIR(0)="Y",DIR("B")="NO",DIR("A")="Do you want to RESTAGE"
|
|---|
| 118 | S DIR("?")="Answer Yes or No to the restaging question."
|
|---|
| 119 | S DIR("?",1)="The Oncology Registrar may be best suited to help answer the restaging questions"
|
|---|
| 120 | D ^DIR
|
|---|
| 121 | I $D(DTOUT)!$D(DUOUT)!(Y=0) S ONCOI1ST=-1
|
|---|
| 122 | E S ONCOI1ST=$$RSTGASK^ONCOU55A ; get the date
|
|---|
| 123 | Q
|
|---|
