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

Package: Fee Basis

Routine: FBUCPAY


Information

FBUCPAY ;ALBISC/TET - PAYMENT DRIVER ;12/17/2014

Source Information

Source file <FBUCPAY.m>

Entry Points

Name Comments DBIA/ICR reference
ASK ;ask to whom payment should be made, vendor and veteran (to narrow selection)
GET ;get claim for payment, only approved dispositioned claims, non cnh program, ven and vet must match
VET ;get vet info
VEN ;get vendor info
LOOKUP ;select claim
LOOP ;loop thru selection and make payments
PAY(FBVET,FBPAY,FBZ) ;determine payments
END ;kill variables and quit
WRITE ;write message
CR ;ask carriage return to continue
GO(X) ;X=counter from ^TMP("FBAR",$J,X)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7
  • Line Location: PAY+1
Function Call: WRITE
  • Prompt: *7,!
  • Line Location: PAY+3
Function Call: WRITE
  • Prompt: !!,"You cannot process a payment associated with authorization ",DFN,"-",FTP
  • Line Location: PAY+10
Function Call: WRITE
  • Prompt: !,"due to separation of duties."
  • Line Location: PAY+11
Function Call: WRITE
  • Prompt: *7
  • Line Location: PAY+13
Function Call: WRITE
  • Prompt: *7
  • Line Location: PAY+14
Function Call: WRITE
  • Prompt: *7
  • Line Location: PAY+15
Function Call: WRITE
  • Prompt: @IOF,!?25,"< UNAUTHORIZED CLAIM >",!!
  • Line Location: PAY+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PAY+18
Function Call: WRITE
  • Prompt: *7,!
  • Line Location: PAY+28
Function Call: WRITE
  • Prompt: !?5,FBMESS
  • Line Location: WRITE+1

FileMan Files Accessed Via FileMan Db Call

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