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

Package: Prosthetics

Routine: RMPRFO2


Information

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

Source Information

Source file <RMPRFO2.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA FileMan 8 DD^%DT  %XY^%RCR  ^DIC  (FILE,YN)^DICN  ^DIE  IX1^DIK  ^DIR  EN2^DIWF  
Prosthetics 5 CUM^RMPRFO  (EXIT,PRINT)^RMPRFO1  PRNT1^RMPRFO3  DIV4^RMPRSIT  EN^RMPRUTL2  
Kernel 1 HOME^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Prosthetics 5 RMPR CORR EDIT  RMPR CORR PRINT  RMPRELG2  RMPRFO1  RMPRPAT0  

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

External References

Name Field # of Occurrence
DD^%DT WRITE+9
%XY^%RCR SET+3
HOME^%ZIS EN3+2
^DIC EN4+1, EN3+4
FILE^DICN SET
YN^DICN MOLET+1, ASK2+1, RO1, DEN
^DIE EN4+4
IX1^DIK SET+2
^DIR WRITE+2
EN2^DIWF PR
CUM^RMPRFO RO1+1
EXIT^RMPRFO1 EN4+2, EN4+3, EN4+4, DEN+1, DEN+4, EN3+4, EN3+7, PR+1, SET+1
PRINT^RMPRFO1 ASK1+3, ASK3+2, SET+4
PRNT1^RMPRFO3 EN3+7
DIV4^RMPRSIT EN3+1
EN^RMPRUTL2 ASK1+1

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
Routine Call
  • DIC
  • Line Location:
    • EN4+1
    • EN3+4
Routine Call
  • DIE
  • Line Location:
    • EN4+4
Routine Call
  • DIR
  • Line Location:
    • WRITE+2
Routine Call
  • %ZIS
  • Line Location:
    • EN3+2

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] WRITE+9
^RMPR(665.2 - [#665.2] EN4+3, EN4+4, DEN, DEN+3*, EN3+7, SET+2, WRITE+5
^RMPR(665.4 - [#665.4] VIEW+5, ASK3+2, SET+2*, WRITE+5, WRITE+6, WRITE+8, WRITE+9
^TMP($J WRITE+4, WRITE+5, WRITE+6, WRITE+8, WRITE+9
^VA(200 - [#200] WRITE+8

Label References

Name Line Occurrences
ASK1 MOLET+6
ASK2 ASK1+2, ASK2+2
ASK3 ASK3
DEN QUES1
MOLET MOLET+4
QUES1 DEN+2
RO1 VIEW+5, MOLET+5, MOLET+7, ASK2+1, RO1+2
VIEW ASK2+3, ASK3+2

Naked Globals

Name Field # of Occurrence
^(0 SET+2*, WRITE+5, WRITE+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % VIEW+2, MOLET+1*, MOLET+2, ASK2+1*, ASK3, RO1*, RO1+1, RO1+2, DEN*, DEN+1
>> %X SET+3*
>> %Y SET+3*
>> BY PR*
DA VIEW+1~, ASK1+2*, ASK1+3, MOLET!, EN4+4*, EN3+7!, SET+2*, WRITE+4*
DD SET!
>> DFN VIEW+4, VIEW+5, SET
DIC EN4+1!*, EN3+4!*, EN3+5!, SET!*, SET+2
DIC(0 EN4+1*, EN3+4*, SET*
>> DIE EN4+4*
>> DIE("NO^" EN4+4*
>> DIK SET+2*
DINUM SET!
>> DIR("A" WRITE+1*
>> DIR(0 WRITE+1*
>> DIWF PR*
>> DIWF(1 PR*
DLAYGO EN4+1*!, SET*!
DO SET!
>> DR EN4+4*
DT SET+2
DTIME ASK3
>> DTOUT ASK2+1, EN4+4
>> DUOUT EN4+4
DUZ SET+2
>> FR PR*
>> I ASK3, WRITE+1, WRITE+5, WRITE+9
KILL VIEW+6!, MOLET+2*, MOLET+5*, ASK2+1*
>> RMPR("SIG" EN3+1
>> RMPR("STA" SET+2
>> RMPR2 WRITE+6*, WRITE+9
>> RMPR9VA( ASK3+1*, ASK3+2, WRITE+9*
>> RMPR9VA(1 RO1+3!
>> RMPR9VA(2 RO1+3!
RMPR9ZRO RO1+3!, WRITE
RMPRAA68 VIEW+1~, VIEW+2*, MOLET+2*, MOLET+3, MOLET+5, MOLET+6, ASK2+1*, ASK2+2, ASK2+3, ASK3*
, ASK3+1, ASK3+2, RO1+1*, RO1+2*, RO1+3, RO1+4*, DEN+1*, DEN+2, DEN+3
RMPRBB RO1+3!
RMPRDA VIEW+1~, MOLET!
>> RMPRDFN ASK3+1
RMPREN ASK3+2*, RO1!
>> RMPRFA SET+2
RMPRFF VIEW+5*, RO1+3!
RMPRIN VIEW+1~, ASK1+2, ASK1+3*, MOLET!, ASK3+2*, EN4+3*!, EN4+4, DEN, DEN+3, EN3+5*
, EN3+7, PR, SET+2*
RMPRPP WRITE+8*!
>> RO WRITE*, WRITE+4, WRITE+5, WRITE+6, WRITE+8, WRITE+9
>> TO PR*
U EN4+2, DEN, DEN+3, EN3+7, SET+2, WRITE+5, WRITE+6, WRITE+8, WRITE+9
X ASK3!*, ASK3+1, ASK3+2, EN3+1, SET*, WRITE+1, WRITE+3, WRITE+4
>> Y EN4+2, EN4+3, EN3+4, EN3+5, SET+1, SET+2, WRITE+9*
Info |  Source |  Call Graph |  Caller 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