Routine: PRPFDSI1

Information

PRPFDSI1 ;ALTOONA/CTB CONTINUATION OF INFORMATION DISPLAY ;11/22/96 4:37 PM

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Integrated Patient Fund	3	B^PRPFDSI DEAD^PRPFED ^PRPFU1
VA FileMan	2	^DIWP ^DIWW

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
Integrated Patient Fund	1	PRPFDSI

Entry Points

Name	Comments	DBIA/ICR reference
V	;;3.0;PATIENT FUNDS;6;JUNE 1, 1989
S2	;SCREEN 2
A
END
GI	;PRINT GENERAL INFORMATION REMARKS
SI	;PRINT SPECIAL INFORMATION
C

External References

Name	Field # of Occurrence
^DIWP	GI+1, SI+1
^DIWW	GI+2, SI+2
B^PRPFDSI	A
DEAD^PRPFED	S2+2
^PRPFU1	S2+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: S2+1
Function Call: WRITE	Prompt: @PFLO,"Name: ",@PFHI,$P(DFN(0),"^"),?44 Line Location: S2+1
Function Call: WRITE	Prompt: @PFLO,"Name: ",@PFHI,$P(DFN(0),"^"),?44 Line Location: S2+1
Function Call: WRITE	Prompt: !,@PFLO,"Nearest Relative:",?31,"VA Guardian",?56,"Civil Guardian" Line Location: S2+3
Function Call: WRITE	Prompt: @PFHI Line Location: S2+4
Function Call: WRITE	Prompt: !,$E($P(DFN(.21),U,I),1,29),?31,$E($P(DFN(.29),U,I),1,24),?56,$E($P(DFN(.291),U,I),1,24) Line Location: S2+4
Function Call: WRITE	Prompt: !!,@PFLO,"General Information/Remarks: ",! Line Location: S2+5
Function Call: WRITE	Prompt: !,@PFLO,"Special Information: ",! Line Location: S2+7
Function Call: WRITE	Prompt: !,@PFLO,"Sources of Income: ",@PFHI Line Location: S2+8
Function Call: WRITE	Prompt: "NONE LISTED" Line Location: S2+8
Function Call: WRITE	Prompt: !!,@PFLO,"Source:",?24,"Payee:",?46,"Amount:",?60,"Frequency:" Line Location: S2+9
Function Call: WRITE	Prompt: !,$P(Z,U),?24,$P(Z,U,2),?46 Line Location: S2+10
Function Call: WRITE	Prompt: X,?60 Line Location: S2+10
Function Call: WRITE	Prompt: X,?60 Line Location: S2+10
Function Call: READ	Variable: X Timeout: DTIME Line Location: A+0
Function Call: WRITE	Prompt: @PFNORM,!!,"Press RETURN to continue or 'B' to BACKUP to previous screen: " Line Location: A+0
Function Call: WRITE	Prompt: @IOF,@PFNORM Line Location: END+0
Function Call: WRITE	Prompt: @PFHI Line Location: GI+1
Function Call: WRITE	Prompt: @PFNORM Line Location: GI+2
Function Call: WRITE	Prompt: @PFHI Line Location: SI+1
Function Call: WRITE	Prompt: @PFNORM Line Location: SI+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRPF(470 - [#470]	S2+6, S2+7, S2+8, S2+10, GI+1, SI+1
^XUSEC("PRPF CLERK"	S2+7

Label References

Name	Line Occurrences
A	S2+8, A
C	S2+10
END	A
GI	S2+6
SI	S2+7

Naked Globals

Name	Field # of Occurrence
^(	S2+10, GI+1, SI+1
^(0	S2+8, S2+10
^(7	S2+6
^(8	S2+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	C+1, C+2, C+3!
%D	C+1*, C+3!
%I	END!
%W	END!
%Y	END!
C	END!
>> DD	S2+10*
DFN	S2+6, S2+7, S2+8, S2+10, END!, GI+1, SI+1
DFN(	S2+1, S2+4
DFN(0	S2+1
DG1	END!
DGT	END!
DGX	END!
DIC	END!
DIW	END!
DIWF	GI+1, GI+2!, SI+1, SI+2!
DIWL	GI+1, GI+2!, SI+1, SI+2!
DIWR	GI+1, GI+2!, SI+1, SI+2!
DIWT	END!
DIYS	END!
DN	END!
DOA	END!
DTIME	A
DUZ	S2+7
>> F	S2+10*
>> I	S2+4, S2+8, GI+1, SI+1
IOF	S2+1, END
IOM	GI+1, SI+1
IOSL	S2+1
IOST	A
>> J	S2+10*
N	END!, GI+1, SI+1
>> N1	S2+10*
PDFN	END!
>> PFHI	S2+1, S2+4, S2+8, S2+10, GI+1, SI+1
>> PFLO	S2+1, S2+3, S2+5, S2+7, S2+8, S2+9
>> PFNORM	A, END, GI+2, SI+2
SSN	S2+1*!
TMP	END!
U	S2+4, S2+10
X	S2+10, A, GI+1, GI+2!, SI+1, SI+2!, C+1, C+2, C+3*
>> X2	C*, C+1, C+3
>> Y	S2+10
Z	S2+10*, END!

Customize PDF page

Package: Integrated Patient Fund