Routine: QAPEDI1

Information

QAPEDI1 ;557/THM-EDIT ALL/PART OF SURVEY ANSWERS [ 07/12/95 11:56 AM ]

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Survey Generator	5	(QATF,QAYN,USINPT,WP)^QAPCHX1 ^QAPDEM1 USERPRT^QAPPT1 ABORT^QAPSCRN1 HELPLK^QAPUTIL1
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	1	^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: 2

Package	Total	Caller Graph
Survey Generator	2	QAPEDINC QAPSCRN1

Entry Points

Name	Comments	DBIA/ICR reference
EN
INDIV
DIS
EDITALL
EXIT
HDIS
DOC	;QDIS=question display # user sees

External References

Name	Field # of Occurrence
^%ZIS	EN+12
^%ZISC	EN+14, EN+15
^%ZTLOAD	EN+14
^DIR	EN+7
QATF^QAPCHX1	DIS+14, EDITALL+8
QAYN^QAPCHX1	DIS+14, EDITALL+8
USINPT^QAPCHX1	DIS+14, EDITALL+8
WP^QAPCHX1	DIS+14, EDITALL+8
^QAPDEM1	EDITALL+1
USERPRT^QAPPT1	EN+15
ABORT^QAPSCRN1	EN+7, INDIV+4, EDITALL+1, EDITALL+10
HELPLK^QAPUTIL1	DIS+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: EN+0
Function Call: WRITE	Prompt: !!! Line Location: EN+6
Function Call: WRITE	Prompt: !! Line Location: EN+12
Function Call: READ	Variable: QUESED Timeout: DTIME Line Location: DIS+2
Function Call: WRITE	Prompt: @IOF,! Line Location: DIS+3
Function Call: WRITE	Prompt: !!,"Entry must be numeric, greater than zero and previously answered." Line Location: DIS+4
Function Call: WRITE	Prompt: !,">> Question number: ",QDIS Line Location: DIS+6
Function Call: WRITE	Prompt: !!,"Question entry must be numeric.",*7 Line Location: DIS+7
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: DIS+9
Function Call: WRITE	Prompt: !! Line Location: DIS+11
Function Call: WRITE	Prompt: ! Line Location: DIS+12
Function Call: WRITE	Prompt: X,! Line Location: DIS+13
Function Call: WRITE	Prompt: @IOF,! Line Location: EDITALL+4
Function Call: WRITE	Prompt: ! Line Location: EDITALL+4
Function Call: WRITE	Prompt: X,! Line Location: EDITALL+7
Function Call: WRITE	Prompt: @IOF,! Line Location: EDITALL+9
Function Call: WRITE	Prompt: X,! Line Location: HDIS+0
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: HDIS+1
Function Call: WRITE	Prompt: @IOF,! Line Location: HDIS+1
Routine Call	%ZIS Line Location: EN+12
Routine Call	DIR Line Location: EN+7

Name	Line Occurrences (* Changed, ! Killed)
^QA(748 - [#748]	EN+1
^QA(748.25 - [#748.25]	INDIV, DIS+8, DIS+13, DIS+14, EDITALL+7, EDITALL+8, HDIS, HDIS+1
^QA(748.3 - [#748.3]	DIS+10, EDITALL+6

Label References

Name	Line Occurrences
DIS	DIS+3, DIS+4, DIS+5, DIS+7, DIS+9
EDITALL	EN+11
EN	EN+12, EN+14, EN+16, INDIV+4, EDITALL+1, EDITALL+11
EXIT	EN+7, EN+9, INDIV+4, EDITALL+1, EDITALL+10
HDIS	DIS+11, EDITALL+3
INDIV	EN+10, DIS+15, EDITALL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	EN+12*
>> ACTION	EN+7, EN+8, EN+9, EN+10, EN+11, EN+12, EN+13, EN+14, EN+15, INDIV+4
ANS	DIS+9, EXIT!, HDIS+1
ANSTYPE	EXIT!
ANSW	EXIT!
ANSX	DIS+3, DIS+6!
>> CLEOP	DIS+6, HDIS, HDIS+1
>> CNT	INDIV*, INDIV+2
DANS	INDIV!
DANS(	INDIV*, INDIV+2!, DIS+8, EDITALL+2
DIR	EN+1!
DIR("?"	EN+2, EN+3, EN+4, EN+5
DIR("A"	EN+6*
DIR(0	EN+6*
>> DIRUT	EN+7
DR	EXIT!
>> DSTOP	EDITALL+1
DTIME	DIS+2, DIS+9, HDIS+1
>> DTOUT	EN+7
DUZ	EN+13
DX	EXIT!
DY	EXIT!
EDIT	EN!, INDIV+3, EDITALL*, EDITALL+11!
>> FILEDA	DIS+10, EDITALL+6
GRADIENT	EXIT!
>> I	INDIV, INDIV+2, DIS+13, EDITALL+7, HDIS*
IO("Q"	EN+13, EN+14
IOF	EN, DIS+1, DIS+3, DIS+12, EDITALL+4, HDIS+1
ION	EN+13
>> J	INDIV*
OUT	EN+1!, INDIV+4
>> POP	EN+12
PRESPON	EXIT!
>> QAPBAR	EN, DIS+1, DIS+3, DIS+12, EDITALL+4, HDIS+1
>> QAPCNT	INDIV+1
>> QAPHDR	EN, DIS+1, DIS+3, DIS+6, DIS+12, EDITALL+4, HDIS+1*
>> QAPOUT	EN, INDIV+4, DIS+2, DIS+9, DIS+14, EDITALL+1*, EDITALL+2, EDITALL+8
>> QAPQN	DIS+3, EDITALL+2*, EDITALL+5
>> QAPX	DIS+14, EDITALL+8
QDIS	DIS!, DIS+3, DIS+5, DIS+6, EXIT!
QNAME	DIS+8, DIS+9, DIS+10, DIS+11, DIS+13, DIS+14, EDITALL+5, EDITALL+7, EDITALL+8, EXIT!
>> QNUMANS	INDIV+1*, INDIV+2
>> QUES	DIS+10, EDITALL+6
QUESED	DIS+2, DIS+3, DIS+4, DIS+5, DIS+6, DIS+7, DIS+8*, EXIT!
>> QUEST	DIS+11, EDITALL+2, EDITALL+5, EDITALL+6, HDIS, HDIS+1
STOP	EN+7, INDIV+4, DIS!, DIS+2, DIS+3, DIS+9, DIS+11, DIS+14, EDITALL!, EDITALL+1 , EDITALL+2, EDITALL+3, EDITALL+10, HDIS+1
>> SURVEY	EN+1, INDIV, DIS+8, DIS+13, DIS+14, EDITALL+7, EDITALL+8, HDIS, HDIS+1
>> TITLE	EN+1*, DIS+1, DIS+3, DIS+12, EDITALL+4, HDIS+1
U	EN+1, DIS+2, DIS+8, DIS+9, DIS+13, DIS+14, EDITALL+7, EDITALL+8, HDIS
USERPRT	EN+12*, EXIT!
>> X	EN+7, EN+13, DIS+13, EDITALL+7, HDIS
Y	EN+1!
>> ZTDESC	EN+13*
>> ZTIO	EN+13*
>> ZTREQ	EN+13*
>> ZTRTN	EN+13*
>> ZTSAVE(	EN+13*
>> ZTSK	EN+14

Customize PDF page

Package: Survey Generator