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: RMPRFO2

Package: Prosthetics

Routine: RMPRFO2


Information

RMPRFO2 ;PHX/RFM,HPL-CONTINUATION OF RMPRFO1 ;11/01/1994

Source Information

Source file <RMPRFO2.m>

Entry Points

Name Comments DBIA/ICR reference
VIEW ;VIEW LETTERS FROM ELIG SCREEN2 UNDER ISSUE FROM STOCK
ASK1 ;SET UP REVERSE LETTER LIST & ASK IF USER WANTS TO VIEW MORE LETTERS
MOLET
ASK2 ;Q:RMPRIN=-1
ASK3
RO1
EN4 ;EDIT A SKELETON
DEN
QUES1
EN3 ;PRINT FORM LETTER
PR
SET
WRITE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Letters on file:"
  • Line Location: VIEW+7
Function Call: WRITE
  • Prompt: !,"Would you like to see more letters"
  • Line Location: MOLET+1
Function Call: WRITE
  • Prompt: !,"'YES' will let you review another letter for this patient",!,"'NO' will let you continue the program"
  • Line Location: MOLET+3
Function Call: WRITE
  • Prompt: !,"Enter '^' to exit the correspondence screen totally"
  • Line Location: MOLET+4
Function Call: WRITE
  • Prompt: !,"Do you wish to view a letter"
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !,"Answer `YES` or `NO`"
  • Line Location: ASK2+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter the number: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK3+0
Function Call: WRITE
  • Prompt: !,$C(7),"Enter a number between 1 and ",(I-1)_" or `^` to quit."
  • Line Location: ASK3+0
Function Call: WRITE
  • Prompt: !,"Do you wish to create a correspondence letter"
  • Line Location: RO1+0
Function Call: WRITE
  • Prompt: !,"Answer `YES` to create a form letter, `NO` to continue."
  • Line Location: RO1+2
Function Call: WRITE
  • Prompt: !!,"SORRY, THIS IS A NON-EDITABLE LETTER"
  • Line Location: EN4+2
Function Call: WRITE
  • Prompt: !,$C(7),?5,"Someone else is Editing this entry!"
  • Line Location: EN4+3
Function Call: WRITE
  • Prompt: !,"Is this a Denial type of letter"
  • Line Location: DEN+0
Function Call: WRITE
  • Prompt: !,"Enter `YES` if letter is an AMIS Denial"
  • Line Location: QUES1+0
Function Call: WRITE
  • Prompt: !,"***",DA
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !,I_" ",?4,$S($D(^RMPR(665.2,+$P(^RMPR(665.4,^TMP($J,"RMPR",RO),0),U,2),0)):$E($P(^(0),U,1),1,20),1:"UNKNOWN")
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: ?27,$E($P(^(0),U),1,15)
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: ?55,$E(Y,1,24)
  • Line Location: WRITE+9

FileMan Files Accessed Via FileMan Db Call

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