21 lines
1.0 KiB
Mathematica
21 lines
1.0 KiB
Mathematica
ABSV04 ;VAMC ALTOONA/CTB - CREATE SINGLE TT04 FOR ONE VOL ;5/27/93 10:37 AM
|
|
V ;;4.0;VOLUNTARY TIMEKEEPING;;JULY 6, 1994
|
|
ONE(DA,INST,SITE) ;CREATE TT04 FOR ONE VOLUNTEER
|
|
;DA=INTERNAL NUMBER IN 503330
|
|
;INST=POINTER TO INSTITUTION FILE
|
|
;SITE=ENTERNAL VALUE OF VOLUNTARY SITE NUMBER
|
|
;
|
|
;GET VOLUNTEER & STATION LEVEL VARIABLES LEVEL VARIABLES
|
|
;
|
|
N I,X,N,LNAME,FNAME,FULLNAME,SSN,STATION,SITEYEAR,TOTHOURS,LSTAWD,DTLSTAWD,COMB,STRING,PSEUDO
|
|
;
|
|
S DIC=503330,DR=".01;1;23;.1",X="FULLNAME;SSN,I;PSEUDO;STATION"
|
|
S DR(503330.01)="14;15;16;17",DA(503330.01)=INST,X(503330.01)="SITEYEAR;TOTHOURS;LSTAWD;DTLSTAWD,I"
|
|
D EXT^ABSVU2(DIC,.DA,.DR,.X,"") K DIC,DR,X
|
|
S LNAME=$E($P(FULLNAME,","),1,14),FNAME=$E($P(FULLNAME,",",2),1,10)
|
|
S DTLSTAWD=$E(DTLSTAWD,4,5)_$E(DTLSTAWD,2,3)
|
|
;BUILD STRING
|
|
S STRING="04"_$$RBF^ABSVU2(SITE,4)_$$RBF^ABSVU2(PSEUDO,1)_$$LBF^ABSVU2(SSN,9)_$$LBF^ABSVU2(" ",24)_$$LZF^ABSVU2(SITEYEAR,2)
|
|
S STRING=STRING_$$LZF^ABSVU2(TOTHOURS,5)_$$LZF^ABSVU2(LSTAWD,5)_$$LBF^ABSVU2(DTLSTAWD,4)_$$RBF^ABSVU2(LNAME,14)_$$RBF^ABSVU2(FNAME,10)
|
|
Q STRING_"$"
|