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

Package: Accounts Receivable

Routine: PRCAATR


Information

PRCAATR ;WASH-ISC@ALTOONA,PA/RGY - VIEW TRANSACTION FOR BILLS ;2/14/96 2:46 PM

Source Information

Source file <PRCAATR.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;**36,104,172,138,233,276,303,301,315,350,388**;Mar 20, 1995;Build 13
EN1(BILL) ;ENTRY POINT FROM PRCAAPR
Q
HDR ;Header
DIS ;Display transactions
RD
TLN ;Display a transaction
Q1
READ ;Read a trans number
ASK
Q2
VT ;View a transaction
Q3
DQ ;
RD1
DEB ;View debtor
CSREJ ; Show last reject ; PRCA*4.5*350

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"MEDICARE CONTRACTUAL ADJUSTMENT: ",$J($P($G(^PRCA(430,BILL,13)),"^"),0,2)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"UNREIMBURSED MEDICARE EXPENSE: ",$J($P($G(^PRCA(430,BILL,13)),"^",2),0,2)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"CS "
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: "Re-"
  • Condition for execution: $$RR^RCTCSPU(BILL)
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: "Referred Date: "
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: "Referred Date: "
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,"CS Recall Reason: ",$E($$GET1^DIQ(430,BILL,154),1,31)
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: ?51,"CS Recall Date: "
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: ?51,"CS Recall Date: "
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,"CS Recall Reason: ",$E($$GET1^DIQ(430,BILL,154),1,31)
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: ?51,"CS Recall Date: "
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !!,"Bill #",?8,"Tr #",?20,"Type",?52,"Date",?70,"Amount"
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: !,?20,"Original Amount",?52,$$SLH^RCFN01($P(^PRCA(430,BILL,0),"^",10)),?65,$J($P(^(0),"^",3),11,2)
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !!,X," NO TRANSACTION INFORMATION AVAILABLE ",X
  • Line Location: DIS+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Press return to continue: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD+0
Function Call: WRITE
  • Prompt: !!,"Press the return key to return to menu."
  • Line Location: RD+1
Function Call: WRITE
  • Prompt: !?65,"-----------",!,?64,"$",$J($P(X,"^")+$P(X,"^",2)+$P(X,"^",3)+$P(X,"^",4)+$P(X,"^",5),11,2)
  • Line Location: RD+5
Function Call: WRITE
  • Prompt: !,COUNT,$S($P(^PRCA(433,TRAN,0),"^",4)=1!$P(^(0),"^",10):"(I)",1:""),?8,TRAN,?20
  • Line Location: TLN+4
Function Call: WRITE
  • Prompt: $S($P($G(^PRCA(430.3,+$P(X,"^",2),0)),"^",3)=17:$P($G(^PRCA(433,TRAN,5)),"^",2),1:$P($G(^(0)),"^"))
  • Line Location: TLN+5
Function Call: WRITE
  • Prompt: ?52,$S(+X:$$SLH^RCFN01(+X),1:""),?65,$J($P(X,"^",5),11,2)
  • Line Location: TLN+8
Function Call: READ
  • Prompt: ": "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Select 1-",COUNT,$S(PRCAPRT:" or 'P' to Print",1:" to print")
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: " or return to continue"
  • Condition for execution: TRAN
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"To see detailed information for a transaction number, enter the corresponding '#'",!,"next to the transaction. (Ex: 1 or 1,3)"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !,"*** Trans # ",D0," REQUEST QUEUED ***"
  • Line Location: VT+3
Function Call: WRITE
  • Prompt: !,"OK, Printing Transaction # ",D0," ..."
  • Line Location: VT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ+1
Function Call: WRITE
  • Prompt: !,X," TRANSACTION PROFILE ",X,!!
  • Line Location: DQ+1
Function Call: READ
  • Formatting: !!
  • Prompt: "PRESS <RETURN> TO CONTINUE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD1+0
Function Call: WRITE
  • Prompt: !!,"Press return to view next transaction or to continue"
  • Line Location: RD1+0
Function Call: WRITE
  • Prompt: " ",$P($G(@("^"_$P(PRCA,";",2)_+PRCA_",0)")),"^")
  • Line Location: DEB+2
Function Call: WRITE
  • Prompt: " Last CS REJECT CODE: ",$P($G(^RC(348.5,RJCODE,0)),"^")
  • Line Location: CSREJ+10
Function Call: WRITE
  • Prompt: " Last CS REJECT DATE: ",$$FMTE^XLFDT(RJDT,"5Z")
  • Line Location: CSREJ+11

FileMan Files Accessed Via FileMan Db Call

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