Routine: DENTDNJ2

Information

DENTDNJ2 ;WASH ISC/TJK,JA,NCA-FUNCTION FOR DISPLAY ONLY ;9/25/92 09:59

Name	Comments	DBIA/ICR reference
FUNC	;FUNCTION COMMANDS
LST
LS1
MOD
PREV
Q
OUT
KILL
SAVE
REST
NXT
COMPUTE
COMPUTE1
SET
RESET
B
D
Z	; input reader-invoked by R^DENTDNJ
N
HELP
M	;W V(V) W:$D(DJDB) DJDB ; ;8/31/92 14:18

Name	Line Occurrences
Function Call: WRITE	Prompt: DJHIN Line Location: FUNC+1
Function Call: WRITE	Prompt: "FUNCTIONS",DJLIN Line Location: FUNC+1
Function Call: WRITE	Prompt: !!," ^ -- Quit" Line Location: FUNC+2
Function Call: WRITE	Prompt: !," N -- New record" Line Location: FUNC+4
Function Call: READ	Variable: X Timeout: DTIME Line Location: LST+0
Function Call: WRITE	Prompt: DJDB Line Location: COMPUTE1+0
Function Call: WRITE	Prompt: DJHIN,X Condition for execution: X Line Location: COMPUTE1+0
Function Call: READ	Variable: X#DJLG Timeout: DTIME Line Location: Z+16
Function Call: WRITE	Prompt: @IOBS," ",*7 Line Location: Z+20
Function Call: WRITE	Prompt: DJHIN Line Location: Z+21
Function Call: WRITE	Prompt: DJLIN Line Location: Z+21
Function Call: READ	Formatting: ! Prompt: "Press <RETURN> to Continue" Variable: DJX Timeout: DTIME Line Location: N+0
Function Call: WRITE	Prompt: !!,*7,"Answer 'YES' or 'NO'. As a general rule, you should repaint the screen if the screen has been 'pushed up' by the word processing field" Line Location: HELP+0
Function Call: WRITE	Prompt: DJDB Line Location: M+2
Function Call: WRITE	Prompt: $E(DJDB,1,80-DX),!,$E(DJDB,80-DX+1,$L(DJDB)) Line Location: M+3