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

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

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
Info |  Source |  Entry Points |  Interaction Calls