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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: FHADR1A

Package: Dietetics

Routine: FHADR1A


Information

FHADR1A ; HISC/NCA - Dietetic Facility Profile ;4/27/93 09:32

Source Information

Source file <FHADR1A.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Dietetics 1 HDR^FHADRPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHADRPT  

Entry Points

Name Comments DBIA/ICR reference
HDR ; Print Facility Profile Heading
LP1
EN2 ; Print Facility Profile
L2
L3
LP
L1

External References

Name Field # of Occurrence
HDR^FHADRPT EN2+1, L1, L3, L3+1, L3+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?13,"NAME: ",?39,N(1),?86,"STATION NUMBER: ",?104,N(3)
  • Line Location: LP+8
Function Call: WRITE
  • Prompt: !?13,"LOCATION: ",?39,N(2),?86,"REGION:",?104,N(4)
  • Line Location: LP+9
Function Call: WRITE
  • Prompt: !?13,"RPM CLASSIFICATION: ",?39,N(6),?86,"COMPLEXITY LEVEL: ",N(7)
  • Line Location: LP+10
Function Call: WRITE
  • Prompt: !?13,"MULTI DIVISION FACILITY:",?39,N(5),!
  • Line Location: LP+11
Function Call: WRITE
  • Prompt: !!?13,"COOK CHILL FOODS: ",?66,$J($S($P(X0,"^",21)="Y":"YES",1:"NO"),3)
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: !!?13,"DIETETIC INTERNSHIP/PROGRAMS:"
  • Line Location: L3+2
Function Call: WRITE
  • Prompt: !!,?15,"VA SPONSORED DIETETIC INTERNSHIP",?66,$J(N(8),3)
  • Line Location: L3+3
Function Call: WRITE
  • Prompt: !?15,"AFFILIATED AP4",?66,$J(N(9),3),!,?15,"AFFILIATED DIETETIC INTERNSHIP",?66,$J(N(10),3)
  • Line Location: L3+4
Function Call: WRITE
  • Prompt: !,?15,"AFFILIATED CUP",?66,$J(N(11),3),!,?15,"VA SPONSORED AP4",?66,$J(N(12),3)
  • Line Location: L3+5
Function Call: WRITE
  • Prompt: !?13,$S(TYP="S":"SPECIALIZED MEDICAL PROGRAMS:",TYP="D":"PRIMARY DELIVERY SYSTEM:",1:"NOT SPECIFIED")
  • Line Location: LP1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LP1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LP1+1
Function Call: WRITE
  • Prompt: !!!,?13,"S E C T I O N I F A C I L I T Y P R O F I L E",!!!!
  • Line Location: HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(117.3 L2+1
^DD(117.356 L3+9
^DIC(4 - [#4] LP+2, LP+3
^DIC(5 - [#5] LP+5
^FH(117.3 - [#117.3] LP, L1, L3, L3+9
^FH(117.4 - [#117.4] LP1

Label References

Name Line Occurrences
HDR EN2+1, L1, L3, L3+1, L3+6
LP EN2+3
LP1 L1, L3

Naked Globals

Name Field # of Occurrence
^( L1, L3, L3+9
^(0 LP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> FHX1 LP+2, LP+3
>> FHYR EN2+3
>> FLG L1*, L3*, LP1+1*
>> I EN2+2*, LP+4*, LP+6*, LP+7*
>> K LP+6*
>> L1 LP*, L1*
>> L2 L2+1*, L3+9*
>> L3 L3*
>> LIN L1, L3, L3+1, L3+6
>> LST LP1*, LP1+2
N EN2+2!, L3+10!
N( EN2+2*, LP+4*, LP+6*, LP+7*
N(1 LP+8
N(10 L3+4
N(11 L3+5
N(12 L3+5
N(13 L3+6
N(2 LP+5*, LP+9
N(3 LP+8
N(4 LP+9
N(5 LP+11
N(6 LP+10
N(7 LP+10
N(8 L3+3
N(9 L3+4
>> PRE EN2+3*, LP
>> ST LP+2*, LP+3
>> TIT L2+1*, L3+9*
>> TYP LP1*, LP1+1
>> X LP+3*, LP+4
>> X0 EN2+3*, LP*, LP+1, LP+6, L2, L2+1, L3+7, L3+8
>> X1 EN2+3*, LP*, L1, L3, L3+9
>> X2 L1*, L3*, L3+9*, LP1, LP1+2
>> Z LP1*
>> ZZ L3+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All