Routine: DIQQ

Package	Total	Call Graph
VA Fileman	6	(6,DEC)^DICATT3 C^DICE2 DQ^DICQ F^DIP2 FREE^DIP3 EN^DIQQ1

Package	Total	Caller Graph
VA Fileman	5	DICE2 DIP0 DIP1 DIP2 DIP3

Entry Points

External References

Name	Field # of Occurrence
6^DICATT3	DICATT3+1
DEC^DICATT3	DICATT31+1
C^DICE2	DICE2+2
DQ^DICQ	DICATT3+1
F^DIP2	DIP2+1, DIP2+10
FREE^DIP3	DIP3+1
EN^DIQQ1	11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?9,"TYPE '-' IN FRONT OF NUMERIC-VALUED FIELD TO SORT FROM HI TO LO" Line Location: DIP+1
Function Call: WRITE	Prompt: !?9,"TYPE '+' IN FRONT OF FIELD NAME TO GET SUBTOTALS BY THAT FIELD," Line Location: DIP+3
Function Call: WRITE	Prompt: !?12,"'#' TO PAGE-FEED ON EACH FIELD VALUE, '!' TO GET RANKING NUMBER," Line Location: DIP+4
Function Call: WRITE	Prompt: !?12,"'@' TO SUPPRESS SUB-HEADER, ']' TO FORCE SAVING SORT TEMPLATE" Line Location: DIP+5
Function Call: WRITE	Prompt: !?9,"TYPE ';TXT' AFTER FREE-TEXT FIELDS TO SORT NUMBERS AS TEXT" Line Location: DIP+6
Function Call: WRITE	Prompt: !?9,"TYPE 'BY(0)' TO DEFINE RECORD SELECTION AND SORT ORDER" Line Location: DIP+8
Function Call: WRITE	Prompt: !,"SINCE YOU ARE CALLING FOR OUTPUT ON DEVICE '",IO,"', YOU MAY USE ",!,"THE TERMINAL YOU ARE NOW TYPING ON FOR SOMETHING ELSE, BY ANSWERING 'Y'",!! Line Location: DIP3+0
Function Call: WRITE	Prompt: !,"TO ",DE,$P(" IN SEQUENCE, STARTING FROM^ ONLY UP TO",U,FT) Line Location: DIP1+2
Function Call: WRITE	Prompt: " A CERTAIN ",R,", " Line Location: 1+0
Function Call: WRITE	Prompt: !?5 Condition for execution: $L(%)+$X>77 Line Location: 1+0
Function Call: WRITE	Prompt: % Line Location: 1+0
Function Call: WRITE	Prompt: !?5,% Line Location: 1+1
Function Call: WRITE	Prompt: !?5,"OR ENTER '",%,"' TO ",$P("START FROM THE FIRST^GO THRU THE LAST",U,FT)," VALUE" Line Location: 1+2
Function Call: WRITE	Prompt: ! Line Location: 11+0
Function Call: WRITE	Prompt: "TYPE FIELD NAMES, OPERATORS(+-\/*), DIGITS, OR FUNCTIONS",!,"FOR FUNCTIONS," Line Location: DICATT3+0
Function Call: WRITE	Prompt: !,"ENTER THE NUMBER OF DIGITS THAT SHOULD NORMALLY APPEAR TO THE" Line Location: DICATT31+0
Function Call: WRITE	Prompt: !,"RIGHT OF THE DECIMAL POINT WHEN '",F,"' IS DISPLAYED" Line Location: DICATT31+1
Function Call: WRITE	Prompt: !!?5,"YOU CAN ALSO ENTER A COMPUTED EXPRESSION." Line Location: DIP2+2
Function Call: WRITE	Prompt: ! Line Location: DIP2+4
Function Call: WRITE	Prompt: !?5,"TYPE '&' IN FRONT OF FIELD NAME TO GET TOTAL FOR THAT FIELD,",!?8,"'!' TO GET COUNT, '+' TO GET TOTAL & COUNT, '#' TO GET MAX & MIN,",!?8,"']' TO FORCE SAVING PRINT TEMPLATE" Line Location: DIP2+7
Function Call: WRITE	Prompt: !?5,"YOU CAN FOLLOW FIELD NAME WITH ';' AND FORMAT SPECIFICATION(S)" Line Location: DIP2+9
Function Call: WRITE	Prompt: !!,"YOU MAY USE '@' TO INDICATE THAT '",DNEW,"' IS TO BE DELETED",!,"IF YOU SIMPLY WANT TO MOVE THE VALUE OF '",DOLD,"' OVER,",!," JUST ENTER '",DOLD,"'" Line Location: DICE2+1
Function Call: WRITE	Prompt: !,$C(7),"Less than 'FROM SELECT CRITERIA VALUE'.",$P(DIARS,U,2) Line Location: FER+0
Function Call: WRITE	Prompt: !,$C(7),"Less than 'FROM' value." Line Location: FER1+0
Function Call: WRITE	Prompt: !,$C(7),"Less than 'TO SELECT CRITERIA VALUE'.",$P(DIARE,U,2) Line Location: TER+0
Function Call: WRITE	Prompt: !,$C(7),"Less than 'TO' value." Line Location: TER1+0
Function Call: WRITE	Prompt: !!,"_____________________________________________________________________________",!!,$C(7),"A field in the 'SELECT CRITERIA TEMPLATE being used does NOT MATCH." Line Location: ENTT+0
Function Call: WRITE	Prompt: !,"the field at the SAME LEVEL in the BASE SELECT CRITERIA SORT TEMPLATE" Line Location: ENTT+1
Function Call: WRITE	Prompt: !,"specified for this file. There must be a one to one correspondence" Line Location: ENTT+2
Function Call: WRITE	Prompt: !,"between the fields in the template you want to use and the" Line Location: ENTT+3
Function Call: WRITE	Prompt: !,"BASIC SELECT CRITERIA SORT TEMPLATE, until all the fields in the" Line Location: ENTT+4
Function Call: WRITE	Prompt: !,"BASIC SELECT CRITERIA SORT TEMPLATE have been satisfied. More" Line Location: ENTT+5
Function Call: WRITE	Prompt: !,"CRITERIA may exist after that. See the development staff of the Package" Line Location: ENTT+6
Function Call: WRITE	Prompt: !,"or the ARCHIVING DOCUMENTATION where this process is explained further" Line Location: ENTT+7
Function Call: WRITE	Prompt: !,"for more information." Line Location: ENTT+8
Function Call: WRITE	Prompt: !,"_____________________________________________________________________________" Line Location: ENTT+9

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DIP1+1~, 1, 1+1, 1+2, 11
>> D	DICATT3+1*
>> DC	1+1
>> DDXP	DIP+2, DIP2+1
>> DE	DIP1+2, DIP2+3, DIP2+8
>> DIARE	TER
>> DIARS	FER
>> DIC	DICATT3+1*
>> DIC("W"	DICATT3+1*
>> DIC(0	DICATT3+1*
>> DIR("B"	1+2
>> DJ	DIP+7, DIP+8, 11
>> DNEW	DICE2+1
>> DOLD	DICE2+1
>> DPP(	11
>> DU	DIP2+6
DUZ(0	DIP+8
>> DZ	DICATT3+1*
>> F	DICATT31+1
FT	DIP1~, DIP1+2, 1+2
IO	DIP3
>> R	1, 1+1
U	DIP1+2, 1+1, 1+2, 11, DIP2+6, FER, TER
>> X	DIP1+1, 11

Customize PDF page

Package: VA Fileman

Routine: DIQQ

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
11
FER1
DIARQ	;ARCHIVING ERROR MESSAGES
DIP3
DIP2	;
DICATT31
1
DICE2	;
ENTT
DIP1(FT)	;from DIR reader -- FROM or TO help
FER
TER
DICATT3
DIP	;
TER1