Routine: QAPEDIT1

Information

QAPEDIT1 ;557/THM-CREATE/EDIT/MAINTAIN SURVEY INFORMATION, PART 2 [ 05/18/95 7:28 AM ]

Package	Total	Call Graph
Survey Generator	6	EN^QAPEDIT EN^QAPQCOPY R1^QAPRSEQ EXIT^QAPUTIL HELPLKE^QAPUTIL1 KANS^QAPUTIL2
VA FileMan	4	(FILE,YN)^DICN ^DIE ^DIK ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Survey Generator	1	QAPEDIT

Entry Points

Name	Comments	DBIA/ICR reference
INDIV
DIS
EDITALL
EXIT
RSQ

External References

Name	Field # of Occurrence
FILE^DICN	DIS+17
YN^DICN	DIS+23
^DIE	DIS+18, DIS+19, DIS+20, DIS+21, EDITALL+6, EDITALL+8, EDITALL+9
^DIK	DIS+25
^DIR	DIS+14, DIS+15
EN^QAPEDIT	INDIV, EDITALL, EDITALL+3, EDITALL+12
EN^QAPQCOPY	DIS+8
R1^QAPRSEQ	DIS+7
EXIT^QAPUTIL	EXIT
HELPLKE^QAPUTIL1	DIS+4
KANS^QAPUTIL2	DIS+20, EDITALL+8

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: INDIV+0
Function Call: WRITE	Prompt: !,BLDON,"Type ^ to exit, ? or ?? for HELP",BLDOFF Line Location: DIS+2
Function Call: READ	Variable: QAPQN Timeout: DTIME Line Location: DIS+3
Function Call: WRITE	Prompt: " Resequence question numbers " Line Location: DIS+7
Function Call: WRITE	Prompt: !!,"Question number entry must be numeric,'R' to resequence",!,"the question numbers, or 'C' to copy a question.",*7 Line Location: DIS+9
Function Call: WRITE	Prompt: !!,*7,"This number must be between 1 and 999.",! Line Location: DIS+10
Function Call: WRITE	Prompt: X,! Line Location: DIS+12
Function Call: WRITE	Prompt: !,">> Nothing deleted <<" Line Location: DIS+24
Function Call: WRITE	Prompt: !!,">> Question removed << " Line Location: DIS+25
Function Call: WRITE	Prompt: *7,!!,"This survey has data associated with it and the question content",!,"may not be changed.",! Line Location: EDITALL+0
Function Call: WRITE	Prompt: @IOF,! Line Location: EDITALL+2
Function Call: WRITE	Prompt: !!?10,"This survey has no questions.",! Line Location: EDITALL+3
Function Call: WRITE	Prompt: @IOF,! Line Location: EDITALL+5
Routine Call	DIE Line Location: DIS+18 DIS+19 DIS+20 DIS+21 EDITALL+6 EDITALL+8 EDITALL+9
Routine Call	DIR Line Location: DIS+14 DIS+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^QA(748.25 - [#748.25]	DIS+1, DIS+12, DIS+16*, DIS+17, DIS+18, DIS+20, DIS+21, EDITALL+3, EDITALL+4, EDITALL+8 , EDITALL+9, RSQ
^QA(748.3 - [#748.3]	INDIV, EDITALL
^TMP($J	EDITALL+2!

Label References

Name	Line Occurrences
DIS	DIS+4, DIS+7, DIS+8, DIS+9, DIS+10, DIS+14, DIS+15, DIS+19, DIS+22, DIS+26
EXIT	INDIV, INDIV+1, EDITALL+11
RSQ	DIS+8, DIS+18, DIS+19, DIS+20, DIS+21, EDITALL+6, EDITALL+8, EDITALL+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DIS+23*, DIS+24, DIS+25
>> ACTION	INDIV+1, EDITALL+2, EDITALL+3, EDITALL+4
>> ANS	INDIV*
>> BLDOFF	DIS+2
>> BLDON	DIS+2
>> CHOICE	DIS+14, DIS+15, DIS+16, DIS+17, DIS+18, DIS+19, DIS+20, DIS+21, DIS+22
>> CLEOP	DIS+11, DIS+19
DA	DIS!, DIS+12, DIS+14, DIS+15, DIS+18, DIS+20, DIS+21, EDITALL+4*, EDITALL+8, EDITALL+9
DA(1	INDIV+1, DIS, DIS+11, DIS+12, DIS+16, DIS+17, DIS+18, DIS+20, DIS+21, DIS+25 , EDITALL+1, EDITALL+4, EDITALL+6, EDITALL+8, EDITALL+9
DANS	DIS+1!, RSQ!
DANS(	DIS+1, RSQ
DD	DIS+17!
>> DIC	DIS+11, EDITALL+6
>> DIC("DR"	DIS+17*
>> DIC(0	DIS+17*
>> DIE	DIS+11, EDITALL+6
>> DIK	DIS+25*
DIR	DIS+13!, DIS+15!
DIR("A"	DIS+13, DIS+15
DIR("B"	DIS+14, DIS+15
DIR(0	DIS+14, DIS+15
>> DLAYGO	DIS+17*
DO	DIS+17!
>> DR	DIS+18, DIS+19, DIS+20, DIS+21, EDITALL+6, EDITALL+8, EDITALL+9*
DTIME	INDIV, DIS+3
>> DTOUT	DIS+14, DIS+15, DIS+19, DIS+23, EDITALL+6, EDITALL+9
>> DUOUT	DIS+14, DIS+15
>> EXIT	DIS+14, DIS+15, DIS+23, EDITALL+4, EDITALL+6, EDITALL+9*, EDITALL+11
>> I	DIS+1, DIS+12, RSQ*
IOF	DIS+2, EDITALL+2, EDITALL+5
>> J	DIS+1, RSQ
>> LSTNUM	DIS+1, DIS+3
OUT	INDIV+1!, DIS+5, DIS+14, DIS+15!, EDITALL+2!, EDITALL+4, EDITALL+7, EDITALL+10*
>> QAPBAR	DIS+2, EDITALL+2, EDITALL+5
>> QAPHDR	DIS+2, EDITALL+2, EDITALL+5*
>> QAPQN	DIS+3, DIS+4, DIS+5, DIS+6, DIS+7, DIS+8, DIS+9, DIS+10, DIS+12, DIS+15 , DIS+17, EDITALL+4*, EDITALL+6
STOP	INDIV, INDIV+1!, DIS+3, DIS+15!, DIS+19*
>> SUBJ	DIS+2, EDITALL+2, EDITALL+5
>> SURVEY	INDIV, INDIV+1, DIS, DIS+1, DIS+12, EDITALL, EDITALL+1, EDITALL+3, RSQ
U	DIS+5, DIS+12, DIS+14, DIS+17, DIS+18, DIS+20, DIS+21, EDITALL+8, EDITALL+9
>> X	DIS+12, DIS+17
>> Y	DIS+14, DIS+15, DIS+18, DIS+19, EDITALL+7, EDITALL+10

Customize PDF page

Package: Survey Generator