BCHONIT.m

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

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

 ;

 K DIF,DIK,DDF,DDT,DTO,D0,DLAYGO,DIC,DIR,DA,ORVROM,DFR,DTN,DIX,DZ

 S DIFQ=0,ORVROM=22 W !!,"This version of 'BCHONIT' was created on 28-OCT-1996"

 W !?9,"(at TUCSON DEVELOPMENT 486 SCO-BOX, by OE/RR V.2.5)",!

 G Q:DIFQ D ^BCHONIT1 G Q:'$D(DIFQ) S DIK(0)="B"

 D ^BCHONIT2,^BCHONIT3

 L  W !,*7,"OK, Protocol Installation is Complete.",!

 K %ZW,%,%H,D0,DA,DIF,DIFQ,DIG,DIH,DIK,DIU,DIV,DSEC,I,J,KEY,DIY,N,NM,NO,ORVROM,R,X,X0

 Q

 ;

Q W *7,!!,"NO UPDATING HAS OCCURRED!" Q

 ;

IXF ;;BCH

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

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

 +2       ;

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

 +4        SET DIFQ=0

           SET ORVROM=22

           WRITE !!,"This version of 'BCHONIT' was created on 28-OCT-1996"

 +5        WRITE !?9,"(at TUCSON DEVELOPMENT 486 SCO-BOX, by OE/RR V.2.5)",!

 +6        IF DIFQ

               GOTO Q

           DO ^BCHONIT1

           IF '$DATA(DIFQ)

               GOTO Q

           SET DIK(0)="B"

 +7        DO ^BCHONIT2

           DO ^BCHONIT3

 +8        LOCK 

           WRITE !,*7,"OK, Protocol Installation is Complete.",!

 +9        KILL %ZW,%,%H,D0,DA,DIF,DIFQ,DIG,DIH,DIK,DIU,DIV,DSEC,I,J,KEY,DIY,N,NM,NO,ORVROM,R,X,X0

 +10       QUIT 

 +11      ;

Q          WRITE *7,!!,"NO UPDATING HAS OCCURRED!"

           QUIT 

 +1       ;

IXF       ;;BCH