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

Package: Dietetics

Routine: FHADR1


Information

FHADR1 ; HISC/NCA - Dietetic Facility Profile ;1/23/98 15:03

Source Information

Source file <FHADR1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 ^%DT  (C,NOW)^%DTC  MIX^DIC1  ^DIE  ^DIR  
Dietetics 1 SITE^FH  
Kernel 1 KILL^XUSCLEAN  

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

Package Total Caller Graph
Dietetics 10 FHADR1  FHADR10  FHADR2  FHADR3  FHADR6  FHADR61  FHADR7  FHADR8  
FHADR9  FHADRPT  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Enter/Edit Facility Data and Specialized Medical Programs
E1
E2
KIL
EDIT ; Edit the Fields
SET ; Set all three quarters with the Facility Profile Data
S1 ; Process Storage of Facility Profile Data
GET ; Get the Facility Data from Institution file
QR ; Read in Qtr and Year
Q1
YR ; Read in the Year

External References

Name Field # of Occurrence
^%DT Q1+2, YR+2
C^%DTC EN1+4
NOW^%DTC QR+1
MIX^DIC1 GET+3
^DIE EDIT+11
^DIR E1, E2+1
SITE^FH GET+1
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: E1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: E2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !?5,"Another user is editing this entry."
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: GET+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: *7,?28," Do Not Enter Dates."
  • Line Location: Q1+3
Function Call: WRITE
  • Prompt: *7," Answer Qtr 1-4 and Yr as Qtr/Yr.",!?28," Yr CANNOT be greater than now."
  • Line Location: Q1+4
Function Call: WRITE
  • Prompt: *7," Qtr/Yr must not be greater than default."
  • Line Location: Q1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: YR+1
Function Call: WRITE
  • Prompt: *7," Do Not Enter Future Year."
  • Line Location: YR+3
Function Call: WRITE
  • Prompt: *7," Enter Year Only."
  • Line Location: YR+4
Routine Call
  • DIE
  • Line Location:
    • EDIT+11
Routine Call
  • DIR
  • Line Location:
    • E1
    • E2+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(117.3 - [#117.3] Classic Fileman Calls
^DIC(4 - [#4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] EN1+3, EDIT+7
^FH(117.3 - [#117.3] EN1+4, EDIT+2, EDIT+3, EDIT+4*, EDIT+5*, EDIT+6, EDIT+8*, EDIT+11, S1+1, S1+2*
, S1+3*, S1+5!, S1+6, S1+7, S1+8*, S1+9*

Label References

Name Line Occurrences
E2 E1+1
EDIT E1+2, E2+3
GET EN1+2
KIL EN1+1, EN1+2, E1, E2+1, E2+2, EDIT+2
Q1 Q1+3, Q1+5, Q1+9
S1 EN1+4, SET+1
SET E2+2, E2+4
YR EN1+1, YR+2, YR+3, YR+4

Naked Globals

Name Field # of Occurrence
^( S1+7
^(0 S1+6*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % QR+1
%DT Q1!, YR+1!*
%DT("A" YR+1*
>> D GET+2*
DA EDIT+1*, EDIT+11!
DIC EDIT+1!, EDIT+11!, GET+2!*, GET+3!
DIC("A" GET+2*
DIC("B" GET+2*
DIC(0 GET+2*
DIE EDIT+1!*, EDIT+11!
DIR E1!, E2!
DIR("A" E1*, E2*
DIR(0 E1*, E2*
>> DIROUT E1, E2+1
>> DIRUT E1, E2+1
DR EDIT+10*, EDIT+11!
DT YR+3
DTIME Q1
>> DTOUT GET+3, YR+2
>> FHX1 EN1+2*, EN1+3, EDIT+7
>> FLG1 EN1+1*, E1+2*, EDIT+10
>> FLG2 EN1+1*, E2+3*
>> K1 S1+7*, S1+8, S1+9
>> L1 S1+7*, S1+8
>> NOW QR+1*, QR+3, Q1+1, Q1+5, Q1+9
>> OLD EN1+4*, E2+2*, E2+4*, EDIT+6, SET+1, S1+1, S1+3, S1+5, S1+7
>> PRE EN1+1, EN1+4, E2+2, E2+4, EDIT+1, EDIT+2, EDIT+3, EDIT+4, EDIT+5, EDIT+8
, EDIT+11, SET+1*, S1+2, S1+3, S1+5, S1+6, S1+8, S1+9, QR+1*, Q1+10*
, YR+1*, YR+5*
>> QTR SET+1*, QR+1*, QR+3*, Q1, Q1+1, Q1+9, Q1+10*
>> S1 QR+3*
SITE GET+3!
SITE(1 GET+2
>> ST EN1+3*, EDIT+7
>> TIT S1+4*, S1+5, S1+6, S1+7, S1+8, S1+9
U YR+2
>> X EN1+4, GET+3, Q1*, Q1+1*, YR+2*
>> X1 EN1+4*
>> X2 EN1+4*
Y EN1+2, E1+1!, E2+2!, GET+3, Q1+3, Q1+5, Q1+9, Q1+10, YR+2, YR+3
, YR+4, YR+5*
>> YR QR+3*, Q1, Q1+10*
Z EDIT+5*, EDIT+11!, S1+2*, S1+9*
ZZ EDIT+6*, EDIT+7*, EDIT+8, EDIT+11!
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