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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: FBPCR

Package: Fee Basis

Routine: FBPCR


Information

FBPCR ;AISC/DMK,GRR,TET-POTENTIAL COST RECOVERY OUTPUT DRIVER ;5/23/2006

Source Information

Source file <FBPCR.m>

Entry Points

Name Comments DBIA/ICR reference
DOC ;Refer to fbdoc, tag fbpcr, for documentation of fbpcr* routines
PSF ;select one/many/all primary service failities
ARRAY ;set fee program array for all programs
PREBL ;Include Only Not Previously Billed NVC FB*3.5*163
DATE ;select date range
Q
DQ
SORT ;sort driver for payment output(s)
PRINT ;print driver for payment output(s)
OUT
EXCLINS ;create list of insurance type to be excluded ; FB*3.5*135
EXIT ;kill and quit
KILL ;kill all variables set in the FBPCR* routines, other than fbx
WMSG ;write message if no matches found
CATC(DFN,FBDT,FBPOV) ;
  • ICR #6389
    • Status: Active
    • Usage: Private
    VET ;set vet name/ssn/dob info
    STA ;set station name & number
    PAGE ;form feed when new station/patient
    CR ;read for display
    HDR ;general header for potential recoveries
    HDRUNK ;Warning message if patient's insurance status is unknown
    PATDEMO ; Patient Demographics FB*3.5*163
    GETSC
    GETSTA ; Get Special Authority Eligibility FB*3.5*163
    INS
    INSQ
    INSHDR ;Print insurance header FB*3.5*163
    INSDSP(FBVAL) ;Print insurance display line FB*3.5*163

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: PSF+3
    Function Call: WRITE
    • Prompt: !!
    • Line Location: ARRAY+26
    Function Call: WRITE
    • Prompt: !
    • Line Location: PREBL+2
    Function Call: WRITE
    • Prompt: !!!,"Select the TYPE of INSURANCE PLANS to be EXCLUDED from the PCR report:"
    • Line Location: EXCLINS+3
    Function Call: WRITE
    • Prompt: ?41,FBINEXCL,!
    • Line Location: EXCLINS+5
    Function Call: WRITE
    • Prompt: !!?3,"There are no potential cost recoveries on file"
    • Line Location: WMSG+1
    Function Call: WRITE
    • Prompt: !?5,"for specified date range: ",$$DATX^FBAAUTL(FBBDATE)," through ",$$DATX^FBAAUTL(FBEDATE)
    • Line Location: WMSG+2
    Function Call: WRITE
    • Prompt: !?31,$G(FBPSV(FBPSF))
    • Line Location: WMSG+5
    Function Call: WRITE
    • Prompt: !?5,"and ALL Primary Service Areas "
    • Line Location: WMSG+6
    Function Call: WRITE
    • Prompt: ".",*7,!!
    • Line Location: WMSG+7
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: PAGE+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: CR+1
    Function Call: WRITE
    • Prompt: !?(IOM-30/2),"POTENTIAL COST RECOVERY REPORT"
    • Line Location: HDR+2
    Function Call: WRITE
    • Prompt: !?(IOM-(11+$L($G(FBPSFNAM))+$L($G(FBPSFNUM)))/2),"Division/Station: ",$G(FBPSFNUM)," ",$G(FBPSFNAM)
    • Line Location: HDR+3
    Function Call: WRITE
    • Prompt: !?(IOM-14/2),"NPI: ",$S($G(FBSTANPI)="":"",$G(FBSTANPI)<1:"",1:$G(FBSTANPI))
    • Line Location: HDR+4
    Function Call: WRITE
    • Prompt: !?(IOM-19/2),$$DATX^FBAAUTL(FBBDATE)," - ",$$DATX^FBAAUTL(FBEDATE)
    • Line Location: HDR+5
    Function Call: WRITE
    • Prompt: !?71,"Page: ",FBPG
    • Line Location: HDR+6
    Function Call: WRITE
    • Prompt: !,"Patient: ",$G(FBPNAME),?40,"Pat. ID: ",$G(FBPID),?62,"DOB: ",$G(FBDOB)
    • Line Location: HDR+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: HDR+8
    Function Call: WRITE
    • Prompt: ">> Warning: accurate insurance information for the patient is unavailable"
    • Line Location: HDR+12
    Function Call: WRITE
    • Prompt: !?3,"('*' Represents Reimbursement to Patient",?50,"'#' Represents Voided Payment)"
    • Line Location: HDR+13
    Function Call: WRITE
    • Prompt: !,FBDASH
    • Line Location: HDR+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: HDR+15
    Function Call: WRITE
    • Prompt: !
    • Line Location: HDR+16
    Function Call: WRITE
    • Prompt: !?(IOM-30/2),"POTENTIAL COST RECOVERY REPORT"
    • Line Location: HDRUNK+2
    Function Call: WRITE
    • Prompt: !?(IOM-(19+$L($G(FBPSFNAM))+$L($G(FBPSFNUM)))/2),"Division/Station: ",$G(FBPSFNUM)," ",$G(FBPSFNAM)
    • Line Location: HDRUNK+4
    Function Call: WRITE
    • Prompt: !?(IOM-19/2),$$DATX^FBAAUTL(FBBDATE)," - ",$$DATX^FBAAUTL(FBEDATE)
    • Line Location: HDRUNK+5
    Function Call: WRITE
    • Prompt: !?71,"Page: ",FBPG
    • Line Location: HDRUNK+6
    Function Call: WRITE
    • Prompt: !,"------------------------------ !!! WARNING !!! --------------------------------"
    • Line Location: HDRUNK+7
    Function Call: WRITE
    • Prompt: !,"This report is incomplete due to problems with obtaining insurance information"
    • Line Location: HDRUNK+8
    Function Call: WRITE
    • Prompt: !,"for those patients listed in a separate section in the end of the report. You"
    • Line Location: HDRUNK+9
    Function Call: WRITE
    • Prompt: !,"may want to rerun the report again to get more accurate results."
    • Line Location: HDRUNK+10
    Function Call: WRITE
    • Prompt: !,FBDASH
    • Line Location: HDRUNK+11
    Function Call: WRITE
    • Prompt: !,"Note: You have chosen to include patients with unknown insurance status in"
    • Line Location: HDRUNK+13
    Function Call: WRITE
    • Prompt: !,"this report. Please be aware that these patients will be treated as if they"
    • Line Location: HDRUNK+14
    Function Call: WRITE
    • Prompt: !,"have billable insurance and their treatment details will be marked accordingly."
    • Line Location: HDRUNK+15
    Function Call: WRITE
    • Prompt: !,"The names of these patients will be accompanied with the following message"
    • Line Location: HDRUNK+16
    Function Call: WRITE
    • Prompt: !,"to order to identify them:"
    • Line Location: HDRUNK+17
    Function Call: WRITE
    • Prompt: !,">> Warning: accurate insurance information for the patient is unavailable"
    • Line Location: HDRUNK+18
    Function Call: WRITE
    • Prompt: !,FBDASH
    • Line Location: HDRUNK+19
    Function Call: WRITE
    • Prompt: !,?10,"Outpatient Copayment Status: ",FBMT
    • Line Location: PATDEMO+4
    Function Call: WRITE
    • Prompt: !,?20,"Service Connected: "
    • Line Location: GETSC+2
    Function Call: WRITE
    • Prompt: "NO"
    • Line Location: GETSC+3
    Function Call: WRITE
    • Prompt: "NO"
    • Line Location: GETSC+4
    Function Call: WRITE
    • Prompt: $P(VAEL(3),U,2)_"%"
    • Line Location: GETSC+5
    Function Call: WRITE
    • Prompt: !?39,FBD
    • Line Location: GETSC+10
    Function Call: WRITE
    • Prompt: !,?13,"Special Auth Eligibility: "
    • Line Location: GETSTA+2
    Function Call: WRITE
    • Prompt: "SC TREATMENT",!
    • Line Location: GETSTA+5
    Function Call: WRITE
    • Prompt: ?13,"COMBAT VETERAN",!
    • Line Location: GETSTA+6
    Function Call: WRITE
    • Prompt: ?39,"AGENT ORANGE",!
    • Line Location: GETSTA+7
    Function Call: WRITE
    • Prompt: ?39,"IONIZING RADIATION",!
    • Line Location: GETSTA+8
    Function Call: WRITE
    • Prompt: ?39,"SOUTHWEST ASIA",!
    • Line Location: GETSTA+9
    Function Call: WRITE
    • Prompt: ?39,"PROJECT 112/SHAD",!
    • Line Location: GETSTA+10
    Function Call: WRITE
    • Prompt: ?39,"MILITARY SEXUAL TRAUMA",!
    • Line Location: GETSTA+11
    Function Call: WRITE
    • Prompt: ?39,"HEAD/NECK CANCER",!
    • Line Location: GETSTA+12
    Function Call: WRITE
    • Prompt: "NO",!
    • Line Location: GETSTA+13
    Function Call: WRITE
    • Prompt: !," Health Insurance: "
    • Line Location: INS+2
    Function Call: WRITE
    • Prompt: $S(FBYN:"YES",1:"NO"),!
    • Line Location: INS+5
    Function Call: WRITE
    • Prompt: !?6,FBRTN("IBBAPI","INSUR","ERROR",FBERR)
    • Line Location: INS+8
    Function Call: WRITE
    • Prompt: !!,"No Insurance Information"
    • Line Location: INS+9
    Function Call: WRITE
    • Prompt: !
    • Line Location: INSQ+2
    Function Call: WRITE
    • Prompt: !?17,"*** Patient has Insurance Buffer entries ***"
    • Line Location: INSQ+3
    Function Call: WRITE
    • Prompt: !?17,"*** Verification of No Coverage "_$$FMTE^XLFDT(FBNC)_" ***"
    • Line Location: INSQ+5
    Function Call: WRITE
    • Prompt: !,"Insurance",?13,"COB",?17,"Subscriber ID",?35,"Group",?47,"Holder",?54,"Eff Dt",?63,"Exp Dt",?72,"Verified"
    • Line Location: INSHDR+2
    Function Call: WRITE
    • Prompt: !,FBEQL
    • Line Location: INSHDR+3
    Function Call: WRITE
    • Prompt: !,$S($D(FBINS(FBVAL,1)):$E($P(FBINS(FBVAL,1),U,2),1,10),1:"UNKNOWN")
    • Line Location: INSDSP+3
    Function Call: WRITE
    • Prompt: ?13,FBY
    • Line Location: INSDSP+5
    Function Call: WRITE
    • Prompt: ?17,$E(FBINS(FBVAL,14),1,16)
    • Line Location: INSDSP+6
    Function Call: WRITE
    • Prompt: ?35,$E(FBINS(FBVAL,18),1,10)
    • Line Location: INSDSP+7
    Function Call: WRITE
    • Prompt: ?47,$S(FBZ="P":"SELF",FBZ="S":"SPOUSE",1:"OTHER")
    • Line Location: INSDSP+9
    Function Call: WRITE
    • Prompt: ?54,$TR($$FMTE^XLFDT(FBINS(FBVAL,10),"2DF")," ","0")
    • Line Location: INSDSP+10
    Function Call: WRITE
    • Prompt: ?63,$TR($$FMTE^XLFDT(FBINS(FBVAL,11),"2DF")," ","0")
    • Line Location: INSDSP+11
    Function Call: WRITE
    • Prompt: ?72,$TR($$FMTE^XLFDT(FBINS(FBVAL,25),"2DF")," ","0")
    • Line Location: INSDSP+12

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBE(355.1 - [#355.1] Classic Fileman Calls
    ^DIC(4 - [#4] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call