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

Package: Fee Basis

Routine: FBFPTR


Information

FBFPTR ;WOIFO/SAB-FPPS TRANSMIT REPORT ;9/8/2003

Source Information

Source file <FBFPTR.m>

Entry Points

Name Comments DBIA/ICR reference
QEN ; queued entry
GATHER ; collect and sort data
PRINT ; report data
EXIT ;
RSUM ; report summary
HD ; page header
HDSUM ; report summary header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This option generates a report of transmissions to FPPS for a date range.",!
  • Line Location: FBFPTR+3
Function Call: WRITE
  • Prompt: !,"No invoices were transmitted during specified period."
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED AT USER REQUEST"
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !!,"SUMMARY OF EDI INVOICES TRANSMITTED TO FPPS"
  • Line Location: RSUM+3
Function Call: WRITE
  • Prompt: !
  • Line Location: RSUM+17
Function Call: WRITE
  • Prompt: !,FBSTA
  • Line Location: RSUM+29
Function Call: WRITE
  • Prompt: ?9,$S(FBFILE=3:"Outpatient/Ancillary",FBFILE=5:"Pharmacy",FBFILE=9:"Inpatient",1:"Unknown")
  • Line Location: RSUM+30
Function Call: WRITE
  • Prompt: ?31,$J($FN(FBCL+FBCC,","),9)
  • Line Location: RSUM+31
Function Call: WRITE
  • Prompt: ?42,$J($FN(FBCX,","),9)
  • Line Location: RSUM+32
Function Call: WRITE
  • Prompt: ?53,$J($FN(FBCL+FBCC+FBCX,","),9)
  • Line Location: RSUM+33
Function Call: WRITE
  • Prompt: ?64,$J($FN(FBCA,","),14)
  • Line Location: RSUM+34
Function Call: WRITE
  • Prompt: !,?31,"---------",?42,"---------",?53,"---------",?64,"--------------"
  • Line Location: RSUM+42
Function Call: WRITE
  • Prompt: !,FBSTA," Station Totals",?31,$J($FN($P(FBT(FBSTA),U),","),9)
  • Line Location: RSUM+43
Function Call: WRITE
  • Prompt: ?42,$J($FN($P(FBT(FBSTA),U,2),","),9)
  • Line Location: RSUM+44
Function Call: WRITE
  • Prompt: ?53,$J($FN($P(FBT(FBSTA),U)+$P(FBT(FBSTA),U,2),","),9)
  • Line Location: RSUM+45
Function Call: WRITE
  • Prompt: ?64,$J($FN($P(FBT(FBSTA),U,3),","),14)
  • Line Location: RSUM+46
Function Call: WRITE
  • Prompt: !!,?31,"=========",?42,"=========",?53,"=========",?64,"=============="
  • Line Location: RSUM+56
Function Call: WRITE
  • Prompt: !,"Report Totals",?31,$J($FN($P(FBT,U),","),9)
  • Line Location: RSUM+57
Function Call: WRITE
  • Prompt: ?42,$J($FN($P(FBT,U,2),","),9)
  • Line Location: RSUM+58
Function Call: WRITE
  • Prompt: ?53,$J($FN($P(FBT,U)+$P(FBT,U,2),","),9)
  • Line Location: RSUM+59
Function Call: WRITE
  • Prompt: ?64,$J($FN($P(FBT,U,3),","),14)
  • Line Location: RSUM+60
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,"FPPS Transmission Report ",?49,FBDTR,?72,"page ",FBPG
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,FBHDT(FBI)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,FBDL
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !!,?31,"------------- Transmission Counts -------------"
  • Line Location: HDSUM+1
Function Call: WRITE
  • Prompt: !,?31,"Payment",?42,"Payment",?64,"Accepted by"
  • Line Location: HDSUM+2
Function Call: WRITE
  • Prompt: !,"Station",?9,"Invoice Type",?31,"Confirmed",?42,"Cancelled",?53,"Total",?64,"Interface Eng."
  • Line Location: HDSUM+3
Function Call: WRITE
  • Prompt: !,"-------",?9,"------------",?31,"---------",?42,"---------",?53,"---------",?64,"--------------"
  • Line Location: HDSUM+4
Info |  Source |  Entry Points |  Interaction Calls