Routine: KLASHOW

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIC ^DIE
Kernel	1	^%ZIS

Package	Total	Caller Graph
ClassMan	2	KLASSLIDE ^KLAS(1200.1

Entry Points

External References

Name	Field # of Occurrence
^%DT	KLASHOW+2
^%ZIS	KLASHOW+2, KLASHOW+4
^DIC	KLASHOW+3, KLASHOW+9, A
^DIE	KLASHOW+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Sorry, you must have a subtype !",! Line Location: KLASHOW+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: B1+1
Function Call: WRITE	Prompt: *13 Line Location: NEXT+1
Function Call: READ	Timeout: DTIME Variable: A Line Location: LINE1+0
Function Call: WRITE	Prompt: *7 Line Location: LINE1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: LINE+1
Function Call: WRITE	Prompt: ! Line Location: LINE+1
Function Call: WRITE	Prompt: ?40 Line Location: LINE+1
Function Call: WRITE	Prompt: !,"********MOVING BACKWARD********",! Condition for execution: "-"[X Line Location: LINE+1
Function Call: WRITE	Prompt: *13 Line Location: LINE+1
Function Call: WRITE	Prompt: !," ",! Line Location: LINE+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: JJJ+0
Function Call: WRITE	Prompt: ?40 Line Location: JJJ+0
Function Call: WRITE	Prompt: !,"********MOVING BACKWARD********",! Condition for execution: "-Bb"[X Line Location: JJJ+0
Function Call: WRITE	Prompt: *13 Line Location: JJJ+0
Function Call: WRITE	Prompt: "" Line Location: LP+1
Function Call: WRITE	Prompt: @$S(TV:"@VR",1:"@VN") Line Location: FIX+0
Function Call: WRITE	Prompt: X Line Location: FIX+1
Function Call: READ	Timeout: ",X:DTIME Variable: "to Line Location: JMP+0
Function Call: WRITE	Prompt: !,*13 Line Location: JMP+0
Function Call: WRITE	Prompt: *7 Line Location: JMP+2
Function Call: WRITE	Prompt: !,?10,I Line Location: SEL+0
Function Call: WRITE	Prompt: ?15,$P(@(DIC_SEQ(I)_",0)"),U,1) Line Location: SEL+0
Function Call: WRITE	Prompt: " *" Condition for execution: I=FR Line Location: SEL+0
Function Call: WRITE	Prompt: @FF Line Location: END+0
Function Call: WRITE	Prompt: "T H E E N D" Line Location: END+0
Function Call: WRITE	Prompt: "T H E E N D" Line Location: END+0
Function Call: WRITE	Prompt: !!,"ERROR" Line Location: ERROR+0
Function Call: WRITE	Prompt: !!,"OPTIONS FOR THIS COMMAND",!! Line Location: HELP+0
Function Call: WRITE	Prompt: "TO ADVANCE TO NEXT SLIDE: <RET> ",!! Line Location: HELP+1
Function Call: WRITE	Prompt: "TO MOVE BACKWARD ONE SLIDE: <->, <B>, -OR- <b>",!! Line Location: HELP+2
Function Call: WRITE	Prompt: "TO REPEAT CURRENT SLIDE: <R>, -OR- <r>",!! Line Location: HELP+3
Function Call: WRITE	Prompt: "TO JUMP TO ANOTHER SLIDE: <J>, -OR- <j>",!! Line Location: HELP+4
Function Call: WRITE	Prompt: "TO QUIT: <^>, <Q>, -OR- <q>",!! Line Location: HELP+5
Function Call: WRITE	Prompt: ?79 Line Location: HELP+6
Function Call: WRITE	Prompt: !,"<->, <B> or <b> Backs Up 48 Lines",!,"<Q>, <q> or <^> Goes to end of slide",! Line Location: HELP1+0
Function Call: WRITE	Prompt: !," (^), <Q>, or <q> -- WILL STOP LINE-BY-LINE MODE",!! Line Location: HELP2+0
Function Call: WRITE	Prompt: @FF Line Location: FIX1+0
Function Call: WRITE	Prompt: ! Line Location: FIX1+1
Routine Call	DIE Line Location: KLASHOW+10
Routine Call	DIC Line Location: KLASHOW+3 KLASHOW+9 A
Routine Call	%ZIS Line Location: KLASHOW+2 KLASHOW+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^%ZIS(2 - [#3.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	KLASHOW+5
^%ZOSF("EOFF"	B
^%ZOSF("EON"	JMP, END
^%ZOSF("RM"	KLASHOW+2, KLASHOW+4, STOP

Label References

Name	Line Occurrences
A	LINE1, JMP+1, FWD, BACK
B1	B, B1+1
BACK	LINE1
END	LINE1, JMP, FWD
ERROR	A
FIX	LP+1
FIX1	B
FWD	LINE1
HELP	LINE1
HELP1	LINE+1, JJJ
HELP2	B1+1
JJJ	JJJ
JMP	LINE1, SEL+1
LINE	B, LINE+1
LINE1	LINE1
LP	LINE+1, LINE+2
NEXT	B+1, LINE1, BACK
SEL	KLASHOW+17, JMP+2
STOP	KLASHOW+9
TX	X+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	KLASHOW+2*!
A	LINE1*, STOP!
BUILD	A+4, B, B1+1, STOP!
DA	KLASHOW+10*, KLASHOW+11, STOP!, TX+1
DIC	KLASHOW+3, KLASHOW+4!, KLASHOW+9, KLASHOW+10, KLASHOW+12!, KLASHOW+16*, A+6, SEL, STOP!
DIC("A"	KLASHOW+9*
DIC("B"	KLASHOW+3*
DIC("S"	KLASHOW+3*
DIC(0	KLASHOW+3, KLASHOW+9, A*
DIE	KLASHOW+10*, STOP!
DR	KLASHOW+10*, STOP!
DT	KLASHOW+2*
DTIME	B1+1, LINE1, LINE+1, JJJ, JMP
DX	NEXT+1, JMP, END*, STOP!
FF	KLASHOW+4*, B, END, STOP!
FR	KLASHOW+16, KLASHOW+18, A+2, LINE1, JMP, JMP+1, SEL, FWD, BACK, STOP!
I	KLASHOW+14, B, SEL*, STOP!
I1	B, LINE+1, JJJ*, STOP!
INQ	STOP!
IO(0	B
IOF	KLASHOW+4
IOM	STOP
IOP	KLASHOW+2, KLASHOW+4, STOP!
IOST	KLASHOW+3
IOST("0"	KLASHOW+5
J	STOP!
K	LP+1*, STOP!
KLC	X*, X+1, X+2!
KLI	STOP!, X+1*
KLN	STOP!, X+1*, X+2!, TX, TX+1
KLP	STOP!, X*, X+2!
KLSLCF	A+2*, STOP!
KLSLDIC	KLASHOW+7, KLASHOW+9, KLASHOW+11, KLASHOW+16, A+6*, B, STOP!
KLSLIN	A+2*, STOP!
KLSLLI	B*, LP+1, STOP!
KLSLNF	KLASHOW+16, A+2, FWD, STOP!
KLSLPF	A+2*, BACK, STOP!
KLSLTY	A+2, A+3, A+4, LINE+1, FIX+2, STOP!
LFR	KLASHOW+14*, JMP+1, SEL, STOP!
NIEN	KLASHOW+11*, STOP!
SEQ	KLASHOW+11*, KLASHOW+14, STOP!
SEQ(	KLASHOW+14*, A+2, LINE1, JMP+1, SEL
SEQ(1	KLASHOW+16
TV	KLASHOW+16, FIX, STOP!
U	KLASHOW+2*, A+2, SEL
VN	KLASHOW+5, KLASHOW+6, STOP!
VR	KLASHOW+5, KLASHOW+6, STOP!
VT	STOP!
X	KLASHOW+2!, KLASHOW+4, KLASHOW+12!, KLASHOW+16, B1+1, LINE1, LINE+1, JJJ, LP+1, FIX , FIX+1, JMP, JMP+1, JMP+2, FWD, BACK, STOP!, X, X+1, TX , TX+1*
Y	KLASHOW+2!, KLASHOW+3, KLASHOW+9, KLASHOW+10, KLASHOW+12!, A, A+6, STOP!
Y(0	KLASHOW+4, A+2

Customize PDF page

Package: ClassMan

Routine: KLASHOW

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
HELP
FWD
STOP
BACK
LINE	; line subroutine
TX
JMP
FIX1	;W "SLIDE NAME: ",$P(Y,U,2),?50,"NUMBER: ",FR,! H 2 W @FF Q ; OLD LINE
NEXT	; --- find out what is next ---
LP	; PRINT LINE
SEL
JJJ
A
B
END
FIX
ERROR
X
LINE1
HELP2
B1	;R X:600 S X=$A(X) Q:X=94 D:X=63 HELP2 G:X=63 B1 S:(X=88)!(X=120) BUILD=0 Q
HELP1
TEST	; TEST VALIDITY OF SEQUENCE