ATSERCH3.m

ATSERCH3 ;TUCSON/DG;ASKS USER IF WANTS TO STORE RESULTS AT THIS POINT  [ 10/25/91  1:38 PM ]

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

 ;

 S Y="" F L=0:0 Q:Y  D ASK

 Q

 ;

ASK ;

 S ATSRCSTR=0

 W !!,"Would you like to save the results of the following search comparison",!,"in a search template (template will be linked to the ",$P(^DIC(ATSEARCH("FILELINK"),0),U)," file) " S %=2 D YN^DICN

 I %=2 S Y=1 Q

 I %=0 D HELP Q

 I %=-1 S ATSFLAG=$S($D(^UTILITY("ATSEARCH",$J,"MERGED")):2,1:1) S Y=1 Q

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

 Q

 ;

SORTEMP ;CREATES SORT TEMPLATE WITH MERGED SEARCH RESULTS

 ;LINKS TO CHOSEN FILE

 S ATSRCSTR=1

 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 S ATSRCSTR=0 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 ATSETMP=$P(ATSEARCH("SRCHTEMPDFN",1),U)!(ATSETMP=$P(ATSEARCH("SRCHTEMPDFN",2),U)) W !!,*7,"Choose a template other than the one(s) you are using in the comparison." S Y="" Q

 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!(%=0)!(%=-1) S Y="" Q

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

 Q

 ;

SEARCH ; - EP - CREATES RESULT NODES AND SPECIFCATION NODES IN ^DIBT(ATSETMP,

 S ATSTMPNM=$P(^DIBT(ATSETMP,0),U)

 I ATSEARCH("MERGE COUNT")=0 S DIK="^DIBT(",DA=ATSETMP D ^DIK K ATSETMP W !!,*7,"The ",ATSTMPNM," template was deleted since there were 0 matches." H 3 Q

 S (ATSDFN,ATSUM,ATSEDOT)=0

 W:'ATSTASK !! F ATSL=0:0 S ATSDFN=$O(^UTILITY("ATSEARCH",$J,"MERGED",3,ATSDFN)) Q:ATSDFN'=+ATSDFN  S ^DIBT(ATSETMP,1,ATSDFN)="",ATSEDOT=ATSEDOT+1 W:'ATSTASK&('ATSEDOT#20) "."

 S ^DIBT(ATSETMP,1,0)=ATSEARCH("MERGE COUNT") ; added line 2-7-91 dg/ohprd

 I ATSTASK W !!,"There ",$S(ATSEARCH("MERGE COUNT")=1:"was ",1:"were "),ATSEARCH("MERGE COUNT"),$S(ATSEARCH("MERGE COUNT")=1:" match ",1:" matches "),"entered into the ",ATSTMPNM," search template"

 E  W "Results entered into search template" H 2

 K ATSDFN,ATSUM,ATSETMP,ATSEDOT,ATSTMPNM

 Q

 ;

HELP ;

 S XQH="ATSEARCH-CREATE-TEMPLATE",DIC(0)="X" D EN^XQH

 W:$D(IOF) @IOF

 Q

 ;

EOJ ;

 K Y

 Q

 ;

ATSERCH3  ;TUCSON/DG;ASKS USER IF WANTS TO STORE RESULTS AT THIS POINT  [ 10/25/91  1:38 PM ]

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

 +2       ;

 +3        SET Y=""

           FOR L=0:0

               IF Y

                   QUIT 

               DO ASK

 +4        QUIT 

 +5       ;

ASK       ;

 +1        SET ATSRCSTR=0

 +2        WRITE !!,"Would you like to save the results of the following search comparison",!,"in a search template (template will be linked to the ",$PIECE(^DIC(ATSEARCH("FILELINK"),0),U)," file) "

           SET %=2

           DO YN^DICN

 +3        IF %=2

               SET Y=1

               QUIT 

 +4        IF %=0

               DO HELP

               QUIT 

 +5        IF %=-1

               SET ATSFLAG=$SELECT($DATA(^UTILITY("ATSEARCH",$JOB,"MERGED")):2,1:1)

               SET Y=1

               QUIT 

 +6       IF '$TEST

               SET Y=""

               FOR L=0:0

                   IF Y

                       QUIT 

                   DO SORTEMP

 +7        QUIT 

 +8       ;

SORTEMP   ;CREATES SORT TEMPLATE WITH MERGED SEARCH RESULTS

 +1       ;LINKS TO CHOSEN FILE

 +2        SET ATSRCSTR=1

 +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

               SET ATSRCSTR=0

               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 ATSETMP=$PIECE(ATSEARCH("SRCHTEMPDFN",1),U)!(ATSETMP=$PIECE(ATSEARCH("SRCHTEMPDFN",2),U))

               WRITE !!,*7,"Choose a template other than the one(s) you are using in the comparison."

               SET Y=""

               QUIT 

 +8        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

 +9       ;IF A SEARCH TEMPLATE WITH NO RESULTS STORED

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

               SET %=1

 +10       IF %=2!(%=0)!(%=-1)

               SET Y=""

               QUIT 

 +11       IF %=1

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

               SET DIE="^DIBT("

               SET DA=ATSETMP

               SET DR="[ATSDESC]"

               DO ^DIE

               KILL DIE

               SET Y=1

               QUIT 

 +12       QUIT 

 +13      ;

SEARCH    ; - EP - CREATES RESULT NODES AND SPECIFCATION NODES IN ^DIBT(ATSETMP,

 +1        SET ATSTMPNM=$PIECE(^DIBT(ATSETMP,0),U)

 +2        IF ATSEARCH("MERGE COUNT")=0

               SET DIK="^DIBT("

               SET DA=ATSETMP

               DO ^DIK

               KILL ATSETMP

               WRITE !!,*7,"The ",ATSTMPNM," template was deleted since there were 0 matches."

               HANG 3

               QUIT 

 +3        SET (ATSDFN,ATSUM,ATSEDOT)=0

 +4        IF 'ATSTASK

               WRITE !!

           FOR ATSL=0:0

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

               IF ATSDFN'=+ATSDFN

                   QUIT 

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

               SET ATSEDOT=ATSEDOT+1

               IF 'ATSTASK&('ATSEDOT#20)

                   WRITE "."

 +5       ; added line 2-7-91 dg/ohprd

           SET ^DIBT(ATSETMP,1,0)=ATSEARCH("MERGE COUNT")

 +6        IF ATSTASK

               WRITE !!,"There ",$SELECT(ATSEARCH("MERGE COUNT")=1:"was ",1:"were "),ATSEARCH("MERGE COUNT"),$SELECT(ATSEARCH("MERGE COUNT")=1:" match ",1:" matches "),"entered into the ",ATSTMPNM," search template"

 +7       IF '$TEST

               WRITE "Results entered into search template"

               HANG 2

 +8        KILL ATSDFN,ATSUM,ATSETMP,ATSEDOT,ATSTMPNM

 +9        QUIT 

 +10      ;

HELP      ;

 +1        SET XQH="ATSEARCH-CREATE-TEMPLATE"

           SET DIC(0)="X"

           DO EN^XQH

 +2        IF $DATA(IOF)

               WRITE @IOF

 +3        QUIT 

 +4       ;

EOJ       ;

 +1        KILL Y

 +2        QUIT 

 +3       ;