Routine: FBPCR671

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

Package	Total	Caller Graph
Fee Basis	1	FBPCR

Name	Comments	DBIA/ICR reference
PRINT	;print data from tmp global
PRNT5010	; Format and print based on data type ; FB3.5122
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

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

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

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

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

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

Customize PDF page

Package: Fee Basis

Routine: FBPCR671

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: