Routine: DENTDC1

Information

DENTDC1 ;WASH ISC/TJK-READ X, SET UP ID'S, ASK OK ; 11-Aug-1987 9:39 am;06/08/88 2:37 PM

Source file <DENTDC1.m>

Name	Line Occurrences
Function Call: READ	Prompt: "// " Variable: X Timeout: DTIME Line Location: B+0
Function Call: WRITE	Prompt: DD Line Location: B+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: B+1
Function Call: WRITE	Prompt: DD Line Location: B+1
Function Call: WRITE	Prompt: " " Line Location: WO+0
Function Call: WRITE	Prompt: " " Line Location: WO+0
Function Call: WRITE	Prompt: DINAME Line Location: WR+1
Function Call: WRITE	Prompt: DIY Line Location: WR+2
Function Call: WRITE	Prompt: +$E(DIY,4,5),"-" Condition for execution: $E(DIY,4,5) Line Location: WR+3
Function Call: WRITE	Prompt: +$E(DIY,6,7),"-" Condition for execution: $E(DIY,6,7) Line Location: WR+3
Function Call: WRITE	Prompt: DIY\10000+1700 Line Location: WR+3
Function Call: WRITE	Prompt: "@"_$E(DIY_0,9,10)_":"_$E(DIY_"000",11,12) Condition for execution: DIY["." Line Location: WR+3
Function Call: WRITE	Prompt: Y Line Location: WR+4
Function Call: WRITE	Prompt: DIY Line Location: WR+5
Function Call: WRITE	Prompt: !,"TYPE '^' TO STOP, OR" Line Location: Y+2
Function Call: READ	Prompt: ": " Variable: DIY Timeout: DTIME Line Location: Y+3
Function Call: WRITE	Prompt: !,"CHOOSE "_$O(DS(0))_"-"_DD Line Location: Y+3
Function Call: WRITE	Prompt: *7 Line Location: TIME+0
Function Call: WRITE	Prompt: !?9,"...OK" Line Location: OK+1