Routine: PRPFU

Package	Total	Call Graph
Kernel	4	^%ZISC (ENDR,KILL)^%ZISS UPDATE^XPDID BMES^XPDUTL

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
Integrated Patient Fund	2	PRPFARC PRPFPURG

Entry Points

Name	Comments	DBIA/ICR reference
V	;;3.0;PATIENT FUNDS;6;JUNE 1,1989
UPDATE	;
POS(DX,DY)
PERCENT	;
S(X)
TIME(X,Y)	;
BEGIN	;
END	;
CLOSE	;CLOSE ALL OPEN DEVICES OTHER THAN THE HOME DEVICE
MSG	;;PRINTS MESSAGE CONTAINED IN X. IF IT DOESNT FIT ON ONE LINE, X IS PRINTED ON THE NEXT LINE.
BRK
DIR()	;SET VARIABLE STRING RETURNING FROM DIR

External References

Name	Field # of Occurrence
^%ZISC	CLOSE+2
ENDR^%ZISS	BEGIN+3
KILL^%ZISS	END+4
UPDATE^XPDID	PERCENT+1
BMES^XPDUTL	BEGIN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: IORC Line Location: UPDATE+1
Function Call: WRITE	Prompt: CURSOR Line Location: UPDATE+1
Function Call: WRITE	Prompt: ! Line Location: POS+0
Function Call: WRITE	Prompt: !!!,$FN($S(PERCENT=100:TREC,XCOUNT<0:0,1:XCOUNT),",")," of ",$FN(TREC,",")," ",ITEMS," processed. ",PERCENT,"% complete " Line Location: PERCENT+6
Function Call: WRITE	Prompt: ! Line Location: TIME+5
Function Call: WRITE	Prompt: SEC_" Second"_$$S(SEC)_" "_Y_". " Line Location: TIME+8
Function Call: WRITE	Prompt: !! Line Location: BEGIN+6
Function Call: WRITE	Prompt: !,?25,"P E R C E N T C O M P L E T E",!!?18," 50 100",!,LINE,!?14,"\|",?66,"\|",!,LINE,! Line Location: BEGIN+8
Function Call: WRITE	Prompt: !,"100% complete."_X,! Line Location: END+3
Function Call: READ	Variable: X Timeout: 2 Line Location: MSG+1
Function Call: WRITE	Prompt: $P(X,"*") Line Location: MSG+1
Function Call: WRITE	Prompt: !,?(IOM-($L($P(X,"*"))+4)) Line Location: MSG+2

Label References

Name	Line Occurrences
$$S	TIME+6, TIME+7, TIME+8
BRK	MSG+3
MSG	BEGIN+6
POS	UPDATE+1, BEGIN+10
TIME	PERCENT+11, PERCENT+12, PERCENT+13
UPDATE	PERCENT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BTIME	PERCENT+8, PERCENT+9, BEGIN+9*
>> CURSOR	UPDATE+1, BEGIN+4*
>> DA	BEGIN+1, BEGIN+9
DIROUT	DIR+2, DIR+3!
DIRUT	DIR+2, DIR+3!
DTOUT	DIR+2, DIR+3!
DUOUT	DIR+2, DIR+3!
DX	POS~, POS+1
DY	POS~, POS+1
HOURS	TIME+1~, TIME+2, TIME+3, TIME+6
I	BRK~, BRK+1*, BRK+2
IO	CLOSE+2*
IO(0	CLOSE+2
IO(1	CLOSE+2
IOF	BEGIN+2
IOM	MSG+1, MSG+2, MSG+3, BRK+1
>> IORC	UPDATE+1
>> IORVOFF	BEGIN+4
>> IORVON	BEGIN+4
>> IOSC	BEGIN+10
IOST	POS, PERCENT+4, PERCENT+14, TIME+5, BEGIN+1, BEGIN+3, BEGIN+5, BEGIN+8, BEGIN+10
>> IOXY	POS+2
>> ITEMS	PERCENT+2*, PERCENT+6
>> LASTENT	BEGIN+9*
>> LINE	BEGIN+7*, BEGIN+8
>> LREC	BEGIN+1, BEGIN+5
>> MESSAGE	BEGIN+1, BEGIN+6
MIN	TIME+1~, TIME+2, TIME+4, TIME+7
N	CLOSE+1~, CLOSE+2*
>> PERCENT	UPDATE+1, PERCENT+3*, PERCENT+6, PERCENT+10
>> PRPFPASS	PERCENT+1, BEGIN+1, END+1
>> RTIME	PERCENT+10*, PERCENT+13
SEC	TIME+1~, TIME+2, TIME+4, TIME+8
>> TIME	PERCENT+7, PERCENT+8, PERCENT+9*, PERCENT+10, PERCENT+12
>> TREC	PERCENT+3, PERCENT+6, BEGIN+1, BEGIN+5
>> TTIME	PERCENT+10*, PERCENT+11
X	S~, TIME~, TIME+3, TIME+4, BEGIN+3, BEGIN+6, END+2!, END+3, MSG+1!, MSG+2 , MSG+3, MSG+4, BRK+1, BRK+2, DIR+1~, DIR+2, DIR+4
X1	MSG+1~, MSG+3!, BRK+1, BRK+2
X2	MSG+1~, BRK+2*!
>> XCOUNT	PERCENT+1, PERCENT+3, PERCENT+6, BEGIN+1, BEGIN+9
XPDIDTOT	PERCENT+1, BEGIN+1*, END+1!
>> XPDNM	BEGIN+1, END+1
>> XPOS	UPDATE+1, BEGIN+9*, BEGIN+10
Y	TIME~, TIME+8
>> YPOS	UPDATE+1, BEGIN+9*, BEGIN+10
>> ZTQUEUED	BEGIN+3
ZX	MSG+1~, MSG+3*

Customize PDF page

Package: Integrated Patient Fund

Routine: PRPFU

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: