ATXTSK.m

ATXTSK ; IHS/OHPRD/TMJ -  CALL TO TASKMAN ; 

 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48

 ;

 S ATXGO=0

 D ASK

 K IO("Q")

 D:ATXGO ZIS

 S ATXTSK=0

 I $D(IO("Q")),'POP S ATXTSK=1 D @$S($D(ATXPAT)!(ATXFIL=9000010.07):"TSKMN",1:"TSKMN1")

 D EOJ

 Q

 ;

ASK ;

 W !!,"Do you want to queue the search template creation to another device" S %=2 D YN^DICN

 I %=2 W ! G A

 I %=0 D HELP G ASK

 I %=-1 S ATXTP=0 G A

 I %=1 S ATXGO=1

A Q

 ;

ZIS ;

 W !! S %ZIS="PQ",IOP="Q" D ^%ZIS

 Q

 ;

TSKMN ;CALL TO ATXPVT TO CREATE TEMPLATE WITH PATS ($D(ATXPAT)) OR POVS FOR DATE RANGE

 K ZTSAVE F %="ATXBDT","ATXEDT","ATXTMP","ATXX","ATXTSK","ATXFIL" S ZTSAVE(%)=""

 S:$D(ATXPAT) ZTSAVE("ATXPAT")=""

 S ZTRTN="ZTM^ATXPVT",ZTDESC="TAX SEARCH TEMPLATE",ZTIO=IO,ZTDTH="" D ^%ZTLOAD

 K ZTSK

 Q

 ;

TSKMN1 ;CALL TO ATXRCH FOR EITHER RETROSPECTIVE OR CURRENT LIST OF ALL PTS WHO FALL IN THE TAXONOMY

 K ZTSAVE F %="ATXTSK","ATXX","ATXTMP" S ZTSAVE(%)=""

 S ZTRTN="ZTM^ATXRCH",ZTDESC="TAX SEARCH TEMPLATE",ZTIO=IO,ZTDTH="" D ^%ZTLOAD

 K ZTSK

 Q

 ;

HELP ;

 W !!,"Queuing will free up your terminal.  You should queue for after hours so as",!,"not to slow up the computer.  Queuing to a printer will produce an output",!,"telling the number of entries made into the template you created."

 W:$D(IOF) @IOF

 Q

 ;

EOJ ;

 K ATXGO,ATXQT,IO("Q")

 Q

 ;

ATXTSK    ; IHS/OHPRD/TMJ -  CALL TO TASKMAN ; 

 +1       ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48

 +2       ;

 +3        SET ATXGO=0

 +4        DO ASK

 +5        KILL IO("Q")

 +6        IF ATXGO

               DO ZIS

 +7        SET ATXTSK=0

 +8        IF $DATA(IO("Q"))

               IF 'POP

                   SET ATXTSK=1

                   DO @$SELECT($DATA(ATXPAT)!(ATXFIL=9000010.07):"TSKMN",1:"TSKMN1")

 +9        DO EOJ

 +10       QUIT 

 +11      ;

ASK       ;

 +1        WRITE !!,"Do you want to queue the search template creation to another device"

           SET %=2

           DO YN^DICN

 +2        IF %=2

               WRITE !

               GOTO A

 +3        IF %=0

               DO HELP

               GOTO ASK

 +4        IF %=-1

               SET ATXTP=0

               GOTO A

 +5        IF %=1

               SET ATXGO=1

A          QUIT 

 +1       ;

ZIS       ;

 +1        WRITE !!

           SET %ZIS="PQ"

           SET IOP="Q"

           DO ^%ZIS

 +2        QUIT 

 +3       ;

TSKMN     ;CALL TO ATXPVT TO CREATE TEMPLATE WITH PATS ($D(ATXPAT)) OR POVS FOR DATE RANGE

 +1        KILL ZTSAVE

           FOR %="ATXBDT","ATXEDT","ATXTMP","ATXX","ATXTSK","ATXFIL"

               SET ZTSAVE(%)=""

 +2        IF $DATA(ATXPAT)

               SET ZTSAVE("ATXPAT")=""

 +3        SET ZTRTN="ZTM^ATXPVT"

           SET ZTDESC="TAX SEARCH TEMPLATE"

           SET ZTIO=IO

           SET ZTDTH=""

           DO ^%ZTLOAD

 +4        KILL ZTSK

 +5        QUIT 

 +6       ;

TSKMN1    ;CALL TO ATXRCH FOR EITHER RETROSPECTIVE OR CURRENT LIST OF ALL PTS WHO FALL IN THE TAXONOMY

 +1        KILL ZTSAVE

           FOR %="ATXTSK","ATXX","ATXTMP"

               SET ZTSAVE(%)=""

 +2        SET ZTRTN="ZTM^ATXRCH"

           SET ZTDESC="TAX SEARCH TEMPLATE"

           SET ZTIO=IO

           SET ZTDTH=""

           DO ^%ZTLOAD

 +3        KILL ZTSK

 +4        QUIT 

 +5       ;

HELP      ;

 +1        WRITE !!,"Queuing will free up your terminal.  You should queue for after hours so as",!,"not to slow up the computer.  Queuing to a printer will produce an output",!,"telling the number of entries made into the template you created."

 +2        IF $DATA(IOF)

               WRITE @IOF

 +3        QUIT 

 +4       ;

EOJ       ;

 +1        KILL ATXGO,ATXQT,IO("Q")

 +2        QUIT 

 +3       ;