Routine: QAPPRALL

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

QAPPRALL ;557/THM-PRINT ALL RESPONSES [ 06/19/95 12:49 PM ]

Source Information

Source file <QAPPRALL.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZTLOAD
Survey Generator	2	USERPRT^QAPPT1 (EXIT,SCREEN)^QAPUTIL
VA FileMan	1	^DIC

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	QAP PRINT ALL INDIV RESPONSES

Entry Points

Name	Comments	DBIA/ICR reference
EN
PRINT

External References

Name	Field # of Occurrence
^%ZIS	EN+7
^%ZTLOAD	EN+9
^DIC	EN+3
USERPRT^QAPPT1	PRINT
EXIT^QAPUTIL	EN+3, EN+7, EN+9, PRINT+1
SCREEN^QAPUTIL	QAPPRALL+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: EN+0
Function Call: WRITE	Prompt: !!,"This program will print all responses to the selected survey",!,"individually. ",BLDON,"You must use your own judgement when printing",!,"long surveys because of the possible length of the printout.",BLDOFF,!!! Line Location: EN+1
Function Call: WRITE	Prompt: !!,*7,"There ",$S(TOTPART=1:"is ",1:"are "),TOTPART,$S(TOTPART=1:" response",1:" responses")," to this survey.",! Line Location: EN+6
Function Call: WRITE	Prompt: ! Line Location: EN+7
Routine Call	%ZIS Line Location: EN+7
Routine Call	DIC Line Location: EN+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^QA(748 - [#748]	EN+4
^QA(748.3 - [#748.3]	EN+5, PRINT

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	EN+7*
>> %ZIS("A"	EN+7*
>> BLDOFF	EN+1
>> BLDON	EN+1
DIC	EN+2!, EN+3*!, EN+4!
DIC("A"	EN+3*
DIC("S"	EN+2*
DIC(0	EN+3*
>> FILEDA	PRINT*
IO("Q"	EN+8, EN+9
IOF	EN, PRINT
ION	EN+8
IOST	PRINT
>> PART	EN+5*
>> POP	EN+7
>> QAPBAR	EN
>> QAPDUZ	PRINT*
>> QAPHDR	EN*
>> QAPOUT	PRINT*
>> SURVEY	EN+4*, EN+5, PRINT
>> TITLE	EN+4*, EN+8
>> TOTPART	EN+5*, EN+6
U	EN+3, EN+4, EN+5
USERPRT	EN!, PRINT*
>> X	EN+3, EN+8*
>> Y	EN+4
>> ZTDESC	EN+8*
>> ZTIO	EN+8*
>> ZTREQ	EN+8*
>> ZTRTN	EN+8*
>> ZTSAVE(	EN+8*
ZTSK	EN+9!