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  ($$RRD,$$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

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

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Accounts Receivable 7 PRCAAPR  PRCAATR  PRCAGST  PRCAGST1  RCDPBPLM  RCDPBTLM  RCRPDR  
Integrated Billing 1 IBOHLS2  

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

    External References

    Name Field # of Occurrence
    $$CVEDT^DGCV HDR1+29
    ^DIC HDR1+31
    $$GET1^DIQ HDR1+51, HDR1+52, BLN+16, BLN+17
    $$RXST^IBARXEU HDR1+28
    $$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+29, HDR1+33, HDR1+37, HDR1+38, BLN+20, BLN+21
    $$SITE^RCMSITE ACCT+10
    $$RRD^RCTCSPU HDR1+43
    $$TOTALB^RCTCSPU HDR1+43
    $$RJ^XLFSTR ACCT+11

    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
    Routine Call
    • DIC
    • Line Location:
      • HDR1+31

    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

    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+32, HDR1+36, HDR1+41, HDR1+45, HDR1+46, IBEEOBCK+7
    ^RCRP(340.5 - [#340.5] HDR1+49
    ^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+46
    ^(6 HDR1+36

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACCT ACCT+6~, ACCT+11*, ACCT+12, ACCT+13
    ACCT1 ACCT+6~, ACCT+12*, ACCT+13*, ACCT+14*, ACCT+15
    >> 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+32, HDR1+36, HDR1+41, HDR1+43, HDR1+45, HDR1+46, HDR1+49
    , ACCT+14
    DEBTOR BLN+1~
    DFN ACCT~, ACCT+7*, ACCT+9, ACCT+11, ACCT+12, IBEEOBCK+4~, IBEEOBCK+8*, IBEEOBCK+13, IBEEOBCK+14, TPEVDT~
    , TPEVDT+3, TPEVDT+6, TPEVDT+7, TPOPV~, TPOPV+4
    >> DIC HDR1+31*
    >> DIC(0 HDR1+31*
    DMC HDR1~, HDR1+32*, HDR1+33, HDR1+34
    DPTFLG HDR1~, HDR1+1*, HDR1+5*, HDR1+7, HDR1+12
    DT HDR1+28, HDR1+29
    DTIME READ+1
    >> DTOUT READ+1*
    EVDT TPEVDT~, TPEVDT+3, TPEVDT+7, TPOPV~, TPOPV+4
    IBRX HDR1~, HDR1+1*, HDR1+28*, HDR1+31
    IOF HDR+1
    IOM BHDR+3
    IOSL BLN+2
    LEN ACCT+6~, ACCT+9*, ACCT+13
    >> 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+28, HDR1+29
    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
    >> PRCAPHN HDR1+25*, HDR1+26
    PRCAREF IBEEOBCK+4~, IBEEOBCK+11*, IBEEOBCK+12
    PRCHPHN HDR1+24~
    PRCOUT BLN+1~, BLN+4*, BLN+5*, BLN+8
    RCACCTN HDR1~, HDR1+5*, HDR1+12
    RCCV HDR1~, HDR1+29*
    RCIND BLN+1~, BLN+18*, BLN+20, BLN+21
    REJFLAG BLN+1~, BLN+7*, BLN+8
    >> RPIEN HDR1+49*, HDR1+50
    >> RPIENS HDR1+50*, HDR1+51, HDR1+52
    RSN HDR1~
    >> SEL READ+4*, READ+5, READ+6
    SITE ACCT+6~, ACCT+10*, ACCT+12
    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+36*, HDR1+37
    TOP6 HDR1~, HDR1+36*, HDR1+37, HDR1+38
    U HDR1+28, HDR1+29, HDR1+31, ACCT+14, IBEEOBCK+6, IBEEOBCK+7
    >> X HDR+1*, HDR1+7*, HDR1+31*, HDR1+46*, 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, HDR1+25, HDR1+26*, HDR1+27
    X1 IBEEOBCK+4~, IBEEOBCK+7*, IBEEOBCK+8
    Y HDR1+9!, HDR1+15*, HDR1+16*, HDR1+17, HDR1+31, HDR1+46*, 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