| [613] | 1 | ABSV04 ;VAMC ALTOONA/CTB - CREATE SINGLE TT04 FOR ONE VOL ;5/27/93 10:37 AM
|
|---|
| 2 | V ;;4.0;VOLUNTARY TIMEKEEPING;;JULY 6, 1994
|
|---|
| 3 | ONE(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_"$"
|
|---|
