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

Package: Prosthetics

Routine: RMPRP55


Information

RMPRP55 ;PHX/DWL/HNB-PRINT 10-55 ;3/17/03 13:05

Source Information

Source file <RMPRP55.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Prosthetics 5 PR^RMPR21A  M2^RMPRM  ^RMPRP23  DIV4^RMPRSIT  ($$ROU,$$STA)^RMPRUTIL  
VA FileMan 4 DD^%DT  COMMA^%DTC  %XY^%RCR  ^DIC  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  

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

Package Total Caller Graph
Prosthetics 2 RMPR REPRINT 10-55 PSC  RMPR21B  

Entry Points

Name Comments DBIA/ICR reference
EN ;ENTRY POINT FOR REPRINTING A 10-55
ZIS ;
EN1 ;ADDRESS DEFINED
ADD ;ADDRESS INFO
WRITE
DESC ;ITEM,DES,COST,QTY
COST
END
EXIT
LIST
CNTER
PT

External References

Name Field # of Occurrence
DD^%DT EN1+2
COMMA^%DTC COST, LIST+1, LIST+2
%XY^%RCR EN1+1
^%ZIS ZIS+1, ZIS+2
HOME^%ZIS PT+3
^%ZISC EXIT+1
^%ZTLOAD PT+1
^DIC EN+5
PR^RMPR21A EN+7
M2^RMPRM EN+6
^RMPRP23 END+1
DIV4^RMPRSIT RMPRP55+8, EN+1
$$ROU^RMPRUTIL WRITE
$$STA^RMPRUTIL WRITE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?30,"****DUPLICATE COPY****"
  • Condition for execution: $D(RMPRACT)
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: ?30,"***WORKING COPY***"
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !!!,?5,"DEPARTMENT OF VETERANS AFFAIRS"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !,?5,RMPR("NAME"),!,?5,RMPR("ADD"),!,?5,RMPR("CITY")
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !!!!!,?5,$P(RMPRV,U,1),?53,"In Reply Refer to:",?73,$$STA^RMPRUTIL_"-",$$ROU^RMPRUTIL(RMPRSITE),!,?5,$P(RMPRV,U,2),?53,RMPRNAM
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: !?5,$P(RMPRV,U,6),", ",RMPRST," ",$P(RMPRV,U,8)
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: ?53,$E(RMPRSSN,1,3)_"-"_$E(RMPRSSN,4,5)_"-"_$E(RMPRSSN,6,9),!,?53,RMPRTN
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: !!,?5,$P(RMPRV,U,1),!!,?5,"With reference to your request of ",?39,$E($P(^RMPR(664,RMPRA,0),U,1),4,5),"/",$E($P(^RMPR(664,RMPRA,0),U,1),6,7),"/",$E($P(^RMPR(664,RMPRA,0),U,1),2,3),", authority is granted to repair "
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: !,?5,"the appliance described below for the above-named veteran."
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !!,?5,LINE,!,?23,"DESCRIPTION OF APPLIANCE OR REPAIR",!,?63,"Unit",?73,"Total",!,?5,"Item",?11,"Name",?32,"Serial Number",?55,"Qty",?63,"Price",?73,"Cost",!,?5,LINE
  • Line Location: DESC+2
Function Call: WRITE
  • Prompt: !!,?5,"The total cost, not including mailing cost, will not exceed ",?RR+1,X,!!,?5,"When repairs are completed, please attach the original of this letter to"
  • Line Location: COST+1
Function Call: WRITE
  • Prompt: !,?5,"the original copy of your invoice covering repair charges. Your invoice,",!,?5,"in original and one copy should then be forwarded to this office for"
  • Line Location: COST+2
Function Call: WRITE
  • Prompt: !?5,"payment.",!!?5,"Please retain the duplicate copy of this letter for your files."
  • Line Location: COST+3
Function Call: WRITE
  • Prompt: !!,?5,"Sincerely,",!!!!,?5,RMPR("SIG"),", Chief",!,?5,RMPR("SBT")
  • Line Location: COST+4
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Function Call: WRITE
  • Prompt: ?5,"Initiator: ",RMPRDUZ,?45,"REF: ",RMPRA,?64,"ADP FORM 10-55"
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,?5,RMPRI,?11,$E(RMPRNM,1,18),?32,$G(RMPRSN),?56,RMPRQT,?59,X,!,?11,RMPRDS
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !,?32,"Shipping Charge: ",?59,X,!
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !,?5,R55(1,1,1,RTX,0)
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"<REQUEST QUEUED!>",1:"<REQUEST DID NOT QUEUE!>")
  • Line Location: PT+2
Routine Call
  • DIC
  • Line Location:
    • EN+5
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+1
    • ZIS+2
Routine Call
  • %ZIS
  • Line Location:
    • PT+3

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)
^%ZIS(1 - [#3.5] ZIS+1
^DIC(5 - [#5] ADD+1
^DPT - [#2] ADD+8, ADD+9
^PRC(440 - [#440] ADD+1
^PRC(441 - [#441] LIST
^PRCD(420.5 - [#420.5] LIST
^RMPR(661 - [#661] LIST
^RMPR(664 - [#664] EN+6, EN+8, ADD+1, ADD+2, ADD+3, ADD+4, ADD+10, WRITE+3, DESC+3, LIST
, LIST+2
^RMPR(665 - [#665] ADD+5, ADD+6
^RMPR(669.9 - [#669.9] ZIS+1
^VA(200 - [#200] ADD+1

Label References

Name Line Occurrences
COST DESC+3
EXIT RMPRP55+8, EN+1, EN+5, EN+6, EN+7, ZIS+1, ZIS+2, PT+3
LIST DESC+3
PT ZIS+1, ZIS+2
ZIS RMPRP55+9

Naked Globals

Name Field # of Occurrence
^(0 ZIS+1, LIST+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+7
>> %X EN1+1*
>> %Y EN1+1*
>> %ZIS ZIS+1*, ZIS+2*
DATE EN1+2*, EXIT!
DIC EN+2*, EXIT!
DIC("A" EN+3*
DIC("S" EN+4*
DIC("W" EN+2*
DIC(0 EN+2*
DT EN1+2
I ADD+1*, ADD+3*, ADD+4, DESC+3*, END*, EXIT!, LIST
IO ZIS+3
IO("Q" ZIS+2, PT+1
IOF EN1+1
ION ZIS+2, PT+1
>> IOP ZIS+1*
IOST EN1+1
L END*, EXIT!
LINE DESC+1*, DESC+2, EXIT!
>> POP ZIS+1, ZIS+2
R55 CNTER!
R55(1 LIST+3
R55(4 EN1+2
RG EXIT!, PT*
>> RMPR RMPRP55+8
>> RMPR("ADD" EN1+3
>> RMPR("CITY" EN1+3
>> RMPR("NAME" EN1+3
>> RMPR("SBT" COST+4
>> RMPR("SIG" COST+4
RMPRA RMPRP55+9, EN+6*, EN+8, ADD+1, ADD+2, ADD+3, ADD+4, ADD+10, WRITE+3, DESC+3
, END+1, EXIT!, LIST, LIST+2
RMPRACT EN+6*, EN1+2, EXIT!, PT
RMPRCC EXIT!
RMPRCT EXIT!, LIST+1*
RMPRDFN ADD+2*, ADD+5, ADD+6, ADD+8, ADD+9, DESC+3*, EXIT!
RMPRDS EXIT!, LIST+1*
RMPRDUZ ADD+1*, END+1, EXIT+1!
RMPRI ADD+4*, ADD+5, EXIT!, LIST*, LIST+1
RMPRI1 EXIT+1!
RMPRIS EXIT!, LIST*
RMPRIT EXIT+1!
RMPRN EXIT+1!
RMPRNAM ADD+8*, WRITE, EXIT!
RMPRNM EXIT!, LIST*, LIST+1
RMPRPRIV END+1, EXIT!, EXIT+1!, PT
RMPRQT EXIT!, LIST+1*
>> RMPRSITE ZIS+1, WRITE
RMPRSN ADD+6*, EXIT!, LIST+1
RMPRSSN ADD+9*, WRITE+2, EXIT!
RMPRST ADD+1*, WRITE+1, EXIT!
RMPRTN ADD+10*, WRITE+2, EXIT!
RMPRTO DESC+3*, COST, EXIT!, LIST+1*
RMPRTT EN1+2*, END, EXIT!, CNTER*
RMPRUP ADD+1*, ADD+5*, ADD+6, EXIT!
RMPRV ADD+1*, WRITE, WRITE+1, WRITE+3, EXIT+1!
RR COST+1, EXIT!, LIST*, LIST+1*, LIST+2*
RTX EXIT+1!, LIST+3*
RX EN+8*, EXIT!
RX1 EXIT!
RXT EXIT!
RZZZ EXIT+1!
U EN+6, ZIS+1, EN1+2, ADD+1, ADD+2, ADD+4, ADD+6, ADD+8, ADD+9, ADD+10
, WRITE, WRITE+1, WRITE+3, LIST, LIST+1, LIST+2
VA EXIT+1!
VAEL EXIT+1!
VAERR EXIT+1!
>> X RMPRP55+8, EN+1, COST*, COST+1, LIST+1*, LIST+2*
X2 COST*, EXIT+1!, LIST+1*, LIST+2*
X3 COST*, EXIT+1!, LIST+1*, LIST+2*
Y EN+5, EN+6, EN1+2*, EXIT+1!
>> ZTDESC PT+1*
>> ZTDTH PT+1*
>> ZTIO ZIS+2*, PT+1*
>> ZTRTN PT+1*
>> ZTSAVE( PT*
>> ZTSAVE("RMPRACT" PT*
>> ZTSAVE("RMPRPRIV" PT*
ZTSK EXIT!, PT+2
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