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

Package: Prosthetics

Routine: RMPR4P22


Information

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

Source Information

Source file <RMPR4P22.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Prosthetics 3 $$DEC^RMPR4LI  HDR^RMPR4P21  $$STA^RMPRUTIL  

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 RMPR4P21  

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
$$DEC^RMPR4LI CON+15
HDR^RMPR4P21 CONT+2
$$STA^RMPRUTIL CON+26

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCD(420.5 - [#420.5] START+3
^RMPR(664 - [#664] CONT+2, CON+12, CON+15, CON+26
^XUSEC("RMPR FCP MANAGER" CON+12

Label References

Name Line Occurrences
ADD RMPR4P22+14, RMPR4P22+15
ADD1 ADD+2
CON CONT
CONT RMPR4P22+15, EXT+9, EXT+12, EXT+15, EXT+18, EXT+29, EXT+30
EXT ZWE
START RMPR4P22+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DUZ CON+12
>> I RMPR4P22+2*, RMPR4P22+3, RMPR4P22+5, RMPR4P22+13
II RMPR4P22+12*, RMPR4P22+13!
IOF CONT+2
>> J RMPR4P22+4*
>> J1 RMPR4P22+2, RMPR4P22+3*, RMPR4P22+4, RMPR4P22+5*, RMPR4P22+6, RMPR4P22+13*
>> J2 RMPR4P22+2*, RMPR4P22+4*, RMPR4P22+5, RMPR4P22+13
LNCT EXT+2~, EXT+3*, EXT+9, EXT+10*, EXT+12, EXT+13*, EXT+15, EXT+16*, EXT+18, EXT+20!
>> R664(0 ADD+1
>> R664(1 RMPR4P22+2, RMPR4P22+4, RMPR4P22+8, RMPR4P22+9, RMPR4P22+10, RMPR4P22+11, RMPR4P22+15, START+1, START+2, START+3
, ZWE, EXT+4, EXT+5, EXT+6, EXT+7, EXT+22, EXT+28, EXT+31, ADD+2, ADD1
, CON+1
>> R664(2 ADD+3
>> RC ADD+2*, ADD1
>> RDUZ CON+9
>> RMPR("SIG" CON+9
>> RMPR90 EXT+27*, EXT+28*, EXT+31, WRI+1
>> RMPRA CONT+2, CON+12, CON+15, CON+26
>> RMPRAMT ADD*, ADD+3, ADD1*, CON+1
>> RMPRAMT1 ADD*, ADD1*
>> RMPRAMT2 ADD*, ADD+3*, CON+3
>> RMPRAMTN ADD*, ADD+3*, CON+5
>> RMPRB CON+1, CON+6, CON+10, CON+21, CON+23, CON+27
>> RMPRCH EXT+22*, EXT+23
RMPRCNT RMPR4P22+7*, RMPR4P22+12*, RMPR4P22+13, EXT+2~, EXT+3*, EXT+20!
>> RMPRDISC ADD+3*
>> RMPRI START+1*, START+3, ZWE, ADD+2*, ADD1
>> RMPRMOR RMPR4P22+15, RMPR4P22+16, EXT+9, EXT+12, EXT+15, EXT+18, EXT+29, EXT+30, CONT, CONT+1
, CONT+2*
>> RMPRMOR1 CON+27*
>> RMPRPAGE CONT+2*
RMPRPRCD CON+14~, CON+15*, CON+17
RMPRSSM EXT+2~, EXT+20!
RMPRSSM( RMPR4P22+12
RMPRSSM(1 RMPR4P22+8*, EXT+4*, EXT+8, EXT+10
RMPRSSM(2 RMPR4P22+9*, EXT+5*, EXT+17, EXT+19
RMPRSSM(3 RMPR4P22+10*, EXT+6*, EXT+14, EXT+16
RMPRSSM(4 RMPR4P22+11*, EXT+7*, EXT+11, EXT+13
>> RMPRTOT ZWE*
>> RMPRUT START+3*
RMPRVACN CON+2!
>> RMSHI ADD+1*, ADD+3, CON+4
>> RO RMPR4P22+2*, RMPR4P22+4, RMPR4P22+8, RMPR4P22+9, RMPR4P22+10, RMPR4P22+11, RMPR4P22+15*, START, START+1, START+2
, START+3, ZWE, EXT+4, EXT+5, EXT+6, EXT+7, EXT+22, EXT+28, EXT+31
>> RO("C" CON+1*
>> RP RMPR4P22+4*
U RMPR4P22+8, RMPR4P22+9, RMPR4P22+10, RMPR4P22+11, START+1, START+2, START+3, ZWE, EXT+4, EXT+5
, EXT+6, EXT+7, CONT+2, ADD+1, ADD+2, ADD+3, ADD1, CON+1, CON+12, CON+15
, CON+26
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All