PRC5INST ;WISC/RFJ-version 5 IFCAP installation main program ;30 Jun 94
;;5.0;IFCAP;;4/21/95
;
N %,%H,%I,DA,DIC,DIE,DIK,DR,PRC5INS1,PRC5INS2,PRC5PRC,PRC5PRCP,PRC5STRT,PRCEND,PRCINSTL,PRCNAME,PRCPFLAG,PRCSTART,PRCTEXT,PRCVERS,X,Y
;
D NOW^%DTC S PRC5STRT=%
; prcvers used to check version number
; prc5inst used in environmental check
S PRCVERS=$P($T(PRC5INST+1),";",3),PRC5INST=1
;
; display introduction
W !!,"=================== *** IFCAP INSTALLATION INTRODUCTION *** ==================="
W !,"|",?78,"|"
W !,"| Before running this program, please make sure you do not have users",?78,"|"
W !,"| on the system. Also, please make sure you have a working backup of",?78,"|"
W !,"| your system disks.",?78,"|"
S %="",$P(%,"-",80)="" W !,%
;
; run environmental check routine
D ^PRC5INS1 I '$G(PRC5INST) Q
D EN^PRC5C I '$D(PRC5INST) Q
;
; check called routines and last ifcap routine
S PRCPFLAG=0 I $D(^%ZOSF("TEST")) F X="PRC5INS1","PRCPUYN","PRCPUX2","PRCPXTRM","PRCPINIT","PRCINIT","PRCTRED" X ^%ZOSF("TEST") I '$T S PRCPFLAG=1 Q
I PRCPFLAG K X S X(1)="It does not look like all of the IFCAP Version "_PRCVERS_" routines have been successfully loaded. Please re-load the routines and run this program again." D DISPLAY^PRCPUX2(1,78,.X) Q
;
; find last version loaded
S (DA,X)=0 F S DA=$O(^DIC(9.4,"C","PRC",DA)) Q:'DA S %=$G(^DIC(9.4,DA,"VERSION")) I %>X S PRC5PRC=DA_"^"_%,X=%
I X,X'>3.9999 K X S X(1)="YOU MUST BE RUNNING IFCAP VERSION 4.0 OR GREATER BEFORE INSTALLING VERSION "_PRCVERS_"." D DISPLAY^PRCPUX2(1,78,.X) Q
S (DA,X)=0 F S DA=$O(^DIC(9.4,"C","PRCP",DA)) Q:'DA S %=$G(^DIC(9.4,DA,"VERSION")) I %>X S PRC5PRCP=DA_"^"_%,X=%
;
W !!,"================== *** IFCAP INSTALLATION INITIALIZATION *** =================="
W !,"The installation of IFCAP Version ",PRCVERS," has two parts to it as follows:"
S PRC5INS1=$G(^DIC(9.4,+$G(PRC5PRCP),22,+$O(^DIC(9.4,+$G(PRC5PRCP),22,"B",PRCVERS,0)),0)),Y=$P(PRC5INS1,"^",3) I Y D DD^%DT S $P(PRC5INS1,"^",3)=Y
S PRC5INS2=$G(^DIC(9.4,+$G(PRC5PRC),22,+$O(^DIC(9.4,+$G(PRC5PRC),22,"B",PRCVERS,0)),0)),Y=$P(PRC5INS2,"^",3) I Y D DD^%DT S $P(PRC5INS2,"^",3)=Y
S PRCTEXT(10,0)="PART 1: Generic Inventory Package "_$S($P(PRC5INS1,"^",3)'="":"previously installed "_$P(PRC5INS1,"^",3),1:"NOT INSTALLED") W !," ",PRCTEXT(10,0)
S PRCTEXT(11,0)="PART 2: IFCAP Main System "_$S($P(PRC5INS2,"^",3)'="":"previously installed "_$P(PRC5INS2,"^",3),1:"NOT INSTALLED") W !," ",PRCTEXT(11,0)
;
W ! S XP="ARE YOU SURE YOU WANT TO START/CONTINUE THE INSTALLATION OF IFCAP",XH="Enter 'YES' to install IFCAP, 'NO' or '^' to exit." I $$YN^PRCPUYN(2)'=1 Q
;
; clean up package file
W !!,"======================= *** CLEANING UP PACKAGE FILE *** ======================"
; clean out old prc entries
S PRCNAME="PR" F S PRCNAME=$O(^DIC(9.4,"C",PRCNAME)) Q:PRCNAME=""!($E(PRCNAME,1,2)'="PR") D
. I PRCNAME="PRCA" Q
. I $E(PRCNAME,1,3)'="PRC",$E(PRCNAME,1,3)'="PRX" Q
. S DA=0 F S DA=$O(^DIC(9.4,"C",PRCNAME,DA)) Q:'DA I DA'=+$G(PRC5PRC),DA'=+$G(PRC5PRCP) W !?5,PRCNAME," (internal entry #",DA,") ..." S DIK="^DIC(9.4," D ^DIK W " deleted."
; reset name if wrong
I $G(PRC5PRC),$D(^DIC(9.4,+PRC5PRC,0)),$P(^(0),"^")'="IFCAP" S DIE="^DIC(9.4,",DA=+PRC5PRC,DR=".01///IFCAP" D ^DIE
;
D CONTINUE^PRC5INS1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRC5INST 3373 printed Sep 23, 2025@19:36:08 Page 2
PRC5INST ;WISC/RFJ-version 5 IFCAP installation main program ;30 Jun 94
+1 ;;5.0;IFCAP;;4/21/95
+2 ;
+3 NEW %,%H,%I,DA,DIC,DIE,DIK,DR,PRC5INS1,PRC5INS2,PRC5PRC,PRC5PRCP,PRC5STRT,PRCEND,PRCINSTL,PRCNAME,PRCPFLAG,PRCSTART,PRCTEXT,PRCVERS,X,Y
+4 ;
+5 DO NOW^%DTC
SET PRC5STRT=%
+6 ; prcvers used to check version number
+7 ; prc5inst used in environmental check
+8 SET PRCVERS=$PIECE($TEXT(PRC5INST+1),";",3)
SET PRC5INST=1
+9 ;
+10 ; display introduction
+11 WRITE !!,"=================== *** IFCAP INSTALLATION INTRODUCTION *** ==================="
+12 WRITE !,"|",?78,"|"
+13 WRITE !,"| Before running this program, please make sure you do not have users",?78,"|"
+14 WRITE !,"| on the system. Also, please make sure you have a working backup of",?78,"|"
+15 WRITE !,"| your system disks.",?78,"|"
+16 SET %=""
SET $PIECE(%,"-",80)=""
WRITE !,%
+17 ;
+18 ; run environmental check routine
+19 DO ^PRC5INS1
IF '$GET(PRC5INST)
QUIT
+20 DO EN^PRC5C
IF '$DATA(PRC5INST)
QUIT
+21 ;
+22 ; check called routines and last ifcap routine
+23 SET PRCPFLAG=0
IF $DATA(^%ZOSF("TEST"))
FOR X="PRC5INS1","PRCPUYN","PRCPUX2","PRCPXTRM","PRCPINIT","PRCINIT","PRCTRED"
XECUTE ^%ZOSF("TEST")
IF '$TEST
SET PRCPFLAG=1
QUIT
+24 IF PRCPFLAG
KILL X
SET X(1)="It does not look like all of the IFCAP Version "_PRCVERS_" routines have been successfully loaded. Please re-load the routines and run this program again."
DO DISPLAY^PRCPUX2(1,78,.X)
QUIT
+25 ;
+26 ; find last version loaded
+27 SET (DA,X)=0
FOR
SET DA=$ORDER(^DIC(9.4,"C","PRC",DA))
if 'DA
QUIT
SET %=$GET(^DIC(9.4,DA,"VERSION"))
IF %>X
SET PRC5PRC=DA_"^"_%
SET X=%
+28 IF X
IF X'>3.9999
KILL X
SET X(1)="YOU MUST BE RUNNING IFCAP VERSION 4.0 OR GREATER BEFORE INSTALLING VERSION "_PRCVERS_"."
DO DISPLAY^PRCPUX2(1,78,.X)
QUIT
+29 SET (DA,X)=0
FOR
SET DA=$ORDER(^DIC(9.4,"C","PRCP",DA))
if 'DA
QUIT
SET %=$GET(^DIC(9.4,DA,"VERSION"))
IF %>X
SET PRC5PRCP=DA_"^"_%
SET X=%
+30 ;
+31 WRITE !!,"================== *** IFCAP INSTALLATION INITIALIZATION *** =================="
+32 WRITE !,"The installation of IFCAP Version ",PRCVERS," has two parts to it as follows:"
+33 SET PRC5INS1=$GET(^DIC(9.4,+$GET(PRC5PRCP),22,+$ORDER(^DIC(9.4,+$GET(PRC5PRCP),22,"B",PRCVERS,0)),0))
SET Y=$PIECE(PRC5INS1,"^",3)
IF Y
DO DD^%DT
SET $PIECE(PRC5INS1,"^",3)=Y
+34 SET PRC5INS2=$GET(^DIC(9.4,+$GET(PRC5PRC),22,+$ORDER(^DIC(9.4,+$GET(PRC5PRC),22,"B",PRCVERS,0)),0))
SET Y=$PIECE(PRC5INS2,"^",3)
IF Y
DO DD^%DT
SET $PIECE(PRC5INS2,"^",3)=Y
+35 SET PRCTEXT(10,0)="PART 1: Generic Inventory Package "_$SELECT($PIECE(PRC5INS1,"^",3)'="":"previously installed "_$PIECE(PRC5INS1,"^",3),1:"NOT INSTALLED")
WRITE !," ",PRCTEXT(10,0)
+36 SET PRCTEXT(11,0)="PART 2: IFCAP Main System "_$SELECT($PIECE(PRC5INS2,"^",3)'="":"previously installed "_$PIECE(PRC5INS2,"^",3),1:"NOT INSTALLED")
WRITE !," ",PRCTEXT(11,0)
+37 ;
+38 WRITE !
SET XP="ARE YOU SURE YOU WANT TO START/CONTINUE THE INSTALLATION OF IFCAP"
SET XH="Enter 'YES' to install IFCAP, 'NO' or '^' to exit."
IF $$YN^PRCPUYN(2)'=1
QUIT
+39 ;
+40 ; clean up package file
+41 WRITE !!,"======================= *** CLEANING UP PACKAGE FILE *** ======================"
+42 ; clean out old prc entries
+43 SET PRCNAME="PR"
FOR
SET PRCNAME=$ORDER(^DIC(9.4,"C",PRCNAME))
if PRCNAME=""!($EXTRACT(PRCNAME,1,2)'="PR")
QUIT
Begin DoDot:1
+44 IF PRCNAME="PRCA"
QUIT
+45 IF $EXTRACT(PRCNAME,1,3)'="PRC"
IF $EXTRACT(PRCNAME,1,3)'="PRX"
QUIT
+46 SET DA=0
FOR
SET DA=$ORDER(^DIC(9.4,"C",PRCNAME,DA))
if 'DA
QUIT
IF DA'=+$GET(PRC5PRC)
IF DA'=+$GET(PRC5PRCP)
WRITE !?5,PRCNAME," (internal entry #",DA,") ..."
SET DIK="^DIC(9.4,"
DO ^DIK
WRITE " deleted."
End DoDot:1
+47 ; reset name if wrong
+48 IF $GET(PRC5PRC)
IF $DATA(^DIC(9.4,+PRC5PRC,0))
IF $PIECE(^(0),"^")'="IFCAP"
SET DIE="^DIC(9.4,"
SET DA=+PRC5PRC
SET DR=".01///IFCAP"
DO ^DIE
+49 ;
+50 DO CONTINUE^PRC5INS1
+51 QUIT
