Routine: DGGECSR

Information

DGGECSR ;ALB/MJK,RMO - Read Processor Routine ; 24 AUG 89 11:00am

Source file <DGGECSR.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S($D(DGRD("A")):DGRD("A"),1:"Enter Response: ") Line Location: READ+0
Function Call: WRITE	Prompt: $P(DGRD(DGRD("B")),"^",1),"// " Line Location: READ+1
Function Call: READ	Variable: X Timeout: $S($D(DGRD("DTIME")):+DGRD("DTIME"),1:DTIME) Line Location: READ+2
Function Call: WRITE	Prompt: $E(X,L+1,99) Line Location: READ+6
Function Call: WRITE	Prompt: *7 Line Location: READ+7
Function Call: WRITE	Prompt: ! Line Location: HELP+1
Function Call: WRITE	Prompt: !!?2,"Enter one of the following:" Line Location: HELP+2
Function Call: WRITE	Prompt: !?5,"'",$P(DGRD(I),"^",1),"'",?25,"to ",$E($P(DGRD(I),"^",2),1,79-$X) Line Location: HELP+3
Function Call: WRITE	Prompt: !?5,"^",?25,"to stop." Line Location: HELP+4