XPDKRN.m

XPDKRN ;SFISC/RSD - Kernel Install program ;07/02/2003  12:59 [ 03/19/2004  12:04 PM ]

V ;;8.0;KERNEL;**304,1009**;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

XPDKRN    ;SFISC/RSD - Kernel Install program ;07/02/2003  12:59 [ 03/19/2004  12:04 PM ]

V         ;;8.0;KERNEL;**304,1009**;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