FBAACO1 ;AISC/GRR - ENTER PAYMENT CONTINUED ;5/12/2014
Source file <FBAACO1.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^FBAAV - [#161.2] | Classic Fileman Calls |