Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPR22

Package: Prosthetics

Routine: RMPR22


Information

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

Source Information

Source file <RMPR22.m>

Call Graph

Call Graph

Call Graph Total: 7

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

Entry Points

Name Comments DBIA/ICR reference
EN
LIST
OVER
EXIT
EDIT
COST
DEL

External References

Name Field # of Occurrence
^DIC EDIT
YN^DICN OVEROVER+1
^DIE EDITCOST+1
^DIK DEL+2
KILL^RMPR21 COST
^RMPRL22 LIST
GETPAT^RMPRUTIL EN

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
COST EDIT+1
DEL OVER+1
EDIT OVER+5
EXIT LISTOVEROVER+1
LIST EDITCOST+3, DEL+1, DEL+3
OVER OVER+3

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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, COSTDEL
>> DTOUT OVEROVER+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*, EDITEDIT+2, COSTCOST+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 EDITEDIT+1, EDIT+2, COST+1, COST+2
X EXIT!, EDIT*
Y EXIT!, EDIT
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All