Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RMPOLF1

Package: Prosthetics

Routine: RMPOLF1


Information

RMPOLF1 ;HIN CIOFO-DRIVER FOR HO LETTERS ;7/8/98

Source Information

Source file <RMPOLF1.m>

Entry Points

Name Comments DBIA/ICR reference
NAME ;
EDIT
EDIT1
ASK ;
ASK2 ;DECIDES TO KEEP EDITING LETTER OR DELETE IT
; ALREADY SAID NOT TO ACCEPT LETTER
PRALL ;print all letter
PRINT ;VIEW LETTER
EXIT ;common exit point
DEL
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Do you wish to view this letter"
  • Line Location: EDIT1+0
Function Call: WRITE
  • Prompt: !,"Answer `YES` to view the letter, `NO` to not"
  • Line Location: EDIT1+2
Function Call: WRITE
  • Prompt: !,"Do you wish to accept this letter"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"Answer `YES` or `NO`"
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"Do you wish to Delete this letter"
  • Line Location: ASK2+2
Function Call: WRITE
  • Prompt: $C(7),!!,?35,"Letter Deleted..."
  • Line Location: ASK2+4
Function Call: WRITE
  • Prompt: !,"Enter `YES` to Delete this letter"
  • Line Location: ASK2+7
Function Call: WRITE
  • Prompt: ?9," Deleted..."
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"Are you sure you want to delete this letter"
  • Line Location: DEL+0
Function Call: WRITE
  • Prompt: !,"Answer `YES` to Delete the letter, `NO` to exit"
  • Line Location: DEL+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(665.4 - [#665.4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call