Routine: ATSERCHF

Information

ATSERCHF ;TUCSON/DG;JOINS TWO TEMPLATES LINKED TO SAME FILE [ 10/25/91 1:22 PM ]

Package	Total	Call Graph
VA Fileman	3	^DIC YN^DICN ^DIE
Kernel	2	^%ZIS ^%ZTLOAD

Package	Total	Caller Graph
Template Compare	1	ATSERCH7

Name	Comments	DBIA/ICR reference
A
ZTM	;
ZIS	;SEE IF USER QUEUES ;
EOJ	;
SORTEMP	;CREATES SORT TEMPLATE
TSKMN	;
TEST	;SEE IF USER HATTED OUT OF [ATSDEL]
STORE	;STORES DFNS IN SEARCH TEMPLATE

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SORTEMP+2
Function Call: WRITE	Prompt: !,*7,"Choose a template other than one of the templates you are using in the joining." Line Location: SORTEMP+4
Function Call: WRITE	Prompt: !!,*7,"You cannot store results in a template used only for sort purposes." Line Location: SORTEMP+5
Function Call: WRITE	Prompt: !,*7,"Results already stored in this template. Do you want to have",!,"the stored data deleted" Line Location: SORTEMP+7
Function Call: WRITE	Prompt: !!,"Do you want to queue the merge to another device" Line Location: ZIS+1
Function Call: WRITE	Prompt: !,"Enter ""Y"" if you want to queue the joining of the templates to another device." Line Location: ZIS+3
Function Call: WRITE	Prompt: !,"Please wait " Line Location: STORE+1
Function Call: WRITE	Prompt: !,"There are ",ATSCNT," entries in the ",$P(^DIBT(ATSTMP,0),U)," template.",! Line Location: STORE+5
Function Call: WRITE	Prompt: !,"Done!" Line Location: STORE+6
Routine Call	DIE Line Location: SORTEMP+10
Routine Call	DIC Line Location: SORTEMP+2
Routine Call	%ZIS Line Location: ZIS+6

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	TSKMN+3
^DIBT(	SORTEMP+5, SORTEMP+6, SORTEMP+7, SORTEMP+8, TEST+2!, STORE+2, STORE+3, STORE+4, STORE+5

Name	Field # of Occurrence
^("DIS"	TEST+2!
^("O"	TEST+2!

Name	Field # of Occurrence
>> %	SORTEMP+7, SORTEMP+8, SORTEMP+9, SORTEMP+10, ZIS+1, ZIS+2, ZIS+3, ZIS+4, TSKMN+1
>> %IS	ZIS+6*
ATSCNT	STORE+3*, STORE+4, STORE+5, EOJ+1!
ATSDFN	STORE+2, STORE+3, EOJ+1!
>> ATSEARCH(	STORE+2
>> ATSEARCH("FILELINK"	SORTEMP+1*
>> ATSEARCH("SRCHTEMPDFN"	SORTEMP+4
>> ATSEARCH(1	SORTEMP+1, ZTM+4!
>> ATSEARCH(2	ZTM+4!
ATSETMP	EOJ+1!
ATSI	STORE+2*, EOJ+1!
ATSL	ATSERCHF+3, STORE+2, EOJ+1!
>> ATSTMP	SORTEMP+3*, SORTEMP+4, SORTEMP+5, SORTEMP+6, SORTEMP+7, SORTEMP+8, SORTEMP+10, TEST+2, STORE+2, STORE+3 , STORE+4, STORE+5
ATSTP	ATSERCHF+4, SORTEMP+2*, EOJ+1!
ATSTSK	ATSERCHF+4, ZIS+7*, TSKMN+1, STORE+1, STORE+2, STORE+6, EOJ+1!
ATSY	TEST+1!, EOJ+1!
>> DA	SORTEMP+10*
DIC	SORTEMP+2*!
DIC("A"	SORTEMP+2*
DIC("DR"	SORTEMP+2*
DIC("S"	SORTEMP+2*
DIC(0	SORTEMP+2*
DIE	SORTEMP+10*!
>> DLAYGO	SORTEMP+2*
>> DR	SORTEMP+10*
IO	TSKMN+2
IO("Q"	ZIS+5!, ZIS+7, EOJ+1!
>> IOP	ZIS+6*
>> L	STORE+3*
>> POP	ZIS+7
U	SORTEMP+4, STORE+5
>> Y	ATSERCHF+3, SORTEMP+2, SORTEMP+3, SORTEMP+4, SORTEMP+5, SORTEMP+9, SORTEMP+11, TEST+1, TEST+2*
>> ZTDESC	TSKMN+2*
>> ZTDTH	TSKMN+2*
>> ZTIO	TSKMN+2*
>> ZTQUEUED	ZTM+3
>> ZTREQ	ZTM+3*
>> ZTRTN	TSKMN+2*
ZTSAVE	TSKMN+1!
ZTSAVE(	TSKMN+1*
ZTSAVE("ATSTSK"	TSKMN+1*