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

Package: Fee Basis

Routine: FBPCR3


Information

FBPCR3 ;AISC/GRR,TET-PHARMACY POTENTIAL COST RECOVERY, SORT/PRINT ;6/30/2006

Source Information

Source file <FBPCR3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point
SORT ;sort by date certified for payment, patient, invoice number ien, rx ien
KILL ;kill variables set in sort
SET ;set variables
SETTMP ;sort data by primary service facility, patient, fee program, vendor, date
VEN ;set variables for vendor
PRINT ;write output
EXIT ;kill and quit
HDR ;main header
HDR1
SH ;subheader - vendor, prints when name changes
CR ;read for display
PAGE ;new page
INSCK(FBDT,FBDA1,FBPI) ;possible cost recovery fcn call

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P(FBADJ,U,1),?30,$J($P(FBADJ,U,2),14)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: $P(FBDATA,U,8),?30,$J($P(FBADJ,U,4),14)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !?5,">>> Cost recover from "_$S(FBCATC:"means testing",FBINS:"insurance",1:"")
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: " and insurance"
  • Condition for execution: FBCATC&FBINS
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: "."
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !!?(IOM-(13+$L(FBXPROG))/2),"NVC PROGRAM: ",FBXPROG
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: !?4,"Fill Date",?64,"Date Certified"
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !,?15,"Drug Name",?44,"Strength",?60,"Quantity"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !?2,"Claimed",?12,"Paid",?20,"Adj Code",?33,"Adj Amounts",?47,"Invoice #",?58,"Batch #",?66,"Remit Remarks",!,FBDASH
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !!,"Vendor: ",$P(FBVI,";"),?41,"Vendor ID: ",$P($P(FBVI,";",2),"/",1),?65,"Chain #: ",$P($G(^TMP($J,"FB",FBPSF,FBPT,FBPI,FBVI)),U)
  • Line Location: SH+2
Function Call: WRITE
  • Prompt: !?20,"Fee Basis Billing Provider NPI: ",$P(FBVI,"/",2)
  • Line Location: SH+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CR+1
Info |  Source |  Entry Points |  Interaction Calls