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

Package: Dietetics

Routine: FHNO41


Information

FHNO41 ; HISC/REL/RVD - List Bulk Nourishments ;7/14/93 10:13

Source Information

Source file <FHNO41.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
VA FileMan 3 NOW^%DTC  ^DIC  ^DIR  
Dietetics 2 (DTP,EN2,TR)^FH  (DPLL,LL3,LL4)^FHLABEL  

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
Dietetics 1 FHNO10  

Entry Points

Name Comments DBIA/ICR reference
N2
N3
Q1 ; Process Printing Bulk Nourishments
Q3
Q4
HDR ; Print Header
L0
L3
C3
KIL
LL ;

External References

Name Field # of Occurrence
NOW^%DTC Q1+1
^%ZIS N3+6
^%ZISC N3+8
^DIC N2+1
^DIR N3+3
DTP^FH Q1+1
EN2^FH N3+7
TR^FH N3
DPLL^FHLABEL L0+3
LL3^FHLABEL LL+3, LL+11
LL4^FHLABEL LL+4, LL+11
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select SUPPLEMENTAL FEEDING SITE (or ALL): "
  • Variable: X
  • Timeout: DTIME
  • Line Location: N2+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want Labels? N// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: N3+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: N3+0
Function Call: WRITE
  • Prompt: !
  • Line Location: N3+6
Function Call: WRITE
  • Prompt: !!?(45-$L(D3)\2),"***** ",D3," TOTAL *****"
  • Line Location: Q1+7
Function Call: WRITE
  • Prompt: !!," Qty Item",?33,"Cost Vehicle Other Total",!
  • Line Location: Q1+8
Function Call: WRITE
  • Prompt: !,$J(D(K),6)," ",$P(Y,"^",1),?31,$J(C3,6,2)
  • Line Location: Q1+9
Function Call: WRITE
  • Prompt: ?($S(CT:40,1:49)),$J(D(K)*C3,6,2),?57,$J(D(K)*C3,6,2)
  • Line Location: Q1+9
Function Call: WRITE
  • Prompt: !!?8,"Grand Total",?39,$J(C(1),7,2),?48,$J(C(0),7,2),?56,$J(C(0)+C(1),7,2)
  • Line Location: Q1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: Q3+0
Function Call: WRITE
  • Prompt: !!,"--- ",$P(^FH(119.6,K,0),"^",1)," ---",?33,"Cost Vehicle Other Total",!
  • Line Location: Q4+0
Function Call: WRITE
  • Prompt: ?($S(CT1:40,1:49)),$J(FHDX1(X1)*C3,6,2),?57,$J(FHDX1(X1)*C3,6,2)
  • Line Location: Q4+6
Function Call: WRITE
  • Prompt: !!,?8,"Total for ",$P($G(^FH(119.6,K,0)),"^",1),?39,$J(FHCX1(1),7,2),?48,$J(FHCX1(0),7,2),?56,$J(FHCX1(0)+FHCX1(1),7,2)
  • Line Location: Q4+8
Function Call: WRITE
  • Prompt: !?(80-$L(X)\2),X,?73,"Page ",PG,!!?32,DTP,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!?(S2-$L(X)\2),X
  • Line Location: L0+4
Function Call: WRITE
  • Prompt: !!?(S2-$L(D3)\2),D3,!!
  • Line Location: L0+5
Function Call: WRITE
  • Prompt: !,$J(D(K),4)," ",$P(^FH(118,K,0),"^",1)
  • Line Location: L0+6
Function Call: WRITE
  • Prompt: !
  • Line Location: L0+7
Function Call: WRITE
  • Prompt: !!?(S2-$L(X1)\2),X1,!!,WRD,?(S2-$L(DTP)),DTP,!!
  • Line Location: L3+4
Function Call: WRITE
  • Prompt: !!!
  • Condition for execution: LAB=2
  • Line Location: L3+4
Routine Call
  • DIC
  • Line Location:
    • N2+1
Routine Call
  • DIR
  • Line Location:
    • N3+3
Routine Call
  • %ZIS
  • Line Location:
    • N3+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(119.74 - [#119.74] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(114 - [#114] C3
^FH(118 - [#118] Q1+9, Q4+3, Q4+4, Q4+5, L0+6, L3, L3+2
^FH(119.6 - [#119.6] Q1+3, Q4, Q4+3, Q4+8, L0+2, L3
^FH(119.74 - [#119.74] FHNO41+3, Q1+5, L0+5
^FH(119.9 - [#119.9] Q1+2
^TMP($J Q1+1!, Q1+3*, Q1+6, L0+2, KIL!

Label References

Name Line Occurrences
C3 Q1+9, Q4+5
HDR Q1+5, Q1+7, Q1+9, Q4, Q4+3, Q4+5, Q4+7
KIL N2, N3, N3+6, N3+7, N3+8
L0 Q1+4
L3 L0+2
LL L3+3
N2 N2+1
N3 FHNO41+3, N2, N3
Q1 N3+8
Q4 Q1+6

Naked Globals

Name Field # of Occurrence
^( Q1+3, Q4+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % Q1+1
%ZIS N3+6!*, N3+8!
%ZIS("A" N3+6*
>> C( Q1+9*
>> C(0 Q1+9*, Q1+10
>> C(1 Q1+9*, Q1+10
>> C1 Q1+6*, Q4+1*, L0+1*, L0+4, L3+1*, L3+4*, LL+6*
>> C3 Q1+9, Q4+5, Q4+6, C3*
>> CHK L3+2*
>> COUNT L0*
>> CT Q1+9*
>> CT1 Q4+5*, Q4+6
D Q1+6!, L0+1!
D( Q1+9, Q4+4*, L0+6, L3+1*
>> D1 FHNO41+3*, N2*, N2+1*, Q1+3, Q1+5, L0+5
>> D2 Q1+3*
>> D3 Q1+5*, Q1+7, HDR+2, L0+5*
DIC N2+1!*
DIC(0 N2+1*
DIR N3+3!
DIR("A" N3+3*
DIR("B" N3+3*
DIR(0 N3+3*
>> DIRUT N3+4
DTIME N2, N3
>> DTP Q1+1*, HDR+2, L3+4, LL+8
>> FHC3X1(1 Q4+2*, Q4+5*
>> FHCOL LL+1*, LL+2
>> FHCX1( Q4+5*
>> FHCX1(0 Q4+2*, Q4+8
>> FHCX1(1 Q4+2*, Q4+8
FHDX1 Q4+2!
FHDX1( Q4+4*, Q4+5, Q4+6
>> FHLABST LL+2*
>> FHLBFLG N3+2*, N3+4*
>> FHLST N3+7*
>> FHPGM N3+7*
>> FHTAB LL+7*, LL+8
IO N3+8
IO("Q" N3+7
IOF HDR+1
IOP N3+6!, N3+8!
>> IOS Q1+2
IOSL Q1+7, Q1+9, Q4, Q4+3, Q4+5, Q4+7
IOST HDR+1
>> K Q1+3*, Q1+6*, Q1+9*, Q4, Q4+3, Q4+8, L0+2*, L0+6*, L0+7*, L3
>> L Q4+3*, L0+2*, L3
>> LAB N3+1*, N3+2, N3+6, Q1+2*, Q1+4, L0, L0+3, L3+3, L3+4, LL+1
, LL+3, LL+4, LL+7, LL+9, LL+10, LL+11
LABSTART N3+3!, N3+5*, LL+2*
>> LINE L0*
>> LN L0+4*, L0+6*, L0+7*
>> LNA LL+8*, LL+9, LL+10
>> LNB LL+8*, LL+9, LL+10
>> P0 Q1+3*, Q1+6*, L0+2*
>> PCL1 LL+3*, LL+4*, LL+9*, LL+10*
>> PCL2 LL+3*, LL+4*, LL+9*, LL+10*
>> PCL3 LL+3*, LL+4*, LL+9*, LL+10*
>> PCL4 LL+3*, LL+4*, LL+9*, LL+10*
>> PCL5 LL+3*, LL+4*, LL+9*, LL+10*
>> PCL6 LL+3*, LL+4*, LL+9*, LL+10*
>> PCL7 LL+4*, LL+10*
>> PCL8 LL+4*, LL+10*
>> PG Q1+5*, HDR+1*, HDR+2
>> POP N3+6
>> S1 L0*, L0+7
>> S2 L0*, L0+4, L0+5, L3+4
>> SPC LL+7*, LL+8
>> WRD L0+2*, L3+4, LL+8
>> X N2*, N3*, N3+1*, Q1+3*, Q4+3*, HDR+2*, L0+4*, L3*
>> X1 Q4+3*, Q4+4, Q4+5, Q4+6, L3*, L3+1, L3+2*, L3+4, LL+8
>> X2 Q4+3*, Q4+4, L3*, L3+1, L3+4, LL+6
>> Y N2+1, N3+5, Q1+9*, Q4+5*, C3
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