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

Package: Prosthetics

Routine: RMPRDT


Information

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

Source Information

Source file <RMPRDT.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 (,DD)^%DT  C^%DTC  DT^DICRW  
Prosthetics 1 DIV4^RMPRSIT  

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 RMPR29GU  RMPR29I  RMPR29I1  RMPR29U  

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

External References

Name Field # of Occurrence
^%DT DATE, EDATE, RDATE, RDATE+2
DD^%DT QTR+1, QTR+4, NSK, NSK+3
C^%DTC QTR+1
DT^DICRW FQ+1
DIV4^RMPRSIT ST+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J RMPRDT+2!

Label References

Name Line Occurrences
DATE QTR
EDATE NSK
END RMPRDT+2, DATE, EDATE
EXIT NSK, NSK+3
FQ RMPRDT+2
FY FY
NSK QTR, QTR+4
QT QT
QTR EDATE+1
RDATE RDATE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE*, EDATE*, EXIT!, END!, RDATE*, RDATE+2*
%DT("A" DATE*, EDATE*, RDATE*, RDATE+2*
%DT("B" QTR+1*, QTR+4*, NSK*, NSK+3*
DATE END!
DATE(1 QTR+1*, QTR+4*, DATE+1*, EDATE+1, RDATE+1*, RDATE+4
DATE(2 NSK*, NSK+3*, EDATE*, EDATE+1, RDATE+3*, RDATE+4
DT QTR, QTR+2, NSK+1, FQ+1, FQ+2, FQ+4
DTIME FY, QT
DTOUT DATE, EDATE, EXIT!, END!, RDATE, RDATE+2
>> QUIT ST+1*, RDATE*, RDATE+2*
RMPRFY RMPRDT+2, QTR, QTR+2, QTR+3, NSK+1, NSK+2, END!, FQ+2*, FQ+3*, FY*
, QT+1*
RMPRN RMPRDT+2!, QTR+1*, NSK, EXIT!, END!
>> RMPRNA QTR, QTR+4, NSK, NSK+3
RMPRQTR RMPRDT+2, QTR, QTR+2, NSK+1, END!, FQ+4*, QT*, QT+1*
>> RMPRWO FQ+4
RY QTR+1*, QTR+2*, QTR+3*, QTR+4, NSK*, NSK+1*, NSK+2*, NSK+3, EXIT!
U DATE, EDATE, RDATE, RDATE+2
X QTR+1, DATE, EDATE, EXIT!, FY*, QT+1, ST+1, RDATE, RDATE+2
X1 QTR*, EXIT!, QT*, QT+1
>> X2 QTR*
>> Y QTR+1*, QTR+2*, QTR+3*, QTR+4, DATE+1, NSK*, NSK+1*, NSK+2*, NSK+3, EDATE
, RDATE+1, RDATE+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All