Routine: FBAAIAU

Package	Total	Call Graph
VA FileMan	5	FIELD^DID ^DIE ^DIK ($$GET1,GETS)^DIQ ^DIR
Kernel	2	$$FMTE^XLFDT ($$LJ,$$UP)^XLFSTR

Package	Total	Caller Graph
Fee Basis	5	FBAAIAD FBAAIAE FBAAIAQ FBAAIAV FBAAMP

Entry Points

Name	Comments	DBIA/ICR reference
CHKREQ(VAIEN)
DELALL	;EP ; Clean-up utility to delete all existing Vendor agreements and MRA records ; Input: None ; Output: ^FBAA(161.95) AND ^FBAA(161.96) are cleared
SELVA(FLINE,STEXT,NEW,SVENIEN)	;EP ; Displays all of the currently filed IPAC Vendor agreements and allows the user ; to select one to edit or type 'NEW' to enter a new one ; Input: FLINE - Text of the first line to be displayed ; STEXT - User Selection prompt to be displayed ; NOTE: "" is allowed here. If null, this becomes a ; display only method with no ability select a Vendor ; OR to type NEW to enter a new one ; NEW - 1 to allow NEW as a valid selection, 0 otherwise ; SVENIEN - IEN of a specified vendor ; Optional, if specified, only IPAC agreements for the ; specified vendor will be displayed ; Output: Current IPAC Vendor agreements displayed to the screen, if there are none, ; a message is displayed ; Returns: VAIEN - IEN of the selected IPAC Agreement ; 0 - User wants/needs to enter a new agreement ; "" - No IPAC Vendor Agreement was selected
SELVA1	; Looping tag
SELMRA(FLINE,STEXT,STATUS,ACTION)	;EP ; Displays all of the currently filed MRA records with a status of 'T' and ; allows the user to select one ; Input: FLINE - Text of the first line to be displayed ; STEXT - User Selection prompt to be displayed ; STATUS - 'P' - Display pending MRA Records ; 'T' - Display transmitted MRA records ; '' - Display both pending and transmitted records ; ACTION - 'A' - Display Add MRA records ; 'C' - Display Change MRA records ; 'D' - Display Deleted MRA records ; '' - Display MRA records with any type of action ; Output: MRA Records that match the specified criteria are displayed to the screen. ; If there are none, a message is displayed ; Returns: MRAIEN - IEN of the selected MRA Record ; "" - No MRA record was selected
SELMRA1	; Looping tag
VADISP(VAIEN,TOSCREEN,VAOUT)
VALOAD(VAIEN,VADATA)	;EP ; Returns an array of external field values for a specified Vendor Agreement ; Input: VAIEN - Vendor Agreement IEN ; Output: VADATA("ASN") - Agency Field Station Number ; VADATA("CALC") - Customer ALC ; VADATA("CON") - Station Contact Name ; VADATA("CONEM") - Station Contact Email ; VADATA("CONPHN")- Station Contact Phone ; VADATA("DESC") - Vendor Agreement Description ; VADATA("FY") - Fiscal Year ; VADATA("GOOD") - Description of Goods and Services ; VADATA("ID") - Vendor Agreement ID ; VADATA("LOA") - Complete line of Accounting ; VADATA("OB") - Obligating document number ; VADATA("MISC1") - Miscellaneous Info 1 ; VADATA("MISC2") - Miscellaneous Info 2 ; VADATA("RTAS") - Receiver TAS ; VADATA("SHAN") - Sharing Agreement Number ; VADATA("STAS") - Sender TAS ; VADATA("STAT") - Vendor Agreement Status ; VADATA("VENDOR")- External Vendor name ;
LOCKVA(VAIEN,DMSG)	;EP ; Attempt to lock IPAC Vendor Agreement ; Input: VAIEN - IPAC Vendor Agreement to be locked ; DMSG - 1 - Display locked message ; 0 - Don't display locked message ; Optional, defaults to 1 ; Returns: 1 - IPAC Vendor Agreement locked, 0 otherwise
UNLOCKVA(VAIEN)

Name	Field # of Occurrence
FIELD^DID	CHKREQ+15
^DIE	CHKREQ+30, DELALL+21
^DIK	DELALL+10, DELALL+17
$$GET1^DIQ	SELVA+31, SELMRA+43
GETS^DIQ	VALOAD+24
^DIR	SELVA+45, SELVA1+3, SELMRA1+3
$$FMTE^XLFDT	SELMRA+36
$$LJ^XLFSTR	SELVA+28, SELVA+29, SELVA+30, SELVA+31, SELVA+34, SELMRA+30, SELMRA+31, SELMRA+32, SELMRA+33, SELMRA+37 , SELMRA+43, SELMRA+44, VADISP+15, VADISP+16, VADISP+17, VADISP+18, VADISP+19, VADISP+20, VADISP+21, VADISP+22 , VADISP+23, VADISP+24, VADISP+25, VADISP+27, VADISP+28, VADISP+29, VADISP+32, VADISP+34, VADISP+38, VADISP+41
$$UP^XLFSTR	SELVA1+5, SELMRA1+5

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No IPAC Agreements are currently on file." Line Location: SELVA+40
Function Call: WRITE	Prompt: !! Line Location: SELVA+61
Function Call: WRITE	Prompt: !,DIR("A",LN) Line Location: SELVA+66
Function Call: WRITE	Prompt: !! Line Location: SELVA1+1
Function Call: WRITE	Prompt: !!,*7,"Enter a number from 1-"_CNT Line Location: SELVA1+10
Function Call: WRITE	Prompt: !!,"No MRA records that match the specified criteria are currently on file." Line Location: SELMRA+50
Function Call: WRITE	Prompt: !! Line Location: SELMRA1+1
Function Call: WRITE	Prompt: !!,*7,"Enter a number from 1-"_CNT Line Location: SELMRA1+9
Function Call: WRITE	Prompt: ! Line Location: VADISP+49
Routine Call	DIE Line Location: CHKREQ+30 DELALL+21
Routine Call	DIR Line Location: SELVA+45 SELVA1+3 SELMRA1+3

FileNo	Call Tags
^FBAAV - [#161.2]	GET1^DIQ
^FBAA(161.95 - [#161.95]	Classic Fileman Calls, FIELD^DID, GETS^DIQ
^FBAA(161.96 - [#161.96]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^FBAA(161.95 - [#161.95]	CHKREQ+10, CHKREQ+11, CHKREQ+25, DELALL+8, SELVA+23, SELVA+25, SELVA+29, SELVA+30, SELVA+33, SELVA+34 , SELMRA+42, SELMRA+44, VADISP+12, LOCKVA+9, UNLOCKVA+4
^FBAA(161.96 - [#161.96]	DELALL+15, SELMRA+22, SELMRA+24

Name	Line Occurrences
SELMRA1	SELMRA1+11
SELVA1	SELVA1+13
VALOAD	VADISP+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	SELMRA~, SELMRA+28, SELMRA+40, SELMRA+59, SELMRA+64
ARR	CHKREQ+9~
ARR("GLOBAL S	UBSCRIPT LOCATION" , CHKREQ+17
ARR("SPECIFIER"	CHKREQ+16
CNT	SELVA+17~, SELVA+21, SELVA+27, SELVA+28, SELVA+35, SELVA+37, SELVA1+8, SELVA1+10, SELMRA+16~, SELMRA+20* , SELMRA+29*, SELMRA+30, SELMRA+40, SELMRA+45, SELMRA+47, SELMRA1+7, SELMRA1+9
DA	CHKREQ+9~, CHKREQ+28, DELALL+4~, DELALL+6, DELALL+7, DELALL+8, DELALL+9, DELALL+13, DELALL+14, DELALL+15* , DELALL+16, DELALL+20*
DIE	CHKREQ+9~, CHKREQ+28, DELALL+4~, DELALL+20
DIK	DELALL+4~, DELALL+5, DELALL+12
DIR	SELVA+17~, SELMRA+16~
DIR("A"	SELVA+43, SELVA+51, SELVA+52, SELVA+53, SELVA+54, SELVA+59, SELVA+64, SELVA+66, SELVA+67, SELVA+68 , SELVA+69, SELMRA+54, SELMRA+55, SELMRA+56, SELMRA+58, SELMRA+60, SELMRA+61, SELMRA+63, SELMRA+65, SELMRA+70 , SELMRA+71, SELMRA+72, SELMRA+73*
DIR("B"	SELVA+50*
DIR(0	SELVA+44, SELVA+49, SELMRA+53*
DIROUT	SELVA+17~, SELMRA+16~
DIRUT	SELVA+17~, SELMRA+16~
DMSG	LOCKVA~, LOCKVA+8*, LOCKVA+11
DR	CHKREQ+9~, CHKREQ+29, DELALL+4~, DELALL+20
DTOUT	CHKREQ+9~, DELALL+4~, SELVA+17~, SELVA1+4, SELMRA+16~, SELMRA1+4
DUOUT	SELVA+17~, SELVA1+4, SELMRA+16~, SELMRA1+4
ERR	CHKREQ+9~
FLD	CHKREQ+9~, CHKREQ+14, CHKREQ+15, CHKREQ+17, CHKREQ+20, CHKREQ+21, CHKREQ+22*, CHKREQ+23, CHKREQ+24
FLDINFO	CHKREQ+9~
FLDINFO(	CHKREQ+17*, CHKREQ+22, CHKREQ+24
FLINE	SELVA~, SELVA+51, SELMRA~, SELMRA+54
IPAC	VALOAD+23~
IPAC(	VALOAD+25, VALOAD+27, VALOAD+28, VALOAD+29, VALOAD+30, VALOAD+31, VALOAD+32, VALOAD+33, VALOAD+34, VALOAD+35 , VALOAD+36, VALOAD+37, VALOAD+38, VALOAD+39, VALOAD+40, VALOAD+41, VALOAD+42, VALOAD+43
IX	SELVA+17~, SELVA+55, SELVA+56, SELVA+57, SELVA+58, SELVA+59, SELMRA+16~, SELMRA+66, SELMRA+67, SELMRA+68 , SELMRA+69, SELMRA+70
LN	SELVA+17~, SELVA+49, SELVA+51, SELVA+52, SELVA+53, SELVA+54, SELVA+59, SELVA+62, SELVA+63, SELVA+64 , SELVA+65, SELVA+66, SELVA+67, SELVA+68, SELMRA+16~, SELMRA+53, SELMRA+54, SELMRA+55, SELMRA+56, SELMRA+58 , SELMRA+60, SELMRA+61, SELMRA+63, SELMRA+65, SELMRA+70, SELMRA+71, SELMRA+72, VADISP+9~, VADISP+45, VADISP+46 , VADISP+47, VADISP+48, VADISP+49, VADISP+50
MRAACT	SELMRA+16~, SELMRA+25*, SELMRA+28, SELMRA+33
MRADATA	SELMRA+16~
MRADATA(	SELMRA+40, SELMRA+45, SELMRA+68, SELMRA+70, SELMRA1+7
MRAIEN	SELMRA+16~, SELMRA+20, SELMRA+21, SELMRA+22, SELMRA+23, SELMRA+24, SELMRA+40, SELMRA+45
MRASTAT	SELMRA+16~, SELMRA+26*, SELMRA+27, SELMRA+32
NDE	CHKREQ+9~, CHKREQ+24*, CHKREQ+25
NEW	SELVA~, SELVA+41, SELVA+42, SELVA+50, SELVA1+6, SELVA1+7, SELVA1+11
OUT	SELVA+17~, SELVA+37, SELVA+38, SELVA+46, SELMRA+17~, SELMRA+47, SELMRA+48*
PCE	CHKREQ+9~, CHKREQ+24*, CHKREQ+25
STATUS	SELMRA~, SELMRA+27, SELMRA+34, SELMRA+57, SELMRA+62
STEXT	SELVA~, SELVA+39, SELVA+60, SELVA+68, SELMRA~, SELMRA+49, SELMRA+72
STOP	CHKREQ+9~, CHKREQ+20, CHKREQ+21, CHKREQ+25, CHKREQ+26
SVENIEN	SELVA~, SELVA+18*, SELVA+26
TDT	SELMRA+17~, SELMRA+35, SELMRA+36, SELMRA+37
TOSCREEN	VADISP~, VADISP+43
U	CHKREQ+11, CHKREQ+25, SELVA+25, SELVA+29, SELVA+30, SELVA+33, SELVA+34, SELVA+35, SELVA+59, SELVA1+8 , SELMRA+25, SELMRA+26, SELMRA+31, SELMRA+35, SELMRA+40, SELMRA+41, SELMRA+42, SELMRA+44, SELMRA+45, SELMRA+70 , SELMRA1+7
VADATA	SELVA+17~, VADISP+9~, VADISP+14, VALOAD~
VADATA(	SELVA+35*, SELVA+57, SELVA+59, SELVA1+8
VADATA("ASN"	VADISP+24, VALOAD+35*
VADATA("CALC"	VADISP+21, VALOAD+32*
VADATA("CON"	VADISP+27, VALOAD+37*
VADATA("CONEM"	VADISP+29, VALOAD+39*
VADATA("CONPHN"	VADISP+28, VALOAD+38*
VADATA("DESC"	VADISP+19, VALOAD+30*
VADATA("FY"	VADISP+17, VALOAD+28*
VADATA("GOOD"	VADISP+34, VALOAD+41*
VADATA("ID"	VADISP+15, VALOAD+25*
VADATA("LOA"	VADISP+32, VALOAD+40*
VADATA("MISC1"	VADISP+38, VALOAD+42*
VADATA("MISC2"	VADISP+41, VALOAD+43*
VADATA("OB"	VADISP+25, VALOAD+36*
VADATA("RTAS"	VADISP+22, VALOAD+33*
VADATA("SHAN"	VADISP+20, VALOAD+31*
VADATA("STAS"	VADISP+23, VALOAD+34*
VADATA("STAT"	VADISP+16, VALOAD+29*
VADATA("VENDOR"	VADISP+18, VALOAD+27*
VAIEN	CHKREQ~, CHKREQ+10, CHKREQ+11, CHKREQ+25, CHKREQ+28, SELVA+17~, SELVA+21, SELVA+22, SELVA+23, SELVA+24 , SELVA+25, SELVA+29, SELVA+30, SELVA+33, SELVA+34, SELVA+35, SELMRA+17~, SELMRA+41*, SELMRA+42, SELMRA+44 , VADISP~, VADISP+12, VADISP+14, VALOAD~, VALOAD+24, VALOAD+25, VALOAD+27, VALOAD+28, VALOAD+29, VALOAD+30 , VALOAD+31, VALOAD+32, VALOAD+33, VALOAD+34, VALOAD+35, VALOAD+36, VALOAD+37, VALOAD+38, VALOAD+39, VALOAD+40 , VALOAD+41, VALOAD+42, VALOAD+43, LOCKVA~, LOCKVA+9, UNLOCKVA~, UNLOCKVA+4
VAOUT	VADISP~, VADISP+10!, VADISP+51!
VAOUT(	VADISP+47, VADISP+49, VADISP+50
VAOUT(1	VADISP+15, VADISP+16, VADISP+17*
VAOUT(10	VADISP+28, VADISP+29
VAOUT(11	VADISP+30*
VAOUT(12	VADISP+31*
VAOUT(13	VADISP+32*
VAOUT(14	VADISP+33*
VAOUT(15	VADISP+34*
VAOUT(16	VADISP+35*
VAOUT(17	VADISP+36*
VAOUT(18	VADISP+37*
VAOUT(19	VADISP+38*
VAOUT(2	VADISP+18*
VAOUT(20	VADISP+39*
VAOUT(21	VADISP+40*
VAOUT(22	VADISP+41*
VAOUT(23	VADISP+42*
VAOUT(3	VADISP+19*
VAOUT(4	VADISP+20*
VAOUT(5	VADISP+21, VADISP+22
VAOUT(6	VADISP+23*
VAOUT(7	VADISP+24, VADISP+25
VAOUT(8	VADISP+26*
VAOUT(9	VADISP+27*
VENIEN	SELVA+17~, SELVA+25, SELVA+26, SELVA+31, SELMRA+17~, SELMRA+42, SELMRA+43
X	SELVA+17~, SELVA1+2!, SELMRA+17~, SELMRA1+2!
XX	SELVA+17~, SELVA+28, SELVA+29, SELVA+30, SELVA+31, SELVA+32, SELVA+33, SELVA+34, SELVA+35, SELVA1+5 , SELVA1+6, SELVA1+7, SELVA1+8, SELMRA+17~, SELMRA+30, SELMRA+31, SELMRA+32, SELMRA+33, SELMRA+37, SELMRA+40 , SELMRA+43, SELMRA+44, SELMRA+45, SELMRA1+5, SELMRA1+6, SELMRA1+7, VADISP+9~, VADISP+15, VADISP+16, VADISP+17* , VADISP+18, VADISP+19, VADISP+20, VADISP+21, VADISP+22, VADISP+23, VADISP+24, VADISP+25, VADISP+27, VADISP+28 , VADISP+29, VADISP+30, VADISP+32, VADISP+34, VADISP+35, VADISP+36, VADISP+38, VADISP+39, VADISP+40, VADISP+41* , VADISP+42
Y	SELVA+17~, SELVA+46, SELVA1+2!, SELVA1+5, SELMRA+17~, SELMRA1+2!, SELMRA1+5
ZZ	SELMRA+17~, SELMRA+24*, SELMRA+25, SELMRA+26, SELMRA+31, SELMRA+35, SELMRA+41

Customize PDF page

Package: Fee Basis

Routine: FBAAIAU

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: