ATSERCH5.m

ATSERCH5 ;TUCSON/DG;ASKS USER AND PROVIDES INSTRUCTION FOR STOPPING OR CONTINUING  [ 10/25/91  1:37 PM ]

 ;;2.5;SEARCH TEMPLATE COMPARISON;;OCT 25, 1991

 ;

 D CHOOSE

 D EOJ Q

CHOOSE ;DISPLAYS MENU - COMPARE AGAIN, CREATE TEMPLATE, OR STOP

 S X="" F ATSL=0:0 Q:X]""&(X=+X)&(X'<1&(X'>4))  D:X["?" HELP D CHOOSE1 R !!,"Your choice (1-4): ",X:DTIME W:X=1&(ATSRCSTR) *7,!!,"Results already stored!" G:X=1&(ATSRCSTR) CHOOSE S:'$T X="^" I X="^"!(X=4) S ATSFLAG=1 Q

 I ATSFLAG Q

 I X=1 D CALLSORT Q

 I X=2!(X=3) W:$D(IOF) @IOF D COMPMERG^ATSERCHI Q

 ;

CHOOSE1 ;WRITES MENU

 W !!,"Select by number one of the following:",!!,1," Create search template to be linked to the ",$P(^DIC(ATSEARCH("FILELINK"),0),U)," file",$S(ATSRCSTR:"   (NOT AVAILABLE)",1:"")

 W !,2," Compare the Intermediate Results with another search template"

 W !,3," Compare the Intermediate Results to itself so as to utilize a pointer field"

 W !,"  within the ",$P(^DIC(ATSEARCH("FILELINK"),0),U)," file as a basis for comparison"

 I 'ATSRCSTR W !,4," Stop without storing results and without continuing search result comparison"

 E  W !,4," Stop search comparison"

 Q

 ;

CALLSORT ; - EP - CALL TO SORTEMP TO CREATE SORT TEMPLATE

 I $D(ATSTORE),'ATSRCSTR S X="" F ATSL=0:0 Q:X]""&(X=+X)&(X=1!(X=2))  D:X["?" HELP2 D CALLSRT1 R !!,"Your choice (1 or 2): ",X:DTIME S:'$T X="^" I X="^"!(X=2) S ATSFLAG=1 Q

 I ATSRCSTR S ATSFLAG=1 Q

 I ATSFLAG=1 Q

 S Y="" F L=0:0 Q:Y]""  D SORTEMP

 I ATSFLAG=1 Q

 D SEARCH

 S ATSFLAG=1

 Q

 ;

CALLSRT1 ;CONTINUE MENU DISPLAY FROM CALLSORT

 W:$D(IOF) @IOF

 S ATSEARCH("FILELINK")=^UTILITY("ATSEARCH",$J,"FILELINK") ;IN CASE CHANGED LINKED FILE BEFORE HATTED OUT

 W !!,"Select by number one of the following:",!!,1," Create search template to be linked to the ",$P(^DIC(ATSEARCH("FILELINK"),0),U)," file"

 W !,2," Stop without storing results"

 Q

 ;

HELP ;HELP FOR CHOOSE MODULE

 S XQH="ATSEARCH-GO-OR-STOP",DIC(0)="X" D EN^XQH

 W:$D(IOF) @IOF

 Q

 ;

HELP2 ;HELP FOR CALLSORT MODULE MENU

 S XQH="ATSEARCH-STORE-STOP",DIC(0)="X" D EN^XQH

 W:$D(IOF) @IOF

 Q

 ;

SORTEMP ;CREATES SORT TEMPLATE WITH MERGED SEARCH RESULTS

 ;LINKS TO CHOSEN FILE

 S ATSMSG="W !!,*7,""Template was not created, results deleted!"""

 W ! S DIC="^DIBT(",DIC("DR")="[ATSEARCH]",DIC(0)="AEMQL",DLAYGO=.401,DIC("A")="Select SEARCH TEMPLATE: ",DIC("S")="I $P(^(0),U,5)=DUZ&($P(^(0),U,4)=ATSEARCH(""FILELINK""))" D ^DIC K DIC I Y<0 X ATSMSG S ATSFLAG=1 Q

 S ATSETMP=+Y ;SAVE DFN OF TEMPLATE CHOSEN OR CREATED BY USER

 I $D(^DIBT(ATSETMP,2)) W !!,*7,"You cannot store results in a template used only for sort purposes." S Y="" Q

 I '$D(^DIBT(ATSETMP,1))&('$D(^DIBT(ATSETMP,"DIS"))) Q  ;NO RESULTS, NO FM SEARCH CODE

 I $D(^DIBT(ATSETMP,1)) W !!,*7,"Results already stored in this template.  Do you want to have",!,"the stored data deleted" S %=1 D YN^DICN

 I '$D(^DIBT(ATSETMP,1)) S %=1 ;IF A SEARCH TEMPLATE WITH NO RESULTS STORED

 I %=2 S Y="" Q

 I %=1 S DIE="^DIBT(",DA=ATSETMP,DR="[ATSDESC]" D ^DIE K DIE D TEST Q

 I %=0 S Y="" Q

 I %=-1 W !!,*7,"End of search comparison.  Results not stored." S ATSFLAG=1 Q

 Q

 ;

TEST ;SEE IF USER HATTED OUT OF [ATSDESC]

 I $D(ATSY) S Y="" K ATSY Q

 E  K ^DIBT(ATSETMP,1),^("DIS"),^("O") S Y=1

 Q

 ;

SEARCH ;CREATES RESULTS AND SPECIFCATION NODES IN ^DIBT(ATSETMP,

 S (ATSDFN,ATSUM)=0

 W !! F ATSL=0:0 S ATSDFN=$O(^UTILITY("ATSEARCH",$J,"MERGED",3,ATSDFN)) Q:ATSDFN'=+ATSDFN  S ^DIBT(ATSETMP,1,ATSDFN)="" W "." S ATSUM=ATSUM+1 ; modified 2-7-91 dg/ohprd

 S ^DIBT(ATSETMP,1,0)=ATSUM ; added 2-7-91 dg/ohprd

 W !!,"Results entered.  Search template comparison ended!"

 Q

 ;

COMPMERG ;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

 ;

EOJ ;

 K ATSI,ATSVAR,ATSMTCH,ATSNOT,Y,%,ATSEARCH(2,"PTEDTOFILE"),ATSEARCH(1,"PTEDTOFILE"),ATSETMP,ATSENLAG

 Q

 ;

ATSERCH5  ;TUCSON/DG;ASKS USER AND PROVIDES INSTRUCTION FOR STOPPING OR CONTINUING  [ 10/25/91  1:37 PM ]

 +1       ;;2.5;SEARCH TEMPLATE COMPARISON;;OCT 25, 1991

 +2       ;

 +3        DO CHOOSE

 +4        DO EOJ

           QUIT 

CHOOSE    ;DISPLAYS MENU - COMPARE AGAIN, CREATE TEMPLATE, OR STOP

 +1        SET X=""

           FOR ATSL=0:0

               IF X]""&(X=+X)&(X'<1&(X'>4))

                   QUIT 

               IF X["?"

                   DO HELP

               DO CHOOSE1

               READ !!,"Your choice (1-4): ",X:DTIME

               IF X=1&(ATSRCSTR)

                   WRITE *7,!!,"Results already stored!"

               IF X=1&(ATSRCSTR)

                   GOTO CHOOSE

               IF '$TEST

                   SET X="^"

               IF X="^"!(X=4)

                   SET ATSFLAG=1

                   QUIT 

 +2        IF ATSFLAG

               QUIT 

 +3        IF X=1

               DO CALLSORT

               QUIT 

 +4        IF X=2!(X=3)

               IF $DATA(IOF)

                   WRITE @IOF

               DO COMPMERG^ATSERCHI

               QUIT 

 +5       ;

CHOOSE1   ;WRITES MENU

 +1        WRITE !!,"Select by number one of the following:",!!,1," Create search template to be linked to the ",$PIECE(^DIC(ATSEARCH("FILELINK"),0),U)," file",$SELECT(ATSRCSTR:"   (NOT AVAILABLE)",1:"")

 +2        WRITE !,2," Compare the Intermediate Results with another search template"

 +3        WRITE !,3," Compare the Intermediate Results to itself so as to utilize a pointer field"

 +4        WRITE !,"  within the ",$PIECE(^DIC(ATSEARCH("FILELINK"),0),U)," file as a basis for comparison"

 +5        IF 'ATSRCSTR

               WRITE !,4," Stop without storing results and without continuing search result comparison"

 +6       IF '$TEST

               WRITE !,4," Stop search comparison"

 +7        QUIT 

 +8       ;

CALLSORT  ; - EP - CALL TO SORTEMP TO CREATE SORT TEMPLATE

 +1        IF $DATA(ATSTORE)

               IF 'ATSRCSTR

                   SET X=""

                   FOR ATSL=0:0

                       IF X]""&(X=+X)&(X=1!(X=2))

                           QUIT 

                       IF X["?"

                           DO HELP2

                       DO CALLSRT1

                       READ !!,"Your choice (1 or 2): ",X:DTIME

                       IF '$TEST

                           SET X="^"

                       IF X="^"!(X=2)

                           SET ATSFLAG=1

                           QUIT 

 +2        IF ATSRCSTR

               SET ATSFLAG=1

               QUIT 

 +3        IF ATSFLAG=1

               QUIT 

 +4        SET Y=""

           FOR L=0:0

               IF Y]""

                   QUIT 

               DO SORTEMP

 +5        IF ATSFLAG=1

               QUIT 

 +6        DO SEARCH

 +7        SET ATSFLAG=1

 +8        QUIT 

 +9       ;

CALLSRT1  ;CONTINUE MENU DISPLAY FROM CALLSORT

 +1        IF $DATA(IOF)

               WRITE @IOF

 +2       ;IN CASE CHANGED LINKED FILE BEFORE HATTED OUT

           SET ATSEARCH("FILELINK")=^UTILITY("ATSEARCH",$JOB,"FILELINK")

 +3        WRITE !!,"Select by number one of the following:",!!,1," Create search template to be linked to the ",$PIECE(^DIC(ATSEARCH("FILELINK"),0),U)," file"

 +4        WRITE !,2," Stop without storing results"

 +5        QUIT 

 +6       ;

HELP      ;HELP FOR CHOOSE MODULE

 +1        SET XQH="ATSEARCH-GO-OR-STOP"

           SET DIC(0)="X"

           DO EN^XQH

 +2        IF $DATA(IOF)

               WRITE @IOF

 +3        QUIT 

 +4       ;

HELP2     ;HELP FOR CALLSORT MODULE MENU

 +1        SET XQH="ATSEARCH-STORE-STOP"

           SET DIC(0)="X"

           DO EN^XQH

 +2        IF $DATA(IOF)

               WRITE @IOF

 +3        QUIT 

 +4       ;

SORTEMP   ;CREATES SORT TEMPLATE WITH MERGED SEARCH RESULTS

 +1       ;LINKS TO CHOSEN FILE

 +2        SET ATSMSG="W !!,*7,""Template was not created, results deleted!"""

 +3        WRITE !

           SET DIC="^DIBT("

           SET DIC("DR")="[ATSEARCH]"

           SET DIC(0)="AEMQL"

           SET DLAYGO=.401

           SET DIC("A")="Select SEARCH TEMPLATE: "

           SET DIC("S")="I $P(^(0),U,5)=DUZ&($P(^(0),U,4)=ATSEARCH(""FILELINK""))"

           DO ^DIC

           KILL DIC

           IF Y<0

               XECUTE ATSMSG

               SET ATSFLAG=1

               QUIT 

 +4       ;SAVE DFN OF TEMPLATE CHOSEN OR CREATED BY USER

           SET ATSETMP=+Y

 +5        IF $DATA(^DIBT(ATSETMP,2))

               WRITE !!,*7,"You cannot store results in a template used only for sort purposes."

               SET Y=""

               QUIT 

 +6       ;NO RESULTS, NO FM SEARCH CODE

           IF '$DATA(^DIBT(ATSETMP,1))&('$DATA(^DIBT(ATSETMP,"DIS")))

               QUIT 

 +7        IF $DATA(^DIBT(ATSETMP,1))

               WRITE !!,*7,"Results already stored in this template.  Do you want to have",!,"the stored data deleted"

               SET %=1

               DO YN^DICN

 +8       ;IF A SEARCH TEMPLATE WITH NO RESULTS STORED

           IF '$DATA(^DIBT(ATSETMP,1))

               SET %=1

 +9        IF %=2

               SET Y=""

               QUIT 

 +10       IF %=1

               SET DIE="^DIBT("

               SET DA=ATSETMP

               SET DR="[ATSDESC]"

               DO ^DIE

               KILL DIE

               DO TEST

               QUIT 

 +11       IF %=0

               SET Y=""

               QUIT 

 +12       IF %=-1

               WRITE !!,*7,"End of search comparison.  Results not stored."

               SET ATSFLAG=1

               QUIT 

 +13       QUIT 

 +14      ;

TEST      ;SEE IF USER HATTED OUT OF [ATSDESC]

 +1        IF $DATA(ATSY)

               SET Y=""

               KILL ATSY

               QUIT 

 +2       IF '$TEST

               KILL ^DIBT(ATSETMP,1),^("DIS"),^("O")

               SET Y=1

 +3        QUIT 

 +4       ;

SEARCH    ;CREATES RESULTS AND SPECIFCATION NODES IN ^DIBT(ATSETMP,

 +1        SET (ATSDFN,ATSUM)=0

 +2       ; modified 2-7-91 dg/ohprd

           WRITE !!

           FOR ATSL=0:0

               SET ATSDFN=$ORDER(^UTILITY("ATSEARCH",$JOB,"MERGED",3,ATSDFN))

               IF ATSDFN'=+ATSDFN

                   QUIT 

               SET ^DIBT(ATSETMP,1,ATSDFN)=""

               WRITE "."

               SET ATSUM=ATSUM+1

 +3       ; added 2-7-91 dg/ohprd

           SET ^DIBT(ATSETMP,1,0)=ATSUM

 +4        WRITE !!,"Results entered.  Search template comparison ended!"

 +5        QUIT 

 +6       ;

COMPMERG  ;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       ;

EOJ       ;

 +1        KILL ATSI,ATSVAR,ATSMTCH,ATSNOT,Y,%,ATSEARCH(2,"PTEDTOFILE"),ATSEARCH(1,"PTEDTOFILE"),ATSETMP,ATSENLAG

 +2        QUIT 

 +3       ;