Routine: DENTDCN

Information

DENTDCN ;WASH ISC/TJK-MODIFIED DICN ROUTINE ;10:24 AM Jul 28, 1987;12/02/91 11:24 AM

Source file <DENTDCN.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: "? ",$P("YES// ^NO// ",U,%) Line Location: YN+1
Function Call: READ	Variable: %Y Timeout: DTIME Line Location: RX+0
Function Call: WRITE	Prompt: *7 Line Location: RX+0
Function Call: WRITE	Prompt: *7,"??",!?4,"ANSWER 'YES' OR 'NO': " Line Location: RX+2
Function Call: WRITE	Prompt: ! Condition for execution: $X>73 Line Location: RX+3
Function Call: WRITE	Prompt: $P(" (YES)^ (NO)",U,%) Line Location: RX+3
Function Call: WRITE	Prompt: !?7 Line Location: I+0
Function Call: WRITE	Prompt: "A NEW "_% Line Location: I+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: R+0
Function Call: WRITE	Prompt: *7,"??" Line Location: R+1
Function Call: WRITE	Prompt: !,^(3) Condition for execution: $D(^DD(+DO(2),.01,3)) Line Location: R+1
Function Call: WRITE	Prompt: *7 Line Location: LOCK+0