Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Survey Generator 1 LIKRTLAB^QAPCHX  
VA FileMan 1 ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Survey Generator 1 QAPEDI1  

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

External References

Name Field # of Occurrence
^DIE A2B2C2WP1+5
LIKRTLAB^QAPCHX USINPT+6

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
Routine Call
  • DIE
  • Line Location:
    • A2
    • B2
    • C2
    • WP1+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^QA(748.25 - [#748.25] USINPT+2, USINPT+4
^QA(748.3 - [#748.3] A1QAYN+1, QATF+1
^VA(200 - [#200] WP+1

Label References

Name Line Occurrences
A1A A1A+4
QATFA QATFA+4
QAYNA QAYNA+3
WP1 WP1+1

Naked Globals

Name Field # of Occurrence
^(0 USINPT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACTION A1+2, QAYN+3, QATF+3
ANS USINPT+1!, A2+1!, WP1*, WP1+1*, WP1+2, WP1+3*
ANS( USINPT+4*, DIS+1, DIS+3, A1A+4
>> ANSTYPE USINPT+2*, USINPT+3, USINPT+4, USINPT+6, DISDIS+3, A1A+2, A1A+4
ANSW A1A+1*, A1A+2*, A1A+3, A1A+4, A2A2+1!, QAYNA*, QAYNA+1*, QAYNA+2, QAYNA+3
B2B2+1!, QATFA+1*, QATFA+2*, QATFA+3*, QATFA+4, C2C2+1!
>> CLEOP1 A1A+4, QAYNA+3, QATFA+4, WP1+1
>> CNTA USINPT+3*, USINPT+4*, DIS+1*, DIS+2*, DIS+3
>> DA A2*, B2*, C2*, WP1+5*
>> DA(1 A1*, QAYN+1*, B2*, QATF+1*, C2*, WP1+5*
DIC A2*, A2+1!, B2*, B2+1!, C2*, C2+1!, WP1+5*, WP1+6!
DIC(0 A2*, B2*, C2*, WP1+5*
DIE A2*, A2+1!, B2*, B2+1!, C2*, C2+1!, WP1+5*, WP1+6!
DR A2!*, B2!*, C2!*, WP1+5!*
DTIME A1A+1, QAYNAQATFA+1, WP1WP1+1
DUZ WP+1
>> FILEDA A1QAYN+1, B2QATF+1, C2WP1+5
>> GRADIENT USINPT+2*
INSERT USINPT+3*, A1AA2+1!
IOF WP1+4, WP1+7
>> PRESPON A1*, A1+1*, A1+2, A1AQAYN+1*, QAYN+2*, QAYN+3, QAYNAQATF+1*, QATF+2*
QATF+3, QATFA
QANS USINPT+1!, USINPT+4*, USINPT+6!
>> QAPBAR WP1+7
QAPEDTR WP+1*, WP1+4, WP1+6!
>> QAPOUT A1A+1*, QAYNA*, QATFA+1*, WP1*, WP1+1*, WP1+3*
>> QLINE A1+2*, QAYN+3*, QATF+3*, WP+2*
>> QNAME USINPT+2, USINPT+4
>> QUES A1A2QAYN+1, B2QATF+1, C2WP1+5
>> REM DIS+2*, DIS+4
STOP USINPT+1!, A1A+1*, QAYN+1!, QAYNA*, QATF+1!, QATFA+1*
>> SURVEY USINPT+2, USINPT+4
U USINPT+2, USINPT+4, A1A1A+1, QAYN+1, QAYNAQATF+1, QATFA+1, WP+1, WP1+2
X DIS+1*, DIS+3*, A2+1!, B2+1!, C2+1!, WP1+6!
>> XX DIS+3*
>> Y DIS+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All