Routine: ATSERCH9

Information

ATSERCH9 ;TUCSON/DG;MENU FOR CHOICES TO LINK TO [ 10/25/91 1:40 PM ]

Source file <ATSERCH9.m>

Package	Total	Call Graph
Kernel	1	EN^XQH
Template Compare	1	^ATSERCH4

Package	Total	Caller Graph
Template Compare	1	ATSERCHH

Name	Comments	DBIA/ICR reference
ASKLOOP	;CONTINUATION OF FOR LOOP IN ASKFILE IF INTERSECTION OF TEMPLATES
PTRONLY	;LINKS ONLY TO PTRFILE IF TEMPLATES LINKED TO SAME FILE
HELP	; - EP - CALL TO HELP FRAME
EOJ	;
ASKFILE4	;PTRFILE,SRCHFILE1,SRCHFILE2 DIFF FILES, INTERSECTION OF TEMPLATES
ASKFILE3	;SRCHFILE1=SRCHFILE2, IF DIFFERENCE, THEN UTILIZE THE TEMPLATE THAT
ASKLOOP4	;CONTINUATION OF FOR LOOP IN ASKFILE4
ASKLOOP3	;CONTINUATION OF FOR LOOP IN ASKFILE3
ASKLOOP2	;PTRFILE=SRCHFILE1 OR SRCHFILE2, DIFFERENCE BETWEEN TEMPLATES
ASKFILE	;PTRFILE=SRCHFILE1 OR SRCHFILE2
OPTIONS	;MENU CHOICES

Name	Field # of Occurrence
^ATSERCH4	ASKFILE+4, PTRONLY+3, ASKFILE3+9, ASKFILE4+4
EN^XQH	HELP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Choose, by number, the file you want merged results linked to:",!!,1," ",@ATSEOP(1),!,2," ",@ATSEOP(2) Line Location: ASKLOOP+3
Function Call: WRITE	Prompt: !!,"Your choice (1 or 2): ",ATSEY,"// " Line Location: ASKLOOP+3
Function Call: WRITE	Prompt: !!,"Results will be linked with the ",@$S(ATSMTCH=2:ATSEOP(1),1:ATSEOP(2))_" file" Line Location: ASKLOOP2+1
Function Call: WRITE	Prompt: !!,"Results will be linked with the ",ATSEARCH("PTRFILENAM")," file" Line Location: PTRONLY+2
Function Call: WRITE	Prompt: !!,"Choose, by number, the file you want results linked to:",!!,1," ",@ATSEOP(1),!,2," ",@ATSEOP(3) Line Location: ASKLOOP3+1
Function Call: WRITE	Prompt: !!,"Choose, by number, the file you want merged results linked to:",!!,1," ",@ATSEOP(1),!,2," ",@ATSEOP(2),!,3," ",@ATSEOP(3) Line Location: ASKLOOP4+1

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY("ATSEARCH"	ASKLOOP+4, ASKLOOP3+2, ASKLOOP4+2

Name	Line Occurrences
@(	ATSERCH9+8, ASKFILE+1
ASKFILE	ATSERCH9+5
ASKFILE3	ATSERCH9+6, ATSERCH9+7
ASKLOOP3	ASKFILE3+2
ASKLOOP4	ASKFILE4+1
EOJ	ATSERCH9+4, ATSERCH9+5, ATSERCH9+6, ATSERCH9+7, ATSERCH9+8
HELP	ASKFILE+1, ASKFILE3+2, ASKFILE4+1
PTRONLY	ATSERCH9+4

Name	Field # of Occurrence
>> ATSEARCH(	ASKFILE+3
>> ATSEARCH("FILELINK"	ASKFILE+3, PTRONLY+1, ASKFILE3+5, ASKFILE4+3
>> ATSEARCH("PTRFILENAM"	PTRONLY+2
>> ATSEARCH("PTRFILENUM"	ATSERCH9+5, ASKLOOP+1, PTRONLY+1, ASKFILE3+5, ASKFILE4+3
>> ATSEARCH(1	ATSERCH9+4, ATSERCH9+5, ATSERCH9+6, ATSERCH9+7, ASKLOOP+1, ASKFILE3+5, ASKFILE4+3
>> ATSEARCH(2	ATSERCH9+4, ATSERCH9+5, ATSERCH9+6, ATSERCH9+7, ASKFILE4+3
ATSENB	ATSERCH9+3, ASKFILE3+4, ASKFILE3+7, EOJ+1!
ATSEOP	EOJ+1!
ATSEOP(	ATSERCH9+3*
ATSEOP(1	ASKLOOP+3, ASKLOOP2+1, ASKLOOP3+1, ASKLOOP4+1
ATSEOP(2	ASKLOOP+3, ASKLOOP2+1, ASKLOOP4+1
ATSEOP(3	ASKLOOP3+1, ASKLOOP4+1
ATSEY	ASKLOOP+1, ASKLOOP+2, ASKLOOP+3, ASKLOOP+4, EOJ+1!
>> ATSFLAG	ASKFILE+1, ASKFILE+2, ASKLOOP+4, ASKFILE3+2, ASKFILE3+3, ASKLOOP3+2, ASKFILE4+1, ASKFILE4+2, ASKLOOP4+2*
>> ATSL	ASKFILE+1, ASKFILE3+2, ASKFILE4+1*
>> ATSMTCH	ASKLOOP2+1, ASKLOOP2+2, ASKFILE3+4
>> ATSNOT	ATSERCH9+4, ATSERCH9+8, ASKFILE+1
ATSNPT	ATSERCH9+4, EOJ+1!
>> ATSX	ASKFILE+3, ASKFILE3+7, ASKFILE4+3*
>> DIC(0	HELP+1*
DTIME	ASKLOOP+3, ASKLOOP3+1, ASKLOOP4+1
IOF	HELP+2
>> X	ASKFILE+1, ASKFILE+3, ASKLOOP+3, ASKLOOP+4, ASKLOOP2+2, ASKFILE3+2, ASKFILE3+5, ASKLOOP3+1, ASKLOOP3+2, ASKFILE4+1 , ASKFILE4+3, ASKLOOP4+1, ASKLOOP4+2
>> XQH	HELP+1*

Name	Field # of Occurrence
$T(OPTIONS+ATSENB	ATSERCH9+3