| 1 | DGMTO ;ALB/CAW - AGREE TO PAY DEDUCTABLE PRINT ; 8/12/92
|
|---|
| 2 | ;;5.3;Registration;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | EN I '$$RANGE(.DGYRAGO,.DGTODAY) G ENQ
|
|---|
| 5 | S %ZIS="PMQ" D ^%ZIS I POP G ENQ
|
|---|
| 6 | I '$D(IO("Q")) D START^DGMTO1 G ENQ
|
|---|
| 7 | S Y=$$QUE
|
|---|
| 8 | ENQ D:'$D(ZTQUEUED) ^%ZISC
|
|---|
| 9 | K DGCAT,DGLINE,DGP,DGPAGE,DGSTOP,DGTODAY,DGYRAGO,DGX,VAERR Q
|
|---|
| 10 | ;
|
|---|
| 11 | RANGE(DGYRAGO,DGTODAY) ; select date range
|
|---|
| 12 | ; input: none
|
|---|
| 13 | ; output: DGYRAGO := begin date
|
|---|
| 14 | ; DGTODAY := end date
|
|---|
| 15 | ; return: was selection made [ 1|yes 0|no]
|
|---|
| 16 | DATE S (DGYRAGO,DGTODAY)=0
|
|---|
| 17 | S %DT="PAEX",%DT("A")="Select Beginning Date: "
|
|---|
| 18 | W ! D ^%DT K %DT G RANGEQ:Y'>0 S DGYRAGO=Y
|
|---|
| 19 | I DGYRAGO>(DT_.9999) W !," Future dates are not allowed.",*7 K DGBEG G DATE
|
|---|
| 20 | S %DT="PAEX",%DT("A")="Select Ending Date: "
|
|---|
| 21 | D ^%DT K %DT G RANGEQ:Y'>0 S DGTODAY=Y_".2359"
|
|---|
| 22 | I DGTODAY>(DT_.9999) W !," Future dates are not allowed.",*7 K DGBEG G DATE
|
|---|
| 23 | I DGTODAY<DGYRAGO W !!,"Beginning Date must be prior to Ending Date" G DATE
|
|---|
| 24 | RANGEQ Q DGTODAY
|
|---|
| 25 | ;
|
|---|
| 26 | QUE() ; -- que job
|
|---|
| 27 | ; return: did job que [ 1|yes 0|no ]
|
|---|
| 28 | ;
|
|---|
| 29 | K ZTSK,IO("Q")
|
|---|
| 30 | S ZTDESC="Agreed to Pay Deductible Listing",ZTRTN="START^DGMTO1"
|
|---|
| 31 | F X="DGYRAGO","DGTODAY" S ZTSAVE(X)=""
|
|---|
| 32 | D ^%ZTLOAD W:$D(ZTSK) " (Task: ",ZTSK,")"
|
|---|
| 33 | Q $D(ZTSK)
|
|---|
