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

Package: Fee Basis

Routine: FBPAY


Information

FBPAY ;AISC/DMK,GRR,TET-PATIENT/VENDOR PAYMENT OUTPUT DRIVER ;20/NOV/2006

Source Information

Source file <FBPAY.m>

Entry Points

Name Comments DBIA/ICR reference
GETVEN ;select vendor
GETVET ;select patient
DATE ;select date range
PROG ;select one/many/all fee programs
ASKMB ; if outpatient or civil hospital or pharmacy selected then ask if
; report for just mill-bill (1725) or just non-mill bill claims
Q
DQ
SORT ;sort driver for payment output(s)
PRINT ;print driver for payment output(s)
OUT
EXIT ;kill and quit
KILL ;kill all variables set in the FBPAY* routines, other than fbx
ARRAY ;set array if all programs are selected
WMSG ;write message if no matches found
OTH ;other fee basis programs

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETVEN+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETVET+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $G(FBCRT)
  • Line Location: WMSG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WMSG+1
Function Call: WRITE
  • Prompt: !?25,$S($G(FBSORT):"VETERAN",1:"VENDOR")," PAYMENT HISTORY"
  • Line Location: WMSG+2
Function Call: WRITE
  • Prompt: " ",$S(FB1725R="M":"for 38 U.S.C. 1725 Claims",1:"excluding 38 U.S.C. 1725 Claims")
  • Line Location: WMSG+3
Function Call: WRITE
  • Prompt: !?24,$E(FBDASH,1,24),?71,"Page: ",FBPG
  • Line Location: WMSG+4
Function Call: WRITE
  • Prompt: !,"Patient: ",FBNAME,?41,"Patient ID:",FBID
  • Line Location: WMSG+5
Function Call: WRITE
  • Prompt: !,"Vendor: ",FBNAME,?41,"Vendor ID:",FBID
  • Line Location: WMSG+6
Function Call: WRITE
  • Prompt: !?3,"('*' Reimb. to Patient '+' Cancel. Activity '#' Voided Payment)"
  • Line Location: WMSG+8
Function Call: WRITE
  • Prompt: !!!,FBDASH
  • Line Location: WMSG+9
Function Call: WRITE
  • Prompt: !!,"There are no payments on file for "_$S(FBSORT:"Veteran",1:"Vendor")_" ",FBNAME,!?3,"for specified date range: ",$$DATX^FBAAUTL(FBBDATE)," through ",$$DATX^FBAAUTL(FBEDATE)
  • Line Location: WMSG+10
Function Call: WRITE
  • Prompt: !?30,FBPROG(FBPI)
  • Line Location: WMSG+13
Function Call: WRITE
  • Prompt: !?3,"and ALL Fee programs"
  • Line Location: WMSG+14
Function Call: WRITE
  • Prompt: ".",*7,!!
  • Line Location: WMSG+15

FileMan Files Accessed Via FileMan Db Call

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