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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGRUGFY

Package: Registration

Routine: DGRUGFY


Information

DGRUGFY ;ALB/MLI - ENTER FISCAL YEAR RUG II WWU VALUES ; 20 JAN 88 @1000

Source Information

Source file <DGRUGFY.m>

Entry Points

Name Comments DBIA/ICR reference
ASKFY
CHECK
COMP
QUIT
FILLIN
REASK
ASK
FYH

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You are about to enter national fiscal year RUG values. All entries must be"
  • Line Location: DGRUGFY+2
Function Call: WRITE
  • Prompt: !,"completed, otherwise those that you have entered will be deleted."
  • Line Location: DGRUGFY+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKFY+0
Function Call: WRITE
  • Prompt: !,"RUG",I," WWU value not assigned"
  • Line Location: CHECK+0
Function Call: WRITE
  • Prompt: !,"Do you want to enter these values now"
  • Line Location: COMP+0
Function Call: WRITE
  • Prompt: !?5,"ANSWER 'Y'ES OR 'N'O"
  • Line Location: COMP+0
Function Call: WRITE
  • Prompt: !,"WARNING: All existing WWU values for fiscal year ",$$FMTE^XLFDT(DGFY)," will be deleted. OK to continue"
  • Line Location: REASK+0
Function Call: WRITE
  • Prompt: !?5,"ANSWER 'Y'ES OR 'N'O"
  • Line Location: REASK+0
Function Call: WRITE
  • Prompt: !,"Enter RUG",DGI," value"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !?5,"Enter fiscal year (4 digits) from which you want RUG-II WWU values.",!?5,"Must not precede 1987."
  • Line Location: FYH+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(45.91 - [#45.91] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call