Routine: DENTDCQ1

Information

DENTDCQ1 ;WASH ISC/TJK-HELP FROM DIC (MODIFIED ) ;9/8/92 07:58

Name	Comments	DBIA/ICR reference
LST
L
WOV
W1
Y	;I $D(^("OS",^DD("OS"),"XY")) S DIZ=^("XY") I DIZ?1U.E S (IOX,IOY)=0 X DIZ K IOX,IOY
CONT
S
SCR
DT
0	;
RCR
V
T

Name	Line Occurrences
Function Call: READ	Formatting: "Press <RETURN> to Continue Prompt: '^' to Quit: " Variable: %Y Timeout: DTIME Line Location: LST+0
Function Call: WRITE	Prompt: $C(13),$J("",15),$C(13),?3 Line Location: LST+0
Function Call: WRITE	Prompt: ?DD Line Location: L+1
Function Call: READ	Timeout: DTIME Line Location: CONT+0
Function Call: WRITE	Prompt: +$E(%,4,5)_"-" Condition for execution: $E(%,4,5) Line Location: DT+0
Function Call: WRITE	Prompt: +$E(%,6,7)_"-" Condition for execution: $E(%,6,7) Line Location: DT+0
Function Call: WRITE	Prompt: $E(%,1,3)+1700 Line Location: DT+0
Function Call: WRITE	Prompt: " ("_$E(%_0,9,10)_":"_$E(%_"000",11,12)_")" Condition for execution: %["." Line Location: DT+0
Function Call: WRITE	Prompt: ! Condition for execution: $X>3 Line Location: 0+3
Function Call: WRITE	Prompt: ?3,"YOU MAY ENTER A NEW ",$P(DO,U,1),", IF YOU WISH" Line Location: 0+3
Function Call: WRITE	Prompt: !,^(0) Line Location: 0+21
Function Call: WRITE	Prompt: ! Condition for execution: $X Line Location: V+0
Function Call: WRITE	Prompt: ?5,"Enter one of the following:",!?7 Line Location: V+0
Function Call: WRITE	Prompt: !?5,$E(X,4,99) Line Location: T+0