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

Package: Fee Basis

Routine: FBPAY21


Information

FBPAY21 ;AISC/CMR-OUTPATIENT PAYMENT HISTORY SORT/PRINT ; 9/13/12 10:30am

Source Information

Source file <FBPAY21.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;write output
HDR ;main header
SH ;subheader - vendor if fbsort; patient if 'fbsort, prints when name changed
SH1
CR ;read for display
PAGE ;new page
EFBCK(FBCKIN) ;extract check information from ^TMP
  • ICR #5116
    • Status: Retired
    • Usage: Controlled Subscription
    EN ;entry from fbpay67 to set '*' if ancillary payment is
  • ICR #5116
    • Status: Retired
    • Usage: Controlled Subscription

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !," (continued)"
    • Line Location: PRINT+22
    Function Call: WRITE
    • Prompt: !?5,"FPPS Claim ID: ",$P(FBADJ,U,7)," FPPS Line Item: ",$P(FBADJ,U,8)
    • Line Location: PRINT+30
    Function Call: WRITE
    • Prompt: ?63,"Obl.#: ",$P(FBDATA,U,11)
    • Line Location: PRINT+32
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HDR+1
    Function Call: WRITE
    • Prompt: !?25,$S($G(FBSORT):"VETERAN",1:"VENDOR")," PAYMENT HISTORY"
    • Line Location: HDR+3
    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+4
    Function Call: WRITE
    • Prompt: !?24,$E(FBDASH,1,24),?71,"Page: ",FBPG,!
    • Line Location: HDR+5
    Function Call: WRITE
    • Prompt: !?(IOM-(13+$L(FBPROG(+FBPI)))/2),"FEE PROGRAM: ",FBPROG(+FBPI)
    • Line Location: HDR+8
    Function Call: WRITE
    • Prompt: !,?3,"('*' Reimb. to Patient '+' Cancel. Activity '#' Voided Payment)"
    • Line Location: HDR+9
    Function Call: WRITE
    • Prompt: !,?3,"(paid symbol: 'R' RBRVS 'F' 75th percentile 'C' contract 'M' Mill Bill"
    • Line Location: HDR+10
    Function Call: WRITE
    • Prompt: !,?3," 'U' U&C)"
    • Line Location: HDR+11
    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: HDR+12
    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: HDR+13
    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: !
    • Line Location: CR+1
    Info |  Source |  Entry Points |  Interaction Calls