ATSERCHI.m

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       ;