source: FOIAVistA/trunk/r/BENEFICIARY_TRAVEL-DGBT/DGBTDST1.m@ 1589

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

initial load of FOIAVistA 6/30/08 version

File size: 969 bytes
Line 
1DGBTDST1 ;ALB/SCK - BENEFICIARY TRAVEL DIST. ENTER/EDIT CONT. ;4/26/93
2 ;;1.0;Beneficiary Travel;;September 25, 2001
3START ;
4 Q
5 ;
6CHECKS() ;
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 ;
13CRMK() ;
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 ;
19CZIP() ;
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 ;
24CMILE() ;
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
Note: See TracBrowser for help on using the repository browser.