Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: FBAAIAE

Package: Fee Basis

Routine: FBAAIAE


Information

FBAAIAE ;ALB/FA - ADD/EDIT AN IPAC VENDOR AGREEMENT ;04 Dec 2013 07:27 AM

Source Information

Source file <FBAAIAE.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^DIC  FILE^DICN  ^DIE  ^DIR  
Fee Basis 2 (A,C)^FBAAIAQ  ($$LOCKVA,$$SELVA,CHKREQ,SELVA,UNLOCKVA)^FBAAIAU  
Kernel 2 $$FMTE^XLFDT  $$LJ^XLFSTR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Fee Basis 1 FBAA IPAC AGREEMENT ENTER/EDIT  

Entry Points

Name Comments DBIA/ICR reference
ADDEDIT ;EP
; Add/Edit an IPAC Vendor Agreement
; Called From: Menu - FBAA IPAC AGREEMENT Add/Edit an IPAC agreement
ADDEDIT1()
ADDVA ;
; Add a new IPAC Vendor Agreement
; Called From: ADDEDIT
VENDSEL()
FYR() ; Prompt the user for the Fiscal year of the agreement
; Input: None
; Output: None
; Returns: FYR - IEN of the selected Vendor or "" if not selected
; Called From: ADDVA
DISPVA(VENIEN) ; Display any active or new agreements on file for this vendor
; Input: VENIEN - Selected Vendor IEN
; Output: New/Active agreements for vendor are displayed
; Returns: Selected Vendor or "" if no vendor was de-selected
; Called From: ADDVA
ADDVA1(VENIEN,FYR,VAIEN) ; Add a new IPAC Vendor agreement for the selected vendor
; Input: VENIEN - Selected Vendor IEN
; FYR - Fiscal Year of the new IPAC agreement
; Output: VAIEN - IEN of the added/edited Vendor agreement
; Vendor agreement is filed for the selected vendor
; Returns: 0 if New entry couldn't be added 1 otherwise
; Called From: ADDVA
NEXTVAID()
EDITVA1(VAIEN) ; Edit the selected IPAC Vendor agreement
; Input: VAIEN - IEN of the IPAC Vendor agreement to edit
; Called From: ADDVA
LOCKVA() ; Attempt to lock the Vendor agreement file to add a new agreement
; Input: None
; Output: Vendor agreement file locked or error message displayed
; Returns: 1 - Vendor agreement file locked, 0 otherwise
UNLOCKVA() ; Unlock Vendor agreement file
; Input: None
; Output: Vendor agreement file unlocked

External References

Name Field # of Occurrence
^DIC VENDSEL+9
FILE^DICN ADDVA1+16
^DIE ADDVA1+22, NEXTVAID+13, EDITVA1+22
^DIR VENDSEL+16, FYR+12, DISPVA+13
A^FBAAIAQ ADDEDIT1+34, ADDVA+14
C^FBAAIAQ ADDEDIT1+44
$$LOCKVA^FBAAIAU ADDEDIT1+13
$$SELVA^FBAAIAU ADDEDIT1+7
CHKREQ^FBAAIAU ADDVA1+23, EDITVA1+23
SELVA^FBAAIAU DISPVA+10
UNLOCKVA^FBAAIAU ADDEDIT1+29, ADDEDIT1+35, ADDEDIT1+45
$$FMTE^XLFDT FYR+7
$$LJ^XLFSTR EDITVA1+18, EDITVA1+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This IPAC Vendor Agreement is not complete. Complete it using this option"
  • Line Location: ADDEDIT1+18
Function Call: WRITE
  • Prompt: !,"or use the IPAC Vendor Agreement delete option to delete it."
  • Line Location: ADDEDIT1+19
Function Call: WRITE
  • Prompt: !!,"This vendor has been deleted from the Austin vendor database"
  • Line Location: VENDSEL+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPVA+11
Function Call: WRITE
  • Prompt: !!," A new IPAC Agreement cannot be filed at this time."
  • Line Location: ADDVA1+18
Function Call: WRITE
  • Prompt: !!,"The IPAC Agreement you have selected has been used on one or more payment "
  • Line Location: EDITVA1+16
Function Call: WRITE
  • Prompt: !,"records. Because of this the Vendor and the Fiscal Year are not editable."
  • Line Location: EDITVA1+17
Function Call: WRITE
  • Prompt: !!," VENDOR: ",$$LJ^XLFSTR(VENDOR,38),"(No editing allowed)"
  • Line Location: EDITVA1+18
Function Call: WRITE
  • Prompt: !,"FISCAL YEAR: ",$$LJ^XLFSTR(FYR,38),"(No editing allowed)",!
  • Line Location: EDITVA1+19
Function Call: WRITE
  • Prompt: !!,"Someone is editing the IPAC Agreement file. Cannot enter a new IPAC agreement"
  • Line Location: LOCKVA+6
Function Call: WRITE
  • Prompt: !,"file at this time. Try again at a later time."
  • Line Location: LOCKVA+7
Routine Call
  • DIC
  • Line Location:
    • VENDSEL+9
Routine Call
  • DIE
  • Line Location:
    • ADDVA1+22
    • NEXTVAID+13
    • EDITVA1+22
Routine Call
  • DIR
  • Line Location:
    • VENDSEL+16
    • FYR+12
    • DISPVA+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAV - [#161.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAA(161.4 - [#161.4] NEXTVAID+6, NEXTVAID+7
^FBAA(161.95 - [#161.95] ADDEDIT1+16, ADDEDIT1+23, ADDEDIT1+25, ADDEDIT1+41, ADDVA+13, DISPVA+8, NEXTVAID+6, NEXTVAID+10, EDITVA1+5, EDITVA1+13
, EDITVA1+15, LOCKVA+4, UNLOCKVA+3
^FBAA(162.1 - [#162.1] EDITVA1+8
^FBAAC("IPAC" EDITVA1+8
^FBAAI("IPAC" EDITVA1+8
^FBAAV - [#161.2] VENDSEL+12, EDITVA1+14
^TMP($J ADDEDIT1+22!, ADDEDIT1+23*, ADDEDIT1+30!, ADDEDIT1+36!, ADDEDIT1+41, ADDEDIT1+46!

Label References

Name Line Occurrences
$$ADDEDIT1 ADDEDIT+4
$$ADDVA1 ADDVA+12
$$DISPVA ADDVA+8
$$FYR ADDVA+9
$$LOCKVA ADDVA1+8
$$NEXTVAID ADDVA1+9
$$VENDSEL ADDVA+4
ADDVA ADDEDIT1+9
EDITVA1 ADDEDIT1+24
UNLOCKVA ADDVA1+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA VENDSEL+5~, ADDVA1+7~, ADDVA1+20*, NEXTVAID+5~, NEXTVAID+12*, EDITVA1+3~, EDITVA1+4*
DIC VENDSEL+5~, VENDSEL+6*, ADDVA1+7~, ADDVA1+14*
DIC("A" VENDSEL+7*
DIC("DR" ADDVA1+15*
DIC("S" VENDSEL+8*
DIC(0 VENDSEL+6*, ADDVA1+15*
DIE ADDVA1+7~, ADDVA1+20*, NEXTVAID+5~, NEXTVAID+12*, EDITVA1+3~, EDITVA1+4*
DIR VENDSEL+5~, FYR+5~, DISPVA+5~
DIR("A" VENDSEL+15*, DISPVA+12*
DIR("B" VENDSEL+15*, FYR+11*, DISPVA+12*
DIR(0 VENDSEL+13*, FYR+6*, DISPVA+12*
DIROUT VENDSEL+5~, FYR+5~, DISPVA+5~
DIRUT VENDSEL+5~, FYR+5~, DISPVA+5~
DO ADDVA1+7~
DR ADDVA1+7~, ADDVA1+21*, NEXTVAID+5~, NEXTVAID+12*, EDITVA1+3~, EDITVA1+20*, EDITVA1+21*
DT FYR+7
DTOUT VENDSEL+5~, FYR+5~, DISPVA+5~, ADDVA1+7~, NEXTVAID+5~, EDITVA1+3~
DUOUT VENDSEL+5~, FYR+5~, DISPVA+5~
FBCURR FYR+5~, FYR+7*, FYR+8, FYR+9
FBMON FYR+5~, FYR+8*, FYR+10
FBYR FYR+5~, FYR+9*, FYR+10*, FYR+11
FLINE ADDEDIT1+4~, ADDEDIT1+5*, ADDEDIT1+7, DISPVA+5~, DISPVA+9*, DISPVA+10
FYR ADDVA+3~, ADDVA+9*, ADDVA+12, ADDVA1~, EDITVA1+12~, EDITVA1+15*, EDITVA1+19
INV EDITVA1+3~, EDITVA1+5*, EDITVA1+8*, EDITVA1+11, EDITVA1+20
IX ADDEDIT1+4~, ADDEDIT1+23*, ADDEDIT1+40*, ADDEDIT1+41
MODE ADDEDIT1+4~, ADDEDIT1+7*, ADDEDIT1+8, ADDEDIT1+9, ADDEDIT1+10*
QUIT VENDSEL+5~, VENDSEL+11*, VENDSEL+17*, VENDSEL+18
STEXT ADDEDIT1+4~, ADDEDIT1+6*, ADDEDIT1+7
U ADDEDIT1+16, ADDEDIT1+25, ADDVA+13, VENDSEL+12, ADDVA1+17, EDITVA1+5
VAEDITED ADDEDIT1+4~, ADDEDIT1+39*, ADDEDIT1+40, ADDEDIT1+41*, ADDEDIT1+44
VAID ADDVA1+7~, ADDVA1+9*, ADDVA1+14, NEXTVAID+5~, NEXTVAID+6*, NEXTVAID+7*, NEXTVAID+10*, NEXTVAID+11*, NEXTVAID+14
VAIEN ADDEDIT1+4~, ADDEDIT1+10*, ADDEDIT1+13, ADDEDIT1+16, ADDEDIT1+23, ADDEDIT1+24, ADDEDIT1+25, ADDEDIT1+29, ADDEDIT1+34, ADDEDIT1+35
, ADDEDIT1+41, ADDEDIT1+44, ADDEDIT1+45, ADDVA+3~, ADDVA+12, ADDVA+13, ADDVA+14, DISPVA+5~, ADDVA1~, ADDVA1+19*
, ADDVA1+20, ADDVA1+23, EDITVA1~, EDITVA1+4, EDITVA1+5, EDITVA1+8, EDITVA1+13, EDITVA1+15, EDITVA1+23
VASTAT ADDEDIT1+4~, ADDEDIT1+25*, ADDEDIT1+28, ADDEDIT1+33, ADDVA+3~, ADDVA+13*, ADDVA+14, DISPVA+5~, EDITVA1+3~, EDITVA1+5*
, EDITVA1+21
VASTATO ADDEDIT1+4~, ADDEDIT1+16*, ADDEDIT1+17, ADDEDIT1+33
VENDOR EDITVA1+12~, EDITVA1+13*, EDITVA1+14*, EDITVA1+18
VENIEN ADDVA+3~, ADDVA+4*, ADDVA+5, ADDVA+8, ADDVA+12, VENDSEL+5~, VENDSEL+11*, VENDSEL+12, VENDSEL+19, DISPVA~
, DISPVA+8, DISPVA+10, DISPVA+15, ADDVA1~
X VENDSEL+5~, FYR+5~, DISPVA+5~, ADDVA1+7~, ADDVA1+14*
XX ADDEDIT+3~, ADDEDIT+4*, ADDVA+3~, FYR+5~
Y VENDSEL+5~, VENDSEL+10, VENDSEL+11, VENDSEL+17, FYR+5~, FYR+13, DISPVA+5~, DISPVA+14, ADDVA1+7~, ADDVA1+17
, ADDVA1+19
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All