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

Package: Fee Basis

Routine: FBPCR671


Information

FBPCR671 ;AISC/DMK,TET-CH/CNH POTENTIAL COST RECOVERY PRINT ;7/18/2006

Source Information

Source file <FBPCR671.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;print data from tmp global
PRNT5010 ; Format and print based on data type ; FB*3.5*122
WRT ;write ancillary info
HDR ;main header
HDR1
SH ;subheader - vendor, prints when name changed
SHA ;ancillary subheader
SHA1 ;subheader for ancillary data
SHA2 ;subheader for vendor name
CR ;read for display
PAGE ;new page
WRTDX ;input
; FBDATA contains node from ^TMP
; I contains piece to be written
WRTPC ;input
WRTSC ;write service connected

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?6,"Admit Dx: ",$P(FBINV,U,6)
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !?2,FBY,": "
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: $P(FBDATA,U,I)," "
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: $G(FBRPROV)=""
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: $P(FBDATA,U,I)
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: "Cost recover from insurance."
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: "Cost recover from means testing"_$S(FBINS:" and insurance.",1:".")
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: "Cost recover from LTC co-pay"_$S(FBINS:" and insurance.",1:".")
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: $S(FBINS:"Cost recover from insurance, ",1:"")_"1010EC Missing for LTC Patient."
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: $S(FBINS:"Cost Recover from insurance and ",1:"")_"Potential Cost Recover from LTC co-pay."
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: !,FBDASH1
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNT5010+4
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: !
  • Line Location: PRNT5010+14
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: ?1,$P(FBDATA,U,1)
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: ?11,$P($P(FBDATA,U,2),",")
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: ?31,$J($P(FBADJ,U,2),10)
  • Line Location: WRT+8
Function Call: WRITE
  • Prompt: ?43,$P(FBDATA,U,6)
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: ?54,$P(FBDATA,U,7)
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: ?64,$P(FBDATA,U,8)
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: !," (continued)"
  • Line Location: WRT+15
Function Call: WRITE
  • Prompt: !,?16,"-",FBMOD
  • Line Location: WRT+16
Function Call: WRITE
  • Prompt: !,$P(FBDATA,U,3)
  • Line Location: WRT+17
Function Call: WRITE
  • Prompt: ?13,$P(FBDATA,U,4)
  • Line Location: WRT+18
Function Call: WRITE
  • Prompt: ?23,$S($P(FBADJ,U,3)]"":$P(FBADJ,U,3),1:$P(FBDATA,U,5))
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: ?33,$J($S($P(FBADJ,U,4)]"":$J($P(FBADJ,U,4),14),1:$P(FBADJ,U,1)),14)
  • Line Location: WRT+20
Function Call: WRITE
  • Prompt: ?48,$P(FBADJ,U,5)
  • Line Location: WRT+21
Function Call: WRITE
  • Prompt: ?60,$P(FBADJ,U,6)
  • Line Location: WRT+22
Function Call: WRITE
  • Prompt: !?5,"Primary Dx: ",$P(FBDATA,U,9),?40,"S/C Condition? ",$P(FBDATA,U,8),?66,"Obl.#: ",$P(FBDATA,U,10)
  • Line Location: WRT+23
Function Call: WRITE
  • Prompt: "Cost recover from insurance."
  • Line Location: WRT+26
Function Call: WRITE
  • Prompt: "Cost recover from means testing"_$S(FBINS:" and insurance.",1:".")
  • Line Location: WRT+27
Function Call: WRITE
  • Prompt: "Cost recover from LTC co-pay"_$S(FBINS:" and insurance.",1:".")
  • Line Location: WRT+28
Function Call: WRITE
  • Prompt: $S(FBINS:"Cost recover from insurance, ",1:"")_"1010EC Missing for LTC Patient."
  • Line Location: WRT+29
Function Call: WRITE
  • Prompt: $S(FBINS:"Cost Recover from insurance and ",1:"")_"Potential Cost Recover from LTC co-pay."
  • Line Location: WRT+30
Function Call: WRITE
  • Prompt: !!?(IOM-(13+$L(FBXPROG))/2),"NVC PROGRAM: ",FBXPROG
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: !?1,"Invoice Date",?15,"Invoice No.",?31,"From Date",?48,"To Date",?57,"Patient Control #"
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !?1,"Amt Claimed",?15,"Amt Paid",?25,"Cov Days",?36,"Adj Codes",?49,"Adj Amounts",?63,"Remit Remarks",!,FBDASH
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !?1,"Amt Claimed",?15,"Amt Paid",?25,"Cov Days",?36,"Adj Codes",?49,"Adj Amounts",?63,"Remit Remarks"
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !?1,"Billed?",?9,"Bill#",?24,"Ins Auth#",!,FBDASH
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !!,"Vendor: ",$P(FBVI,";"),?41,"Vendor ID: ",$P($P(FBVI,";",2),"/",1)
  • 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: !?20,">>> ANCILLARY SERVICE PAYMENTS <<<",!
  • Line Location: SHA+2
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: SHA1+1
Function Call: WRITE
  • Prompt: !,"Amt Claimed",?13,"Amt Paid",?23,"Adj Code",?36,"Adj Amounts",?48,"Remit Remark",?61,"Patient Account No",!,FBDASH
  • Line Location: SHA1+2
Function Call: WRITE
  • Prompt: !!,"Vendor: ",$P(FBV,";"),?41,"Vendor ID/NPI: ",$P(FBV,";",2)
  • Line Location: SHA2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CR+1
Function Call: WRITE
  • Prompt: !,?4,"DX/POA: "
  • Line Location: WRTDX+3
Function Call: WRITE
  • Prompt: $P(FBDATA,"^",I)," "
  • Line Location: WRTDX+4
Function Call: WRITE
  • Prompt: !?4,"PROC: "
  • Line Location: WRTPC+8
Function Call: WRITE
  • Prompt: $P(FBDATA,"^",I)," "
  • Line Location: WRTPC+10
Function Call: WRITE
  • Prompt: ?20,"RENDERING PROVIDER NAME: "_$P(FBRPROV,U,2)
  • Line Location: WRTPC+13
Function Call: WRITE
  • Prompt: !?21,"NPI: "_$P(FBRPROV,U,3)
  • Line Location: WRTPC+14
Function Call: WRITE
  • Prompt: ?46,"TAXONOMY CODE: "_$P(FBRPROV,U,4)
  • Line Location: WRTPC+15
Function Call: WRITE
  • Prompt: !,?4,"PROC: "
  • Line Location: WRTPC+18
Function Call: WRITE
  • Prompt: !,"SERVICE CONNECTED? ",$S(+VAEL(3):"YES",1:"NO"),!
  • Line Location: WRTSC+1

FileMan Files Accessed Via FileMan Db Call

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