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: QAPXFER1

Package: Survey Generator

Routine: QAPXFER1


Information

QAPXFER1 ;557/THM-IMPORT A SURVEY [ 06/22/95 2:27 PM ]

Source Information

Source file <QAPXFER1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 %XY^%RCR  ^DIC  (FILE,YN)^DICN  ^DIE  (,IX)^DIK  
Kernel 1 ^%ZIS  
MailMan 1 GET^XML  
Survey Generator 1 (EXIT,SCREEN)^QAPUTIL  

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 QAP IMPORT A SURVEY  

Entry Points

Name Comments DBIA/ICR reference
EN
SEE
ASK
ASK1
ASK2
RENAME
NEWNAME
NEWASK
FIN
INST
EXIT

External References

Name Field # of Occurrence
%XY^%RCR NEWASK+11, NEWASK+13
^%ZIS EN
^DIC ASK
FILE^DICN NEWASK+8, NEWASK+9
YN^DICN SEE, ASK1+3, ASK2+1, RENAME, NEWASK
^DIE NEWASK+15
^DIK NEWASK+17
IX^DIK NEWASK+20
EXIT^QAPUTIL EXIT
SCREEN^QAPUTIL EN
GET^XML ASK1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"Your DUZ is not defined.",*7,!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"Do you need instructions for this option"
  • Line Location: SEE+0
Function Call: WRITE
  • Prompt: !!,"Enter Y for instructions or N to skip them."
  • Line Location: SEE+1
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: ASK1+0
Function Call: WRITE
  • Prompt: !!,"Message: ",$P(Y(0),U),!!
  • Line Location: ASK1+0
Function Call: WRITE
  • Prompt: *7,!!,"This message is NOT an imported survey !! "
  • Line Location: ASK1+2
Function Call: WRITE
  • Prompt: "Is this the correct message"
  • Line Location: ASK1+3
Function Call: WRITE
  • Prompt: !!,"Enter Y if it is the correct message or N if not."
  • Line Location: ASK1+4
Function Call: WRITE
  • Prompt: !!,">> ",SVYNAME," <<",*7,!!,"You already have a survey by this name on file.",!,"Do you want to continue anyway"
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !!,"Enter Y to install the message or N to reselect."
  • Line Location: ASK2+2
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: ASK2+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK2+6
Function Call: WRITE
  • Prompt: !!,"Enter Y to rename the survey or N to leave it as is."
  • Line Location: RENAME+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RENAME+1
Function Call: READ
  • Variable: NEWNAME
  • Timeout: DTIME
  • Line Location: NEWNAME+0
Function Call: WRITE
  • Prompt: !!,*7,"Enter the new name for the survey [1-40 UPPERCASE characters or punctuation.]"
  • Line Location: NEWNAME+1
Function Call: WRITE
  • Prompt: !!,"The new name will be '",NEWNAME,"'",!," Ok"
  • Line Location: NEWASK+0
Function Call: WRITE
  • Prompt: !!,"Enter Y to accept this name or N to enter another one."
  • Line Location: NEWASK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWASK+1
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: NEWASK+4
Function Call: WRITE
  • Prompt: !!,"Installing basic survey data "
  • Line Location: NEWASK+10
Function Call: WRITE
  • Prompt: !,"Installing the survey questions "
  • Line Location: NEWASK+12
Function Call: WRITE
  • Prompt: !,"Cleaning up non-exportable fields "
  • Line Location: NEWASK+14
Function Call: WRITE
  • Prompt: !,"Re-indexing the survey and questions "
  • Line Location: NEWASK+19
Function Call: WRITE
  • Prompt: !!,"Checking the DEMOGRAPHICS for invalid pointers ",!
  • Line Location: NEWASK+21
Function Call: WRITE
  • Prompt: *7,!,"Demographic ",DEMONAME," points to a file which",!," does not exist in your DEMOGRAPHIC REFERENCE file.",!
  • Line Location: NEWASK+25
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue or ""^"" to exit: "
  • Line Location: NEWASK+26
Function Call: WRITE
  • Prompt: !,"Finished. ",!!,"This imported survey must be made ready for use.",!!,"You have been made the creator/author of it and you must",!,"review the entire survey before releasing it.",!!,"Press RETURN "
  • Line Location: FIN+0
Function Call: WRITE
  • Prompt: !,"This option will import a survey which has been sent to you in a",!
  • Line Location: INST+1
Function Call: WRITE
  • Prompt: "MailMan message. It is entirely automatic.",!!,"All you have to do "
  • Line Location: INST+2
Function Call: WRITE
  • Prompt: "is supply the number or subject of the MailMan",!
  • Line Location: INST+3
Function Call: WRITE
  • Prompt: "message which contains the survey.",!!,"Once the program has imported "
  • Line Location: INST+4
Function Call: WRITE
  • Prompt: "the survey, you will have been made",!,"the creator of it. It will be up "
  • Line Location: INST+5
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: INST+6
Routine Call
  • DIC
  • Line Location:
    • ASK
Routine Call
  • DIE
  • Line Location:
    • NEWASK+15
Routine Call
  • %ZIS
  • Line Location:
    • EN

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] NEWASK+24
^QA(748 - [#748] ASK2+1, NEWASK+17, NEWASK+18!, NEWASK+22, NEWASK+23
^QA(748.2 - [#748.2] NEWASK+24
^TMP($J ASK1!, ASK1+7*, ASK1+8, NEWASK+6, NEWASK+7

Label References

Name Line Occurrences
ASK ASK1+2, ASK1+6, ASK2+3, ASK2+5
ASK1 ASK1+4
ASK2 ASK2+2
EXIT EN+2, SEE, ASK, ASK+1, ASK1+3, ASK1+5, ASK2+1, ASK2+5, FIN+1
INST SEE
NEWASK NEWASK+1
NEWNAME NEWNAME+1, NEWASK+2
RENAME RENAME+1
SEE SEE+1

Naked Globals

Name Field # of Occurrence
^(0 ASK1+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SEE*, ASK1+3*, ASK1+5, ASK1+6, ASK2!, ASK2+1*, ASK2+3, ASK2+5, RENAME*, RENAME+2
, NEWASK*, NEWASK+2
>> %X NEWASK+11*, NEWASK+13*
>> %Y SEE+1, ASK1+4, ASK2+2, RENAME+1, NEWASK+1, NEWASK+11*, NEWASK+13*
>> ANS NEWASK+22*, NEWASK+26*, FIN*, INST+6*
>> AUTHED NEWASK+17*
>> CLEOP1 SEE, ASK2+1, ASK2+2, RENAME+1, NEWNAME, NEWASK+1, INST
>> DA NEWASK+15*, NEWASK+17*, NEWASK+20*, NEWASK+22*, NEWASK+23
>> DA(1 NEWASK+16*, NEWASK+17, NEWASK+18
DD NEWASK+8!, NEWASK+9!
>> DEMO NEWASK+22*
>> DEMONAME NEWASK+24*, NEWASK+25
DIC ASK*, NEWASK+8*, NEWASK+9*!, NEWASK+15*
DIC("A" ASK*
DIC(0 ASK*, NEWASK+8*, NEWASK+9*
DIE NEWASK+8*, NEWASK+9*!, NEWASK+15*
>> DIK NEWASK+17*, NEWASK+20*
DINUM NEWASK+9*!
DO NEWASK+8!, NEWASK+9!
>> DR NEWASK+15*
>> DTA NEWASK+23*, NEWASK+24
DTIME NEWNAME, NEWASK+26, FIN, INST+6
>> DTOUT SEE, ASK1+3, ASK2+1, RENAME, NEWASK
DUZ EN+2
>> FILENAME NEWASK+24*, NEWASK+25
>> FILENUM NEWASK+24*
>> FILEPTR NEWASK+24*
>> I NEWASK+6*, NEWASK+7*
IOF EN+1, ASK, ASK1, ASK2+5, NEWASK, NEWASK+4
IOP EN*!
IOSL NEWASK+26
MSGNUM ASK+1*, ASK1+1, EXIT!
>> NEWDA NEWASK+8*, NEWASK+9, NEWASK+11, NEWASK+15, NEWASK+16, NEWASK+20, NEWASK+22, NEWASK+23
>> NEWDA1 NEWASK+9*, NEWASK+13
NEWNAME ASK2+5!, NEWNAME*, NEWNAME+1, NEWASK, NEWASK+3
ONFILE ASK2!, ASK2+1*, ASK2+5
>> QAPBAR EN+1, ASK, ASK1, ASK2+5, NEWASK, NEWASK+4, NEWASK+5
>> QAPHDR EN+1*, NEWASK+4*, NEWASK+5*
>> QAPOUT INST*, INST+6*
>> QLINE SEE*, ASK1+9*, ASK2+1*, ASK2+6*, INST*
STOP ASK2+5!, RENAME*, NEWNAME*, NEWASK*
>> SVYNAME ASK1+8*, ASK2+1, NEWASK+3*, NEWASK+4, NEWASK+15
>> SVYSITE ASK1+8*, NEWASK+5
U ASK, ASK1, NEWASK+22, NEWASK+23, NEWASK+24, INST+6
X ASK, NEWASK+6*, NEWASK+7*, NEWASK+8*, NEWASK+9*!
>> XMCHAN ASK1+1*
XMER ASK1+7, ASK2!
XMPOS ASK1+1*, ASK1+7*, ASK2!
XMREC ASK1+1, ASK1+7, ASK2!
XMRG ASK1+2, ASK1+7, ASK2!
>> XMZ ASK1+1*, ASK1+7, ASK1+8, NEWASK+6, NEWASK+7
Y ASK+1, NEWASK+6*, NEWASK+7*, NEWASK+8, NEWASK+9!
Y(0 ASK1
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