Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMP1ONIT

GMP1ONIT.m

Go to the documentation of this file.
  1. GMP1ONIT ; ; 01-SEP-1995
  1.  ;;2.0;Problem List;**3**;AUG 25, 1994
  1.  ;
  1.  K DIF,DIK,DDF,DDT,DTO,D0,DLAYGO,DIC,DIR,DA,ORVROM,DFR,DTN,DIX,DZ
  1.  S DIFQ=0,ORVROM=22 W !!,"This version of 'GMP1ONIT' was created on 01-SEP-1995"
  1.  W !?9,"(at DEMONSTRATION, by OE/RR V.2.5)",!
  1.  G Q:DIFQ D ^GMP1ONI1 G Q:'$D(DIFQ) S DIK(0)="B"
  1.  D ^GMP1ONI2,^GMP1ONI3
  1.  L  W !,*7,"OK, Protocol Installation is Complete.",!
  1.  K %ZW,%,%H,D0,DA,DIF,DIFQ,DIG,DIH,DIK,DIU,DIV,DSEC,I,J,KEY,DIY,N,NM,NO,ORVROM,R,X,X0
  1.  Q
  1.  ;
  1. Q W *7,!!,"NO UPDATING HAS OCCURRED!" Q
  1.  ;
  1. IXF ;;GMP1