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: FBAACO1

Package: Fee Basis

Routine: FBAACO1


Information

FBAACO1 ;AISC/GRR - ENTER PAYMENT CONTINUED ;5/12/2014

Source Information

Source file <FBAACO1.m>

Entry Points

Name Comments DBIA/ICR reference
SVCPR ;set up service provided multiple
; input FBASSOC (auth ptr,0 if not known)
PPT(FBDEF,FBDEFC,FB162) ;establishes prompt pay type and contract for entry
; input
; FBDEF = (optional) default for DIR prompt: =1 for yes, else no
; FBDEFC = (optional) default for the contract prompt
; FBAAMM = ppt if 1 ask for each line item; if 0 don't ask
; FBV = vendor (ien) being paid
; FBVEN = vendor (ien) from authorization
; FBCNTRA= contract (ien) from authorization
; FB583 = (optional) $D(FB583) true if unauthorized claim
; FB162 = (optional) = 1 if payment line item in sub-file 162.03 is being edited. FBDEF and FBDEFC must be current values.
; output
; FBAAMM1 = the ppt for the line item
; FBCNTRP = contract ien for the line item
Q
POS ; prompt for place of service
; output
; FBHCFA(30) = place of service (internal)
GETVEN ;select vendor from vendor file
GETVEN1
GETVEN2
GETINV ;assign invoice number or select existing invoice number
GETINV1 ;selects existing invoice if user does not choose to assign new number
GETINDT ;get invoice dates
GETIND1
DISPINV ;display invoice totals

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SVCPR+3
Function Call: WRITE
  • Prompt: !,"Contract is ",$P($G(^FBAA(161.43,FBCNTRA,0)),U)," from the authorization."
  • Line Location: PPT+18
Function Call: WRITE
  • Prompt: !,"Invoice ",$S(FBDEF=1:"is",1:"is not")," for contracted services."
  • Line Location: PPT+24
Function Call: WRITE
  • Prompt: !,$C(7),"Required Response!"
  • Line Location: PPT+31
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETVEN+1
Function Call: WRITE
  • Prompt: !!,"Invoice # ",FBAAIN," assigned to this Invoice"
  • Line Location: GETINV+2
Function Call: WRITE
  • Prompt: !,$C(7),"Only previously entered invoices in the same batch may be selected!"
  • Line Location: GETINV1+4
Function Call: WRITE
  • Prompt: !,"Enter Date Correct Invoice Received or Last Date of Service"
  • Line Location: GETINDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: GETIND1+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Vendor's invoice date is later than the date you received it!!"
  • Line Location: GETIND1+1
Function Call: WRITE
  • Prompt: !!,"$ ",$P(^(0),"^",3)," for travel already entered for this date of service"
  • Line Location: DISPINV+3

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