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

Package: Accounts Receivable

Routine: PRCAAPR1


Information

PRCAAPR1 ;WASH-ISC@ALTOONA,PA/RGY - PATIENT ACCOUNT PROFILE ;2/12/97 11:48 AM

Source Information

Source file <PRCAAPR1.m>

Entry Points

Name Comments DBIA/ICR reference
HDR ;Head for Account profile
  • ICR #6401
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #6750
    • Status: Withdrawn
    • Usage: Controlled Subscription
    HDR1
    HDR2
  • ICR #6401
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #6750
    • Status: Withdrawn
    • Usage: Controlled Subscription
    DIS ;Display bill line items
  • ICR #6401
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #6750
    • Status: Withdrawn
    • Usage: Controlled Subscription
    Q1
    BHDR ;Display status line
    BLN ;
    Q2
    READ ;Read bill number
    Q3
    ACCT(DFN) ;Get account number. Join station with DFN (Patch 206)
    IBEEOBCK(PRCAAR) ; Passed AR Bill
    ; Function will quit as soon as a 3rd party bill is located that has an associated EEOB
    TPEVDT(DFN,EVDT) ;
    ; Function will quit as soon as a 3rd party bill is located that has an associated EEOB
    ; PRCA*4.5*284 - Use the 399,"APDT" (by patient) index instead of the 399,"D" index for efficiency
    TPOPV(DFN,EVDT) ;
    ; Function will quit as soon as a 3rd party bill is located that has an associated EEOB

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF,!,X," A c c o u n t P r o f i l e ",X
    • Line Location: HDR+1
    Function Call: WRITE
    • Prompt: !,$P(DEBT,"^",2)
    • Line Location: HDR1+7
    Function Call: WRITE
    • Prompt: " (",$E(X,1,3),"-",$E(X,4,5),"-",$E(X,6,9),")"
    • Line Location: HDR1+7
    Function Call: WRITE
    • Prompt: ?53,"Statement Day: ",$S($$PST^RCAMFN01(+DEBT)>0:$$PST^RCAMFN01(+DEBT),1:"N/A")
    • Line Location: HDR1+8
    Function Call: WRITE
    • Prompt: !,"Statement Account #: ",RCACCTN,?52,"Last Statement: "
    • Line Location: HDR1+12
    Function Call: WRITE
    • Prompt: !?52,"Last Statement: "
    • Line Location: HDR1+13
    Function Call: WRITE
    • Prompt: $S(Y=-1:"N/A",1:$$SLH^RCFN01(Y))
    • Line Location: HDR1+17
    Function Call: WRITE
    • Prompt: !,$P(X("ADD"),"^")
    • Line Location: HDR1+18
    Function Call: WRITE
    • Prompt: !
    • Line Location: HDR1+21
    Function Call: WRITE
    • Prompt: $P(X("ADD"),"^",4),", ",$P(X("ADD"),"^",5)," ",$S($P(X("ADD"),"^",6):$P(X("ADD"),"^",6),1:$P(X("ADD"),"^",8))
    • Condition for execution: $P(X("ADD"),"^",4)]""
    • Line Location: HDR1+21
    Function Call: WRITE
    • Prompt: ?55,"Amount Owed: ",?69,$J(+$G(^TMP("PRCAAPR",$J,"C")),9,2)
    • Line Location: HDR1+22
    Function Call: WRITE
    • Prompt: !,"Phone #: ",$S($P(X("ADD"),"^",7)]"":$P(X("ADD"),"^",7),1:"N/A")
    • Line Location: HDR1+27
    Function Call: WRITE
    • Prompt: ?51,"RX Copay Exempt: "
    • Line Location: HDR1+28
    Function Call: WRITE
    • Prompt: $S($P(IBRX,U)=1:"YES",$P(IBRX,U)=0:"NO",1:"N/A")
    • Line Location: HDR1+28
    Function Call: WRITE
    • Prompt: !?57,"CV Status: "
    • Line Location: HDR1+29
    Function Call: WRITE
    • Prompt: $S($P(RCCV,U,3)>0:"YES",1:"NO")
    • Line Location: HDR1+29
    Function Call: WRITE
    • Prompt: $S($P(RCCV,U,3)>0:"YES",1:"NO")
    • Line Location: HDR1+29
    Function Call: WRITE
    • Prompt: !,?54,"(",$P(Y,"^",2),")"
    • Line Location: HDR1+31
    Function Call: WRITE
    • Prompt: !,"** Account forwarded to DMC: ",$$SLH^RCFN01($P(DMC,"^",2)),?50,"Total DMC Amount: ",?69,$J($P(DMC,"^",5),9,2)
    • Line Location: HDR1+33
    Function Call: WRITE
    • Prompt: !,?49,"Lesser Amt to DMC: ",?69,$J($P(DMC,"^",9),9,2)
    • Line Location: HDR1+34
    Function Call: WRITE
    • Prompt: !,"** Account forwarded to TOP: ",$$SLH^RCFN01($P(TOP6,"^")),?45,"Total TOP Amount: ",?65,$J($P(TOP4,"^",3),13,2)
    • Line Location: HDR1+37
    Function Call: WRITE
    • Prompt: !,?45,"TOP HOLD DATE: ",$$SLH^RCFN01($P(TOP6,"^",6))
    • Line Location: HDR1+38
    Function Call: WRITE
    • Prompt: !,$G(^(X,0))
    • Line Location: HDR1+46
    Function Call: WRITE
    • Prompt: "..."
    • Condition for execution: Y=3&$O(^RCD(340,+DEBT,2,X))
    • Line Location: HDR1+46
    Function Call: WRITE
    • Prompt: !!,"#",?7,"Bill #",?20,"Est",?31,"Type",?43,"Paid",?52,"Prin",?58,"Int",?64,"Adm",?72,"Balance"
    • Line Location: HDR2+0
    Function Call: WRITE
    • Prompt: !!,X," NO ACCOUNT INFORMATION AVAILABLE ",X
    • Line Location: DIS+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: BHDR+2
    Function Call: WRITE
    • Prompt: "-"
    • Line Location: BHDR+2
    Function Call: WRITE
    • Prompt: Y
    • Line Location: BHDR+3
    Function Call: WRITE
    • Prompt: "-"
    • Line Location: BHDR+3
    Function Call: WRITE
    • Prompt: !,$S(STAT1'=99:COUNT,1:"*"),?5,$P(RCIND_X,"^") W:STAT1'=99
    • Line Location: BLN+20
    Function Call: WRITE
    • Prompt: !,$S(STAT1'=99:COUNT,1:"*"),?6,$P(X,"^") W:STAT1'=99
    • Line Location: BLN+21
    Function Call: WRITE
    • Prompt: ?39
    • Line Location: BLN+24
    Function Call: WRITE
    • Prompt: "-"
    • Condition for execution: STAT1=99
    • Line Location: BLN+24
    Function Call: WRITE
    • Prompt: $J($P(X,"^",7)+$P(X,"^",8)+$P(X,"^",9)+$P(X,"^",10)+$P(X,"^",11),8,2)
    • Line Location: BLN+24
    Function Call: WRITE
    • Prompt: $J($P(X,"^"),7,2),?57,$J($P(X,"^",2),5,2),?63,$J($P(X,"^",3),5,2),?69,$S(STAT1=99:"-",$P(^PRCA(430,BILL,0),"^",2)=$O(^PRCA(430.2,"AC",33,0)):"-",1:" ")
    • Line Location: BLN+26
    Function Call: WRITE
    • Prompt: $S(STAT1=99:$J(^TMP("PRCAAPR",$J,"C",STAT1,BILL),9,2),1:$J($P(X,"^")+$P(X,"^",2)+$P(X,"^",3)+$P(X,"^",4)+$P(X,"^",5),9,2))
    • Line Location: BLN+27
    Function Call: READ
    • Prompt: ": "
    • Variable: X
    • Timeout: DTIME
    • Line Location: READ+1
    Function Call: WRITE
    • Prompt: !!,"Select 1-",COUNT
    • Line Location: READ+1
    Function Call: WRITE
    • Prompt: " or return to continue"
    • Condition for execution: $O(^TMP("PRCAAPR",$J,"C",""))
    • Line Location: READ+1
    Function Call: WRITE
    • Prompt: !!,"To see detailed information for a bill number, enter the corresponding '#'",!,"next to the bill. (Ex: 1 or 1,3)"
    • Line Location: READ+2
    Function Call: WRITE
    • Prompt: *7," ??"
    • Line Location: READ+5

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^RCRP(340.5 - [#340.5] GET1^DIQ
    ^IBE(354.2 - [#354.2] Classic Fileman Calls
    ^PRCA(430 - [#430] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call