Routine: QAPQCOPY

Information

QAPQCOPY ;557/THM-COPY SURVEY QUESTIONS [ 06/19/95 2:26 PM ]

Name	Line Occurrences
Function Call: WRITE	Prompt: " Copy a question " Line Location: EN+0
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: EN+2
Function Call: READ	Variable: DQUES Timeout: DTIME Line Location: START+0
Function Call: WRITE	Prompt: @IOF,! Line Location: START+1
Function Call: WRITE	Prompt: X,! Line Location: START+3
Function Call: WRITE	Prompt: *7,!!,"There is no question number ",DQUES,! Line Location: START+4
Function Call: WRITE	Prompt: !!,*7,"Your entry must be numeric and also an existing question number. " Line Location: START+5
Function Call: WRITE	Prompt: !! Line Location: START+6
Function Call: WRITE	Prompt: "Is this correct question" Line Location: SEL+0
Function Call: WRITE	Prompt: *7,!!,"Enter Y to proceed, N to go back and reselect",!,"""^"" to exit",!! Line Location: SEL+1
Function Call: READ	Variable: QAPQN Timeout: DTIME Line Location: QAPQN+1
Function Call: WRITE	Prompt: !!,*7,"Entry must be 1-3 numbers (1-999) and must be unique. Enter ^ to exit.",! Line Location: QAPQN+2
Function Call: WRITE	Prompt: !!,*7,"You must enter a different question number.",!,"That one has been used." Line Location: QAPQN+3
Function Call: WRITE	Prompt: " Copied " Line Location: QAPQN1+4
Function Call: WRITE	Prompt: @IOF,! Line Location: EDIT+0
Function Call: WRITE	Prompt: *7,!!,"Now you may edit the question header and text.",!,"The rest of the question definition will remain",!,"the same unless you change it specifically.",!! Line Location: EDIT+0

FileNo	Call Tags
^QA(748.25 - [#748.25]	Classic Fileman Calls