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

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

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
Info |  Source |  Entry Points |  Interaction Calls