source: FOIAVistA/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSV04.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1ABSV04 ;VAMC ALTOONA/CTB - CREATE SINGLE TT04 FOR ONE VOL ;5/27/93 10:37 AM
2V ;;4.0;VOLUNTARY TIMEKEEPING;;JULY 6, 1994
3ONE(DA,INST,SITE) ;CREATE TT04 FOR ONE VOLUNTEER
4 ;DA=INTERNAL NUMBER IN 503330
5 ;INST=POINTER TO INSTITUTION FILE
6 ;SITE=ENTERNAL VALUE OF VOLUNTARY SITE NUMBER
7 ;
8 ;GET VOLUNTEER & STATION LEVEL VARIABLES LEVEL VARIABLES
9 ;
10 N I,X,N,LNAME,FNAME,FULLNAME,SSN,STATION,SITEYEAR,TOTHOURS,LSTAWD,DTLSTAWD,COMB,STRING,PSEUDO
11 ;
12 S DIC=503330,DR=".01;1;23;.1",X="FULLNAME;SSN,I;PSEUDO;STATION"
13 S DR(503330.01)="14;15;16;17",DA(503330.01)=INST,X(503330.01)="SITEYEAR;TOTHOURS;LSTAWD;DTLSTAWD,I"
14 D EXT^ABSVU2(DIC,.DA,.DR,.X,"") K DIC,DR,X
15 S LNAME=$E($P(FULLNAME,","),1,14),FNAME=$E($P(FULLNAME,",",2),1,10)
16 S DTLSTAWD=$E(DTLSTAWD,4,5)_$E(DTLSTAWD,2,3)
17 ;BUILD STRING
18 S STRING="04"_$$RBF^ABSVU2(SITE,4)_$$RBF^ABSVU2(PSEUDO,1)_$$LBF^ABSVU2(SSN,9)_$$LBF^ABSVU2(" ",24)_$$LZF^ABSVU2(SITEYEAR,2)
19 S STRING=STRING_$$LZF^ABSVU2(TOTHOURS,5)_$$LZF^ABSVU2(LSTAWD,5)_$$LBF^ABSVU2(DTLSTAWD,4)_$$RBF^ABSVU2(LNAME,14)_$$RBF^ABSVU2(FNAME,10)
20 Q STRING_"$"
Note: See TracBrowser for help on using the repository browser.