28 lines
969 B
Mathematica
28 lines
969 B
Mathematica
DGBTDST1 ;ALB/SCK - BENEFICIARY TRAVEL DIST. ENTER/EDIT CONT. ;4/26/93
|
|
;;1.0;Beneficiary Travel;;September 25, 2001
|
|
START ;
|
|
Q
|
|
;
|
|
CHECKS() ;
|
|
N ERR
|
|
I $$CRMK W !?5,*7,">> ONE OR MORE ADDITIONAL INFORMATION FIELDS NEED TO BE COMPLETED" S ERR=1
|
|
I $$CZIP W !?5,*7,">> ONE OR MORE ZIP CODES ARE MISSING" S ERR=1
|
|
I $$CMILE W !?5,*7,">> ONE OR MORE DEFAULT MILEAGES ARE MISSING OR SET TO ZERO" S ERR=1
|
|
Q $D(ERR)>0
|
|
;
|
|
CRMK() ;
|
|
N ERR,CREC,DREC
|
|
S CREC=0 F S CREC=$O(^DGBT(392.1,CREC)) Q:'CREC!($D(ERR)) D
|
|
. 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
|
|
Q $D(ERR)>0
|
|
;
|
|
CZIP() ;
|
|
N ERR,CREC
|
|
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
|
|
Q $D(ERR)>0
|
|
;
|
|
CMILE() ;
|
|
N ERR,CREC
|
|
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
|
|
Q $D(ERR)>0
|