DGMTO.m

DGMTO ;ALB/CAW - AGREE TO PAY DEDUCTABLE PRINT ; 8/12/92

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 ;

EN I '$$RANGE(.DGYRAGO,.DGTODAY) G ENQ

 S %ZIS="PMQ" D ^%ZIS I POP G ENQ

 I '$D(IO("Q")) D START^DGMTO1 G ENQ

 S Y=$$QUE

ENQ D:'$D(ZTQUEUED) ^%ZISC

 K DGCAT,DGLINE,DGP,DGPAGE,DGSTOP,DGTODAY,DGYRAGO,DGX,VAERR Q

 ;

RANGE(DGYRAGO,DGTODAY) ; select date range

 ;  input: none

 ; output: DGYRAGO := begin date

 ;         DGTODAY := end date

 ; return: was selection made [ 1|yes   0|no]

DATE S (DGYRAGO,DGTODAY)=0

 S %DT="PAEX",%DT("A")="Select Beginning Date: "

 W ! D ^%DT K %DT G RANGEQ:Y'>0 S DGYRAGO=Y

 I DGYRAGO>(DT_.9999) W !,"   Future dates are not allowed.",*7 K DGBEG G DATE

 S %DT="PAEX",%DT("A")="Select    Ending Date: "

 D ^%DT K %DT G RANGEQ:Y'>0 S DGTODAY=Y_".2359"

 I DGTODAY>(DT_.9999) W !,"   Future dates are not allowed.",*7 K DGBEG G DATE

 I DGTODAY<DGYRAGO W !!,"Beginning Date must be prior to Ending Date" G DATE

RANGEQ Q DGTODAY

 ;

QUE() ; -- que job

 ; return: did job que [ 1|yes   0|no ]

 ;

 K ZTSK,IO("Q")

 S ZTDESC="Agreed to Pay Deductible Listing",ZTRTN="START^DGMTO1"

 F X="DGYRAGO","DGTODAY" S ZTSAVE(X)=""

 D ^%ZTLOAD W:$D(ZTSK) "   (Task: ",ZTSK,")"

 Q $D(ZTSK)

DGMTO     ;ALB/CAW - AGREE TO PAY DEDUCTABLE PRINT ; 8/12/92

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2       ;

EN         IF '$$RANGE(.DGYRAGO,.DGTODAY)

               GOTO ENQ

 +1        SET %ZIS="PMQ"

           DO ^%ZIS

           IF POP

               GOTO ENQ

 +2        IF '$DATA(IO("Q"))

               DO START^DGMTO1

               GOTO ENQ

 +3        SET Y=$$QUE

ENQ        IF '$DATA(ZTQUEUED)

               DO ^%ZISC

 +1        KILL DGCAT,DGLINE,DGP,DGPAGE,DGSTOP,DGTODAY,DGYRAGO,DGX,VAERR

           QUIT 

 +2       ;

RANGE(DGYRAGO,DGTODAY) ; select date range

 +1       ;  input: none

 +2       ; output: DGYRAGO := begin date

 +3       ;         DGTODAY := end date

 +4       ; return: was selection made [ 1|yes   0|no]

DATE       SET (DGYRAGO,DGTODAY)=0

 +1        SET %DT="PAEX"

           SET %DT("A")="Select Beginning Date: "

 +2        WRITE !

           DO ^%DT

           KILL %DT

           IF Y'>0

               GOTO RANGEQ

           SET DGYRAGO=Y

 +3        IF DGYRAGO>(DT_.9999)

               WRITE !,"   Future dates are not allowed.",*7

               KILL DGBEG

               GOTO DATE

 +4        SET %DT="PAEX"

           SET %DT("A")="Select    Ending Date: "

 +5        DO ^%DT

           KILL %DT

           IF Y'>0

               GOTO RANGEQ

           SET DGTODAY=Y_".2359"

 +6        IF DGTODAY>(DT_.9999)

               WRITE !,"   Future dates are not allowed.",*7

               KILL DGBEG

               GOTO DATE

 +7        IF DGTODAY<DGYRAGO

               WRITE !!,"Beginning Date must be prior to Ending Date"

               GOTO DATE

RANGEQ     QUIT DGTODAY

 +1       ;

QUE()     ; -- que job

 +1       ; return: did job que [ 1|yes   0|no ]

 +2       ;

 +3        KILL ZTSK,IO("Q")

 +4        SET ZTDESC="Agreed to Pay Deductible Listing"

           SET ZTRTN="START^DGMTO1"

 +5        FOR X="DGYRAGO","DGTODAY"

               SET ZTSAVE(X)=""

 +6        DO ^%ZTLOAD

           IF $DATA(ZTSK)

               WRITE "   (Task: ",ZTSK,")"

 +7        QUIT $DATA(ZTSK)