- ATSERCHI ;TUCSON/DG; CONTINUATION OF ^ATSERCH5 [ 10/25/91 1:39 PM ]
- ;;2.5;SEARCH TEMPLATE COMPARISON;;OCT 25, 1991
- COMPMERG ; - EP - SETS VARIABLES TO COMPARE MERGED RESULTS WITH NEXT TEMPLATE
- S ATSEARCH(1,"SRCHRESLTREF")="^UTILITY(""ATSEARCH"",$J,""MERGED"",3,"
- S:X=3 ATSEARCH(2,"SRCHRESLTREF")="^UTILITY(""ATSEARCH"",$J,""MERGED"",3,"
- S ATSEARCH(1,"SRCHFILENAM")=$P(^DIC(ATSEARCH("FILELINK"),0),U),ATSEARCH(1,"SRCHFILENUM")=ATSEARCH("FILELINK"),ATSEARCH(1,"SRCHNAM")="INTERMEDIATE SEARCH RESULTS"
- S:X=3 ATSEARCH(2,"SRCHFILENAM")=$P(^DIC(ATSEARCH("FILELINK"),0),U),ATSEARCH(2,"SRCHFILENUM")=ATSEARCH("FILELINK"),ATSEARCH(2,"SRCHNAM")="INTERMEDIATE SEARCH RESULTS",ATSEINRL=1
- Q
- ;
- ATSERCHI ;TUCSON/DG; CONTINUATION OF ^ATSERCH5 [ 10/25/91 1:39 PM ]
- +1 ;;2.5;SEARCH TEMPLATE COMPARISON;;OCT 25, 1991
- COMPMERG ; - EP - SETS VARIABLES TO COMPARE MERGED RESULTS WITH NEXT TEMPLATE
- +1 SET ATSEARCH(1,"SRCHRESLTREF")="^UTILITY(""ATSEARCH"",$J,""MERGED"",3,"
- +2 IF X=3
- SET ATSEARCH(2,"SRCHRESLTREF")="^UTILITY(""ATSEARCH"",$J,""MERGED"",3,"
- +3 SET ATSEARCH(1,"SRCHFILENAM")=$PIECE(^DIC(ATSEARCH("FILELINK"),0),U)
- SET ATSEARCH(1,"SRCHFILENUM")=ATSEARCH("FILELINK")
- SET ATSEARCH(1,"SRCHNAM")="INTERMEDIATE SEARCH RESULTS"
- +4 IF X=3
- SET ATSEARCH(2,"SRCHFILENAM")=$PIECE(^DIC(ATSEARCH("FILELINK"),0),U)
- SET ATSEARCH(2,"SRCHFILENUM")=ATSEARCH("FILELINK")
- SET ATSEARCH(2,"SRCHNAM")="INTERMEDIATE SEARCH RESULTS"
- SET ATSEINRL=1
- +5 QUIT
- +6 ;