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

Package: Fee Basis

Routine: FBPCR4


Information

FBPCR4 ;WOIFO/SS-LTC PHASE 3 UTILITIES ;03/17/04

Source Information

Source file <FBPCR4.m>

Entry Points

Name Comments DBIA/ICR reference
INSURED(FBDFN,FBINDT1,FBINDT2) ;check if the patient has insurance ;modified for FB*3.5*135 filtering
ADDERR(FBDFN) ;add error to ^TMP, FBDFN - patient DFN
SETFBINS() ;reset FBINS based on excluded Type of Plans (if any) and Patient 'Policy Not Billable' field
ERRHDL ;Error handler called from FBPCR
PRNUNKN ;write output
PAGEINS ;new page
CHKPAGE ;form feed when new station/patient
HEADER ;main header
FILTER() ;*/
LTCST(DFN,FBDT) ;*/
LASTDT(X) ; compute the last day of the month in X
MKARRLTC ;
  • ICR #6390
    • Status: Active
    • Usage: Private
    ISLTC(FBPOV) ;*/

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,$P(FBDATA,"^",3),?40,$P(FBDATA,"^",1),?62,$P(FBDATA,"^",2)
    • Line Location: PRNUNKN+7
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: CHKPAGE+3
    Function Call: WRITE
    • Prompt: !?(IOM-30/2),"POTENTIAL COST RECOVERY REPORT"
    • Line Location: HEADER+2
    Function Call: WRITE
    • Prompt: !?(IOM-$L(FBSTR1)/2),FBSTR1
    • Line Location: HEADER+3
    Function Call: WRITE
    • Prompt: !?71,"Page: ",FBPG
    • Line Location: HEADER+4
    Function Call: WRITE
    • Prompt: !,"Patient",?40,"Pat. ID",?62,"DOB"
    • Line Location: HEADER+5
    Function Call: WRITE
    • Prompt: !,FBDASH
    • Line Location: HEADER+6
    Info |  Source |  Entry Points |  Interaction Calls