Routine: PRPFRES

Package	Total	Call Graph
Integrated Patient Fund	2	(,ENCON,MSG,NOW,SELRNG)^PRPFQ WAIT^PRPFYN
VA FileMan	2	^%DTC EN1^DIP

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

Package	Total	Caller Graph
Integrated Patient Fund	6	PRPF NEGATIVE BALANCES PRPF TASKMAN NEGATIVE BAL PRPFBAL PRPFDSI PRPFMUL PRPFPOST

Entry Points

Name	Comments	DBIA/ICR reference
V	;;3.0;PATIENT FUNDS;6,13;JUNE 1, 1989
WK	;DETERMINE WEEK NUMBER SINCE 4 JAN 87
MO	;POST TO CURRENT MONTH
CURWK	;GET CURRENT WEEK NUMBER CLEAR FIELDS
CURMO	;GET CURRENT MONTH CLEAR FIELDS
EN	;ENTRY POINT TO UPDATE CURRENT WEEK AND MONTH
OUT	;RESET PATIENT NODES
IG	;REPORT OF NEGATIVE BALANCE AND RESTRICTIONS FOR IG
TM
DQ	;MISC NEGATIVE BALANCES
NONE
CK(DFN)	;
ADD

External References

Name	Field # of Occurrence
^%DTC	WK+2, CURWK+2
EN1^DIP	DQ+12
^PRPFQ	IG+6
ENCON^PRPFQ	DQ+12
MSG^PRPFQ	DQ+4
NOW^PRPFQ	CURWK+1, NONE
SELRNG^PRPFQ	IG+1
WAIT^PRPFYN	DQ+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: NONE+0
Function Call: WRITE	Prompt: "PATIENT FUNDS NEGATIVE BALANCE REPORT",?50,%X,!!,"No accounts with negative balances were found while running this report." Line Location: NONE+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $E($G(IOST))="P" Line Location: NONE+0

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRPF(470 - [#470]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRPF(470 - [#470]	WK+4, MO+2, CURWK+4!, CURWK+5!, CURMO+2!, CURMO+3!, OUT+1*, DQ+6, CK+1, CK+2
^TMP("PRPFRES"	DQ+3!, DQ+8!, ADD*

Label References

Name	Line Occurrences
ADD	CK+4, CK+5, CK+6
CK	DQ+6
CURWK	WK+1, EN+1
DQ	IG+6
EN	CK+3
MO	WK+3, WK+4
NONE	DQ+8
OUT	MO+4, EN+1

Naked Globals

Name	Field # of Occurrence
^(	WK+4, MO+2
^(0	WK+4, MO+2, CURWK+4, CURWK+5, CURMO+2, CURMO+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%X	IG+7!, NONE
>> AMT	WK+4, WK+5, MO+2, MO+3
>> BY	DQ+9, DQ+11
>> BY(0	DQ+9*
CURMO	MO+1, MO+2, CURMO+1*, CURMO+3, OUT+2!
CURWK	WK+3, WK+4, CURWK+2*, CURWK+3, CURWK+4, CURWK+5, CURMO+2, OUT+2!
DA	DQ+1~, DQ+4, DQ+5, DQ+6
DFN	WK+4, MO+2, CURWK+4, CURWK+5, CURMO+2, CURMO+3, OUT+1, IG+7!, CK~, CK+1 , CK+2, ADD
DFN(	OUT+1
DFN(0	CK+1*
DFN(1	WK+5, MO+3, CURWK+3, CURWK+5, CURMO+1, CURMO+3, CK+2*, CK+4, CK+5, CK+6
DG1	IG+7!
DGT	IG+7!
DGX	IG+7!
>> DIC	DQ+9*
>> DIOEND	DQ+10*
DT	CURWK+1*, CURWK+2, CURMO+1
>> FLDS	DQ+9*
>> FR	DQ+9, DQ+11
>> I	CURWK+4, CURMO+2, OUT+1*
IOF	NONE
ION	DQ+2, NONE
>> IOP	DQ+9, NONE
IOST	NONE
>> L	DQ+9*
>> L(0	DQ+9*
POSTMO	MO+1*, MO+2, OUT+2!
POSTWK	WK+2*, WK+3, WK+4, OUT+2!
PRIOP	DQ+1~, DQ+2*, DQ+9
PRPFDATE	WK+2, MO+1, OUT+2!
PRPFRNG	IG+2!, IG+3, IG+4, IG+5, IG+7!, TM*, DQ+9, DQ+11
PRPFRNG2	IG+3, IG+4, IG+5, IG+7!, TM*, DQ+9
>> TO	DQ+9, DQ+11
>> X	WK+2, WK+4, MO+2, CURWK+1, CURWK+2, CURWK+4, CURWK+5, CURMO+2, CURMO+3, DQ+4*
X1	WK+2, CURWK+2, OUT+2!
X2	WK+2, CURWK+2, OUT+2!
>> XX	DQ+6*
>> ZTDESC	IG+6*
>> ZTQUEUED	DQ+5, DQ+10, DQ+12
>> ZTRTN	IG+6*
>> ZTSAVE("PRPFRNG"	IG+5*
>> ZTSAVE("PRPFRNG2"	IG+5*

Customize PDF page

Package: Integrated Patient Fund

Routine: PRPFRES

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items