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

Package: Prosthetics

Routine: RMPRDT


Information

RMPRDT ;PHX/JLT,RVD-ASK DATE RANGE ;8/29/1994

Source Information

Source file <RMPRDT.m>

Entry Points

Name Comments DBIA/ICR reference
QTR
DATE
NSK
EDATE
EXIT
END
FQ ;GET CURRENT FISCAL YEAR AND QUARTER
FY
QT
ST ;GET DATE RANGE
RDATE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"ENDING DATE RANGE IS LESS THAN BEGINNING DATE RANGE",!
  • Line Location: EDATE+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: FY+0
Function Call: WRITE
  • Prompt: !,"Select FISCAL YEAR: ",RMPRFY,"// "
  • Line Location: FY+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a two digit fiscal year (e.g., 93).",!
  • Line Location: FY+0
Function Call: READ
  • Variable: X1
  • Timeout: DTIME
  • Line Location: QT+0
Function Call: WRITE
  • Prompt: !,"Select QUARTER: ",RMPRQTR,"// "
  • Line Location: QT+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a single digit number from 1 to 4.",!
  • Line Location: QT+0
Function Call: WRITE
  • Prompt: !!,$C(7),"ENDING DATE RANGE IS LESS THAN BEGINNING DATE RANGE",!
  • Line Location: RDATE+4
Info |  Source |  Entry Points |  Interaction Calls