Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Fee Basis 2 HDR^FBPCR  PRTAUTH^FBPCR2  
VA FileMan 2 $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Fee Basis 1 FBPCR  

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

External References

Name Field # of Occurrence
$$GET1^DIQ PRNT5010+12
^DIR CR+1
HDR^FBPCR HDR+1
PRTAUTH^FBPCR2 PRINT+48

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
Routine Call
  • DIR
  • Line Location:
    • CR+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(5 - [#5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAAV - [#161.2] PRINT+46
^FBAAV("C" PRINT+46
^TMP($J PRINT+6, PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+26, PRINT+28, PRINT+43, PRINT+45
, PRNT5010+2, PRNT5010+4, WRT+3, WRTPC+5

Label References

Name Line Occurrences
HDR PRINT+2, SH+1, SHA2+1, PAGE+1
HDR1 PRINT+3
PAGE PRINT+8, WRT+1, WRT+15, SHA+1
PRNT5010 PRINT+47
SH PRINT+6, SHA2+1, PAGE+1
SHA PRINT+44, WRT+1, WRT+15, SHA2+1
SHA2 WRT+1, WRT+2, WRT+15
WRT PRINT+45
WRTDX PRINT+26
WRTPC PRINT+28

Naked Globals

Name Field # of Occurrence
^( PRINT+45

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR CR+1!
DIR(0 CR+1*
>> DTOUT CR+1
>> DUOUT CR+1
FBADJ WRT+1~, WRT+3*, WRT+8, WRT+19, WRT+20, WRT+21, WRT+22
FBBILL PRINT+1~, PRINT+11*, PRINT+21
FBCATC PRINT+9*, PRINT+35, PRINT+37, PRINT+38, PRINT+39, PRINT+40, PRINT+41, WRT+1~, WRT+4*, WRT+24
, WRT+26, WRT+27, WRT+28, WRT+29, WRT+30
FBCNT PRINT+44*, PRINT+45*, PRNT5010+1~, PRNT5010+5*, PRNT5010+6, PRNT5010+7, PRNT5010+8*, PRNT5010+9, WRT+3
>> FBDASH HDR1+4, SHA1+2
>> FBDASH1 PRINT+43
>> FBDATA PRINT+9*, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+18, PRINT+19, PRINT+26*, PRINT+28*, PRINT+45*
, PRINT+46, WRT+4, WRT+6, WRT+7, WRT+9, WRT+10, WRT+11, WRT+12, WRT+14, WRT+17
, WRT+18, WRT+19, WRT+23, WRTDX+3, WRTDX+4, WRTPC+8, WRTPC+10
>> FBDT PRINT+7*, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+26, PRINT+28, PRINT+43, PRINT+45, PRNT5010+2
, PRNT5010+4, WRT+3, WRTPC+5
FBI PRINT+7*, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+26, PRINT+28, PRINT+43, PRINT+45, PRINT+48
, PRNT5010+2, PRNT5010+4, WRT+3, WRT+13~, WRT+14*, WRTPC+5
FBINAU PRINT+1~, PRINT+12*, PRINT+22
FBINS PRINT+9*, PRINT+35, PRINT+38, PRINT+39, PRINT+40, PRINT+41, WRT+1~, WRT+4*, WRT+24, WRT+27
, WRT+28, WRT+29, WRT+30
>> FBINV PRINT+10*, PRINT+15, PRINT+16, PRINT+18, PRINT+19, PRINT+20, PRINT+24
FBMOD WRT+13~, WRT+14*, WRT+16
FBNEWLN PRINT+27*, PRINT+29!, WRTPC+7*, WRTPC+8*, WRTPC+16*
>> FBOUT PRINT+2, PRINT+3, PRINT+6, PRINT+7, PRINT+8, PRINT+43, PRINT+44, PRINT+45, WRT+1, WRT+12
, WRT+14, WRT+15, HDR+1, SH+1, SHA+1, SHA2+1, CR+1*, PAGE+1
>> FBOV PRINT+44*, WRT+2, SHA2+2*
>> FBPG PRINT+2, CR+1
>> FBPI PRINT+6, PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+26, PRINT+28, PRINT+43, PRINT+45
, PRNT5010+2, PRNT5010+4, WRT+3, WRTPC+5
>> FBPSF PRINT+6, PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+26, PRINT+28, PRINT+43, PRINT+45
, PRNT5010+2, PRNT5010+4, WRT+3, WRTPC+5
>> FBPT PRINT+6, PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+26, PRINT+28, PRINT+43, PRINT+45
, PRNT5010+2, PRNT5010+4, WRT+3, WRTPC+5
>> FBPVLIST PRINT+4*, PRINT+5*, PRNT5010+6, PRNT5010+7, PRNT5010+9
FBRPROV PRINT+34!, WRTPC+4~, WRTPC+5*, WRTPC+7, WRTPC+12, WRTPC+13, WRTPC+14, WRTPC+15
>> FBSL PRINT+26*, PRINT+28*, PRINT+44*
>> FBV PRINT+45*, PRINT+46*, WRT+2, SHA2+2, SHA2+3
FBVDAT PRNT5010+1~, PRNT5010+4*, PRNT5010+5, PRNT5010+6, PRNT5010+7, PRNT5010+8, PRNT5010+9, PRNT5010+10, PRNT5010+11, PRNT5010+12
, PRNT5010+13
>> FBVI PRINT+6*, PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+26, PRINT+28, PRINT+43, PRINT+45
, PRNT5010+2, PRNT5010+4, WRT+3, SH+2, SH+3, WRTPC+5
>> FBXPROG HDR1
FBXX PRINT+46~*
>> I PRINT+26*, PRINT+28*, WRTDX+3, WRTDX+4, WRTPC+5, WRTPC+8, WRTPC+10
IOM HDR1, WRTDX+3, WRTPC+8
IOSL PRINT+2, PRINT+8, WRT+1, WRT+15, SH+1, SHA+1, SHA2+1
U PRINT+9, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+18, PRINT+19, PRINT+20, PRINT+24, PRINT+45
, PRINT+46, PRNT5010+5, PRNT5010+6, PRNT5010+7, PRNT5010+8, PRNT5010+9, PRNT5010+10, PRNT5010+11, PRNT5010+12, PRNT5010+13
, WRT+4, WRT+6, WRT+7, WRT+8, WRT+9, WRT+10, WRT+11, WRT+12, WRT+14, WRT+17
, WRT+18, WRT+19, WRT+20, WRT+21, WRT+22, WRT+23, WRTPC+13, WRTPC+14, WRTPC+15
>> VAEL(3 WRTSC+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All