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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: FBPAY671

Package: Fee Basis

Routine: FBPAY671


Information

FBPAY671 ;AISC/DMK,TET,BPOIFO/MEC - CH/CNH PAYMENT HISTORY PRINT ; 9/14/09 3:34pm

Source Information

Source file <FBPAY671.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Fee Basis 4 PMNT^FBAACCB2  ($$DATX,$$SSN,$$SSNL4)^FBAAUTL  $$EXTRL^FBMRASVR  (EFBCK,HDR)^FBPAY21  
VA FileMan 1 ^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: 4

Package Total Caller Graph
Fee Basis 4 FBCHDI  FBPAY  FBPAY21  FBPAY3  

Entry Points

Name Comments DBIA/ICR reference
PRINT ;print data from tmp global
EN1
CKANC
PANC(FBI) ;print anc data - FBI = unique number; called by fbpay3
WRT ;write ancillary info
HDR ;main header
SH ;subheader - vendor if fbsort; patient if 'fbsort, 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 ; inputs
; FBDATA contains node from ^TMP
; I contains piece to be written
WRTPC ; inputs
; FBDATA contains node from ^TMP
; I contains piece to be written
WRTSC ;write service connected
TRAV ;write out travel payments, (FBPAT,FBSORT) must be defined
TRCK

External References

Name Field # of Occurrence
^DIR CR+1
PMNT^FBAACCB2 EN1+21, WRT+29, TRAV+4
$$DATX^FBAAUTL HDR+6, TRAV+3
$$SSN^FBAAUTL SH+3
$$SSNL4^FBAAUTL SH+3
$$EXTRL^FBMRASVR EN1+4, WRT+28, TRAV+4
EFBCK^FBPAY21 EN1+21, WRT+3, TRAV+4
HDR^FBPAY21 TRCK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?6,"Admit Dx: ",$P(FBINV,U,8)
  • Line Location: EN1+18
Function Call: WRITE
  • Prompt: !,FBDASH1
  • Line Location: CKANC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: "+"
  • Condition for execution: $G(FBCAN)]""
  • 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: ?22,$P(FBADJ,U,9)
  • Line Location: WRT+8
Function Call: WRITE
  • Prompt: ?31,$J($P(FBADJ,U,2),10)
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: ?43,$P(FBDATA,U,6)
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: ?54,$P(FBDATA,U,7)
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: ?64,$P(FBDATA,U,8)
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: !," (continued)"
  • Line Location: WRT+16
Function Call: WRITE
  • Prompt: !?16,"-",FBMOD
  • Line Location: WRT+17
Function Call: WRITE
  • Prompt: !,$P(FBDATA,U,3)
  • Line Location: WRT+18
Function Call: WRITE
  • Prompt: ?13,$P(FBDATA,U,4)
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: ?23,$S($P(FBADJ,U,3)]"":$P(FBADJ,U,3),1:$P(FBDATA,U,5))
  • Line Location: WRT+20
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+21
Function Call: WRITE
  • Prompt: ?48,$P(FBADJ,U,5)
  • Line Location: WRT+22
Function Call: WRITE
  • Prompt: ?60,$P(FBADJ,U,6)
  • Line Location: WRT+23
Function Call: WRITE
  • Prompt: !?4,"Primary Dx: ",$P(FBDATA,U,10),?40,"S/C Condition? ",$P(FBDATA,U,9),?66,"Obl.#: ",$P(FBDATA,U,11)
  • Line Location: WRT+27
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " ",$S(FB1725R="M":"for 38 U.S.C. 1725 Claims",1:"excluding 38 U.S.C. 1725 Claims")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?30,"INVOICE DISPLAY",!?29,$E(FBDASH,1,17),!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?(IOM-(13+$L(FBPROG(+FBPI)))/2),"FEE PROGRAM: ",FBPROG(+FBPI)
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !?3,"('*' Reimb. to Patient '+' Cancel. Activity '#' Voided Payment)"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,?3,"(paid symbol: 'R' RBRVS 'F' 75th percentile 'C' contract 'M' Mill Bill"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,?3," 'U' U&C)"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !?1,"Invoice Date",?15,"Invoice No.",?31,"From Date",?48,"To Date",?57,"Patient Control #"
  • Line Location: HDR+13
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: HDR+14
Function Call: WRITE
  • Prompt: !!,"Vendor: ",$P(FBVI,";"),?41,"Vendor ID: ",$P(FBVI,";",2)
  • Line Location: SH+2
Function Call: WRITE
  • Prompt: !!,"Patient: ",$P(FBPT,";"),?41,"Patient ID: ",$$SSNL4^FBAAUTL($$SSN^FBAAUTL($P(FBPT,";",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 ",?21,"Rev Code",?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: ",$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+3
Function Call: WRITE
  • Prompt: $P(FBDATA,"^",I)," "
  • Line Location: WRTPC+4
Function Call: WRITE
  • Prompt: !,"SERVICE CONNECTED? ",$S(+VAEL(3):"YES",1:"NO"),!
  • Line Location: WRTSC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TRAV+5
Routine Call
  • DIR
  • Line Location:
    • CR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J EN1+1, EN1+2, EN1+4, EN1+5, EN1+19, EN1+20, EN1+21, CKANC, PANC+2, PANC+3
, WRT+3, WRT+4, TRAV+2

Label References

Name Line Occurrences
CKANC EN1+1
CR PRINT+1, SH+1, SHA2+1, PAGE+1, TRCK
HDR EN1+1, SH+1, SHA2+1, PAGE+2
PAGE EN1+3, WRT+1, WRT+16, SHA+1
PANC CKANC
SH EN1+1, EN1+2, SHA2+1, PAGE+2
SHA PANC+1, WRT+1, WRT+16, SHA2+1
SHA2 WRT+1, WRT+2, WRT+16
TRCK TRAV+2
WRT PANC+5
WRTDX EN1+19
WRTPC EN1+20

Naked Globals

Name Field # of Occurrence
^( TRAV+2
^("DX" EN1+19
^("PROC" EN1+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A2 EN1+4*, EN1+21!, WRT+28~*, TRAV+2*, TRAV+3, TRAV+4*, TRAV+5!
DIR CR+1!
DIR(0 CR+1*
>> DTOUT CR+1
>> DUOUT CR+1
>> FB1725R HDR+5
>> FBADJ WRT+4*, WRT+8, WRT+9, WRT+20, WRT+21, WRT+22, WRT+23, WRT+25, WRT+26
>> FBBDATE HDR+6
>> FBCAN WRT+5
>> FBCKIN WRT+3*, TRAV+2*, TRAV+4
>> FBCRT PRINT+1, HDR+1, SH+1, SHA2+1, PAGE+1, TRCK
>> FBDASH HDR+6, HDR+7, HDR+14, SHA1+2
>> FBDASH1 CKANC
>> FBDATA EN1+4*, EN1+6, EN1+7, EN1+8, EN1+9, EN1+11, EN1+12, EN1+19*, EN1+20*, PANC+3*
, PANC+4, WRT+6, WRT+7, WRT+10, WRT+11, WRT+12, WRT+13, WRT+15, WRT+18, WRT+19
, WRT+20, WRT+27, WRT+28, WRTDX+3, WRTDX+4, WRTPC+3, WRTPC+4
>> FBDT EN1+2*, EN1+4, EN1+5, EN1+19, EN1+20, EN1+21
>> FBEDATE HDR+6
>> FBHEAD PRINT+2*, HDR+3, HDR+4, HDR+7
FBI EN1~, EN1+2*, EN1+4, EN1+5, EN1+19, EN1+20, EN1+21, CKANC, PANC~, WRT+14~
, WRT+15*
FBINV EN1~, EN1+5*, EN1+8, EN1+9, EN1+11, EN1+12, EN1+13, EN1+15, EN1+16, EN1+18
FBK PANC+1*, PANC+2*, PANC+3, PANC+6!, WRT+3, WRT+4
FBL PANC+2*, PANC+3, PANC+6!, WRT+3, WRT+4
>> FBLOC PANC+1*
FBM PANC+2*, PANC+3, PANC+6!, WRT+3, WRT+4
FBMOD WRT+14~, WRT+15*, WRT+17
>> FBOUT PRINT+1*, EN1+1, EN1+2, EN1+3, CKANC, PANC+1, PANC+2, WRT+1, WRT+13, WRT+15
, WRT+16, SH+1, SHA+1, SHA2+1, CR+1*, PAGE+1, TRAV+2, TRCK
>> FBOV PANC+1*, WRT+2, SHA2+2*
>> FBPAT TRAV+2
>> FBPG PRINT+1, HDR+1, HDR+2*, HDR+6, CR+1
>> FBPI EN1+1, EN1+2, EN1+4, EN1+5, EN1+19, EN1+20, EN1+21, CKANC, PANC+2, PANC+3
, WRT+3, WRT+4, HDR+9
>> FBPID HDR+8
>> FBPNAME HDR+8
>> FBPROG( HDR+9
>> FBPT EN1+1*, EN1+2, EN1+4, EN1+5, EN1+19, EN1+20, EN1+21, CKANC, PANC+2, PANC+3
, WRT+3, WRT+4, SH+3
>> FBSL EN1+19*, EN1+20*, PANC+1*
>> FBSORT PRINT+2, EN1+1, EN1+2, HDR+8, SH+2, SH+3
FBTRCK TRAV+2!
>> FBTRDT TRAV+1*, TRAV+2*, TRAV+3
>> FBTRX TRAV+2*
>> FBV PANC+4*, WRT+2, SHA2+2, SHA2+3
>> FBVI EN1+1*, EN1+2, EN1+4, EN1+5, EN1+19, EN1+20, EN1+21, CKANC, PANC+2, PANC+3
, WRT+3, WRT+4, SH+2
>> FBVID HDR+8
>> FBVNAME HDR+8
>> I EN1+19*, EN1+20*, WRTDX+3, WRTDX+4, WRTPC+3, WRTPC+4
IOF HDR+1
IOM HDR+9, WRTDX+3, WRTPC+3
IOSL EN1+3, WRT+1, WRT+16, SH+1, SHA+1, SHA2+1, TRCK
U EN1+4, EN1+6, EN1+7, EN1+8, EN1+9, EN1+11, EN1+12, EN1+13, EN1+15, EN1+16
, EN1+18, PANC+1, PANC+4, WRT+6, WRT+7, WRT+8, WRT+9, WRT+10, WRT+11, WRT+12
, WRT+13, WRT+15, WRT+18, WRT+19, WRT+20, WRT+21, WRT+22, WRT+23, WRT+25, WRT+26
, WRT+27, WRT+28
>> VAEL(3 WRTSC+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All