| 1 | DGBTDST1 ;ALB/SCK - BENEFICIARY TRAVEL DIST. ENTER/EDIT CONT. ;4/26/93
|
|---|
| 2 | ;;1.0;Beneficiary Travel;;September 25, 2001
|
|---|
| 3 | START ;
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | CHECKS() ;
|
|---|
| 7 | N ERR
|
|---|
| 8 | I $$CRMK W !?5,*7,">> ONE OR MORE ADDITIONAL INFORMATION FIELDS NEED TO BE COMPLETED" S ERR=1
|
|---|
| 9 | I $$CZIP W !?5,*7,">> ONE OR MORE ZIP CODES ARE MISSING" S ERR=1
|
|---|
| 10 | I $$CMILE W !?5,*7,">> ONE OR MORE DEFAULT MILEAGES ARE MISSING OR SET TO ZERO" S ERR=1
|
|---|
| 11 | Q $D(ERR)>0
|
|---|
| 12 | ;
|
|---|
| 13 | CRMK() ;
|
|---|
| 14 | N ERR,CREC,DREC
|
|---|
| 15 | S CREC=0 F S CREC=$O(^DGBT(392.1,CREC)) Q:'CREC!($D(ERR)) D
|
|---|
| 16 | . S DREC=0 F S DREC=$O(^DGBT(392.1,CREC,1,DREC)) Q:'DREC!($D(ERR)) S:+$P($G(^DGBT(392.1,CREC,1,DREC,0)),U,4)=1&(($P($G(^DGBT(392.1,CREC,1,DREC,0)),U,5))']"") ERR=1
|
|---|
| 17 | Q $D(ERR)>0
|
|---|
| 18 | ;
|
|---|
| 19 | CZIP() ;
|
|---|
| 20 | N ERR,CREC
|
|---|
| 21 | S CREC=0 F S CREC=$O(^DGBT(392.1,CREC)) Q:'CREC!($D(ERR)) S:$P($G(^DGBT(392.1,CREC,0)),U,4)']"" ERR=1
|
|---|
| 22 | Q $D(ERR)>0
|
|---|
| 23 | ;
|
|---|
| 24 | CMILE() ;
|
|---|
| 25 | N ERR,CREC
|
|---|
| 26 | S CREC=0 F S CREC=$O(^DGBT(392.1,CREC)) Q:'CREC!($D(ERR)) S:$P($G(^DGBT(392.1,CREC,0)),U,3)'>0 ERR=1
|
|---|
| 27 | Q $D(ERR)>0
|
|---|
