Routine: PRCAATR

Information

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

Package	Total	Call Graph
Accounts Receivable	5	$$COMP3^PRCAAPR ($$IBEEOBCK,HDR)^PRCAAPR1 ^PRCATR3 $$SLH^RCFN01 $$RR^RCTCSPU
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
Integrated Billing	2	$$BILLREJ^IBJTU6 ENF^IBOLK
VA FileMan	2	DD^%DT $$GET1^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Accounts Receivable	2	PRCAAPR PRCAAPR1
Integrated Billing	1	IBOHLS2

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 ; PRCA4.5350

External References

Name	Field # of Occurrence
DD^%DT	HDR+12, HDR+14
^%ZIS	ASK+1, VT+5
^%ZISC	EN1+9, ASK+2
^%ZTLOAD	VT+3
$$GET1^DIQ	HDR+7, HDR+8, HDR+14, HDR+15
$$BILLREJ^IBJTU6	HDR+5
ENF^IBOLK	DQ+2
$$COMP3^PRCAAPR	EN1+6
$$IBEEOBCK^PRCAAPR1	EN1+7
HDR^PRCAAPR1	HDR+1
^PRCATR3	DQ+2
$$SLH^RCFN01	DIS+1, TLN+8
$$RR^RCTCSPU	HDR+12
$$FMTE^XLFDT	CSREJ+11

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
Routine Call	%ZIS Line Location: ASK+1 VT+5

FileNo	Call Tags
^PRCA(430 - [#430]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRCA(430 - [#430]	EN1+4, HDR+2, HDR+3, HDR+5, HDR+12, HDR+13, HDR+18, HDR+19, DIS+1, RD+4 , DEB+2, CSREJ+3, CSREJ+5, CSREJ+7
^PRCA(430.3 - [#430.3]	TLN+5
^PRCA(433 - [#433]	DIS+2, RD+3, TLN+3, TLN+4, TLN+5
^RC(348.5 - [#348.5]	CSREJ+10
^RCD(340 - [#340]	DEB+2
^TMP("PRCAATR"	EN1+8!, Q!, TLN+3*, ASK+7, VT+2

Label References

Name	Line Occurrences
@(	HDR+18, HDR+19
ASK	ASK+1, ASK+4
DIS	EN1+9
DQ	VT+6
HDR	EN1+9, TLN+2
Q	EN1+3, EN1+4
Q1	TLN+2
Q2	READ+1, ASK, ASK+1, ASK+5
Q3	VT+2, VT+3
RD	RD+1
RD1	RD1
READ	RD+5, TLN+2, ASK+7
TLN	RD+3
VT	ASK+8

Naked Globals

Name	Field # of Occurrence
^(0	HDR+18, HDR+19, DIS+1, TLN+4, TLN+5
^(15	HDR+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ASK+1*, VT+1~
BILL	EN1~, EN1+3, EN1+4, EN1+6, EN1+7, HDR+2, HDR+3, HDR+5, HDR+7, HDR+8 , HDR+12, HDR+13, HDR+14, HDR+15, HDR+18, HDR+19, DIS+1, DIS+2, RD+3, RD+4 , DEB+2, CSREJ+3, CSREJ+5, CSREJ+7
COUNT	EN1+1~, EN1+8, TLN+2, TLN+3, TLN+4, ASK
CSDATE1	EN1+2~, HDR+7*, HDR+9
CSDATE2	EN1+2~, HDR+8*, HDR+9
CSFLG	EN1+2~, HDR+9*, HDR+18
D0	EN1+1~, VT+2*, VT+3, VT+4, DQ+2
>> DEBT	HDR+18, HDR+19
DTIME	RD, ASK, RD1
>> DTOUT	RD, TLN+2, ASK, RD1*
DXS	DQ+2!
I	CSREJ+1~, CSREJ+8*
IO	READ+1, ASK+1, VT+3, VT+4, VT+6
IO("Q"	Q!, VT+3
IO("S"	ASK+2
IO(0	EN1+8, READ+1, ASK+1, VT+3, VT+4, VT+6
IOF	DQ+1
IOM	HDR+21
ION	ASK+2
IOP	VT+1~, VT+5*
IOSL	TLN+2
IOST	RD1
OUT	EN1+1~, RD, RD+3, RD+5, TLN+2, ASK, ASK+1, ASK+5, ASK+8, ASK+9* , RD1*
POP	EN1+1~, ASK+1!
PRCA	DEB+1~, DEB+2*
PRCA15	EN1+1~, HDR+12, HDR+13, HDR+14, HDR+15
PRCAATRX	EN1+1~, ASK+8*
PRCAIO	EN1+1~, EN1+8, ASK+1
PRCAIO(0	EN1+8, ASK+1
PRCAIOS	EN1+1~, ASK+2*, VT+5
PRCAPRT	EN1+1~, EN1+8, ASK, ASK+1
PRCAQUE	EN1+1~
PRCOUT	EN1+1~, EN1+6, EN1+7, HDR+18, HDR+19
REJFLG	EN1+1~, HDR+5*, HDR+19
RJCODE	CSREJ+1~, CSREJ+2, CSREJ+8, CSREJ+9, CSREJ+10
RJDT	CSREJ+1~, CSREJ+2, CSREJ+3, CSREJ+4, CSREJ+5, CSREJ+11
RJIEN	CSREJ+1~, CSREJ+2, CSREJ+5, CSREJ+6, CSREJ+7
RJZ	CSREJ+1~, CSREJ+7*, CSREJ+8
SEL	EN1+1~, ASK+6*, ASK+7, ASK+8
TRAN	EN1+1~, RD+3*, TLN+3, TLN+4, TLN+5, ASK, ASK+5
U	HDR+12, HDR+14, HDR+15
X	EN1+1~, HDR+21, DIS+3, RD, RD+1, RD+4, RD+5, TLN+3, TLN+5, TLN+7 , TLN+8, ASK, ASK+1, ASK+4, ASK+5, ASK+6, ASK+7, DQ+1, DQ+2, RD1*
Y	EN1+1~, HDR+12, HDR+14, ASK+7, ASK+8, VT+2
YR	TLN+1~
ZTDESC	VT+1~, VT+3*
ZTDTH	VT+1~, VT+3*
ZTRTN	VT+1~, VT+3*
ZTSAVE	VT+1~
ZTSAVE("D0"	VT+3*
ZTSAVE("PRCAIO"	VT+3*
ZTSAVE("PRCAIO(0)"	VT+3*
ZTSK	EN1+1~

Customize PDF page

Package: Accounts Receivable