- KLASPRE ;;DEC 18,1990@13:54:58 ;[ 01/27/92 8:42 AM ]
- ;;1.0
- DOC W !,"The CLASSMAN software no longer uses its own device file."
- W !,"It uses the Kernel/Fileman Device file in the following manner:",!
- 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"".",!
- 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."
- W !!
- I '$D(^DIC(1200)) W !,"No previous files -- Preinit Completed",! Q
- S DIU=1200,DIU(0)="DET" W !!,"Deleting the Classman Classes file.",! D EN^DIU2 ; KILL OLD CLASSES FILE
- 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
- 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
- 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
- K DIU
- D ^KLASPREI
- W !,"Preinit Completed",!
- Q
- KLASPRE ;;DEC 18,1990@13:54:58 ;[ 01/27/92 8:42 AM ]
- +1 ;;1.0
- DOC WRITE !,"The CLASSMAN software no longer uses its own device file."
- +1 WRITE !,"It uses the Kernel/Fileman Device file in the following manner:",!
- +2 WRITE !,?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"".",!
- +3 WRITE !!,?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."
- +4 WRITE !!
- +5 IF '$DATA(^DIC(1200))
- WRITE !,"No previous files -- Preinit Completed",!
- QUIT
- +6 ; KILL OLD CLASSES FILE
- SET DIU=1200
- SET DIU(0)="DET"
- WRITE !!,"Deleting the Classman Classes file.",!
- DO EN^DIU2
- +7 ; DELETE OLD CLASSMAN DEVICES FILE
- WRITE !,?5,"Deleting the old Classman Device file. No longer used.",!
- IF $DATA(^DDIC(1200.2))
- SET DIU=1200.2
- SET DIU(0)="DET"
- DO EN^DIU2
- +8 WRITE !,?5,"Deleting the old 1200.3 file. No longer used.",!
- IF $DATA(^DIC(1200.3))
- SET DIU=1200.3
- SET DIU(0)="DET"
- DO EN^DIU2
- +9 ; DELETE OLD CLASSMAN TRANSFERS FILE
- WRITE !,?5,"Deleting the old 1200.5 file. No longer used.",!
- IF $DATA(^DIC(1200.5))
- SET DIU=1200.5
- SET DIU(0)="DET"
- DO EN^DIU2
- +10 KILL DIU
- +11 DO ^KLASPREI
- +12 WRITE !,"Preinit Completed",!
- +13 QUIT