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

KLASPRE.m

Go to the documentation of this file.
  1. KLASPRE ;;DEC 18,1990@13:54:58 ;[ 01/27/92 8:42 AM ]
  1. ;;1.0
  1. DOC W !,"The CLASSMAN software no longer uses its own device file."
  1. W !,"It uses the Kernel/Fileman Device file in the following manner:",!
  1. W !,?5,"1. Loopbacks: Ports that are to be used as Loopbacks are to be named as",!,"CLASS1, CLASS2, ect. and be given the same HUNT GROUP ""KLASMAN"".",!
  1. W !!,?5,"2. Communication Ports: Port lines communicating to IDCU, VADATS, modems,",!,"other CPUs, ect. may be given any name desired but must have a mneumonic",!,"name of ""KLASDEV"" entered to be available to the Classman software."
  1. W !!
  1. I '$D(^DIC(1200)) W !,"No previous files -- Preinit Completed",! Q
  1. S DIU=1200,DIU(0)="DET" W !!,"Deleting the Classman Classes file.",! D EN^DIU2 ; KILL OLD CLASSES FILE
  1. W !,?5,"Deleting the old Classman Device file. No longer used.",! I $D(^DDIC(1200.2)) S DIU=1200.2,DIU(0)="DET" D EN^DIU2 ; DELETE OLD CLASSMAN DEVICES FILE
  1. W !,?5,"Deleting the old 1200.3 file. No longer used.",! I $D(^DIC(1200.3)) S DIU=1200.3,DIU(0)="DET" D EN^DIU2
  1. W !,?5,"Deleting the old 1200.5 file. No longer used.",! I $D(^DIC(1200.5)) S DIU=1200.5,DIU(0)="DET" D EN^DIU2 ; DELETE OLD CLASSMAN TRANSFERS FILE
  1. K DIU
  1. D ^KLASPREI
  1. W !,"Preinit Completed",!
  1. Q