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

Package: Prosthetics

Routine: RMPRD1


Information

RMPRD1 ;PHX/HNB-DISPLAY LOOKUP ;10/19/1993 [ 06/28/94 3:17 PM ]<<= NOT VERIFIED >

Source Information

Source file <RMPRD1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 EN^DDIOL  ^DIC  EN^DIQ1  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Prosthetics 2 ($$ITM,$$STAN)^RMPR31U  DIV4^RMPRSIT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Prosthetics 2 RMPR 1358 INQ  ^RMPR(664  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
EN ;DISPLAY DATE,PATIENT,ITEM,COST FROM 660
EN1 ;DISPLAY DATE,REFERENCE,PATIENT FROM 664
EN2 ;DISPLAY NAME
EN3 ;DISPLAY LAB ORDER
EN4 ;DISPLAY 2529-3 REQUEST
EN5 ;Inquire to 1358 transaction
EN6
EXIT ;EXIT FROM EN5/EN6

External References

Name Field # of Occurrence
^%ZIS EN5+10
^%ZISC EXIT+2
^%ZTLOAD EN5+15
EN^DDIOL EN6+47
^DIC EN5+8
EN^DIQ1 EN6+2, EN6+7
^DIR EN6+52
$$ITM^RMPR31U EN3+4, EN4+3
$$STAN^RMPR31U EN4+2
DIV4^RMPRSIT EN5+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?36,$E(RMPRIT,1,23),?70,RMPRCST
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: ?40,$P(^(0),U)
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: ?64,"PICKUP/DELIVERY",!
  • Line Location: EN1+16
Function Call: WRITE
  • Prompt: ?20,$E($P(^DPT(+Z,0),U,1),1,15)
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: ?20,$E($P(^DPT(+Z,0),U,1),1,15),?40,$P(^RMPR(664.1,+Y,0),U,13),?57,$P(^(0),U,17)
  • Line Location: EN3+3
Function Call: WRITE
  • Prompt: ?64,$E($$ITM^RMPR31U(ZA),1,15)
  • Line Location: EN3+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN3+4
Function Call: WRITE
  • Prompt: ?64,$E($$ITM^RMPR31U(ZA),1,15)
  • Line Location: EN4+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN4+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN6+10
Function Call: WRITE
  • Prompt: "Patient: ",RPO(664,RMPRDA,1),?40,"Vendor:",RPO(664,RMPRDA,4)
  • Line Location: EN6+11
Function Call: WRITE
  • Prompt: !,"Request Date: ",RPO(664,RMPRDA,.01),?33,"Date Required: ",RPO(664,RMPRDA,20),?69,"Days: ",RPO(664,RMPRDA,21)
  • Line Location: EN6+12
Function Call: WRITE
  • Prompt: !,"Form: ",RPO(664,RMPRDA,15),?33,"Initiator: ",$E(RPO(664,RMPRDA,10),1,12),?60,"Sta.: ",$E(RPO(664,RMPRDA,18),1,11)
  • Line Location: EN6+13
Function Call: WRITE
  • Prompt: !!,"Obligation #:",RPO(664,RMPRDA,.5)
  • Line Location: EN6+25
Function Call: WRITE
  • Prompt: ?35,"C.P.:",RPO(664,RMPRDA,6)
  • Line Location: EN6+26
Function Call: WRITE
  • Prompt: !,"Reference: ",RPO(664,RMPRDA,7)
  • Line Location: EN6+27
Function Call: WRITE
  • Prompt: ?35,"% Discount: ",RPO(664,RMPRDA,17)
  • Line Location: EN6+28
Function Call: WRITE
  • Prompt: ?60,"PSC Category: ",RPO(664,RMPRDA,16)
  • Line Location: EN6+29
Routine Call
  • DIC
  • Line Location:
    • EN5+8
Routine Call
  • DIR
  • Line Location:
    • EN6+52
Routine Call
  • %ZIS
  • Line Location:
    • EN5+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(664.1 EN4+2
^DPT - [#2] EN2+1, EN3+3, EN4+2
^PRC(441 - [#441] EN+3, EN1+13
^RMPR(660 - [#660] EN+1, EN+4
^RMPR(661 - [#661] EN+3, EN1+12
^RMPR(664 - [#664] EN1+2, EN1+6, EN1+10, EN1+11, EN1+15, EN1+16, EN2+1, EN6+5, EN6+31
^RMPR(664.1 - [#664.1] EN3+1, EN3+2, EN3+3, EN3+4, EN4+1, EN4+2, EN4+3
^RMPR(664.2 - [#664.2] EN1+5

Label References

Name Line Occurrences
EN1 EN2+1
EN4 EN3+1
EN6 EN5+6
EXIT EN5+10, EN5+11

Naked Globals

Name Field # of Occurrence
^( EN3+4, EN4+3
^(0 EN1+5, EN3+3, EN3+4, EN4+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS EN5+10*
DA EN6+1*, EN6+5, EN6+31, EXIT+1!
DA( EN6+6*
DIC EN1+2, EN2+1, EN5+2~, EN5+4*
DIC("S" EN5+7*
DIC(0 EN5+4*
>> DIQ EN6+1*
DIR EN6+51~
DIR(0 EN6+52*
DR EN6!, EN6+1*
DR( EN6+3*
IO EN6+9
IO("Q" EN5+11, EN6+52, EXIT+1!
IOF EN6+10
ION EN5+14
IOP EN5+6!
IOST EN5+6
>> POP EN5+10
>> RD1 EN6+31*, EN6+32, EN6+33, EN6+34, EN6+35, EN6+36, EN6+37, EN6+38, EN6+39, EN6+40
>> RMPR EN5+1
RMPRCST EN+5*, EN+6, EN+7!
RMPRDA EN5+9*, EN6+1*, EN6+11, EN6+12, EN6+13, EN6+14, EN6+15, EN6+16, EN6+17, EN6+18
, EN6+19, EN6+20, EN6+21, EN6+22, EN6+23, EN6+24, EN6+25, EN6+26, EN6+27, EN6+28
, EN6+29, EXIT+1!
RMPRDFN EN+7!
>> RMPRI EN1+7*, EN1+10*, EN1+11, EN1+15, EN3+4*, EN4+3*
>> RMPRI1 EN1+11*, EN1+12
RMPRIT EN+2*, EN+3*, EN+4*, EN+6, EN+7!, EN1+12*, EN1+13
>> RMPRN EN1+13*, EN1+14
RMPRNAM EN+7!
RMPRQT EN1+1, EN5+3*, EXIT+1!
>> RMPRSC EN4+2*
RPO EN6~, EXIT+1!
RPO( EN6+32, EN6+33, EN6+34, EN6+35, EN6+36, EN6+37, EN6+38, EN6+39, EN6+40, EN6+43
, EN6+44, EN6+46
RPO(664 EN6+11, EN6+12, EN6+13, EN6+14, EN6+15, EN6+16, EN6+17, EN6+18, EN6+19, EN6+20
, EN6+21, EN6+22, EN6+23, EN6+24, EN6+25, EN6+26, EN6+27, EN6+28, EN6+29
RPO1 EN6~, EN6+4*, EN6+5*, EN6+6, EN6+42*, EN6+43*, EN6+44, EN6+46
RPOD EN6+46*, EN6+47, EN6+48!
U EN+2, EN+3, EN+4, EN+5, EN1+2, EN1+3, EN1+5, EN1+11, EN1+12, EN1+13
, EN1+16, EN2+1, EN3+1, EN3+2, EN3+3, EN3+4, EN4+2, EN4+3
>> X EN5+1
>> Y EN+1, EN+4, EN1+2, EN1+6, EN1+10, EN1+11, EN1+15, EN1+16, EN2+1, EN3+1
, EN3+2, EN3+3, EN3+4, EN4+1, EN4+2, EN4+3, EN5+8, EN5+9
Z EN+1*, EN+2, EN+5, EN+7!, EN1+2*, EN1+3, EN1+5, EN2+1*, EN3+2*, EN3+3
, EN4+1*, EN4+2
>> ZA EN3+4*, EN4+2*, EN4+3*
ZTDESC EN5+14*, EN5+15!
ZTIO EN5+14*, EN5+15!
ZTRTN EN5+14*, EN5+15!
ZTSAVE EN5+15!
ZTSAVE("DATE(" EN5+13*
ZTSAVE("RMPR(" EN5+12*
ZTSAVE("RMPRDA" EN5+12*
ZTSAVE("RMPRSITE" EN5+13*
ZZ EN1+2*, EN1+4, EN1+5, EN1+17!
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