XPDKRN ;SFISC/RSD - Kernel Install program ;07/02/2003 12:59
V ;;8.0;KERNEL;**304**;Jul 10, 1995
EN N X,Y
W !!,"KIDS "_$P($T(V),";",3),!
D DT^DICRW:'$D(DT),INIT:($O(^DOPT("XPD","B"),-1)'=5)
I '$G(DUZ) W !,"DUZ must be defined as an active user!!" Q
D Q:Y<0 G @X
.N DIC
.S DIC="^DOPT(""XPD"",",DIC(0)="AEQZ"
.D ^DIC Q:Y<0
.S X=$P(Y(0),U,2,99)
Q
;
INIT N DIK,I,X
K ^DOPT("XPD")
S ^DOPT("XPD",0)="KIDS OPTION^1N^",DIK="^DOPT(""XPD"","
F I=1:1 S X=$E($T(OPT+I),4,99) Q:X="" S ^DOPT("XPD",I,0)=X
D IXALL^DIK
Q
ADXREF ;New-style 'AD' xref for FILE (#9.64) subfile of the BUILD (#9.6) file.
;If DATA COMES WITH FILE is changed from YES to NO, then
;make sure these other fields are empty.
N XPDFDA,XPDIENS
S XPDIENS=DA_","_DA(1)_","
S XPDFDA(9.64,XPDIENS,222.5)="@" ; RESOLVE POINTERS
S XPDFDA(9.64,XPDIENS,222.6)="@" ; DATA LIST
S XPDFDA(9.64,XPDIENS,222.8)="@" ; SITE'S DATA
S XPDFDA(9.64,XPDIENS,222.9)="@" ; MAY USER OVERRIDE DATA UPDATE
S XPDFDA(9.64,XPDIENS,224)="@" ; SCREEN TO SELECT DATA
D FILE^DIE("","XPDFDA")
Q
OPT ;
;;LOAD A DISTRIBUTION^EN1^XPDIL
;;VERIFY CHECKSUMS IN TRANSPORT GLOBAL^EN1^XPDDCS
;;PRINT TRANSPORT GLOBAL^EN2^XPDDP
;;COMPARE TRANSPORT GLOBAL TO CURRENT SYSTEM^EN1^XPDCOM
;;BACKUP A TRANSPORT GLOBAL^EN^XPDIB
;;INSTALL PACKAGE(S)^EN^XPDI
;;RESTART INSTALL OF PACKAGE(S)^EN^XPDIR
;;UNLOAD A DISTRIBUTION^EN1^XPDIU
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDKRN 1416 printed Dec 13, 2024@02:04:22 Page 2
XPDKRN ;SFISC/RSD - Kernel Install program ;07/02/2003 12:59
V ;;8.0;KERNEL;**304**;Jul 10, 1995
EN NEW X,Y
+1 WRITE !!,"KIDS "_$PIECE($TEXT(V),";",3),!
+2 if '$DATA(DT)
DO DT^DICRW
if ($ORDER(^DOPT("XPD","B"),-1)'=5)
DO INIT
+3 IF '$GET(DUZ)
WRITE !,"DUZ must be defined as an active user!!"
QUIT
+4 Begin DoDot:1
+5 NEW DIC
+6 SET DIC="^DOPT(""XPD"","
SET DIC(0)="AEQZ"
+7 DO ^DIC
if Y<0
QUIT
+8 SET X=$PIECE(Y(0),U,2,99)
End DoDot:1
if Y<0
QUIT
GOTO @X
+9 QUIT
+10 ;
INIT NEW DIK,I,X
+1 KILL ^DOPT("XPD")
+2 SET ^DOPT("XPD",0)="KIDS OPTION^1N^"
SET DIK="^DOPT(""XPD"","
+3 FOR I=1:1
SET X=$EXTRACT($TEXT(OPT+I),4,99)
if X=""
QUIT
SET ^DOPT("XPD",I,0)=X
+4 DO IXALL^DIK
+5 QUIT
ADXREF ;New-style 'AD' xref for FILE (#9.64) subfile of the BUILD (#9.6) file.
+1 ;If DATA COMES WITH FILE is changed from YES to NO, then
+2 ;make sure these other fields are empty.
+3 NEW XPDFDA,XPDIENS
+4 SET XPDIENS=DA_","_DA(1)_","
+5 ; RESOLVE POINTERS
SET XPDFDA(9.64,XPDIENS,222.5)="@"
+6 ; DATA LIST
SET XPDFDA(9.64,XPDIENS,222.6)="@"
+7 ; SITE'S DATA
SET XPDFDA(9.64,XPDIENS,222.8)="@"
+8 ; MAY USER OVERRIDE DATA UPDATE
SET XPDFDA(9.64,XPDIENS,222.9)="@"
+9 ; SCREEN TO SELECT DATA
SET XPDFDA(9.64,XPDIENS,224)="@"
+10 DO FILE^DIE("","XPDFDA")
+11 QUIT
OPT ;
+1 ;;LOAD A DISTRIBUTION^EN1^XPDIL
+2 ;;VERIFY CHECKSUMS IN TRANSPORT GLOBAL^EN1^XPDDCS
+3 ;;PRINT TRANSPORT GLOBAL^EN2^XPDDP
+4 ;;COMPARE TRANSPORT GLOBAL TO CURRENT SYSTEM^EN1^XPDCOM
+5 ;;BACKUP A TRANSPORT GLOBAL^EN^XPDIB
+6 ;;INSTALL PACKAGE(S)^EN^XPDI
+7 ;;RESTART INSTALL OF PACKAGE(S)^EN^XPDIR
+8 ;;UNLOAD A DISTRIBUTION^EN1^XPDIU
