Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPRCT

Package: Prosthetics

Routine: RMPRCT


Information

RMPRCT ;PHX/HNB-INPUT TRANSFORM ITEM COST/10-2421 ;10/19/1993

Source Information

Source file <RMPRCT.m>

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

Package Total Caller Graph
Prosthetics 4 BILLING ITEM  RMPR21B  RMPR4E21  RMPRM  

Entry Points

Name Comments DBIA/ICR reference
EN
CON
AR ;10-2421 and No Form
ARE
WR
EN1 ;Check for PSC card issue and Eyeglass items
EN3 ;INPUT TRANSFORM TO NOT ALLOW ITEMS ENTERED
CHK
ITM ;Check item QTY and Cost
TAR
ACT ;Check Actual cost for item
SAR
CHECK ;CHECK PURCHASE FOR CONTRACT NUMBER AND COST

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"This Form Type Has Been Changed to a 10-55!"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"You Can Not Exceed $",$J(RMPRAMT,0,2),", You Must Issue a 10-55 For This Amount!",!,"If You Enter in an Amount That Exceeds the Above Amount"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"This Form Type will be CHANGED to a 10-55"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,?5,"** Total for Previous Item(s) is $"_RMPRY,!,?5,"** Total With This Amount is $"_RMPRX
  • Line Location: AR+7
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"Dollar Amount must be within Contract Authority Guidelines",!
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: !,$C(7),"*** THIS ITEM HAS IMPROPER AMIS CODES AND CANNOT BE ENTERED ON A 2914"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !,$C(7),"YOU MAY NOT CHANGE ITEMS AT THIS TIME!"
  • Line Location: EN3+1
Function Call: WRITE
  • Prompt: !!,?5,"This will change the amount on this FORM to ","$ ",$J(RMPRY,0,2)
  • Line Location: ITM+6
Function Call: WRITE
  • Prompt: $C(7),!,?5,"Cost cannot exceed ","$ ",$J(RMPRAMT,0,2)
  • Line Location: ITM+6
Function Call: WRITE
  • Prompt: !,?5,"** Total for Previous Item(s) is $"_RMPRY,!,?5,"** Total With This number of Items is $"_RMPRX
  • Line Location: TAR+6
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"You Can Not Exceed $",$J(RMPRAMT,0,2)," For This 2520 Form."
  • Line Location: ACT+4
Function Call: WRITE
  • Prompt: !,?5,"** Total for Previous Item(s) is $"_RMPRY,!,?5,"** Total with this actual amount is $"_RMPRX
  • Line Location: SAR+5
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"Dollar Amount must be within Contract Authority Guidelines",!
  • Line Location: CHECK+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(660 - [#660] ITM+4, ACT+3
^RMPR(661 - [#661] EN1+2
^RMPR(663 - [#663] EN1+3
^RMPR(664 - [#664] EN+3, EN+7*, AR+2, AR+3, AR+4, ARE+2*, CHK, CHK+1, ITM+3, ITM+4
, ITM+5, ITM+7*, TAR+1, TAR+3, ACT+3, ACT+4, ACT+5*, SAR+1, SAR+2
^RMPR(665 - [#665] EN1+4

Label References

Name Line Occurrences
AR EN+2
ARE AR+3, TAR+2, TAR+7, SAR+6
CHK AR+2, TAR+1, SAR+1
CON EN+2, ITM+4, ACT+3
EN3 EN1+1
SAR ACT+3
TAR ITM+4
WR ARE, ARE+1

Naked Globals

Name Field # of Occurrence
^(0 EN+3, CHK, CHK+1, ITM+5, TAR+3, SAR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA EN+3, EN+7, AR+3, AR+4, ARE+2, ITM+3, ITM+4, ITM+5, ITM+7, TAR+3
, ACT+3, ACT+4, ACT+5, SAR+2
>> DA(1 EN+3, EN+7, AR+2, AR+3, AR+4, ARE+2, CHK, CHK+1, ITM+3, ITM+4
, ITM+5, ITM+7, TAR+1, TAR+3, ACT+3, ACT+4, ACT+5, SAR+1, SAR+2
PACST ARE+3!, TAR+3*, TAR+4, SAR+2*, SAR+3, SAR+4
PCST AR+4*, AR+5, AR+6, ARE+3!, TAR+3*, TAR+4*, TAR+5, SAR+2*, SAR+3
PQTY EN+3*, EN+4, EN+5, AR+4*, AR+5, AR+6, ARE+3!, TAR+3*, TAR+4, TAR+5
, SAR+2*, SAR+3, SAR+4
>> R90 EN1+2*, EN1+3
RI AR+2*, ARE+3!, EN1+2*, EN1+3, CHK, CHK+1, TAR+1*, SAR+1*
RMPR660 ARE+3!, ITM+4*, ACT+3*
RMPR90 EN+4, EN+6*, ARE+3!
>> RMPRAMT EN+2, EN+4, EN+5, ITM+4, ITM+6, ACT+3, ACT+4
>> RMPRCONT ARE, ARE+1, TAR+3*, SAR+2*, CHECK+3, CHECK+4
>> RMPRDFN EN1+4
>> RMPRF EN+1, EN+2, EN+4*, ARE+2, EN1+1, EN1+2, EN1+4, ITM+2, ITM+4, ITM+6
, ACT+2, ACT+3, ACT+4, CHECK+1, CHECK+2
>> RMPRP CHECK+1
RMPRPSC EN+4!
RMPRTO CHECK+3!, CHECK+4!, CHECK+5
>> RMPRUP EN1+4*, EN1+5
RMPRX AR+1*, AR+3*, AR+5*, AR+6*, AR+7, ARE, ARE+1, ARE+3!, TAR*, TAR+4*
, TAR+5*, TAR+6, SAR*, SAR+3*, SAR+4*, SAR+5
RMPRY AR+1*, AR+3, AR+5, AR+6, AR+7, ARE+3!, CHK*, CHK+1*, ITM+5*, ITM+6
, TAR*, TAR+2, TAR+4, TAR+5, TAR+6, SAR*, SAR+3, SAR+4, SAR+5
RMX ARE+2, ARE+3!, SAR*
U EN+3, EN+7, AR+3, AR+4, ARE+2, EN1+2, EN1+3, CHK, CHK+1, ITM+3
, ITM+4, ITM+5, ITM+7, TAR+3, ACT+3, ACT+4, ACT+5, SAR+2
X EN!, EN+4, EN+5, EN+6!, EN+7, AR+3, AR+5, AR+6, ARE, ARE+1
, ARE+2, EN1+2!, EN1+3!, EN1+4, EN1+5!, EN3+1!, ITM+1!, ITM+5, ITM+6!, ITM+7
, TAR+4, TAR+5, ACT+1*!, ACT+4!, ACT+5, SAR+3, SAR+4
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All