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

Package: Prosthetics

Routine: RMPR4P22


Information

RMPR4P22 ;PHX/HNC/RVD-CONT PURCHASE CARD ;3/1/1996

Source Information

Source file <RMPR4P22.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: RMPR4P22+3
Function Call: WRITE
  • Prompt: !!,?9,"***SEE ATTACHED CONTINUATION SHEET FOR ITEM DESCRIPTION(S)***",!
  • Line Location: RMPR4P22+5
Function Call: WRITE
  • Prompt: !!,?9,"***SEE ATTACHED CONTINUATION SHEET FOR ITEM DESCRIPTION(S)***",!
  • Line Location: RMPR4P22+13
Function Call: WRITE
  • Prompt: !
  • Line Location: RMPR4P22+16
Function Call: WRITE
  • Prompt: !,"#"_RO_"."
  • Line Location: START+0
Function Call: WRITE
  • Prompt: ?4,$P(R664(1,RO,0),U,2)
  • Line Location: START+2
Function Call: WRITE
  • Prompt: ?50,$J($P(R664(1,RO,0),U,4),6)
  • Line Location: START+3
Function Call: WRITE
  • Prompt: ?61,$P(^PRCD(420.5,+RMPRUT,0),U,1),?65,$J($FN(RMPRI,"P",2),6)
  • Condition for execution: $D(^PRCD(420.5,+RMPRUT,0))
  • Line Location: START+3
Function Call: WRITE
  • Prompt: ?72,$J($FN(RMPRTOT,"P",2),8)
  • Line Location: ZWE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EXT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EXT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: EXT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: EXT+18
Function Call: WRITE
  • Prompt: !,@RMPR90
  • Line Location: WRI+1
Function Call: WRITE
  • Prompt: !!,?9,"***CONTINUATION OF PURCHASE CARD ITEMS ON NEXT PAGE***"
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: @IOF,!,"CONTINUATION OF PURCHASE CARD ",?27,"ORDER NUMBER: ",$P($G(^RMPR(664,RMPRA,4)),U,5),?71,"PAGE ",RMPRPAGE
  • Line Location: CONT+2
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(RMSHI,"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 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: !!,?5,RDUZ,?39,RMPR("SIG")
  • 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. Exp Date",?37,"23. Date Item Received",?62,"24. Date Delivered"
  • Line Location: CON+11
Function Call: WRITE
  • Prompt: !,?3,"encrypted"
  • Line Location: CON+18
Function Call: WRITE
  • Prompt: !,RMPRB
  • Line Location: CON+21
Function Call: WRITE
  • Prompt: !,"25. The articles or services listed herein have been received, or rendered",!,"ordered in the quantity and quality specified originally or as shown by"
  • Line Location: CON+22
Function Call: WRITE
  • Prompt: !,"authenticated changes, except as noted.",!!?40,"Signature of Veteran or VA Official",!,RMPRB
  • Line Location: CON+23
Function Call: WRITE
  • Prompt: !,?$X+6,"Acct. Symbol ",$$STA^RMPRUTIL,"-"_$P($G(^RMPR(664,RMPRA,4)),U,5)
  • Line Location: CON+26
Function Call: WRITE
  • Prompt: !,RMPRB,!,?52,"ADP Form 10-2421PC APR 1991"
  • Line Location: CON+27
Info |  Source |  Entry Points |  Interaction Calls