Routine: PRCARFP

Information

PRCARFP ;WASH-ISC@ALTOONA,PA/CMS-PREPAYMENT POST REPT ;1/11/95 9:24 AM

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	3	(,DD)^%DT NOW^%DTC ^DIR
Registration	1	DEM^VADPT

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

Package	Total	Caller Graph
Accounts Receivable	1	PRCA PREPAY POST
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;90;Mar 20, 1995
ST
REPQ
DQ	;
DQQ
HD	;
HDQ
SCRN	;crt display exit

External References

Name	Field # of Occurrence
^%DT	ST, ST+1
DD^%DT	DQ+2
NOW^%DTC	ST, DQ+2
^%ZIS	ST+3
^%ZISC	REPQ
^%ZTLOAD	ST+4
^DIR	SCRN+5
DEM^VADPT	DQ+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ST+0
Function Call: WRITE	Prompt: !! Line Location: ST+1
Function Call: WRITE	Prompt: !!,*7," (Ending date must be greater than Start date.)" Line Location: ST+2
Function Call: WRITE	Prompt: ?18,$S(Y["FULL":"PAYMNT (FULL)",Y["PART":"PAYMNT (PART)",1:$E(Y,1,9)) Line Location: DQ+7
Function Call: WRITE	Prompt: "*" Line Location: DQ+9
Function Call: WRITE	Prompt: !,?11,"**ERROR MESSAGE: Corresponding Transaction not found!" Line Location: DQ+12
Function Call: WRITE	Prompt: !,?11,"**ERROR MESSAGE: Unbalanced Transaction Amounts" Line Location: DQ+13
Function Call: WRITE	Prompt: !!,"* - Include the payment amount on an FMS ET document",! Line Location: DQ+15
Function Call: WRITE	Prompt: @IOF Line Location: HD+2
Function Call: WRITE	Prompt: !,?5,"Background Payment Posting from Prepayment Receivables",?60,"Page ",PAGE," ",NOW Line Location: HD+2
Function Call: WRITE	Prompt: !,?10,"Reporting period: " Line Location: HD+3
Function Call: WRITE	Prompt: Y," thru " Line Location: HD+3
Function Call: WRITE	Prompt: Y," thru " Line Location: HD+3
Function Call: WRITE	Prompt: !! Line Location: HD+4
Function Call: WRITE	Prompt: "=" Line Location: HD+4
Function Call: WRITE	Prompt: !,"Tran.",?11,"Tran.",?18,"Tran.",?32,"Tran.",?40,"Corresponding",?55,"Patient",?69,"Bill" Line Location: HD+5
Function Call: WRITE	Prompt: !,"Date",?11,"No.",?18,"Type",?32,"Amount",?43,"Tran. No.",?55,"Name",?69,"No.",!! Line Location: HD+6
Function Call: WRITE	Prompt: !!,"* - Include the payment amount on an FMS ET document" Line Location: SCRN+1
Function Call: WRITE	Prompt: ! Line Location: SCRN+4
Routine Call	DIR Line Location: SCRN+5
Routine Call	%ZIS Line Location: ST+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HD+3
^PRCA(430 - [#430]	DQ+9, DQ+10, DQ+11
^PRCA(430.3 - [#430.3]	DQ+7
^PRCA(433 - [#433]	DQ+4, DQ+6, DQ+7, DQ+8, DQ+9, DQ+11, DQ+12, DQ+13
^RCD(340 - [#340]	DQ+10

Label References

Name	Line Occurrences
DQ	ST+5
HD	DQ+3, DQ+5
HDQ	HD+1
REPQ	ST, ST+1, ST+3, ST+4
SCRN	HD+1
ST	ST+2

Naked Globals

Name	Field # of Occurrence
^(0	DQ+9, DQ+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ST
%DT	V+3~, ST, ST+1
%DT("A"	ST, ST+1
%DT(0	ST*
%ZIS	V+3~, ST+3*
BEG	V+3~, ST*, ST+2, DQ+4, HD+3
BN	DQ+1~, DQ+9*, DQ+10, DQ+11
DAT	DQ+1~, DQ+4*, DQ+6, DQ+12
DFN	DQ+1~, DQ+10*
DIR	SCRN+3~
DIR(0	SCRN+5*
DIROUT	SCRN+3~
DIRUT	SCRN+3~, SCRN+5
DUOUT	SCRN+3~, SCRN+5
END	V+3~, ST+1*, ST+2, DQ+4, HD+3
IO	ST+5
IO("Q"	ST+4
IOF	REPQ, HD+2
IOSL	DQ+5, SCRN+4
IOST	REPQ, SCRN+2
NOW	DQ+1~, DQ+2*, HD+2
OUT	DQ+1~, DQ+3, DQ+4, DQ+5, HD+1, SCRN+5
PAGE	DQ+1~, DQ+3, HD+1, HD+2
>> POP	ST+3
PTN	DQ+1~, DQ+4*, DQ+11, DQ+12, DQ+13
TN	DQ+1~, DQ+4*, DQ+6, DQ+7, DQ+8, DQ+9, DQ+12, DQ+13
U	DQ+7, DQ+8, DQ+9, DQ+10, DQ+11, DQ+13
VA	DQ+5~
VADM	DQ+5~
VADM(1	DQ+11
VAERR	DQ+5~
X	V+3~, DQ+1~, DQ+2, SCRN+3~
Y	V+3~, ST, ST+1, DQ+1~, DQ+2, DQ+7, DQ+9, HD+3, HD+4, SCRN+3~ , SCRN+4*
>> ZTDESC	ST+4*
>> ZTRTN	ST+4*
>> ZTSAVE("BEG"	ST+4*
>> ZTSAVE("END"	ST+4*

Customize PDF page

Package: Accounts Receivable