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
Print Page as PDF
Routine: RCDPRTP2

Package: Accounts Receivable

Routine: RCDPRTP2


Information

RCDPRTP2 ;ALB/LDB - CLAIMS MATCHING REPORT ;1/26/01 3:16 PM

Source Information

Source file <RCDPRTP2.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
PRINT2
PRINT3 ; Print patient detail information.
HDR1
HDR2 ;
STAT(RCIBFN) ;AR Status
DATE(X) ; Convert FileMan date to mm/dd/yy
PAUSE ; Page break.
EEOB(RCBILL) ; PRCA*4.5*276 - get EEOB indicator for a bill
; Interaction with IB file #361.1 covered by IA #4051.
; RCBILL is the IEN of the bill in files #399/#430 and must be valid,
; Exclude an EOB type of MRA when getting payment information. Return
; the EEOB indicator '%' if payment activity was found.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$S(RCTP=RCBILL:"*",$D(RCTP(RCTP)):"*",1:" "),$G(RCEEOB)_REJECT_$P(RCIBDAT,"^",4),?17,$P(RCIBDAT,"^",5),?24
  • Line Location: PRINT1+11
Function Call: WRITE
  • Prompt: $$STAT(RCTP),?31,$$DATE(+RCIBDAT),?42,$$DATE($P(RCIBDAT,"^",2))
  • Line Location: PRINT1+12
Function Call: WRITE
  • Prompt: ?53,$$DATE(Y)
  • Line Location: PRINT1+13
Function Call: WRITE
  • Prompt: ?64,$J(RCAMT,9,2)
  • Line Location: PRINT1+14
Function Call: WRITE
  • Prompt: ?76,$J(RCAMT1,9,2)
  • Line Location: PRINT1+15
Function Call: WRITE
  • Prompt: ?88,$E($P(RCIBDAT,"^",7),1,25)
  • Line Location: PRINT1+16
Function Call: WRITE
  • Prompt: ?119,RCTYP
  • Line Location: PRINT1+22
Function Call: WRITE
  • Prompt: !," ",$P(RCIBDAT,"^",4),?14,$E($P(RCIBDAT,"^",6),1,18)
  • Line Location: PRINT2+2
Function Call: WRITE
  • Prompt: ?36,$$STAT(RCIBFN),?42,$$DATE(+RCIBDAT),?54,$$DATE($P(RCIBDAT,"^",2))
  • Line Location: PRINT2+5
Function Call: WRITE
  • Prompt: ?66,$J($P(RCIBDAT,"^",5),9,2),?78,$P(RCIBDAT,"^",7)
  • Line Location: PRINT2+6
Function Call: WRITE
  • Prompt: ?87,$J($S($G(^PRCA(430,+RCIBFN,7)):+($P(^(7),"^")+$P(^(7),"^",2)+$P(^(7),"^",3)+$P(^(7),"^",4)+$P(^(7),"^",4)),1:0),9,2)
  • Line Location: PRINT2+7
Function Call: WRITE
  • Prompt: !!,RCLINE
  • Line Location: PRINT3+8
Function Call: WRITE
  • Prompt: !,"NAME: ",$P(RCNAM,"^"),?44,"SSN: ",$E(RCNAM,1)_$E($P(RCNAM1,"^",3),6,9)
  • Line Location: PRINT3+9
Function Call: WRITE
  • Prompt: !,"Prim. Elig: ",$P(RCNAM1,"^",2)
  • Line Location: PRINT3+10
Function Call: WRITE
  • Prompt: ?44,"DOB: ",DOB
  • Line Location: PRINT3+11
Function Call: WRITE
  • Prompt: !,RCLINE
  • Line Location: PRINT3+13
Function Call: WRITE
  • Prompt: !!,"Third Party Bills: * -> bill for which payment was posted"
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !,"============================="
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !!,"Bill #",?15,"P/S/T",?22,"Status",?30,"Bill From",?42,"Bill To",?53,"Posted",?63,"Amt Billed",?76,"Amt Paid",?88,"Payor",?115,"Care Type"
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !,"-------------",?15,"-----",?22,"------",?30,"---------",?42,"--------",?53,"--------",?63,"----------",?75,"----------",?88,"-------------------------",?115,"---------"
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: !!,"Associated First Party Charges:"
  • Line Location: HDR2+1
Function Call: WRITE
  • Prompt: !,"==============================="
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: !," Bill #",?14,"Charge Type",?34,"Status",?42,"From/Fill",?54,"To/Rel",?65,"Amt Billed",?78,"On Hold",?87," Balance"
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: !,"-----------",?14,"----------------",?34,"------",?42,"---------",?54,"---------",?65,"----------",?78,"-------",?87," ----------"
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Info |  Source |  Entry Points |  Interaction Calls