Changeset 636 for FOIAVistA/tag/r/BENEFICIARY_TRAVEL-DGBT/DGBTEE.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/BENEFICIARY_TRAVEL-DGBT/DGBTEE.m
r628 r636 1 1 DGBTEE ;ALB/SCK - BENEFICIARY TRAVEL ENTER/EDIT; 12/3/92@1600 2 ;;1.0;Beneficiary Travel;**2 ,14**;September 25, 2001;Build 72 ;;1.0;Beneficiary Travel;**2**;September 25, 2001 3 3 Q 4 4 SCREEN ; … … 26 26 EDIT ; display trip type, mileage 27 27 I DGBTACCT=4!(DGBTACCT=5) S DR="32//"_DGBTML_";S DGBTML=X;31//"_DGBTOWRT_";S DGBTOWRT=X;" D ^DIE I X=""!(X="^") S DGBTTOUT=-1 Q 28 S:DGBTACCT=5&(DGBTCP=1) DGBTMR=DGBTMR1 S DGBTMLT=DGBTOWRT*DGBTML*DGBTMR,D GBTMLT=$J(DGBTMLT,0,2),DR="33///"_DGBTMLT28 S:DGBTACCT=5&(DGBTCP=1) DGBTMR=DGBTMR1 S DGBTMLT=DGBTOWRT*DGBTML*DGBTMR,DR="33///"_DGBTMLT 29 29 D ^DIE I X=""!(X="^") S DGBTTOUT=-1 Q 30 30 DIE2 ; stuff eligibility data, SC%, acct. type
Note:
See TracChangeset
for help on using the changeset viewer.