ATSERCH4 ;TUCSON/DG;GETS STORED RESULTS FOR COMPARISON [ 10/25/91 1:31 PM ]
;;2.5;SEARCH TEMPLATE COMPARISON;;OCT 25, 1991
;
;
D ^ATSERCH3 ;GIVES USER CHANCE TO SAVE RESULTS IN A TEMPLATE
I ATSFLAG D EOJ Q
;IN CASE OF A LONG SEARCH WHERE USER MAY BE GONE AND A TIMEOUT
;KILLING THE MERGE RESULTS WOULD OCCUR
D ^ATSERCHD ;CALL TO SEE IF USER WANTS COMPARISON TO BE DONE
;VIA TASKMAN
I ATSTASK!(ATSFLAG) D EOJ Q
ZTM ;ENTRY POINT FOR TASKMAN
I $D(ZTQEUED) S ZTREQ="@" K ^UTILITY("ATSEARCH",$J)
W:'ATSTASK !!,"Please wait ..."
S ATSUB=1 D GET
S ATSUB=2 D GET
D MERGE
I ATSTASK,'$D(ATSETMP) D WRITE^ATSERCHG
I ATSRCSTR D SEARCH^ATSERCH3
D CHKMTCH^ATSERCHG
D EOJ
D:ATSTASK EOJ^ATSERCH
Q
;
GET ;GETS STORED RESULTS, PLACE IN ^UTILITY
S (ATSDFN,ATSEDOT,ATSEARCH(ATSUB,"COUNT"),ATSEARCH("MERGE COUNT"))=0
F L=0:0 S ATSDFN=$O(@(ATSEARCH(ATSUB,"SRCHRESLTREF")_ATSDFN_")")) Q:ATSDFN'=+ATSDFN D @$S($D(ATSEARCH(ATSUB,"PTEDTOFILE")):"GET3",1:"GET2")
Q
;
GET2 ;CONTINUATION OF FOR LOOP IN GET FOR A DATA FILE THAT IS NOT THE PTED
;TO FILE
S ATSENDPC=ATSEARCH(ATSUB,"DATAGLBLREF")_ATSDFN_","_ATSEARCH(ATSUB,"NODE")_")"
Q:'$D(@(ATSENDPC))&(ATSENLAG'=2)
I $D(@(ATSENDPC)) S ATSENDPC=$P(@(ATSENDPC),U,ATSEARCH(ATSUB,"PIECENUM")),ATSEFLY=""
Q:((ATSENDPC']"")!('$D(ATSEFLY)))&(ATSENLAG'=2)
S:((ATSENDPC']"")!('$D(ATSEFLY)))&(ATSENLAG=2) ATSENDPC="NULL"
S ^UTILITY("ATSEARCH",$J,ATSUB,ATSENDPC,ATSDFN)="",ATSEARCH(ATSUB,"COUNT")=ATSEARCH(ATSUB,"COUNT")+1
S ATSEDOT=ATSEDOT+1 W:'(ATSEDOT#20)&('ATSTASK) "."
Q
;
GET3 ;CONT. OF FOR LOOP IF FILE WITH SEARCH TEMPLATE LINKED TO
;IT ALSO THE POINTED TO FILE - FIELD IN FILE POINTED TO FILE MUST
;BE THE .01 FIELD OF THE FILE
S ^UTILITY("ATSEARCH",$J,ATSUB,ATSDFN,ATSDFN)="",ATSEARCH(ATSUB,"COUNT")=ATSEARCH(ATSUB,"COUNT")+1
S ATSEDOT=ATSEDOT+1 W:'(ATSEDOT#20)&('ATSTASK) "."
Q
;
MERGE ;FIRST TEMPLATE WITH LESSER COUNT, COMPARE TO TEMPLATE TWO
S (ATSPRIMY,ATSECDY)="^UTILITY(""ATSEARCH"",$J,"
I (ATSMTCH=1!(ATSMTCH="")),ATSEARCH(1,"COUNT")<ATSEARCH(2,"COUNT") S ATSPRIMY=ATSPRIMY_"1,",ATSECDY=ATSECDY_"2,"
E S:ATSMTCH=1!(ATSMTCH="") ATSPRIMY=ATSPRIMY_"2,",ATSECDY=ATSECDY_"1,"
I ATSMTCH'<2 S ATSPRIMY=$S(ATSMTCH=2:ATSPRIMY_"1,",1:ATSPRIMY_"2,"),ATSECDY=$S(ATSMTCH=2:ATSECDY_"2,",1:ATSECDY_"1,")
I $D(^UTILITY("ATSEARCH",$J,"MERGED")) D SETTEMP
K ^UTILITY("ATSEARCH",$J,"MERGED")
S ATSPTVAL=0 F L=0:0 S ATSPTVAL=$O(@(ATSPRIMY_""""_ATSPTVAL_""""_")")) Q:ATSPTVAL'=+ATSPTVAL&(ATSPTVAL'["NULL") D MERGE2
Q
;
MERGE2 ;CONT OF FOR LOOP
I @(ATSNOT_"$D(@(ATSECDY_""""""""_ATSPTVAL_""""""""_"")""))") D @$S(ATSEARCH("FILELINK")=ATSEARCH("PTRFILENUM"):"LINKPTR",1:"LINKSRCH")
Q
;
LINKPTR ;LINK COMMON POINTER VALUES OF FIELDS TO POINTER FILE
S ATSEARCH("MERGE COUNT")=ATSEARCH("MERGE COUNT")+1
S ^UTILITY("ATSEARCH",$J,"MERGED",3,ATSPTVAL)=""
Q
;
LINKSRCH ;COMMON POINTER VALUES OF FIELDS
;LINK ALL SEARCH RESULTS WITH COMMON POINTER VALUES TO SEARCH FILE
;REQUESTED BY USER VIA SEARCH FILE DFN
I '(ATSEARCH(1,"SRCHFILENUM")=ATSEARCH(2,"SRCHFILENUM")&(ATSNOT="")) S ATSDFN="" F L=0:0 S ATSDFN=$O(^UTILITY("ATSEARCH",$J,ATSX,ATSPTVAL,ATSDFN)) Q:ATSDFN'=+ATSDFN D CONT
E F ATSI=1:1:2 S ATSDFN=0 F ATSL=0:0 S ATSDFN=$O(^UTILITY("ATSEARCH",$J,ATSI,ATSPTVAL,ATSDFN)) Q:ATSDFN'=+ATSDFN D:'$D(^UTILITY("ATSEARCH",$J,"MERGED",3,ATSDFN)) CONT
Q
;
CONT ;CONT OF LINKSRCH+3
S ^UTILITY("ATSEARCH",$J,"MERGED",3,ATSDFN)="",ATSEARCH("MERGE COUNT")=ATSEARCH("MERGE COUNT")+1
Q
;
SETTEMP ;SETS NODES WITH RESULTS OF LAST SEARCH COMPARE
K ^UTILITY("ATSEARCH",$J,"TMP")
S ATSTMPN=0 F ATSL=0:0 S ATSTMPN=$O(^UTILITY("ATSEARCH",$J,"MERGED",3,ATSTMPN)) Q:ATSTMPN'=+ATSTMPN S ^UTILITY("ATSEARCH",$J,"TMP",ATSTMPN)=""
Q
;
EOJ ;
K ATSECDY,ATSPTVAL,ATSDFN,ATSPRIMY,^UTILITY("ATSEARCH",$J,1),^(2),ATSUB,ATSEDOT,ATSENDPC,ATSENUL,ATSEFLY,ATSETMP,ATSTMPN,ATSL,ATSI
Q
;
ATSERCH4 ;TUCSON/DG;GETS STORED RESULTS FOR COMPARISON [ 10/25/91 1:31 PM ]
+1 ;;2.5;SEARCH TEMPLATE COMPARISON;;OCT 25, 1991
+2 ;
+3 ;
+4 ;GIVES USER CHANCE TO SAVE RESULTS IN A TEMPLATE
DO ^ATSERCH3
+5 IF ATSFLAG
DO EOJ
QUIT
+6 ;IN CASE OF A LONG SEARCH WHERE USER MAY BE GONE AND A TIMEOUT
+7 ;KILLING THE MERGE RESULTS WOULD OCCUR
+8 ;CALL TO SEE IF USER WANTS COMPARISON TO BE DONE
DO ^ATSERCHD
+9 ;VIA TASKMAN
+10 IF ATSTASK!(ATSFLAG)
DO EOJ
QUIT
ZTM ;ENTRY POINT FOR TASKMAN
+1 IF $DATA(ZTQEUED)
SET ZTREQ="@"
KILL ^UTILITY("ATSEARCH",$JOB)
+2 IF 'ATSTASK
WRITE !!,"Please wait ..."
+3 SET ATSUB=1
DO GET
+4 SET ATSUB=2
DO GET
+5 DO MERGE
+6 IF ATSTASK
IF '$DATA(ATSETMP)
DO WRITE^ATSERCHG
+7 IF ATSRCSTR
DO SEARCH^ATSERCH3
+8 DO CHKMTCH^ATSERCHG
+9 DO EOJ
+10 IF ATSTASK
DO EOJ^ATSERCH
+11 QUIT
+12 ;
GET ;GETS STORED RESULTS, PLACE IN ^UTILITY
+1 SET (ATSDFN,ATSEDOT,ATSEARCH(ATSUB,"COUNT"),ATSEARCH("MERGE COUNT"))=0
+2 FOR L=0:0
SET ATSDFN=$ORDER(@(ATSEARCH(ATSUB,"SRCHRESLTREF")_ATSDFN_")"))
IF ATSDFN'=+ATSDFN
QUIT
DO @$SELECT($DATA(ATSEARCH(ATSUB,"PTEDTOFILE")):"GET3",1:"GET2")
+3 QUIT
+4 ;
GET2 ;CONTINUATION OF FOR LOOP IN GET FOR A DATA FILE THAT IS NOT THE PTED
+1 ;TO FILE
+2 SET ATSENDPC=ATSEARCH(ATSUB,"DATAGLBLREF")_ATSDFN_","_ATSEARCH(ATSUB,"NODE")_")"
+3 IF '$DATA(@(ATSENDPC))&(ATSENLAG'=2)
QUIT
+4 IF $DATA(@(ATSENDPC))
SET ATSENDPC=$PIECE(@(ATSENDPC),U,ATSEARCH(ATSUB,"PIECENUM"))
SET ATSEFLY=""
+5 IF ((ATSENDPC']"")!('$DATA(ATSEFLY)))&(ATSENLAG'=2)
QUIT
+6 IF ((ATSENDPC']"")!('$DATA(ATSEFLY)))&(ATSENLAG=2)
SET ATSENDPC="NULL"
+7 SET ^UTILITY("ATSEARCH",$JOB,ATSUB,ATSENDPC,ATSDFN)=""
SET ATSEARCH(ATSUB,"COUNT")=ATSEARCH(ATSUB,"COUNT")+1
+8 SET ATSEDOT=ATSEDOT+1
IF '(ATSEDOT#20)&('ATSTASK)
WRITE "."
+9 QUIT
+10 ;
GET3 ;CONT. OF FOR LOOP IF FILE WITH SEARCH TEMPLATE LINKED TO
+1 ;IT ALSO THE POINTED TO FILE - FIELD IN FILE POINTED TO FILE MUST
+2 ;BE THE .01 FIELD OF THE FILE
+3 SET ^UTILITY("ATSEARCH",$JOB,ATSUB,ATSDFN,ATSDFN)=""
SET ATSEARCH(ATSUB,"COUNT")=ATSEARCH(ATSUB,"COUNT")+1
+4 SET ATSEDOT=ATSEDOT+1
IF '(ATSEDOT#20)&('ATSTASK)
WRITE "."
+5 QUIT
+6 ;
MERGE ;FIRST TEMPLATE WITH LESSER COUNT, COMPARE TO TEMPLATE TWO
+1 SET (ATSPRIMY,ATSECDY)="^UTILITY(""ATSEARCH"",$J,"
+2 IF (ATSMTCH=1!(ATSMTCH=""))
IF ATSEARCH(1,"COUNT")<ATSEARCH(2,"COUNT")
SET ATSPRIMY=ATSPRIMY_"1,"
SET ATSECDY=ATSECDY_"2,"
+3 IF '$TEST
IF ATSMTCH=1!(ATSMTCH="")
SET ATSPRIMY=ATSPRIMY_"2,"
SET ATSECDY=ATSECDY_"1,"
+4 IF ATSMTCH'<2
SET ATSPRIMY=$SELECT(ATSMTCH=2:ATSPRIMY_"1,",1:ATSPRIMY_"2,")
SET ATSECDY=$SELECT(ATSMTCH=2:ATSECDY_"2,",1:ATSECDY_"1,")
+5 IF $DATA(^UTILITY("ATSEARCH",$JOB,"MERGED"))
DO SETTEMP
+6 KILL ^UTILITY("ATSEARCH",$JOB,"MERGED")
+7 SET ATSPTVAL=0
FOR L=0:0
SET ATSPTVAL=$ORDER(@(ATSPRIMY_""""_ATSPTVAL_""""_")"))
IF ATSPTVAL'=+ATSPTVAL&(ATSPTVAL'["NULL")
QUIT
DO MERGE2
+8 QUIT
+9 ;
MERGE2 ;CONT OF FOR LOOP
+1 IF @(ATSNOT_"$D(@(ATSECDY_""""""""_ATSPTVAL_""""""""_"")""))")
DO @$SELECT(ATSEARCH("FILELINK")=ATSEARCH("PTRFILENUM"):"LINKPTR",1:"LINKSRCH")
+2 QUIT
+3 ;
LINKPTR ;LINK COMMON POINTER VALUES OF FIELDS TO POINTER FILE
+1 SET ATSEARCH("MERGE COUNT")=ATSEARCH("MERGE COUNT")+1
+2 SET ^UTILITY("ATSEARCH",$JOB,"MERGED",3,ATSPTVAL)=""
+3 QUIT
+4 ;
LINKSRCH ;COMMON POINTER VALUES OF FIELDS
+1 ;LINK ALL SEARCH RESULTS WITH COMMON POINTER VALUES TO SEARCH FILE
+2 ;REQUESTED BY USER VIA SEARCH FILE DFN
+3 IF '(ATSEARCH(1,"SRCHFILENUM")=ATSEARCH(2,"SRCHFILENUM")&(ATSNOT=""))
SET ATSDFN=""
FOR L=0:0
SET ATSDFN=$ORDER(^UTILITY("ATSEARCH",$JOB,ATSX,ATSPTVAL,ATSDFN))
IF ATSDFN'=+ATSDFN
QUIT
DO CONT
+4 IF '$TEST
FOR ATSI=1:1:2
SET ATSDFN=0
FOR ATSL=0:0
SET ATSDFN=$ORDER(^UTILITY("ATSEARCH",$JOB,ATSI,ATSPTVAL,ATSDFN))
IF ATSDFN'=+ATSDFN
QUIT
IF '$DATA(^UTILITY("ATSEARCH",$JOB,"MERGED",3,ATSDFN))
DO CONT
+5 QUIT
+6 ;
CONT ;CONT OF LINKSRCH+3
+1 SET ^UTILITY("ATSEARCH",$JOB,"MERGED",3,ATSDFN)=""
SET ATSEARCH("MERGE COUNT")=ATSEARCH("MERGE COUNT")+1
+2 QUIT
+3 ;
SETTEMP ;SETS NODES WITH RESULTS OF LAST SEARCH COMPARE
+1 KILL ^UTILITY("ATSEARCH",$JOB,"TMP")
+2 SET ATSTMPN=0
FOR ATSL=0:0
SET ATSTMPN=$ORDER(^UTILITY("ATSEARCH",$JOB,"MERGED",3,ATSTMPN))
IF ATSTMPN'=+ATSTMPN
QUIT
SET ^UTILITY("ATSEARCH",$JOB,"TMP",ATSTMPN)=""
+3 QUIT
+4 ;
EOJ ;
+1 KILL ATSECDY,ATSPTVAL,ATSDFN,ATSPRIMY,^UTILITY("ATSEARCH",$JOB,1),^(2),ATSUB,ATSEDOT,ATSENDPC,ATSENUL,ATSEFLY,ATSETMP,ATSTMPN,ATSL,ATSI
+2 QUIT
+3 ;
