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
Print Page as PDF
Routine: FBPAY3

Package: Fee Basis

Routine: FBPAY3


Information

FBPAY3 ;AISC/GRR,TET-PHARMACY PAYMENT HISTORY, SORT/PRINT ;21/NOV/2006

Source Information

Source file <FBPAY3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point
FBAAC ;check if anything in an xref, fbaac global (file 162)
KILL ;kill variables set in sort
SORT ;
SET ;
VET ;set variables for veteran - 'FBSORT
VEN ;set variables for vendor - FBSORT
PRINT ;write output
EXIT ;kill and quit
HDR ;main header
SH ;subheader - vendor if fbsort; patient if 'fbsort, prints when name changes
CR ;read for display
PAGE ;new page

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?$P(FBLOC,U,I),$P(FBDATA,U,I)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $P(FBLOC,U,I)=63
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: $P(FBADJ,U,1),?30,$J($P(FBADJ,U,2),14)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: $P(FBDATA,U,8),?30,$J($P(FBDATA,U,14),14)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !?5,"FPPS Claim ID: ",$P(FBADJ,U,4)," FPPS Line Item: ",$P(FBADJ,U,5)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,FBDASH1
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?25,$S($G(FBSORT):"VETERAN",1:"VENDOR")," PAYMENT HISTORY"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: " ",$S(FB1725R="M":"for 38 U.S.C. 1725 Claims",1:"excluding 38 U.S.C. 1725 Claims")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?24,$E(FBDASH,1,24),?71,"Page: ",FBPG,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?(IOM-(13+$L(FBPROG(+FBPI)))/2),"FEE PROGRAM: ",FBPROG(+FBPI)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?3,"('*' Reimb. to Patient '+' Cancel. Activity '#' Voided Payment)"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !?4,"Fill Date",?64,"Date Certified"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,?15,"Drug Name",?44,"Strength",?60,"Quantity"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !?2,"Claimed",?12,"Paid",?20,"Adj Code",?33,"Adj Amounts",?47,"Invoice #",?58,"Batch #",?66,"Remit Remarks",!,FBDASH
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !!,"Vendor:",$P(FBVI,";"),?41,"Vendor ID: ",$P(FBVI,";",2),?65,"Chain #: ",$P($G(^TMP($J,"FB",FBPI,FBVI)),U)
  • Line Location: SH+2
Function Call: WRITE
  • Prompt: !!,"Patient: ",$P(FBPT,";"),?41,"Pat. ID: ",$$SSNL4^FBAAUTL($$SSN^FBAAUTL($P(FBPT,";",2))),?62,"DOB: ",$P($G(^TMP($J,"FB",FBPI,FBVI,FBPT)),U)
  • Line Location: SH+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CR+1
Info |  Source |  Entry Points |  Interaction Calls