Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ATSERCH6

ATSERCH6.m

Go to the documentation of this file.
  1. ATSERCH6 ;TUCSON/DG;DISPLAYS THE RESULTS FROM THE COMBINED SEARCH. ALSO ASKS USER FOR AND [ 10/25/91 1:22 PM ]
  1. ;;2.5;SEARCH TEMPLATE COMPARISON;;OCT 25, 1991
  1. ;PROVIDES INSTRUCTION RE:COMPARE COMBINED RESULTS TO ANOTHER TEMPLATE
  1. ;OR TO CREATE A SEARCH TEMPLATE TO BE LINKED TO THE FILE CHOSEN
  1. ;
  1. W:$D(IOF) @IOF
  1. D MATCHES
  1. I ATSFLAG D EOJ Q
  1. D DISPLAY
  1. K ATSAGAN
  1. D ^ATSERCH8
  1. W:$D(IOF) @IOF
  1. D EOJ
  1. Q
  1. ;
  1. MATCHES ;
  1. I ATSEARCH("MERGE COUNT")'=1 W !!,"There were ",ATSEARCH("MERGE COUNT")," matches associated with the ",$P(^DIC(ATSEARCH("FILELINK"),0),U)," file." I 'ATSEARCH("MERGE COUNT") W *7 H 3
  1. I ATSEARCH("MERGE COUNT")=1 W !!,"There was ",ATSEARCH("MERGE COUNT")," match associated with the ",$P(^DIC(ATSEARCH("FILELINK"),0),U)," file."
  1. I ATSEARCH("MERGE COUNT")=0 S ATSFLAG=$S(ATSLOOP=1:1,1:2) S:ATSFLAG=2 ATSEARCH("FILELINK")=^UTILITY("ATSEARCH",$J,"FILELINK")
  1. ;IF FIRST TIME THROUGH AND NO MATCHES, QUIT. IF LATER COMPARE, GIVE USER A CHANCE TO SAVE RESULTS UP UNTIL LAST COMPARE SO AS TO SAVE INTERMEDIATE RESULTS
  1. Q
  1. ;
  1. DISPLAY ;DISPLAYS ALL SEARCH PARAMETERS
  1. K % ;IN CASE LEFT FROM DI* ROUTINES
  1. I ATSMTCH=""&(ATSEINRL) W !!,"INTERMEDIATE RESULTS compared to itself via the",!," "_ATSEARCH(1,"FIELD")_" "_ATSEARCH(1,"FIELDNAME")_" field ["_ATSEARCH(1,"SRCHFILENAM")_"]"
  1. I ATSMTCH]"" W !!,"For entries in:",!,$S(ATSMTCH=1:ATSEARCH(1,"SRCHNAM")_" and also in "_ATSEARCH(2,"SRCHNAM"),ATSMTCH=2:ATSEARCH(1,"SRCHNAM")_" but not in "_ATSEARCH(2,"SRCHNAM"),1:ATSEARCH(2,"SRCHNAM")_" but not in "_ATSEARCH(1,"SRCHNAM"))
  1. D @$S(ATSMTCH]"":"DISPLAY2",ATSMTCH=""&ATSEINRL:"^ATSERCHC",1:"DISPLAYX")
  1. F L=0:0 Q:ATSLOOP'>1!($D(ATSAGAN)) D PARAMS
  1. Q
  1. ;
  1. DISPLAY2 ;DISPLAY PARAMETERS
  1. I ATSLOOP=1 W !!,"Search specifications are as follows for the two templates:",!
  1. E W !!,"Search specifications are as follows for the ",ATSEARCH(2,"SRCHNAM")," template."
  1. F ATSI=ATSLOOP Q:'$D(ATSEARCH("SEARCHSPECS",ATSI)) S ATSCT=0 F L=0:0 S ATSCT=$O(ATSEARCH("SEARCHSPECS",ATSI,ATSCT)) Q:ATSCT'=+ATSCT D DISPLAY3
  1. Q
  1. ;
  1. DISPLAYX ;IF TEMPLATES BEING COMPARED ARE THE SAME (ATSMTCH="")
  1. F ATSI=ATSLOOP Q:'$D(ATSEARCH("SEARCHSPECS",ATSI)) S ATSCT=0 F L=0:0 S ATSCT=$O(ATSEARCH("SEARCHSPECS",ATSI,ATSCT)) Q:ATSCT'=+ATSCT D DISPLAY3
  1. Q
  1. ;
  1. DISPLAY3 ;CONTINUATION OF FOR LOOP
  1. S ATSVAR=0 F ATSL=0:0 S ATSVAR=$O(@(ATSEARCH("SEARCHSPECS",ATSI,ATSCT)_ATSVAR_")")) Q:ATSVAR'=+ATSVAR W:ATSLOOP=1&(ATSCT=2)&(ATSVAR=1) ! D LOOPCONT W !,@(ATSEARCH("SEARCHSPECS",ATSI,ATSCT)_ATSVAR_",0"_")")_ATSXVAR D ^ATSERCHC
  1. Q
  1. ;
  1. LOOPCONT ;CONTS LOOP IN DISPLAY3 JUST BEFORE WRITE SEARCH PARAMETER
  1. ;DETERMINES WHAT FILE THE SEARCH PARAMETER IS LINKED TO
  1. S ATSXVAR=$S(ATSI=1&(ATSCT=1)&(ATSVAR=1):" ["_ATSEARCH(1,"SRCHFILENAM")_"]",ATSI=1&(ATSCT=2)&(ATSVAR=1):" ["_ATSEARCH(2,"SRCHFILENAM")_"]",ATSI>1&(ATSVAR=1):" ["_ATSEARCH(2,"SRCHFILENAM")_"]",1:"")
  1. Q
  1. ;
  1. PARAMS ;ASKS USER IF WANTS DISPLAY OF ALL DONE SO FAR
  1. ;IF SO, DISPLAYS PREVIOUS COMPARISONS
  1. W !!,"Do you want a display of all you have done so far" S %=2 D YN^DICN
  1. I %=2!(%=-1) S ATSAGAN="" Q
  1. I %=0 S XQH="ATSEARCH-DISPLAY-SEARCH-SPECS" D EN^XQH W:$D(IOF) @IOF Q
  1. W:$D(IOF) @IOF
  1. F ATSI=1:1 Q:'$D(^UTILITY("ATSPECS",$J,ATSI)) W !!,ATSI,". ",$P(^UTILITY("ATSPECS",$J,ATSI,0),U) W:ATSI'=1 !,$P(^(0),U,2) S ATSP=0 F L=0:0 S ATSP=$O(^UTILITY("ATSPECS",$J,ATSI,ATSP)) Q:ATSP'=+ATSP W !," ",^UTILITY("ATSPECS",$J,ATSI,ATSP)
  1. S ATSAGAN=""
  1. Q
  1. ;
  1. EOJ ;
  1. K ATSI,ATSAGAN,ATSP,%,ATSCT
  1. Q
  1. ;