- 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)
