Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAV - [#161.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call