Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(664 - [#664] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call