GMP1ONIT.m

GMP1ONIT ; ; 01-SEP-1995

 ;;2.0;Problem List;**3**;AUG 25, 1994

 ;

 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 'GMP1ONIT' was created on 01-SEP-1995"

 W !?9,"(at DEMONSTRATION, by OE/RR V.2.5)",!

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

 D ^GMP1ONI2,^GMP1ONI3

 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 ;;GMP1