Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Fee Basis 7 ($$DATX,$$SSN,$$SSNL4,CLOSE,DATE,ZIS)^FBAAUTL  EN^FBPAY2  PRINT^FBPAY21  (EN,PRINT)^FBPAY3  EN^FBPAY67  PRINT^FBPAY671  $$ASKMB^FBUCUTL9  
Registration 1 FIRST^VAUTOMA  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Fee Basis 5 FB PAY VENDOR  FB PAY VETERAN  FBCHDI  FBNHEDPA  FBUCDIS  

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

External References

Name Field # of Occurrence
^DIC GETVEN+2, GETVET+3
$$DATX^FBAAUTL WMSG+10
$$SSN^FBAAUTL GETVET+4
$$SSNL4^FBAAUTL GETVET+4
CLOSE^FBAAUTL KILL+1
DATE^FBAAUTL DATE+1
ZIS^FBAAUTL Q+1
EN^FBPAY2 SORT+2
PRINT^FBPAY21 PRINT+3, OTH+3
EN^FBPAY3 SORT+3
PRINT^FBPAY3 PRINT+4
EN^FBPAY67 SORT+4
PRINT^FBPAY671 PRINT+5
$$ASKMB^FBUCUTL9 ASKMB+2
FIRST^VAUTOMA PROG+1

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
Routine Call
  • DIC
  • Line Location:
    • GETVEN+2
    • GETVET+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAA(161.8 - [#161.8] ARRAY+1
^TMP($J Q!, PRINT+1, PRINT+3, PRINT+4, PRINT+5, KILL+1!, OTH+1

Label References

Name Line Occurrences
ARRAY PROG+2
DATE GETVEN+3
EXIT GETVEN+2, GETVET+3, PROG+2, ASKMB+2, Q+1, OUT
GETVEN GETVEN+2, DATE+1, PROG+1, OUT+1
GETVET GETVET+3, DATE+1, PROG+1, OUT+1
KILL OUT+1
OTH PRINT+3, PRINT+4, PRINT+5
OUT PRINT+1
WMSG PRINT+1

Naked Globals

Name Field # of Occurrence
^( ARRAY+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A1 KILL+2!
A2 KILL+2!
A3 KILL+2!
B3 KILL+2!
BEGDATE DATE+2, KILL+2!
C KILL+2!
C3 KILL+2!
D KILL+2!
D2 KILL+2!
DFN KILL+2!
DIC GETVEN+2*, GETVET+2*, PROG+1*, Q!, KILL+2!
DIC("A" GETVEN+2*!, GETVET+3*!
DIC("S" PROG+1*
DIC(0 GETVEN+2*, GETVET+3*
DIR KILL+2!
DTOUT GETVEN+2, GETVET+3, KILL+2!
DUOUT GETVEN+2, GETVET+3, KILL+2!
ENDDATE DATE+2, KILL+2!
FB1725R ASKMB+2*, KILL+7!, WMSG+3
FBAACPTC KILL+3!
FBAC KILL+3!
FBADJ KILL+5!
FBADJLA KILL+5!
FBADJLR KILL+5!
FBAP KILL+3!
FBBATCH KILL+3!
FBBDATE DATE+2*, DATE+3, KILL+3!, WMSG+10
FBBEG DATE+3*, DQ*, KILL+3!
FBBN KILL+3!
>> FBCHK PROG+1
FBCNT KILL+3!
FBCP KILL+3!
FBCRT DQ*, KILL+3!, WMSG+1
FBDA1 KILL+3!
FBDASH DQ*, KILL+3!, WMSG+4, WMSG+9
FBDASH1 DQ*, KILL+3!
FBDATA KILL+3!
FBDOB KILL+3!
FBDOS KILL+3!
FBDRUG KILL+3!
FBDT KILL+3!
FBDT1 KILL+3!
FBEDATE DATE+2*, DATE+3, KILL+3!, WMSG+10
FBEND DATE+3*, KILL+3!
FBERR PROG+2*, KILL+3!, ARRAY+2*
FBFD KILL+3!
FBFD1 KILL+3!
FBFPPSC KILL+5!
FBFPPSL KILL+5!
FBHEAD KILL+3!
FBI KILL+4!
FBID GETVEN+3*, GETVET+4*, KILL+4!, WMSG+5, WMSG+6
FBIEN GETVEN+3*, GETVET+4*, KILL+4!
FBIN KILL+4!
FBINV KILL+5!
FBINVN KILL+4!
FBIX KILL+4!
FBLOC KILL+4!
FBM KILL+4!
FBMOD KILL+3!
FBNAME GETVEN+3*, GETVET+4*, KILL+4!, WMSG+5, WMSG+6, WMSG+10
FBOB KILL+4!
FBOPI KILL+4!
FBOUT DQ*, PRINT+2*, PRINT+3, PRINT+4, PRINT+5, OUT, KILL+4!
FBOV KILL+4!
FBP KILL+4!
FBPAT KILL+4!
FBPD KILL+4!
FBPDX KILL+4!
FBPG DQ*, KILL+4!, WMSG+1*, WMSG+4
FBPI SORT+1*, SORT+2, SORT+3, SORT+4*, PRINT+1*, PRINT+2*, PRINT+3, PRINT+4, PRINT+5, KILL+4!
, ARRAY+1*, WMSG+13*, OTH+1, OTH+2*, OTH+4*
FBPID KILL+4!
FBPIFLG SORT+4*!, KILL+4!
FBPIN KILL+4!, ARRAY+1*
FBPISV KILL+4!
FBPNAME KILL+4!
>> FBPOP DATE+1, Q+1
FBPROG PROG+1, PROG+2, KILL+4!, ARRAY+2, WMSG+11, WMSG+14
FBPROG( SORT+1, PRINT+2, ARRAY+1*, WMSG+13, OTH+2*, OTH+4!
FBPROG(0 PROG+1
FBPROG(2 ASKMB+2
FBPROG(3 ASKMB+2
FBPROG(6 ASKMB+2
FBPROG(7 SORT+4
FBPT KILL+4!
FBPV KILL+4!
FBQTY KILL+4!
FBR KILL+4!
FBREIM KILL+4!
FBRRMKL KILL+5!
FBRX KILL+4!
FBSC KILL+6!
FBSL KILL+6!
FBSORT GETVEN+1*, GETVET+1*, DATE+1, PROG+1, Q, KILL+6!, WMSG+2, WMSG+5, WMSG+6, WMSG+10
FBSTR KILL+6!
FBSUSP KILL+6!
FBTA KILL+6!
FBTRCK KILL+4!
FBTRDT KILL+6!
FBTRX KILL+6!
FBTYPE KILL+6!
FBV KILL+6!
FBVCHAIN KILL+6!
FBVI KILL+6!
FBVID KILL+6!
FBVNAME KILL+6!
FBVP KILL+6!
FBX GETVEN+1!, GETVET+1!, Q*, OUT+1, EXIT+1!
FBXPROG SORT+1*, PRINT+2*, KILL+6!, OTH+2
FBY KILL+6!
FBZ KILL+6!, OTH+2*, OTH+4!
I KILL+6!
IO DQ
IOF WMSG+1
IOST DQ
J KILL+6!
K KILL+6!
L KILL+6!
M KILL+6!
PGM Q+1*, KILL+6!
T KILL+6!
TAMT KILL+5!
U GETVEN+3, ARRAY+1
V KILL+6!
VA KILL+6!
VAERR KILL+6!
VAL Q+1*, KILL+6!
VAR Q+1*, KILL+6!
VAUTNI PROG+1*, KILL+6!
VAUTSTR PROG+1*, KILL+6!
VAUTVB PROG+1*, KILL+6!
X GETVEN+2, GETVET+3, KILL+6!
Y GETVEN+2, GETVEN+3, GETVET+3, GETVET+4, KILL+6!
Y(0 GETVEN+3, GETVET+4
Z DATE+3*, KILL+6!
>> ZTQUEUED OUT
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All