Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Accounts Receivable 8 $$COMP3^PRCAAPR  EN1^PRCAATR  $$DADD^RCAMADD  $$PST^RCAMFN01  ($$ASOF,$$FPS)^RCCPCFN  ($$LST,$$SLH)^RCFN01  $$SITE^RCMSITE  $$TOTALB^RCTCSPU  
Integrated Billing 2 $$RXST^IBARXEU  $$BILLREJ^IBJTU6  
VA FileMan 2 ^DIC  $$GET1^DIQ  
Kernel 1 $$RJ^XLFSTR  
Registration 1 $$CVEDT^DGCV  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Accounts Receivable 4 PRCAAPR  PRCAATR  RCDPBPLM  RCDPBTLM  
Integrated Billing 1 IBOHLS2  

Entry Points

Name Comments DBIA/ICR reference
Q1
Q3
Q2
HDR2
  • ICR #6401
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #6750
    • Status: Withdrawn
    • Usage: Controlled Subscription
    HDR ;Head for Account profile
  • ICR #6401
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #6750
    • Status: Withdrawn
    • Usage: Controlled Subscription
    HDR1
    READ ;Read bill number
    TPOPV(DFN,EVDT) ;
    ; Function will quit as soon as a 3rd party bill is located that has an associated EEOB
    BLN ;
    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
    IBEEOBCK(PRCAAR) ; Passed AR Bill
    ; Function will quit as soon as a 3rd party bill is located that has an associated EEOB
    ACCT(DFN) ;Get account number. Join station with DFN (Patch 206)
    BHDR ;Display status line
    DIS ;Display bill line items
  • ICR #6401
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #6750
    • Status: Withdrawn
    • Usage: Controlled Subscription

    External References

    Name Field # of Occurrence
    $$CVEDT^DGCV HDR1+25
    ^DIC HDR1+27
    $$GET1^DIQ BLN+16, BLN+17
    $$RXST^IBARXEU HDR1+24
    $$BILLREJ^IBJTU6 BLN+7
    $$COMP3^PRCAAPR BLN+4, TPEVDT+7, TPOPV+6
    EN1^PRCAATR READ+6
    $$DADD^RCAMADD HDR1+9
    $$PST^RCAMFN01 HDR1+8
    $$ASOF^RCCPCFN HDR1+19
    $$FPS^RCCPCFN HDR1+16
    $$LST^RCFN01 HDR1+15
    $$SLH^RCFN01 HDR1+17, HDR1+19, HDR1+25, HDR1+29, HDR1+33, HDR1+34, BLN+20, BLN+21
    $$SITE^RCMSITE ACCT+4
    $$TOTALB^RCTCSPU HDR1+37
    $$RJ^XLFSTR ACCT+5

    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 #: ",ACCTNUM,?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+23
    Function Call: WRITE
    • Prompt: ?51,"RX Copay Exempt: "
    • Line Location: HDR1+24
    Function Call: WRITE
    • Prompt: $S($P(IBRX,U)=1:"YES",$P(IBRX,U)=0:"NO",1:"N/A")
    • Line Location: HDR1+24
    Function Call: WRITE
    • Prompt: !?57,"CV Status: "
    • Line Location: HDR1+25
    Function Call: WRITE
    • Prompt: $S($P(RCCV,U,3)>0:"YES",1:"NO")
    • Line Location: HDR1+25
    Function Call: WRITE
    • Prompt: $S($P(RCCV,U,3)>0:"YES",1:"NO")
    • Line Location: HDR1+25
    Function Call: WRITE
    • Prompt: !,?54,"(",$P(Y,"^",2),")"
    • Line Location: HDR1+27
    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+29
    Function Call: WRITE
    • Prompt: !,?49,"Lesser Amt to DMC: ",?69,$J($P(DMC,"^",9),9,2)
    • Line Location: HDR1+30
    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+33
    Function Call: WRITE
    • Prompt: !,?45,"TOP HOLD DATE: ",$$SLH^RCFN01($P(TOP6,"^",6))
    • Line Location: HDR1+34
    Function Call: WRITE
    • Prompt: !,$G(^(X,0))
    • Line Location: HDR1+40
    Function Call: WRITE
    • Prompt: "..."
    • Condition for execution: Y=3&$O(^RCD(340,+DEBT,2,X))
    • Line Location: HDR1+40
    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: ": "
    • Timeout: DTIME
    • Variable: X
    • 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
    Routine Call
    • DIC
    • Line Location:
      • HDR1+27

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBE(354.2 - [#354.2] Classic Fileman Calls
    ^PRCA(430 - [#430] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] TPEVDT+6, TPEVDT+7, TPOPV+4
    ^DPT - [#2] HDR1+7
    ^IB - [#350] IBEEOBCK+12
    ^IB("ABIL" IBEEOBCK+11
    ^PRCA(430 - [#430] BLN+7, BLN+8, BLN+24, BLN+25, BLN+26, IBEEOBCK+6, IBEEOBCK+11
    ^PRCA(430.2 - [#430.2] BLN+22, BLN+25, BLN+26
    ^PRCA(430.3 - [#430.3] BHDR+1
    ^RCD(340 - [#340] HDR1+28, HDR1+32, HDR1+36, HDR1+39, HDR1+40, IBEEOBCK+7
    ^TMP("PRCAAPR" HDR1+22, DIS+2, DIS+3, BHDR+1, BHDR+2, BLN+8*, BLN+24, BLN+27, BLN+28!, READ+1
    , READ+3, READ+5, READ+6
    ^VA(200 - [#200] HDR1+7

    Label References

    Name Line Occurrences
    $$ACCT HDR1+5
    $$IBEEOBCK BLN+5
    $$TPEVDT IBEEOBCK+13
    $$TPOPV IBEEOBCK+14
    BHDR DIS+3, BLN+2
    BLN DIS+3
    HDR BLN+2
    HDR2 BLN+2
    Q1 DIS+2
    Q2 BLN+2
    Q3 READ+1, READ+3, READ+4
    READ DIS+4, BLN+2, READ+2, READ+5

    Naked Globals

    Name Field # of Occurrence
    ^( HDR1+40
    ^(6 HDR1+32

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACCT ACCT+1~, ACCT+5*, ACCT+6, ACCT+7
    ACCT1 ACCT+1~, ACCT+6*, ACCT+7*, ACCT+8*, ACCT+9
    ACCTNUM HDR1~, HDR1+5*, HDR1+12
    >> BILL DIS+3*, BLN+4, BLN+5, BLN+7, BLN+8, BLN+16, BLN+17, BLN+24, BLN+25, BLN+26
    , BLN+27, BLN+28
    >> COUNT BLN+2, BLN+8*, BLN+20, BLN+21, READ+1
    CSCSTAT BLN+1~
    CSDATE1 BLN+1~, BLN+16*, BLN+18
    CSDATE2 BLN+1~, BLN+17*, BLN+18
    DBTR IBEEOBCK+4~, IBEEOBCK+6*, IBEEOBCK+7
    >> DEBT HDR1+7, HDR1+8, HDR1+16, HDR1+28, HDR1+32, HDR1+36, HDR1+37, HDR1+39, HDR1+40, ACCT+8
    DEBTOR BLN+1~
    DFN ACCT~, ACCT+2*, ACCT+3, ACCT+5, ACCT+6, IBEEOBCK+4~, IBEEOBCK+8*, IBEEOBCK+13, IBEEOBCK+14, TPEVDT~
    , TPEVDT+3, TPEVDT+6, TPEVDT+7, TPOPV~, TPOPV+4
    >> DIC HDR1+27*
    >> DIC(0 HDR1+27*
    DMC HDR1~, HDR1+28*, HDR1+29, HDR1+30
    DPTFLG HDR1~, HDR1+1*, HDR1+5*, HDR1+7, HDR1+12
    DT HDR1+24, HDR1+25
    DTIME READ+1
    >> DTOUT READ+1*
    EVDT TPEVDT~, TPEVDT+3, TPEVDT+7, TPOPV~, TPOPV+4
    IBRX HDR1~, HDR1+1*, HDR1+24*, HDR1+27
    IOF HDR+1
    IOM BHDR+3
    IOSL BLN+2
    LEN ACCT+1~, ACCT+3*, ACCT+7
    >> OUT DIS+3, DIS+4, BLN+2, READ+1*, READ+3*, READ+6*
    PRCAAR IBEEOBCK~, IBEEOBCK+6, IBEEOBCK+11
    >> PRCADB HDR1+5, HDR1+7, HDR1+9, HDR1+15, HDR1+24, HDR1+25
    PRCADT IBEEOBCK+4~, IBEEOBCK+12*, IBEEOBCK+13, IBEEOBCK+14
    PRCAEEOB IBEEOBCK+4~, IBEEOBCK+9*, IBEEOBCK+11, IBEEOBCK+13*, IBEEOBCK+14*, IBEEOBCK+16, TPEVDT+4~, TPEVDT+5*, TPEVDT+6, TPEVDT+7*
    , TPEVDT+8, TPOPV+2~, TPOPV+3*, TPOPV+4, TPOPV+6*, TPOPV+7
    PRCAIFN TPEVDT+4~, TPEVDT+5*, TPEVDT+6*, TPEVDT+7, TPOPV+2~, TPOPV+4*, TPOPV+6
    PRCAREF IBEEOBCK+4~, IBEEOBCK+11*, IBEEOBCK+12
    PRCOUT BLN+1~, BLN+4*, BLN+5*, BLN+8
    RCCV HDR1~, HDR1+25*
    RCIND BLN+1~, BLN+18*, BLN+20, BLN+21
    REJFLAG BLN+1~, BLN+7*, BLN+8
    RSN HDR1~
    >> SEL READ+4*, READ+5, READ+6
    SITE ACCT+1~, ACCT+4*, ACCT+6
    STAT1 DIS+1~, DIS+3*, BHDR+1, BHDR+2, BLN+5, BLN+7, BLN+8, BLN+20, BLN+21, BLN+22
    , BLN+23, BLN+24, BLN+25, BLN+26, BLN+27, BLN+28
    TOP4 HDR1~, HDR1+32*, HDR1+33
    TOP6 HDR1~, HDR1+32*, HDR1+33, HDR1+34
    U HDR1+24, HDR1+25, HDR1+27, ACCT+8, IBEEOBCK+6, IBEEOBCK+7
    >> X HDR+1*, HDR1+7*, HDR1+27*, HDR1+40*, DIS+2*, BHDR+1*, BHDR+2*, BHDR+3*, BLN+8*, BLN+20
    , BLN+21, BLN+22, BLN+24*, BLN+26, BLN+27, READ+1*, READ+2, READ+3, READ+4, READ+5*
    , READ+6*
    >> X("ADD" HDR1+9*, HDR1+18, HDR1+20, HDR1+21, HDR1+23
    X1 IBEEOBCK+4~, IBEEOBCK+7*, IBEEOBCK+8
    Y HDR1+9!, HDR1+15*, HDR1+16*, HDR1+17, HDR1+27, HDR1+40*, BHDR+2*, BHDR+3, READ+5*, READ+6*
    Y("CCPC" HDR1+16*, HDR1+19
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All