FBAAV3 ;AISC/GRR - CREATE & ELECTRONICALLY TRANSMIT TRANSACTIONS FOR TRAVEL PAYMENTS ;3/23/2012
Source file <FBAAV3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DETT | ; process a travel batch
|
|
GOT | ; process a travel line item
|
|
AUSDT(FBDT) | ;called to format date from VA FileMan internal to YYYYMMDD
; if input date is blank or invalid, eight spaces will be returned |
|
AUSAMT(FBAMT,FBL,FBS) | ; called to format signed dollar amount for Austin
; input ; FBAMT - dollar amount ; FBL - (optional) length of return sting ; FBS - (optional) =true(1) if return value could be negative (-) ; default is false (0) ; result ; string value, right justified, 0 padded, decimal point removed, ; with rightmost 2 numeric characters the cents ; if FBS true then rightmost character indicate the sign (' ' or '-') ; example with FBS false: 12.41 with length 8 would return '00001241' ; example with FBS true: 12.41 with length 9 would return '00001241 ' ; example with FBS true: -12.41 with length 9 would return '00001241-' |
|
AUSNUM(FBNUM,FBDEC,FBL,FBS) | ; called to format signed/unsigned numeric for Austin
; input ; FBNUM - numeric ; FBDEC - number of decimal places ; FBL - (optional) length of return sting ; FBS - (optional) =true(1) if return value could be negative (-) ; default is false (0) ; result ; string value, right justified, 0 padded, decimal point removed, ; with rightmost FBDEC=5 numeric characters the decimal part ; if FBS true then rightmost character indicate the sign (' ' or '-') ; example with FBS false: 12.41 with length 12 would return '000001241000' ; example with FBS true: 12.41 with length 13 would return '000001241000 ' ; example with FBS true: -12.41 with length 13 would return '000001241000-' |