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

Package: Prosthetics

Routine: RMPR4D1


Information

RMPR4D1 ;PHX/HNB -DISPLAY/LOOKUP/DIC(W) PURCHASE CARD ;3/1/1996

Source Information

Source file <RMPR4D1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 EN^DDIOL  ^DIC  EN^DIQ1  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Prosthetics 1 DIV4^RMPRSIT  

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
EN5 ;Inquire to purchase card transaction
EN6 ;Printinig Purchase Card
EXIT ;EXIT FROM EN5/EN6

External References

Name Field # of Occurrence
^%ZIS EN5+9
^%ZISC EXIT+2
^%ZTLOAD EN5+14
EN^DDIOL EN6+47
^DIC EN5+7
EN^DIQ1 EN6+3, EN6+8
^DIR EN6+52
DIV4^RMPRSIT EN5+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?25,$E(RMPRNAM,1,18),?45,$E(RMPRIT,1,23),?70,RMPRCST
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: ?40,$P(^(0),U)
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: ?64,"PICKUP/DELIVERY",!
  • Line Location: EN1+16
Function Call: WRITE
  • Prompt: ?33,$E($P(^DPT(+RZ,0),U,1),1,15)
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN6+11
Function Call: WRITE
  • Prompt: "Patient: ",RPO(664,RMPRDA,1),?40,"Vendor:",RPO(664,RMPRDA,4)
  • Line Location: EN6+12
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+13
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+14
Function Call: WRITE
  • Prompt: !!,"Obligation #:",RPO(664,RMPRDA,.5)
  • Line Location: EN6+26
Function Call: WRITE
  • Prompt: ?35,"C.P.:",RPO(664,RMPRDA,6)
  • Line Location: EN6+27
Function Call: WRITE
  • Prompt: !,"Reference: ",RPO(664,RMPRDA,7)
  • Line Location: EN6+28
Function Call: WRITE
  • Prompt: ?35,"% Discount: ",RPO(664,RMPRDA,17)
  • Line Location: EN6+29
Function Call: WRITE
  • Prompt: ?60,"PSC Category: ",RPO(664,RMPRDA,16)
  • Line Location: EN6+30
Routine Call
  • %ZIS
  • Line Location:
    • EN5+9
Routine Call
  • DIC
  • Line Location:
    • EN5+7
Routine Call
  • DIR
  • Line Location:
    • EN6+52

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)
^DPT - [#2] EN+3, EN2+3
^PRC(441 - [#441] EN+4, EN1+13
^RMPR(660 - [#660] EN+1, EN+5
^RMPR(661 - [#661] EN+4, EN1+12
^RMPR(664 - [#664] EN1+4, EN1+6, EN1+8, EN1+10, EN1+11, EN1+15, EN1+16, EN2+3, EN6+6, EN6+32
^RMPR(664.2 - [#664.2] EN1+7

Label References

Name Line Occurrences
EN1 EN2+3
EN6 EN5+5
EXIT EN5+9, EN5+10

Naked Globals

Name Field # of Occurrence
^(0 EN1+7
^(4 EN1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS EN5+9*
DA EN6+2*, EN6+6, EN6+32, EXIT+1!
DA( EN6+7*
DIC EN1+4, EN5+2~, EN5+4*
DIC("S" EN5+6*
DIC(0 EN5+4*
>> DIQ EN6+2*
DIR EN6+51~
DIR(0 EN6+52*
DR EN6+1!, EN6+2*
DR( EN6+4*
IO EN6+10
IO("Q" EN5+10, EN6+52, EXIT+1!
IOF EN6+11
ION EN5+13
IOP EN5+5!
IOST EN5+5
>> POP EN5+9
>> RD1 EN6+32*, EN6+33, EN6+34, EN6+35, EN6+36, EN6+37, EN6+38, EN6+39, EN6+40, EN6+41
>> RMPR EN5+1
RMPRCST EN+6*, EN+7, EN+8!
RMPRDA EN5+8*, EN6+2*, 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
, EN6+30, EXIT+1!
RMPRDFN EN+3*, EN+8!
>> RMPRI EN1+9*, EN1+10*, EN1+11, EN1+15
>> RMPRI1 EN1+11*, EN1+12
RMPRIT EN+3*, EN+4*, EN+5*, EN+7, EN+8!, EN1+12*, EN1+13
>> RMPRN EN1+13*, EN1+14
RMPRNAM EN+3*, EN+7, EN+8!
RMPRQT EN1+3, EN5+3*, EXIT+1!
RPO EN6+1~, EXIT+1!
RPO( EN6+33, EN6+34, EN6+35, EN6+36, EN6+37, EN6+38, EN6+39, EN6+40, EN6+41, EN6+43
, EN6+44, EN6+46
RPO(664 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, EN6+30
RPO1 EN6+1~, EN6+5*, EN6+6*, EN6+7, EN6+42*, EN6+43*, EN6+44, EN6+46
RPOD EN6+46*, EN6+47, EN6+48!
RZ EN1+2~, EN1+4*, EN1+5, EN1+7, EN2+2~, EN2+3*
RZZ EN1+2~, EN1+4*, EN1+7
U EN+3, EN+4, EN+5, EN+6, EN1+4, EN1+5, EN1+6, EN1+7, EN1+11, EN1+12
, EN1+13, EN1+16, EN2+3
>> X EN5+1
>> Y EN+1, EN+5, EN1+4, EN1+6, EN1+8, EN1+10, EN1+11, EN1+15, EN1+16, EN2+3
, EN5+7, EN5+8
Z EN+1*, EN+3, EN+6, EN+8!
ZTDESC EN5+13*, EN5+14!
ZTIO EN5+13*, EN5+14!
ZTRTN EN5+13*, EN5+14!
ZTSAVE EN5+14!
ZTSAVE("DATE(" EN5+12*
ZTSAVE("RMPR(" EN5+11*
ZTSAVE("RMPRDA" EN5+11*
ZTSAVE("RMPRSITE" EN5+12*
Info |  Source |  Call 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