Routine: FBAAV3

Information

FBAAV3 ;AISC/GRR - CREATE & ELECTRONICALLY TRANSMIT TRANSACTIONS FOR TRAVEL PAYMENTS ;3/23/2012

Package	Total	Call Graph
Fee Basis	5	PAT^FBAAUTL2 UPD^FBAAV0 ($$PADZ,NEWMSG,STORE,XMIT)^FBAAV01 $$HL7NAME^FBAAV4 $$ORGICN^FBAAVR5
Kernel	2	$$FMTHL7^XLFDT $$RJ^XLFSTR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 5

Package	Total	Caller Graph
Fee Basis	5	FBAAV0 FBAAV01 FBAAV2 FBAAV5 FBAAVR5

Entry Points

Name	Comments	DBIA/ICR reference
DETT	; process a travel batch	ICR #5109 Status: Retired Usage: Controlled Subscription
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	ICR #5109 Status: Retired Usage: Controlled Subscription
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-'	ICR #5109 Status: Retired Usage: Controlled Subscription
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-'

External References

Name	Field # of Occurrence
PAT^FBAAUTL2	GOT+10
UPD^FBAAV0	DETT+7
$$PADZ^FBAAV01	GOT+13
NEWMSG^FBAAV01	DETT+7
STORE^FBAAV01	DETT+7, GOT+14
XMIT^FBAAV01	DETT+9
$$HL7NAME^FBAAV4	GOT+11
$$ORGICN^FBAAVR5	DETT+6
$$FMTHL7^XLFDT	AUSDT+4
$$RJ^XLFSTR	AUSAMT+29, AUSNUM+30

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GOT+6, GOT+9
^FBAAC - [#162]	DETT+4
^FBAAC("AD"	DETT+4

Label References

Name	Line Occurrences
$$AUSAMT	GOT+3
$$AUSDT	GOT+2
GOT	DETT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	GOT+1~, GOT+4*, GOT+5, GOT+6, GOT+9, GOT+11
>> FBAAON	GOT+12
>> FBAASN	GOT+12
FBAMT	AUSAMT~, AUSAMT+17, AUSAMT+26
>> FBAP	GOT+3*, GOT+12
FBDEC	AUSNUM~, AUSNUM+21
FBDT	AUSDT~, AUSDT+4
FBL	AUSAMT~, AUSAMT+29, AUSNUM~, AUSNUM+30
FBNUM	AUSNUM~, AUSNUM+18, AUSNUM+27
FBPICN	DETT+5, DETT+6, GOT+13, GOT+15!
FBPNAMX	GOT+1~, GOT+11*, GOT+12
FBRET	AUSDT+3~, AUSDT+4, AUSDT+5, AUSDT+6, AUSAMT+14~, AUSAMT+17, AUSAMT+20, AUSAMT+23, AUSAMT+26, AUSAMT+29* , AUSAMT+32, AUSNUM+15~, AUSNUM+18, AUSNUM+21, AUSNUM+24, AUSNUM+27, AUSNUM+30*, AUSNUM+33
FBS	AUSAMT~, AUSAMT+26, AUSNUM~, AUSNUM+27
>> FBSSN	GOT+12
>> FBSTR	GOT+12, GOT+13
>> FBTD	GOT+2*, GOT+12, GOT+13
>> FBTXT	DETT+1, DETT+7, DETT+9
>> J	DETT+4
>> K	DETT+4*, DETT+5, GOT+4
>> L	DETT+4*, DETT+5
>> PAD	GOT+12
U	DETT+5, GOT+2
>> Y(0	DETT+4, GOT+2, GOT+3, GOT+9

Customize PDF page

Package: Fee Basis