Routine: DENTDCQ

Information

DENTDCQ ;WASH ISC/TJK-MODIFIED DICQ ROUTINE ;9/8/92 08:16

Source file <DENTDCQ.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: " Pointed-to File does not exist!" Line Location: DQ+0
Function Call: WRITE	Prompt: " ANSWER WITH ",$P(DO,U,1) Line Location: IX+5
Function Call: READ	Formatting: ! Prompt: "Press <RETURN> to Continue: " Variable: %Y Timeout: DTIME Line Location: IX+6
Function Call: WRITE	Prompt: $P(", OR",U,X>1) Line Location: IX+6
Function Call: WRITE	Prompt: !?4 Condition for execution: $X+$L(DS(DS))>70 Line Location: IX+6
Function Call: WRITE	Prompt: " ",DS(DS) Line Location: IX+6
Function Call: WRITE	Prompt: !," DO YOU WANT THE ENTIRE " Line Location: 20+0
Function Call: WRITE	Prompt: S Condition for execution: DO(2)'["s"&'$D(DIC("S"))&'$D(DF) Y,"-ENTRY " W $P(DO,U,1)," LIST" S %=0 D YN^DENTDCN S:%=1 %Y=1 I %Y'="??" Line Location: 20+0
Function Call: WRITE	Prompt: *7 Line Location: 20+2