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

Package: Prosthetics

Routine: RMPOLF2


Information

RMPOLF2 ;HIN CIOFO/RVD-CONTINUATION OF RMPOLF1 ;06/22/99

Source Information

Source file <RMPOLF2.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 8 DD^%DT  %XY^%RCR  ^DIC  (FILE,YN)^DICN  ^DIE  IX1^DIK  ^DIR  EN2^DIWF  
Prosthetics 3 (EXIT,PRINT)^RMPOLF1  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: 1

Package Total Caller Graph
Prosthetics 1 RMPOLF1  

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 ;K RMPREN S %=2 W !,"Do you wish to create a correspondence letter" D YN^DICN
EN4 ;EDIT A SKELETON
DEN
QUES1
EN3 ;PRINT FORM LETTER
PR
SET
SETALL
WRITE

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Letters on file:"
  • Line Location: VIEW+5
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*, SET+2, SETALL+2, WRITE+5
^RMPR(665.4 - [#665.4] VIEW+3, ASK3+2, SET+2*, SETALL+2*, WRITE+5, WRITE+6, WRITE+8, WRITE+9
^TMP("RL" SETALL+4*
^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+3, MOLET+5, MOLET+7, ASK2+1
VIEW ASK2+3, ASK3+2

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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