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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RMPRP22

Package: Prosthetics

Routine: RMPRP22


Information

RMPRP22 ;PHX/RFM-CONT RMPRP21 ;8/29/1994

Source Information

Source file <RMPRP22.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Prosthetics 1 HDR^RMPRP21  
VA FileMan 1 DD^%DT  

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 RMPRP21  

Entry Points

Name Comments DBIA/ICR reference
START
ZWE
EXT ;CHECKING FOR EXTENDED DESCRIPTION
WRI ;CONTINUATION OF 10-2421
CONT
ADD
ADD1
CON ;CONTINUATION OF 2421

External References

Name Field # of Occurrence
DD^%DT CON+9
HDR^RMPRP21 CONT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?9,"***SEE ATTACHED CONTINUATION SHEET FOR ITEM DESCRIPTION(S)***",!!
  • Line Location: RMPRP22+3
Function Call: WRITE
  • Prompt: !!,?9,"***SEE ATTACHED CONTINUATION SHEET FOR ITEM DESCRIPTION(S)***",!!
  • Line Location: RMPRP22+5
Function Call: WRITE
  • Prompt: !
  • Line Location: RMPRP22+8
Function Call: WRITE
  • Prompt: !,"#"_RO_"."
  • Line Location: START+0
Function Call: WRITE
  • Prompt: ?4,$P(R664(1,RO,0),U,2)
  • Line Location: START+1
Function Call: WRITE
  • Prompt: ?50,$J($P(R664(1,RO,0),U,4),6)
  • Line Location: START+2
Function Call: WRITE
  • Prompt: ?61,$P(^PRCD(420.5,+RMPRUT,0),U,1),?65,$J($FN($P(R664(1,RO,0),U,3),"P",2),6)
  • Condition for execution: $D(^PRCD(420.5,+RMPRUT,0))
  • Line Location: START+2
Function Call: WRITE
  • Prompt: ?72,$J($FN(RMPRTOT,"P",2),8)
  • Line Location: ZWE+0
Function Call: WRITE
  • Prompt: !,@RMPR90
  • Line Location: WRI+1
Function Call: WRITE
  • Prompt: @IOF,!,"CONTINUATION OF 2421",?27,"ORDER NUMBER: ",RTN,?71,"PAGE ",RMPRPAGE
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !,RMPRB,!,"16. Contract Number: "
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: $P(R664(1,RO("C"),0),U,14)
  • Condition for execution: RO("C")
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: ?61,"Subtotal: ",$J($FN(RMPRAMT,"P",2),8)
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: !," ACCT.#: ",RMPRVACN
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: ?28,"Discount $"
  • Line Location: CON+3
Function Call: WRITE
  • Prompt: $J($FN(RMPRAMT2,"P",2),7)
  • Line Location: CON+3
Function Call: WRITE
  • Prompt: ?45,"Shipping: ",$J($FN($P(R664(0),U,10),"P",2),5)
  • Line Location: CON+4
Function Call: WRITE
  • Prompt: ?62,"Total",?69,"$",$J($FN(RMPRAMTN,"P",2),9)
  • Line Location: CON+5
Function Call: WRITE
  • Prompt: !,RMPRB,!,"17. Signature and Title of"
  • Line Location: CON+6
Function Call: WRITE
  • Prompt: ?28,"18. DATE",?39,"19. Signature and Title of",?70,"20. Date"
  • Line Location: CON+7
Function Call: WRITE
  • Prompt: !,?5,"Requesting Official",?39,"Contracting/Accountable Officer"
  • Line Location: CON+8
Function Call: WRITE
  • Prompt: ?68,Y
  • Line Location: CON+9
Function Call: WRITE
  • Prompt: !,RMPRB,!?25,"Order and Receipt Action",!,RMPRB
  • Line Location: CON+10
Function Call: WRITE
  • Prompt: !,"21. Order Number",?18,"22. Date of Order",?37,"23. Date Item Received",?62,"24. Date Delivered"
  • Line Location: CON+11
Function Call: WRITE
  • Prompt: !,?3,RTN,?22,RMPRODTE
  • Line Location: CON+12
Function Call: WRITE
  • Prompt: !,RMPRB
  • Line Location: CON+13
Function Call: WRITE
  • Prompt: !,"25. The articles or services listed herein have been received, or rendered",!,"ordered in the quantity and quality specified orginally or as shown by"
  • Line Location: CON+14
Function Call: WRITE
  • Prompt: !,"authenticated changes, except as noted.",!!?40,"Signature of Veteran or VA Official",!,RMPRB,!?30,"VOUCHER AUDIT BLOCK (For use by VA Facility only)",!,RMPRB
  • Line Location: CON+15
Function Call: WRITE
  • Prompt: !,"Approved For",?25,"Date",?50,"Voucher Auditor",!!,$E(RMPRB,1,50),!,"Acct. Symbol",?54,"ADP Form 10-2421 APR 1991"
  • Line Location: CON+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCD(420.5 - [#420.5] START+2

Label References

Name Line Occurrences
ADD RMPRP22+6, RMPRP22+7
ADD1 ADD+1
CON CONT
CONT RMPRP22+7, EXT+1
EXT ZWE
START RMPRP22+7
WRI EXT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> I RMPRP22+2*, RMPRP22+3, RMPRP22+5
IOF CONT
>> J RMPRP22+4*, RMPRP22+5
>> J1 RMPRP22+2, RMPRP22+3*, RMPRP22+4, RMPRP22+5*
>> R664(0 ADD+2, CON+4
>> R664(1 RMPRP22+2, RMPRP22+4, RMPRP22+7, START+1, START+2, ZWE, EXT+1, ADD+1, ADD1, CON+1
>> R664(2 ADD+2
>> R664(4 CON+9
>> RC ADD+1*, ADD1
>> RDUZ CON+9
>> RMPR("SIG" CON+9
>> RMPR90 EXT+1*, WRI+1
>> RMPRAMT ADD*, ADD+2, ADD1*, CON+1
>> RMPRAMT1 ADD*, ADD1*
>> RMPRAMT2 ADD*, ADD+2*, CON+3
>> RMPRAMTN ADD*, ADD+2*, CON+5
>> RMPRB CON+1, CON+6, CON+10, CON+13, CON+15, CON+16
>> RMPRCH EXT+1*
>> RMPRDISC ADD+2*
>> RMPRMOR RMPRP22+7, RMPRP22+8, EXT+1, CONT*
>> RMPRMOR1 CON+16*
>> RMPRODTE CON+12
>> RMPRPAGE CONT*
>> RMPRTOT ZWE*
>> RMPRUT START+2*
RMPRVACN CON+2!
>> RMPRX EXT+1*
>> RO RMPRP22+2*, RMPRP22+4, RMPRP22+7*, START, START+1, START+2, ZWE, EXT+1
>> RO("C" CON+1*
>> RP RMPRP22+4*
>> RTN CONT, CON+12
U START+1, START+2, ZWE, ADD+2, ADD1, CON+1, CON+4, CON+9
>> Y CON+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All