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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 4 ^%DT  YN^DICN  ^DIE  ^DIK  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Registration 1 DG RUG WWU  

Entry Points

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

External References

Name Field # of Occurrence
^%DT ASKFY
YN^DICN COMP, REASK
^DIE ASK
^DIK REASK+1
$$FMTE^XLFDT REASK

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
Routine Call
  • DIE
  • Line Location:
    • ASK

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(45.91 - [#45.91] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(45.91 - [#45.91] CHECK

Label References

Name Line Occurrences
ASK ASKFY+1, FILLIN
ASKFY ASKFY, FYH
CHECK ASKFY+1, FILLIN+1
COMP COMP, REASK+1
FILLIN COMP+1
FYH ASKFY
QUIT ASKFY, REASK+2
REASK COMP+1, REASK

Naked Globals

Name Field # of Occurrence
^(0 CHECK

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% COMP*, COMP+1, QUIT!, REASK*, REASK+1
%DT ASKFY*, QUIT!
%DT(0 ASKFY*
%Y COMP, QUIT!, REASK
D QUIT!
D0 QUIT!
D1 QUIT!
DA QUIT!, REASK+1*, ASK*
DA(1 REASK+1*
DE ASK!
DGFY ASKFY+1*, CHECK, QUIT!, REASK, REASK+1, ASK
DGI ASKFY+1*, QUIT!, FILLIN*, REASK+1*, ASK
DGNO COMP, COMP+1, QUIT!, FILLIN+1!
DGNO( CHECK*, FILLIN
DGOUT ASKFY+1, QUIT!, FILLIN, ASK!
DI QUIT!
DIC QUIT!
DIE QUIT!, ASK*
DIK QUIT!, REASK+1*
DQ ASK!
DR QUIT!, ASK*
DR(2 ASK*
DTIME ASKFY
I CHECK*, QUIT!
X ASKFY*, QUIT!
Y ASKFY, ASKFY+1!, QUIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All