Routine: PRCAGP

Information

PRCAGP ;WASH-ISC@ALTOONA,PA/CMS-Print Patient Statement/Letter ;6/19/96 5:07 PM

Source Information

Source file <PRCAGP.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Accounts Receivable	1	$$SLH^RCFN01
VA FileMan	1	^%DT

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

Package	Total	Caller Graph
Accounts Receivable	1	PRCAG

Entry Points

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;34;Mar 20, 1995
PRDT	;ENTRY FROM PRDT^PRCAG
PR
PRDTD
PRDTQ

External References

Name	Field # of Occurrence
^%DT	PR+1
^%ZIS	PRDTD
^%ZISC	PRDTQ
^%ZTLOAD	PRDTD+2
$$SLH^RCFN01	PRDT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: 7,!!,"OPTION OUT OF ORDER!",!!,"WARNING!! The AR Package was last updated on: ",$$SLH^RCFN01($P(^RC(342,1,0),"^",10)),!,"** Contact IRM Service!",! Line Location: PRDT+1
Function Call: WRITE	Prompt: !!,"Enter a date to print the Follow-up Letters",! Line Location: PR+0
Function Call: WRITE	Prompt: !,"Patient Statement Day is not on date selected!",! Line Location: PR+7
Function Call: WRITE	Prompt: !,"Patient Statement Printed!" Line Location: PR+8
Function Call: WRITE	Prompt: !! Line Location: PRDTD+0
Function Call: WRITE	Prompt: !!,*7,"YOU MUST QUEUE THIS OUTPUT",! Line Location: PRDTD+1
Routine Call	%ZIS Line Location: PRDTD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RC(342 - [#342]	PRDT+1, PRDTD

Label References

Name	Line Occurrences
PRDTD	PRDTD+1
PRDTQ	PR+1, PRDTD

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	PRDT+2~, PR+1*
%DT("A"	PR+1*
%DT(0	PR+1*
>> %ZIS	PRDTD*
>> %ZIS("B"	PRDTD*
DEB	PRDT+2~
DIC	PRDT+2~
DT	PRDT+1
HDAT	PRDT+2~, PR+2*
IO("Q"	PRDTD+1
IOP	PRDT+2~, PRDTD*
>> POP	PRDTD
>> REP	PR+6*
U	PRDTD
X	PRDT+2~
Y	PRDT+2~, PR+1, PR+2
ZTDESC	PRDT+2~, PRDTD+2*
ZTRTN	PRDT+2~, PRDTD+2*
ZTSAVE	PRDT+2~
ZTSAVE("DEB"	PRDTD+2*
ZTSAVE("HDAT"	PRDTD+2*
ZTSAVE("REP"	PRDTD+2*

Customize PDF page

Package: Accounts Receivable