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

Package: Fee Basis

Routine: FBPCR2


Information

FBPCR2 ;AISC/DMK,GRR,TET-OUTPATIENT POTENTIAL COST RECOVERY SORT/PRINT ;7/1/2006

Source Information

Source file <FBPCR2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point
SORT ;sort by date finalized, patient, vendor, treatment ien, service ien
KILL ;kill variables set in this routine
SET ;set variables - also entry point from FBPCR67
SETTMP ;sort data by primary service facility, patient, fee program, vendor, date
SETTR
EN1 ;entry point to set variables, called by fbpcr67, anc
PRINT ;write output
HDR ;main header
HDR1
SH ;subheader - vendor, prints when name changed
CR ;read for display
PAGE ;new page
PRNT5010(FBTYPE,FBNODE) ; Format and print based on data type ; FB*3.5*122 FB*3.5*133
FBAUTH(FBAUTH,FBDFN) ;Get Authorization Data if it exists FB*3.5*163
PRTAUTH(FBX) ;Print Data from Authorization FB*3.5*163

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?$P(FBLOC,U,I),$P(FBDATA,U,I)
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: ?$P(FBLOC,U,I),$P($P(FBDATA,U,I),",")
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?$P(FBLOC,U,I),$P(FBDATA,U,I)
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !," (continued)"
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: ?66,"Obl.#: ",$P(FBDATA,U,11)
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: "Cost recover from insurance."
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: "Cost recover from means testing"_$S(FBINS:" and insurance.",1:".")
  • Line Location: PRINT+45
Function Call: WRITE
  • Prompt: "Cost recover from LTC co-pay"_$S(FBINS:" and insurance.",1:".")
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: $S(FBINS:"Cost recover from insurance, ",1:"")_"1010EC Missing for LTC Patient."
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: $S(FBINS:"Cost Recover from insurance and ",1:"")_"Potential Cost Recover from LTC co-pay."
  • Line Location: PRINT+48
Function Call: WRITE
  • Prompt: !!?(IOM-(13+$L(FBXPROG))/2),"NVC PROGRAM: ",FBXPROG
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: !!,?1,"Svc Date",?11,"CPT-MOD ",?19,"Travel Paid",?31,"Units Paid",?43,"Batch No.",?54,"Inv No.",?64,"Voucher Date"
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,"Amt Claimed",?13,"Amt Paid",?23,"Adj Code",?36,"Adj Amounts",?48,"Remit Remark",?61,"Patient Account No"
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !,"Billed?",?9,"Bill#",?24,"Ins Auth#",!,FBDASH
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: !!,"Vendor: ",$P(FBVI,";"),?41,"Vendor ID: ",$P($P(FBVI,";",2),"/",1)
  • Line Location: SH+3
Function Call: WRITE
  • Prompt: !?20,"Fee Basis Billing Provider NPI: ",$P(FBVI,"/",2)
  • Line Location: SH+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CR+1
Function Call: WRITE
  • Prompt: !,$P(FBPVLIST,U,FBCNT)_": "_$P(FBVDAT,U,FBCNT),?55,$P(FBPVLIST,U,FBCNT+1)_": "_$P(FBVDAT,U,FBCNT+1)
  • Line Location: PRNT5010+6
Function Call: WRITE
  • Prompt: !,?6,$P(FBPVLIST,U,FBCNT+2)_": "_$P(FBVDAT,U,FBCNT+2)
  • Line Location: PRNT5010+7
Function Call: WRITE
  • Prompt: !,$P(FBPVLIST,U,FBCNT)_": "_$P(FBVDAT,U,FBCNT),?55,$P(FBPVLIST,U,FBCNT+1)_": "_$P(FBVDAT,U,FBCNT+1)
  • Line Location: PRNT5010+9
Function Call: WRITE
  • Prompt: !," SERVICING FACILITY ADDRESS: "_$P(FBVDAT,U,20),!," "_$P(FBVDAT,U,21)_", "
  • Line Location: PRNT5010+11
Function Call: WRITE
  • Prompt: $$GET1^DIQ(5,$P(FBVDAT,U,22)_",",.01)
  • Line Location: PRNT5010+12
Function Call: WRITE
  • Prompt: " "_$P(FBVDAT,U,23),!
  • Line Location: PRNT5010+13
Function Call: WRITE
  • Prompt: !,?8,$P(FBLIPVL,U,3)_": "_$P(FBVDAT,U,3)
  • Line Location: PRNT5010+18
Function Call: WRITE
  • Prompt: !,?12,$P(FBLIPVL,U,4)_": "_$P(FBVDAT,U,4),?35,$P(FBLIPVL,U,5),": ",$P(FBVDAT,U,5),!!
  • Line Location: PRNT5010+19
Function Call: WRITE
  • Prompt: !,$P(FBPVL133,U,FBCNT)_": "_$P(FBVDAT,U,FBCNT),?55,$P(FBPVL133,U,FBCNT+1)_": "_$P(FBVDAT,U,FBCNT+1)
  • Line Location: PRNT5010+25
Function Call: WRITE
  • Prompt: !,?6,$P(FBPVL133,U,FBCNT+2)_": "_$P(FBVDAT,U,FBCNT+2)
  • Line Location: PRNT5010+26
Function Call: WRITE
  • Prompt: !,$P(FBPVL133,U,FBCNT)_": "_$P(FBVDAT,U,FBCNT),?55,$P(FBPVL133,U,FBCNT+1)_": "_$P(FBVDAT,U,FBCNT+1)
  • Line Location: PRNT5010+28
Function Call: WRITE
  • Prompt: !," SERVICING FACILITY ADDRESS: "_$P(FBVDAT,U,1),!," "_$P(FBVDAT,U,2)_", "
  • Line Location: PRNT5010+32
Function Call: WRITE
  • Prompt: $$GET1^DIQ(5,$P(FBVDAT,U,3)_",",.01)
  • Line Location: PRNT5010+33
Function Call: WRITE
  • Prompt: " "_$P(FBVDAT,U,4),!
  • Line Location: PRNT5010+34
Function Call: WRITE
  • Prompt: !,"** Authorization Data **"
  • Line Location: PRTAUTH+4
Function Call: WRITE
  • Prompt: !," Diagnosis: ",$P(FBAUPR,U,1)," / ",$P(FBAUPR,U,2)," / ",$P(FBAUPR,U,3)," / ",$P(FBAUPR,U,4)
  • Line Location: PRTAUTH+5
Function Call: WRITE
  • Prompt: !," Rendering Provider: "_$P(FBAUPR,U,7)
  • Line Location: PRTAUTH+6
Function Call: WRITE
  • Prompt: !," NPI: "_$P(FBAUPR,U,8),?30,"TAXONOMY CODE: "_$P(FBAUPR,U,9)
  • Line Location: PRTAUTH+7
Function Call: WRITE
  • Prompt: !," Referring Provider: "_$P(FBAUPR,U,5)
  • Line Location: PRTAUTH+8
Function Call: WRITE
  • Prompt: !," NPI: "_$P(FBAUPR,U,6)
  • Line Location: PRTAUTH+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTAUTH+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
161.01 GET1^DIQ
^FBAAV - [#161.2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^DIC(5 - [#5] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call