KLASMAN0 ; GRLISC/PDW CALLED ROUTINE FOR CLASSMAN ;12/19/90 [ 07/27/93 2:56 PM ]
;;1.0
CTRL ; INTERPRET SPECIAL INSTRUCTIONS
S JMP="" S:'$D(EON) EON=^%ZOSF("EON") S:'$D(EOFF) EOFF=^%ZOSF("EOFF")
U IO(0) X ^%ZOSF("UCI") W !,Y,!,">>COMMAND MODE<<-------",!," |CTRL-",$C(64+CTRL),"| " R *Z:20 W:Z>-1 "| ",$C(Z)," |" X EOFF I Z=-1
I Z=94 S JMP="EXIT" Q ;"^"
I Z=63 W !,"REVIEW",! D REVIEW Q ;"?"
;I Z=46 S KXON=KXON+1#2 W:KXON !,"XON ",! W:'KXON !,"XOFF",! W ">>>ON LINE MODE<<<-------",! U IO W *17 U IO(0) Q
I Z=35 X TERMNORM R !,"Enter the new command character ? ",*X:30 Q:X="" S X=X#32 S CTRL=X W !,"COMMAND CHARACTER IS NOW >>CTRL-",$C(64+CTRL),"<<",!,">>ON LINE MODE<<-------",! S CC=$C(CTRL) Q ;"#"
I Z=38 X TERMNORM D PICKUP Q ;"&"
I Z=124 D ^KLASKERM Q ;kermit handling "|"
I Z=96 D XRAY^KLASDIA Q ;"`"
I Z=43 D DIRECT^KLASMAN1 Q ;"+"
I Z=37 W !! X TERMNORM,^%ZOSF("SS") H 2 W !,">>>ON LINE MODE<<<-------",! Q ;"%"
;I Z=33 X "NEW (EON,EOFF)" X EON D ^%RJD X EOFF W !,">>>ON LINE MODE<<<------" Q ;"!"
I Z=64 D PURGE S ^KLAS(1200,JOB,"P3")="PURGE" W !,"PURGE MESSAGE SENT",! H 2 K ^("P3") W !,">>>ON LINE MODE<<<-------",! Q ;"@"
I Z=61 W !,"PORT",! X TERMNORM D PORT Q ;"="
I Z=48 S Z0=0 W !,"BROADCAST TURNED OFF",!,"------->>ON-LINE MODE<<",! Q ;"0"
I Z=49 S Z0=1 W !,"BROADCAST TURNED ON",!,"------->>ON-LINE MODE<<",! Q ;"1"
I Z=42 X TERMNORM W !,"COMNEW",! D COMNEW Q ;"*"
I Z=36 X TERMNORM D ^KLASMAN2 Q ;"$"
I (Z<64)!(Z>122) W ?10," NO ACTION",!,"------->>ON-LINE MODE<<",! Q
W " ^",$C(Z),!,"------->>ON-LINE MODE<<",! S Z=Z#32
I Z=3 U IO W $C(3),*13 S Z="" Q
S Z=$C(Z) U IO W Z S Z="" Q
;---------------------------------------------------------------------------
PORT D PORT^KLASMAN3 Q ;"$"
;
REVIEW D DOC^KLASMAN3 S JMP="" Q
COMNEW ;CHANGE COMMAND OF THE PROGRAM WITH ONE OF THE STUDENTS
S DIC="^KLAS(1200,JOB,""M"",",DIC(0)="EQ",X="??"
S DIC("W")="S YY=Y,XX=""F ZZ=4:1:6 S ZZ(ZZ)=$P(^(0),U,ZZ)"" X XX S Y=ZZ(4) X ^DD(""DD"") W "" "",Y,"" PORT: "",ZZ(5),"" JOB/PID: "",ZZ(6) S Y=YY K YY,ZZ,XX"
D ^DIC S DIC(0)="AEQ" D ^DIC I +Y<0 W !,"------->>ON-LINE MODE<<",! X ^%ZOSF("EOFF") Q
S COM=1,STU=+Y,STUDIR=0,TL1=TL,DIE=DIC,DA(1)=JOB,DA=+Y,DR="2///"_"GRAB"_";2///@" D ^DIE K DIE,DIC,DR,DA
S ^KLAS(1200,JOB,"R1")=0 W !,"YOU MAY REGAIN COMMAND WITH <CR>",!,"------->>ON-LINE MODE<<",! X ^%ZOSF("EOFF") Q
COMOLD ; RETURN COMMAND TO INSTRUCTOR
S DIE="^KLAS(1200,"_JOB_",""M"",",COM=0,(WCOUNT,RCOUNT)=0,DA(1)=JOB,DA=STU,DR="2///"_"RELEASE"_";2///@" D ^DIE K ^KLAS(1200,JOB,"R") S STUDIR=0
Q
PURGE ;
S DIE="^KLAS(1200,"_JOB_",""M"",",DR=".01///@" F CC=1:1 S DA=$O(^KLAS(1200,JOB,"M",0)),DA(1)=JOB Q:DA="" D ^DIE
K DA,DIE,DR,CC Q
EXIT S %=1 U IO(0) W !,"DID YOU PROPERLY EXIT FROM THE APPLICATION ?" D YN^DICN G:%="^" EXIT I %=2 U IO(0) W ! S J="" G CON^KLASMAN
EXIT1 D:SCREEN CLOSE^KLASMAN2
I IO'=KPORT W !,"YOU MUST FIRST RETURN TO YOUR ORIGINAL PORT ",KNAM,! Q
CLEAN I $D(CLNUM) S DIE="^KLAS(1200.4,",DA=CLNUM,DR="3///NOW" D ^DIE
CLEANP S ^KLAS(1200,JOB,"P3")=0 W !,"CLEARING APPLICATION AND USERS",! X "F X=1:1:5 H 1 W "".""" S DA=JOB,DIK="^KLAS(1200," D ^DIK K DIK
EXIT3 X ^%ZIS("C") K K,X1,T1,T2,P1,Z0,P2,X2,L,Z,X3,J,L3,L1,L2,X,BCS,BT,CR,GLOB,J,I,POP,SCREEN,SLCOUNT,SLINE,TB,TN,Y,IOTEMP,CLNUM,INSTRUCT,CLASS,SCOUNT,WCOUNT,LIMIT,SESSION,KNAM,KPORT,KNUM,%,RCOUNT,COM,DIC,DIE,DR,IOP,STU,FRNAME,ZB
K %X,%Y,B,C,CTRL,END,EOFF,EON,FR,JOB,KLW,KXON,M,N1,N2,NFR,NULL,OPEX,START,SLDIC,STUDIR,TCK,TCP,TK,TL,TL1,TMC,TP,TT,TYP,ZE,TERMNORM,TERMKLAS
U 0 S X=IOM X ^%ZOSF("RM"),^%ZOSF("TRMOFF"),^%ZOSF("EON")
U 0:(0:::::#800001)
Q
;
PICKUP ; PICKUP CONTROL OF ANOTHER CLASS
X ^%ZOSF("EON") S DIC="^KLAS(1200,",DIC(0)="AEQMZ",DIC("S")="I JOB'=+Y" D ^DIC G:Y'>0 EPICK
YN1 W !,"Are You sure you want to become >>> ",Y(0,0),"<<<",!,"and the other job has been killed? Y/N "
S %=1 D YN^DICN G EPICK:%=-1!(%=2) I %=0 W !,"MAKE UP YOUR MIND",! G YN1
S NJOB=+Y
S ^KLAS(1200,JOB,"P3")=0 W !,"CLEARING MOST RECENT START UP AND ANY USERS",! X "F X=1:1:5 H 1 W "".""" S DA=JOB,DIK="^KLAS(1200," D ^DIK K DIK
S JOB=NJOB,SCOUNT=^KLAS(1200,JOB,"P1") K DIC,NJOB
EPICK W !,"----->ON LINE MODE<",! X ^%ZOSF("EOFF") K DIC,Y Q
CON G CON^KLASMAN
KLASMAN0 ; GRLISC/PDW CALLED ROUTINE FOR CLASSMAN ;12/19/90 [ 07/27/93 2:56 PM ]
+1 ;;1.0
CTRL ; INTERPRET SPECIAL INSTRUCTIONS
+1 SET JMP=""
IF '$DATA(EON)
SET EON=^%ZOSF("EON")
IF '$DATA(EOFF)
SET EOFF=^%ZOSF("EOFF")
+2 USE IO(0)
XECUTE ^%ZOSF("UCI")
WRITE !,Y,!,">>COMMAND MODE<<-------",!," |CTRL-",$CHAR(64+CTRL),"| "
READ *Z:20
IF Z>-1
WRITE "| ",$CHAR(Z)," |"
XECUTE EOFF
IF Z=-1
+3 ;"^"
IF Z=94
SET JMP="EXIT"
QUIT
+4 ;"?"
IF Z=63
WRITE !,"REVIEW",!
DO REVIEW
QUIT
+5 ;I Z=46 S KXON=KXON+1#2 W:KXON !,"XON ",! W:'KXON !,"XOFF",! W ">>>ON LINE MODE<<<-------",! U IO W *17 U IO(0) Q
+6 ;"#"
IF Z=35
XECUTE TERMNORM
READ !,"Enter the new command character ? ",*X:30
IF X=""
QUIT
SET X=X#32
SET CTRL=X
WRITE !,"COMMAND CHARACTER IS NOW >>CTRL-",$CHAR(64+CTRL),"<<",!,">>ON LINE MODE<<-------",!
SET CC=$CHAR(CTRL)
QUIT
+7 ;"&"
IF Z=38
XECUTE TERMNORM
DO PICKUP
QUIT
+8 ;kermit handling "|"
IF Z=124
DO ^KLASKERM
QUIT
+9 ;"`"
IF Z=96
DO XRAY^KLASDIA
QUIT
+10 ;"+"
IF Z=43
DO DIRECT^KLASMAN1
QUIT
+11 ;"%"
IF Z=37
WRITE !!
XECUTE TERMNORM
XECUTE ^%ZOSF("SS")
HANG 2
WRITE !,">>>ON LINE MODE<<<-------",!
QUIT
+12 ;I Z=33 X "NEW (EON,EOFF)" X EON D ^%RJD X EOFF W !,">>>ON LINE MODE<<<------" Q ;"!"
+13 ;"@"
IF Z=64
DO PURGE
SET ^KLAS(1200,JOB,"P3")="PURGE"
WRITE !,"PURGE MESSAGE SENT",!
HANG 2
KILL ^("P3")
WRITE !,">>>ON LINE MODE<<<-------",!
QUIT
+14 ;"="
IF Z=61
WRITE !,"PORT",!
XECUTE TERMNORM
DO PORT
QUIT
+15 ;"0"
IF Z=48
SET Z0=0
WRITE !,"BROADCAST TURNED OFF",!,"------->>ON-LINE MODE<<",!
QUIT
+16 ;"1"
IF Z=49
SET Z0=1
WRITE !,"BROADCAST TURNED ON",!,"------->>ON-LINE MODE<<",!
QUIT
+17 ;"*"
IF Z=42
XECUTE TERMNORM
WRITE !,"COMNEW",!
DO COMNEW
QUIT
+18 ;"$"
IF Z=36
XECUTE TERMNORM
DO ^KLASMAN2
QUIT
+19 IF (Z<64)!(Z>122)
WRITE ?10," NO ACTION",!,"------->>ON-LINE MODE<<",!
QUIT
+20 WRITE " ^",$CHAR(Z),!,"------->>ON-LINE MODE<<",!
SET Z=Z#32
+21 IF Z=3
USE IO
WRITE $CHAR(3),*13
SET Z=""
QUIT
+22 SET Z=$CHAR(Z)
USE IO
WRITE Z
SET Z=""
QUIT
+23 ;---------------------------------------------------------------------------
PORT ;"$"
DO PORT^KLASMAN3
QUIT
+1 ;
REVIEW DO DOC^KLASMAN3
SET JMP=""
QUIT
COMNEW ;CHANGE COMMAND OF THE PROGRAM WITH ONE OF THE STUDENTS
+1 SET DIC="^KLAS(1200,JOB,""M"","
SET DIC(0)="EQ"
SET X="??"
+2 SET DIC("W")="S YY=Y,XX=""F ZZ=4:1:6 S ZZ(ZZ)=$P(^(0),U,ZZ)"" X XX S Y=ZZ(4) X ^DD(""DD"") W "" "",Y,"" PORT: "",ZZ(5),"" JOB/PID: "",ZZ(6) S Y=YY K YY,ZZ,XX"
+3 DO ^DIC
SET DIC(0)="AEQ"
DO ^DIC
IF +Y<0
WRITE !,"------->>ON-LINE MODE<<",!
XECUTE ^%ZOSF("EOFF")
QUIT
+4 SET COM=1
SET STU=+Y
SET STUDIR=0
SET TL1=TL
SET DIE=DIC
SET DA(1)=JOB
SET DA=+Y
SET DR="2///"_"GRAB"_";2///@"
DO ^DIE
KILL DIE,DIC,DR,DA
+5 SET ^KLAS(1200,JOB,"R1")=0
WRITE !,"YOU MAY REGAIN COMMAND WITH <CR>",!,"------->>ON-LINE MODE<<",!
XECUTE ^%ZOSF("EOFF")
QUIT
COMOLD ; RETURN COMMAND TO INSTRUCTOR
+1 SET DIE="^KLAS(1200,"_JOB_",""M"","
SET COM=0
SET (WCOUNT,RCOUNT)=0
SET DA(1)=JOB
SET DA=STU
SET DR="2///"_"RELEASE"_";2///@"
DO ^DIE
KILL ^KLAS(1200,JOB,"R")
SET STUDIR=0
+2 QUIT
PURGE ;
+1 SET DIE="^KLAS(1200,"_JOB_",""M"","
SET DR=".01///@"
FOR CC=1:1
SET DA=$ORDER(^KLAS(1200,JOB,"M",0))
SET DA(1)=JOB
IF DA=""
QUIT
DO ^DIE
+2 KILL DA,DIE,DR,CC
QUIT
EXIT SET %=1
USE IO(0)
WRITE !,"DID YOU PROPERLY EXIT FROM THE APPLICATION ?"
DO YN^DICN
IF %="^"
GOTO EXIT
IF %=2
USE IO(0)
WRITE !
SET J=""
GOTO CON^KLASMAN
EXIT1 IF SCREEN
DO CLOSE^KLASMAN2
+1 IF IO'=KPORT
WRITE !,"YOU MUST FIRST RETURN TO YOUR ORIGINAL PORT ",KNAM,!
QUIT
CLEAN IF $DATA(CLNUM)
SET DIE="^KLAS(1200.4,"
SET DA=CLNUM
SET DR="3///NOW"
DO ^DIE
CLEANP SET ^KLAS(1200,JOB,"P3")=0
WRITE !,"CLEARING APPLICATION AND USERS",!
XECUTE "F X=1:1:5 H 1 W ""."""
SET DA=JOB
SET DIK="^KLAS(1200,"
DO ^DIK
KILL DIK
EXIT3 XECUTE ^%ZIS("C")
KILL K,X1,T1,T2,P1,Z0,P2,X2,L,Z,X3,J,L3,L1,L2,X,BCS,BT,CR,GLOB,J,I,POP,SCREEN,SLCOUNT,SLINE,TB,TN,Y,IOTEMP,CLNUM,INSTRUCT,CLASS,SCOUNT,WCOUNT,LIMIT,SESSION,KNAM,KPORT,KNUM,%,RCOUNT,COM,DIC,DIE,DR,IOP,STU,FRNAME,ZB
+1 KILL %X,%Y,B,C,CTRL,END,EOFF,EON,FR,JOB,KLW,KXON,M,N1,N2,NFR,NULL,OPEX,START,SLDIC,STUDIR,TCK,TCP,TK,TL,TL1,TMC,TP,TT,TYP,ZE,TERMNORM,TERMKLAS
+2 USE 0
SET X=IOM
XECUTE ^%ZOSF("RM")
XECUTE ^%ZOSF("TRMOFF")
XECUTE ^%ZOSF("EON")
+3 USE 0:(0:::::#800001)
+4 QUIT
+5 ;
PICKUP ; PICKUP CONTROL OF ANOTHER CLASS
+1 XECUTE ^%ZOSF("EON")
SET DIC="^KLAS(1200,"
SET DIC(0)="AEQMZ"
SET DIC("S")="I JOB'=+Y"
DO ^DIC
IF Y'>0
GOTO EPICK
YN1 WRITE !,"Are You sure you want to become >>> ",Y(0,0),"<<<",!,"and the other job has been killed? Y/N "
+1 SET %=1
DO YN^DICN
IF %=-1!(%=2)
GOTO EPICK
IF %=0
WRITE !,"MAKE UP YOUR MIND",!
GOTO YN1
+2 SET NJOB=+Y
+3 SET ^KLAS(1200,JOB,"P3")=0
WRITE !,"CLEARING MOST RECENT START UP AND ANY USERS",!
XECUTE "F X=1:1:5 H 1 W ""."""
SET DA=JOB
SET DIK="^KLAS(1200,"
DO ^DIK
KILL DIK
+4 SET JOB=NJOB
SET SCOUNT=^KLAS(1200,JOB,"P1")
KILL DIC,NJOB
EPICK WRITE !,"----->ON LINE MODE<",!
XECUTE ^%ZOSF("EOFF")
KILL DIC,Y
QUIT
CON GOTO CON^KLASMAN
