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

Package: Fee Basis

Routine: FBAAVS


Information

FBAAVS ;AISC/GRR-DISPLAY VENDOR PAYMENT RECORDS ;7/17/2003

Source Information

Source file <FBAAVS.m>

Entry Points

Name Comments DBIA/ICR reference
RDP
RDV
EN1 ; display payments for veteran (DFN) and vendor (DA)
HED
WRT
Q
MORE
NOCL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: RDP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: @IOF,"Patient Name: ",$P(^DPT(DFN,0),"^",1),?50,"SSN: ",$P(^(0),"^",9),!!,?2,"VENDOR: ",$P(^FBAAV(DA,0),"^",1),!?5,$P(^FBAAV(DA,0),"^",3)
  • Line Location: HED+0
Function Call: WRITE
  • Prompt: !?5,$P(^FBAAV(DA,0),"^",4)_", "_$P($G(^DIC(5,+FBST,0)),U)_" "_$P(^FBAAV(DA,0),"^",6)
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: !,?10,"('*' Reimb. to Patient '+' Cancel. Activity '#' Voided Payment)"
  • Line Location: HED+2
Function Call: WRITE
  • Prompt: !,?2,"SVC DATE",?12,"CPT-MOD",?22,"REV.CODE",?32,"UNITS",?39,"PATIENT ACCOUNT NO.",?61,"INVOICE #",?72,"BATCH #"
  • Line Location: HED+3
Function Call: WRITE
  • Prompt: !,?12,"AMT CLAIMED",?25,"AMT PAID",?38,"ADJ CODE",?48,"ADJ AMOUNT",?65,"REMIT REMARK"
  • Line Location: HED+4
Function Call: WRITE
  • Prompt: !,Q,!
  • Line Location: HED+5
Function Call: WRITE
  • Prompt: !,$S(ZS="R":"*",1:""),$S(V="VP":"#",1:""),$S($G(FBCAN)]"":"+",1:"")
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: ?2,FBAADT,?12,FBAACPT_$S($G(FBMODLE)]"":"-"_$P(FBMODLE,","),1:""),?22,FBAARCE,?32,FBUNITS,?39,FBCSID,?61,FBIN,?72,B2
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: !,"(continued)"
  • Line Location: WRT+18
Function Call: WRITE
  • Prompt: !,?17,"-",FBMOD
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: !?12,"$",$J(A1,8),?25,"$",$J(A2,8)
  • Line Location: WRT+20
Function Call: WRITE
  • Prompt: ?38,$S(FBADJLR]"":FBADJLR,1:T)
  • Line Location: WRT+22
Function Call: WRITE
  • Prompt: ?48,"$",$S(FBADJLA]"":FBADJLA,1:TAMT)
  • Line Location: WRT+24
Function Call: WRITE
  • Prompt: ?65,FBRRMKL
  • Line Location: WRT+25
Function Call: WRITE
  • Prompt: !,?12,"FPPS Claim ID: ",FBFPPSC,?40,"FPPS Line Item: ",FBFPPSL
  • Line Location: WRT+26
Function Call: WRITE
  • Prompt: !,"Vendor has no Payment data for this Patient!",!
  • Line Location: NOCL+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAV - [#161.2] Classic Fileman Calls
^FBAAC - [#162] Classic Fileman Calls
162.03 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call