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

Package: Prosthetics

Routine: RMPRCT


Information

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

Source Information

Source file <RMPRCT.m>

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