Routine: RMPR22

Information

RMPR22 ;PHX/DWL-EDIT 10-2319 RECORD ;8/29/1994

Source file <RMPR22.m>

Package	Total	Call Graph
VA FileMan	4	^DIC YN^DICN ^DIE ^DIK
Prosthetics	3	KILL^RMPR21 ^RMPRL22 GETPAT^RMPRUTIL

Name	Line Occurrences
Function Call: READ	Prompt: ! Variable: "ARE YOU READY TO ACCEPT THESE ENTRIES" D YN^DICN G Timeout: $D(DTOUT) Line Location: OVER+0
Function Call: READ	Prompt: ! Variable: "DO YOU WISH TO DELETE AN ENTRY" D YN^DICN G Timeout: $D(DTOUT) Line Location: OVER+1
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: OVER+2
Function Call: WRITE	Prompt: $C(7),!,"ANSWER MUST BE A WHOLE NUMBER NOT GREATER THAN ",RC,"." Line Location: OVER+3
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: COST+0
Function Call: WRITE	Prompt: !,"UNIT COST: $",RMPRCT(RMPRA)," " Line Location: COST+0
Function Call: WRITE	Prompt: !,"TOTAL COST: $",RMPRTO Line Location: COST+2
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: DEL+0
Function Call: WRITE	Prompt: $C(7),!,"ANSWER MUST BE A WHOLE NUMBER NOT GREATER THAN ",RC,"." Line Location: DEL+1
Routine Call	DIC Line Location: EDIT
Routine Call	DIE Line Location: EDIT COST+1

FileNo	Call Tags
^RMPR(660 - [#660]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(660 - [#660]	EDIT, COST+1, COST+2
^RMPR(661 - [#661]	EDIT+1, EDIT+2

Name	Field # of Occurrence
^(0	COST+1, COST+2

Name	Field # of Occurrence
%	OVER, OVER+1, EXIT!
>> ANS	OVER+2, OVER+3, OVER+4, COST, DEL*, DEL+1, DEL+2
DA	EXIT!, EDIT, DEL+2
DIC	EXIT!, EDIT*
DIC(0	EDIT*
DIE	EXIT!, EDIT*
DIK	EXIT!, DEL+2*
DR	EXIT!, EDIT, COST+1
DTIME	OVER+2, COST, DEL
>> DTOUT	OVER, OVER+1
>> PRCP("COM"	EXIT!
>> PRCP("I"	EXIT!
>> PRCP("ITEM"	EXIT!
>> PRCP("TYP"	EXIT!
>> RC	LIST*, OVER+3, OVER+4, DEL+1, DEL+2
RED	EXIT!, EDIT*, EDIT+1
>> RMPRA	LIST, OVER+4, EDIT, EDIT+2, COST, COST+1, COST+2
>> RMPRA(	OVER+4, DEL+2!
RMPRACT	EXIT!
RMPRCT	EXIT!
RMPRCT(	EDIT+2, COST, COST+2, DEL+2!
RMPRD	EXIT!
RMPRDD	EXIT!
RMPRDFN	LIST, EXIT!
RMPRG	EXIT!
RMPRGIP	EXIT!
RMPRI	EXIT!, EDIT, EDIT+1, EDIT+2*
RMPRIP	EXIT!
RMPRK	EXIT!
RMPRQT	EXIT!
RMPRRD	EXIT!
RMPRSO	EXIT!
RMPRTO	EXIT!, COST+2*
U	EDIT, EDIT+1, EDIT+2, COST+1, COST+2
X	EXIT!, EDIT*
Y	EXIT!, EDIT