BCHONIT1.m

BCHONIT1 ; IHS/TUCSON/LAB - NO DESCRIPTION PROVIDED ;  [ 10/28/96  2:05 PM ]

 ;;1.0;IHS RPMS CHR SYSTEM;;OCT 28, 1996

 ; LOADS

 ;

 I $S('$D(DUZ)#2:1,'$D(DUZ(0))#2:1,1:0) W !,"DUZ and DUZ(0) must be defined to continue." K DIFQ Q

 K DIF,DIK,D,DDF,DDT,DTO,D0,DLAYGO,DIC,DIR,DA,DFR,DTN,DIX,DZ D DT^BCHONIT2 S %=1,U="^",DSEC=1

 S NO=$P("I 0^I $D(@X)#2,X[U",U,%) I %<1 K DIFQ Q

 W !,"    PROTOCOL INSTALLATION"

 Q:'$D(DIFQ)  ;S %=0 W !!,"ARE YOU SURE YOU WANT TO CONTINUE" D YN^DICN I %-1 K DIFQ Q

 D DT^BCHONIT2 K ^UTILITY(U,$J),^UTILITY("DIK",$J) W !,"...OK, this may take a while, hold on please..." F R=1001:1:1010 D @("^BCHON"_$E(R,2,4)) W "."

BCHONIT1  ; IHS/TUCSON/LAB - NO DESCRIPTION PROVIDED ;  [ 10/28/96  2:05 PM ]

 +1       ;;1.0;IHS RPMS CHR SYSTEM;;OCT 28, 1996

 +2       ; LOADS

 +3       ;

 +4        IF $SELECT('$DATA(DUZ)#2:1,'$DATA(DUZ(0))#2:1,1:0)

               WRITE !,"DUZ and DUZ(0) must be defined to continue."

               KILL DIFQ

               QUIT 

 +5        KILL DIF,DIK,D,DDF,DDT,DTO,D0,DLAYGO,DIC,DIR,DA,DFR,DTN,DIX,DZ

           DO DT^BCHONIT2

           SET %=1

           SET U="^"

           SET DSEC=1

 +6        SET NO=$PIECE("I 0^I $D(@X)#2,X[U",U,%)

           IF %<1

               KILL DIFQ

               QUIT 

 +7        WRITE !,"    PROTOCOL INSTALLATION"

 +8       ;S %=0 W !!,"ARE YOU SURE YOU WANT TO CONTINUE" D YN^DICN I %-1 K DIFQ Q

           IF '$DATA(DIFQ)

               QUIT 

 +9        DO DT^BCHONIT2

           KILL ^UTILITY(U,$JOB),^UTILITY("DIK",$JOB)

           WRITE !,"...OK, this may take a while, hold on please..."

           FOR R=1001:1:1010

               DO @("^BCHON"_$EXTRACT(R,2,4))

               WRITE "."