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

Package: Dietetics

Routine: FHPRI2


Information

FHPRI2 ; HISC/REL/NCA - Ingredient Lists ;3/6/95 16:04

Source Information

Source file <FHPRI2.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
Dietetics 1 (DTP,EN2,TR)^FH  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Dietetics 3 FHING5  FHING51  FHING52  

Entry Points

Name Comments DBIA/ICR reference
Q1 ; List Ingredients
P2
Q3
Q2
HDR
P3
H2
LIS1 ; List Ingredients - Recipe data
LIS2 ; List Ingredients - Purchasing data
LIS3 ; List Ingredients - Nutrient data
P0
H4
H5
H3
P1
H1
L0
L1
KIL
H0

External References

Name Field # of Occurrence
NOW^%DTC Q1+1
^%ZIS L1+1
^%ZISC L1+3
DTP^FH Q1+1
EN2^FH L1+2
TR^FH L0
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Sort: (A=Alphabetically F=Food Group V=Vendor) F// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: FHX2
  • Line Location: L0+0
Function Call: WRITE
  • Prompt: *7," Enter A, F or V"
  • Line Location: L0+1
Function Call: WRITE
  • Prompt: !!,"The list requires a 132 column printer.",!
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: Q2+3
Function Call: WRITE
  • Prompt: !,$E($P(X,"^",1),1,49),?50,$P(X,"^",2),?73,$P(X,"^",3),?92,$P(X,"^",13)
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: ?114,$P(X,"^",5)
  • Line Location: P2+2
Function Call: WRITE
  • Prompt: !,DTP,?44,"I N G R E D I E N T R E C I P E D A T A",?124,"Page ",PG
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!,"NAME",?53,"STOCK",?60,"LOC'N",?68,"THAW",?75,"U/P",?85,"ISS/UP",?94,"ISSUE",?116,"REC/ISS",?126,"REC"
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: !,DTP,?40,"I N G R E D I E N T P U R C H A S I N G D A T A",?124,"Page ",PG
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !!,"NAME",?50,"SUPPLY DESCRIPTION",?73,"STOCK NUMBER",?91,"GRP VENDOR",?114,"U/P",?119,"MULT",?126,"PRICE"
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: !,DTP,?42,"I N G R E D I E N T N U T R I E N T D A T A",?124,"Page ",PG
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !!,"NAME",?53,"NUTRIENT DATA REFERENCE",?108,"REC UNIT",?119,"WT IN LBS."
  • Line Location: H3+2
Function Call: WRITE
  • Prompt: !,"-----------------------------------------------------------------------------------------------------------------------------------",!
  • Line Location: H4+0
Function Call: WRITE
  • Prompt: !!?(131-$L(Y)\2),Y
  • Line Location: H5+2
Routine Call
  • %ZIS
  • Line Location:
    • L1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(113.1 - [#113.1] P1+1
^FH(113.2 - [#113.2] Q3+1, P2+1
^FH(119.1 - [#119.1] P1+3
^FHING - [#113] Q2+1, P0
^FHING("B" Q1+3
^FHNU - [#112] P3
^TMP($J Q2!, Q2+2, Q3+2*, KIL!

Label References

Name Line Occurrences
H0 Q2+2
H1 HDR
H2 HDR
H3 HDR
H4 H1+2, H2+2
H5 H1+1, H2+1, H3+1
HDR Q1+2, P0
KIL L0, L1+1, L1+2, L1+3
L0 LIS1+1, LIS2+1, LIS3+1, L0+1
P0 Q1+3, Q2+2
P1 P0+1
P2 P0+1
P3 P0+1
Q1 L1+3
Q2 Q1+1
Q3 Q2+1

Naked Globals

Name Field # of Occurrence
^( Q2+1
^(0 P1+1, P1+3, P2+1, P3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % Q1+1
%ZIS L1+1!*, L1+3!
%ZIS("A" L1+1*
>> D0 Q1+3*, Q2+2*, P0
DTIME L0
>> DTP Q1+1*, H1, H2, H3
>> FHLST L1+2*
>> FHPGM L1+2*
>> FHX1 LIS1+1*, LIS2+1*, LIS3+1*, P0+1, HDR
>> FHX2 L0*, L0+1, Q1+1, Q3, H1+1, H2+1, H3+1, H5
>> GRP Q2+2*, Q3*, Q3+1*, Q3+2, H0, H5, H5+1
IO L1+3
IO("Q" L1+2
IOF HDR
IOP L1+1!, L1+3!
IOSL P0
IOST HDR
>> K Q1+3*, Q2+1*, Q2+2*, Q3+2
>> NAM Q2+2*, Q3*, Q3+2
>> NX Q1+3*, Q2+2*
>> OLD Q2*, Q2+2, H0*
>> PG Q1+2*, Q2*, HDR*, H1, H2, H3
>> POP L1+1
>> X L0*, Q2+1*, Q3, Q3+1, P0*, P1, P1+1, P1+2, P1+3, P1+4
, P1+5, P2, P2+1, P2+2, P2+3, P2+4, P3, P3+1, P3+2
>> Y P1*, P1+1*, P1+2*, P1+3*, P1+4*, P1+5*, P2+1*, P2+3*, P2+4*, P3*
, P3+1*, P3+2*, H5*, H5+1*, H5+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All