source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGMTO.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1DGMTO ;ALB/CAW - AGREE TO PAY DEDUCTABLE PRINT ; 8/12/92
2 ;;5.3;Registration;;Aug 13, 1993
3 ;
4EN 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
8ENQ D:'$D(ZTQUEUED) ^%ZISC
9 K DGCAT,DGLINE,DGP,DGPAGE,DGSTOP,DGTODAY,DGYRAGO,DGX,VAERR Q
10 ;
11RANGE(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]
16DATE 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
24RANGEQ Q DGTODAY
25 ;
26QUE() ; -- 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)
Note: See TracBrowser for help on using the repository browser.