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

Package Total Call Graph
Accounts Receivable 9 $$COMP3^PRCAAPR  ($$GETSA,$$GETSC)^PRCAAPR1  EN1^PRCAATR  $$DADD^RCAMADD  $$PST^RCAMFN01  ($$ASOF,$$FPS)^RCCPCFN  ($$LST,$$SLH)^RCFN01  $$SITE^RCMSITE  
($$RRD,$$TOTALB)^RCTCSPU  
Registration 5 $$CVEDT^DGCV  $$DISABLED^DGENCDA  $$GETSTAT^DGMSTAPI  $$GETCUR^DGNTAPI  (ELIG,SVC)^VADPT  
Integrated Billing 2 $$RXST^IBARXEU  $$BILLREJ^IBJTU6  
VA FileMan 2 ^DIC  ($$GET1,Y)^DIQ  
Kernel 1 $$RJ^XLFSTR  

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

Package Total Caller Graph
Accounts Receivable 16 PRCA 3RD PROFILE  PRCA MEANS PROFILE  PRCA PROFILE  PRCAAPR  PRCAAPR1  PRCAATR  PRCAGST  PRCAGST1  
PRCATP1  PRCATP2  PRCATP5  RCDPBPL2  RCDPBPL3  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
    GETSC(DFN) ; get SC % PRCA*4.5*448
    GETSA(DFN) ; get SC/SA codes PRCA*4.5*448
    GETDFN(DBIEN) ; Get the DFN for the patient / Debtor ; PRCA*4.5*459
    SVCINFO ; print Service connected % and SA list ; PRCA*4.5*459

    External References

    Name Field # of Occurrence
    $$CVEDT^DGCV HDR1+31
    $$DISABLED^DGENCDA GETSA+11
    $$GETSTAT^DGMSTAPI GETSA+16
    $$GETCUR^DGNTAPI GETSA+12
    ^DIC HDR1+37
    $$GET1^DIQ HDR1+57, HDR1+58, BLN+16, BLN+17, GETSA+13, GETSA+15, GETSA+21
    Y^DIQ SVCINFO+3
    $$RXST^IBARXEU HDR1+30
    $$BILLREJ^IBJTU6 BLN+7
    $$COMP3^PRCAAPR BLN+4, TPEVDT+7, TPOPV+6
    $$GETSA^PRCAAPR1 SVCINFO+5
    $$GETSC^PRCAAPR1 SVCINFO+4
    EN1^PRCAATR READ+6
    $$DADD^RCAMADD HDR1+10
    $$PST^RCAMFN01 HDR1+9
    $$ASOF^RCCPCFN HDR1+20
    $$FPS^RCCPCFN HDR1+17
    $$LST^RCFN01 HDR1+16
    $$SLH^RCFN01 HDR1+18, HDR1+20, HDR1+33, HDR1+39, HDR1+43, HDR1+44, BLN+20, BLN+21
    $$SITE^RCMSITE ACCT+10
    $$RRD^RCTCSPU HDR1+49
    $$TOTALB^RCTCSPU HDR1+49
    ELIG^VADPT GETSC+8
    SVC^VADPT GETSA+9
    $$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+8
    Function Call: WRITE
    • Prompt: " (",$E(X,1,3),"-",$E(X,4,5),"-",$E(X,6,9),")"
    • Line Location: HDR1+8
    Function Call: WRITE
    • Prompt: ?53,"Statement Day: ",$S($$PST^RCAMFN01(+DEBT)>0:$$PST^RCAMFN01(+DEBT),1:"N/A")
    • Line Location: HDR1+9
    Function Call: WRITE
    • Prompt: !,"Statement Account #: ",RCACCTN,?52,"Last Statement: "
    • Line Location: HDR1+13
    Function Call: WRITE
    • Prompt: !?52,"Last Statement: "
    • Line Location: HDR1+14
    Function Call: WRITE
    • Prompt: $S(Y=-1:"N/A",1:$$SLH^RCFN01(Y))
    • Line Location: HDR1+18
    Function Call: WRITE
    • Prompt: !,$P(X("ADD"),"^")
    • Line Location: HDR1+19
    Function Call: WRITE
    • Prompt: !
    • Line Location: HDR1+22
    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+22
    Function Call: WRITE
    • Prompt: ?55,"Amount Owed: ",?69,$J(+$G(^TMP("PRCAAPR",$J,"C")),9,2)
    • Line Location: HDR1+23
    Function Call: WRITE
    • Prompt: !,"Phone #: ",$S($P(X("ADD"),"^",7)]"":$P(X("ADD"),"^",7),1:"N/A")
    • 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+30
    Function Call: WRITE
    • Prompt: $S($P(RCCV,U,3)>0:"YES",1:"NO")
    • Line Location: HDR1+31
    Function Call: WRITE
    • Prompt: !,"SC Combined %: ",$S(SCPER>-1:SCPER_"%",1:"N/A")
    • Line Location: HDR1+32
    Function Call: WRITE
    • Prompt: ?52,"CV Status Ends: ",$$SLH^RCFN01($P(RCCV,U,2))
    • Line Location: HDR1+33
    Function Call: WRITE
    • Prompt: !,?54,"(",$P(Y,"^",2),")"
    • Line Location: HDR1+37
    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+39
    Function Call: WRITE
    • Prompt: !,?49,"Lesser Amt to DMC: ",?69,$J($P(DMC,"^",9),9,2)
    • Line Location: HDR1+40
    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+43
    Function Call: WRITE
    • Prompt: !,?45,"TOP HOLD DATE: ",$$SLH^RCFN01($P(TOP6,"^",6))
    • Line Location: HDR1+44
    Function Call: WRITE
    • Prompt: !,$G(^(X,0))
    • Line Location: HDR1+52
    Function Call: WRITE
    • Prompt: "..."
    • Condition for execution: Y=3&$O(^RCD(340,+DEBT,2,X))
    • Line Location: HDR1+52
    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
    Function Call: WRITE
    • Prompt: !,?0,"SC(%): ",$S(SC>-1:SC,1:"NA"),?39,"SA: ",$$GETSA^PRCAAPR1(DFN)
    • Line Location: SVCINFO+5
    Routine Call
    • DIC
    • Line Location:
      • HDR1+37

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GET1^DIQ
    ^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)
    ^DD(430 SVCINFO+3
    ^DGCR(399 - [#399] TPEVDT+6, TPEVDT+7, TPOPV+4
    ^DPT - [#2] HDR1+8
    ^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, SVCINFO+2
    ^PRCA(430.2 - [#430.2] BLN+22, BLN+25, BLN+26
    ^PRCA(430.3 - [#430.3] BHDR+1
    ^RCD(340 - [#340] HDR1+38, HDR1+42, HDR1+47, HDR1+51, HDR1+52, IBEEOBCK+7, GETDFN+2, GETDFN+3
    ^RCRP(340.5 - [#340.5] HDR1+55
    ^TMP("PRCAAPR" HDR1+23, 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+8

    Label References

    Name Line Occurrences
    $$ACCT HDR1+6
    $$GETDFN SVCINFO+2
    $$GETSA HDR1+34
    $$GETSC HDR1+32
    $$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+52
    ^(6 HDR1+42

    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
    C SVCINFO+1~, SVCINFO+3*
    >> 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
    >> D0 SVCINFO+2
    DBIEN GETDFN~, GETDFN+2, GETDFN+3
    DBTR IBEEOBCK+4~, IBEEOBCK+6*, IBEEOBCK+7
    >> DEBT HDR1+8, HDR1+9, HDR1+17, HDR1+38, HDR1+42, HDR1+47, HDR1+49, HDR1+51, HDR1+52, HDR1+55
    , 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, GETSC~, GETSC+8, GETSA~, GETSA+8, GETSA+11
    , GETSA+12, GETSA+13, GETSA+15, GETSA+16, GETSA+21, SVCINFO+1~, SVCINFO+2*, SVCINFO+4, SVCINFO+5
    >> DIC HDR1+37*
    >> DIC(0 HDR1+37*
    DMC HDR1~, HDR1+38*, HDR1+39, HDR1+40
    DPTFLG HDR1~, HDR1+2*, HDR1+6*, HDR1+8, HDR1+13
    DT HDR1+30, HDR1+31
    DTIME READ+1
    >> DTOUT READ+1*
    EVDT TPEVDT~, TPEVDT+3, TPEVDT+7, TPOPV~, TPOPV+4
    IBRX HDR1~, HDR1+2*, HDR1+30*, HDR1+37
    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+6, HDR1+8, HDR1+10, HDR1+16, HDR1+29, HDR1+30, HDR1+31, HDR1+32, HDR1+34
    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+26*, HDR1+27
    PRCAREF IBEEOBCK+4~, IBEEOBCK+11*, IBEEOBCK+12
    PRCHPHN HDR1+25~
    PRCOUT BLN+1~, BLN+4*, BLN+5*, BLN+8
    RCACCTN HDR1~, HDR1+6*, HDR1+13
    RCCV HDR1~, HDR1+31*, HDR1+33
    RCIND BLN+1~, BLN+18*, BLN+20, BLN+21
    REJFLAG BLN+1~, BLN+7*, BLN+8
    RES GETSC+6~, GETSC+7*, GETSC+8*, GETSC+9, GETSA+6~, GETSA+7*, GETSA+10*, GETSA+11*, GETSA+12*, GETSA+13*
    , GETSA+14*, GETSA+15*, GETSA+16*, GETSA+17*, GETSA+18*, GETSA+19*, GETSA+20*, GETSA+21*, GETSA+23
    RPIEN HDR1+1~, HDR1+55*, HDR1+56
    RPIENS HDR1+1~, HDR1+56*, HDR1+57, HDR1+58
    RSN HDR1~
    SC SVCINFO+1~, SVCINFO+4*, SVCINFO+5
    SCPER HDR1+1~, HDR1+32*
    >> 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
    TEMP GETDFN+1~, GETDFN+3*, GETDFN+4, GETDFN+5
    TMPARY GETSA+6~
    TMPARY("HNC" GETSA+12
    TOP4 HDR1~, HDR1+42*, HDR1+43
    TOP6 HDR1~, HDR1+42*, HDR1+43, HDR1+44
    U HDR1+30, HDR1+31, HDR1+33, HDR1+37, ACCT+14, IBEEOBCK+6, IBEEOBCK+7, GETSC+8, GETSA+12, GETSA+16
    , GETSA+17, GETSA+18, GETDFN+3, SVCINFO+2, SVCINFO+3
    VAEL GETSC+6~
    VAEL(3 GETSC+8
    VASV GETSA+6~
    VASV(14 GETSA+20
    VASV(15 GETSA+17
    VASV(2 GETSA+10
    VASV(3 GETSA+14
    VASV(4 GETSA+19
    VASV(9 GETSA+18
    X HDR+1*, HDR1+8*, HDR1+37*, HDR1+52*, 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*, SVCINFO+1~, SVCINFO+2*
    X("ADD" HDR1+10*, HDR1+19, HDR1+21, HDR1+22, HDR1+24, HDR1+26, HDR1+27*, HDR1+28
    X1 IBEEOBCK+4~, IBEEOBCK+7*, IBEEOBCK+8
    Y HDR1+10!, HDR1+16*, HDR1+17*, HDR1+18, HDR1+37, HDR1+52*, BHDR+2*, BHDR+3, READ+5*, READ+6*
    , SVCINFO+1~, SVCINFO+2*, SVCINFO+3
    Y("CCPC" HDR1+17*, HDR1+20
    Z GETSA+6~, GETSA+12*, GETSA+16*
    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