Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: QAPCHX1

Package: Survey Generator

Routine: QAPCHX1


Information

QAPCHX1 ;557/THM-EDITING OF ANSWERS [ 07/12/95 7:11 AM ]

Source Information

Source file <QAPCHX1.m>

Entry Points

Name Comments DBIA/ICR reference
USINPT ;multiple choice
DIS
A1
A1A
A2
QAYN ;yes/no/na
QAYNA
B2
QATF ;true/false/na
QATFA
C2
WP ;wp response
WP1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: ?40,X,". ",ANS(X),!
  • Condition for execution: $D(ANS(X))
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: !?5,"Previous response: ",PRESPON,!
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: ?5,"Enter the ",INSERT," of your response: "_$S(PRESPON["skipped":"",1:PRESPON_"// ")
  • Line Location: A1A+0
Function Call: READ
  • Variable: ANSW
  • Timeout: DTIME
  • Line Location: A1A+1
Function Call: WRITE
  • Prompt: *7,!!,"You must enter a ",$S(ANSTYPE="a":"letter",1:"number")," from the selection given. "
  • Line Location: A1A+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: QAYN+1
Function Call: WRITE
  • Prompt: ?5,"Previous response: ",PRESPON,!
  • Line Location: QAYN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: QAYN+3
Function Call: READ
  • Variable: ANSW
  • Timeout: DTIME
  • Line Location: QAYNA+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: QAYNA+3
Function Call: WRITE
  • Prompt: !!,"Enter Y for Yes or N for No or NA for not applicable. "
  • Line Location: QAYNA+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: QATF+1
Function Call: WRITE
  • Prompt: ?5,"Previous response: ",PRESPON,!
  • Line Location: QATF+3
Function Call: WRITE
  • Prompt: !
  • Line Location: QATF+3
Function Call: WRITE
  • Prompt: ?10,"True, False, or NA (T/F/NA): "_$S(PRESPON["skipped":"",1:PRESPON_"// ")
  • Line Location: QATFA+0
Function Call: READ
  • Variable: ANSW
  • Timeout: DTIME
  • Line Location: QATFA+1
Function Call: WRITE
  • Prompt: *7,!!,"Enter T for True, F for False, or NA for not applicable."
  • Line Location: QATFA+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: WP+2
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: WP1+0
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: WP1+1
Function Call: WRITE
  • Prompt: " ^ will skip entering any response to this question",!," RETURN will allow you to enter a response",!," Q will allow you to abort or suspend",!!,"Press RETURN "
  • Line Location: WP1+1
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: WP1+4
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: WP1+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^QA(748.3 - [#748.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call