Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: FHMTK1C

Package: Dietetics

Routine: FHMTK1C


Information

FHMTK1C ; HISC/NCA/RVD - Print Tray Tickets ;4/13/95 13:45

Source Information

Source file <FHMTK1C.m>

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Dietetics 6 FHDCR1A  FHDCR1D  FHMTK11  FHMTK1A  FHOMTK1  FHOMTK2  

Entry Points

Name Comments DBIA/ICR reference
NXT ; Print Next Page
HEAD
HDR ; Consolidated Recipe List Heading
START
PRO
LIST ; Print Tabulated Recipe List for Service Points
PR1
PRT ; Print 3 person per page
CHKH ; Check whether name header should be on bottom
L1
FOOT
N1
SUM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: ?$S(N1=1:2,N1=2:45,1:88),MEALDT
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !
  • Line Location: START+10
Function Call: WRITE
  • Prompt: ?$S(NBR=1:2,NBR=2:45,1:88),PP(N1,NBR)
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+13
Function Call: WRITE
  • Prompt: ?$S(NBR=1:2,NBR=2:45,1:88),MM(N1,NBR)
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !
  • Line Location: START+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: NXT+1
Function Call: WRITE
  • Prompt: ?$S(NM=1:12,NM=2:57,1:100),"(More Items Next Pg)"
  • Line Location: NXT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NXT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NXT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: N1+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: N1+1
Function Call: WRITE
  • Prompt: ?$S(XX=1:2,XX=2:45,1:88),MEALDT," (Cont.)"
  • Line Location: N1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKH+1
Function Call: WRITE
  • Prompt: ?S1,X
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+0
Function Call: WRITE
  • Prompt: ?S1,HD
  • Condition for execution: $D(MM(0,NBR))
  • Line Location: FOOT+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !,HD,!!!?(LS(MEAL)-42\2),"T A B U L A T E D R E C I P E L I S T",?(LS(MEAL)-8),"Page ",PG
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !!?(LS(MEAL)-$L(MEALDT)\2),MEALDT,!!,$S(ALL:"ALL",FHP:$P($G(^FH(119.73,FHP,0)),"^",1),1:$P($G(^FH(119.6,+W1,0)),"^",1)),!
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !!,"R E C I P E S",?29
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: $P(DP(MEAL,X,K),"^",1)
  • Line Location: L1+4
Function Call: WRITE
  • Prompt: " Total",!
  • Line Location: L1+5
Function Call: WRITE
  • Prompt: !!,$P(X8,"~",3),?31
  • Line Location: L1+6
Function Call: WRITE
  • Prompt: !!!,"TOTAL RECIPES",?31
  • Line Location: L1+7
Function Call: WRITE
  • Prompt: $J("",8)_" "
  • Line Location: L1+10
Function Call: WRITE
  • Prompt: $S(TOT#1>0:$J(TOT,9,2),1:$J(TOT,9))
  • Line Location: L1+15
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: MFLG
  • Line Location: L1+15
Function Call: WRITE
  • Prompt: $J("",8)_" "
  • Line Location: PRO+3
Function Call: WRITE
  • Prompt: $S(FTOT#1>0:$J(FTOT,9,2),1:$J(FTOT,9)_" ")
  • Line Location: PRO+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: !!!,"TOTAL RECIPES",?31
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: $J("",8)_" "
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: $S(TOT#1>0:$J(TOT,9,2),1:$J(TOT,9))
  • Line Location: SUM+12
Function Call: WRITE
  • Prompt: $J("",8)_" "
  • Line Location: PR1+3
Function Call: WRITE
  • Prompt: $S(FTOT#1>0:$J(FTOT,9,2),1:$J(FTOT,9)_" ")
  • Line Location: PR1+8
Function Call: WRITE
  • Prompt: !,HD,!!!?(SL-48\2),"C O N S O L I D A T E D R E C I P E L I S T",?(SL-8),"Page ",PG
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?(SL-$L(MEALDT)\2),MEALDT,!!,$S(ALL:"ALL",FHP:$P($G(^FH(119.73,FHP,0)),"^",1),1:$P($G(^FH(119.6,+W1,0)),"^",1)),!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"R E C I P E S",?29
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $P(TP(X,K),"^",1)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: " Total",!
  • Line Location: HDR+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(119.6 - [#119.6] L1+2, HDR+2
^FH(119.73 - [#119.73] L1+2, HDR+2
^TMP($J L1+6, PRO+2, SUM+1, PR1+2

Label References

Name Line Occurrences
CHKH START+1, N1
FOOT START+16, NXT+4, CHKH+1
HDR SUM, SUM+2
HEAD START+15, NXT+3, CHKH+2
L1 LIST+1, LIST+2
N1 NXT+3
NXT START+13
PR1 SUM+3
PRO L1+6
SUM LIST+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ALL L1+2, HDR+2
>> DP( L1+4, L1+7, L1+8, PRO, PRO+1
>> FHBOT START+13, START+14, START+15, NXT+2, NXT+3, CHKH+1
>> FHP L1+2, HDR+2
>> FTOT PRO*, PRO+2*, PRO+8, PR1*, PR1+2*, PR1+8
>> HD FOOT, L1+1, HDR+1
IOF START+15, START+17, NXT+3, N1, L1+1, L1+15, SUM+2
IOST L1+1
>> K L1+4*, L1+8*, L1+9, PRO+1*, PRO+2, SUM+5*, SUM+6, PR1+1*, PR1+2, HDR+4*
>> L1 START+14*, NXT+2*
>> LN START+13, START+14, NXT+2, SUM+2
>> LS( L1*, L1+1, L1+2
>> MDT START+3, START+4, START+6, N1+2, N1+3, N1+5, L1, SUM
>> MEAL START+3, N1+2, LIST+2*, L1, L1+1, L1+2, L1+4, L1+6, L1+7, L1+8
, L1+9, PRO, PRO+1, PRO+2
>> MEALDT START+3*, START+4*, START+6*, START+7*, START+8, N1+2*, N1+3*, N1+5*, N1+6*, N1+7
, L1*, L1+2, SUM*, HDR+2
>> MFLG START+3, N1+2, LIST+1, L1+15
>> MM( START+13
>> MM(0 START+5, START+6, START+8, NXT+1, N1+4, N1+5, N1+7, HEAD, FOOT
>> MMMDT START+6*, N1+5*
>> N1 START+2*, START+4, START+5, START+6, START+8, START+10*, START+13*
>> NBR START+10*, START+13*, HEAD*, HEAD+1, FOOT*
>> NM NXT+1*, HEAD*, HEAD+1
>> P( L1+9, PRO+2*
>> PG LIST+1*, L1*, L1+1, SUM*, HDR+1*
>> PP( START+10
>> S1 HEAD+1*, HEAD+2, FOOT*
>> SL SUM*, HDR+1, HDR+2
>> SUM LIST+3
>> T1( SUM+6, PR1+2*
>> TABREC START
>> TL START+1*, START+2*, START+10*, START+12*, START+13*, START+14, NXT+1*, NXT+2, N1*, N1+1*
, N1+8*, CHKH+1*, HEAD*, FOOT*
>> TOT L1+7*, L1+9*, L1+15, SUM+4*, SUM+6*, SUM+12
>> TP( SUM+4, SUM+5, PR1, PR1+1, HDR+4
U START+6, N1+5
>> W1 L1+2, HDR+2
>> X HEAD*, HEAD+1, HEAD+2, L1+4*, L1+7*, L1+8, L1+9, PRO*, PRO+1, PRO+2
, SUM+4*, SUM+5, SUM+6, PR1*, PR1+1, PR1+2, HDR+4*
>> X8 L1+6*, PRO+2, SUM+1*, SUM+3, PR1+2
>> XX N1+1*, N1+3, N1+4, N1+5, N1+7
>> Z L1+9*, L1+10, L1+12, PRO+2*, PRO+3, PRO+5, SUM+6*, SUM+7, SUM+9, PR1+2*
, PR1+3, PR1+5
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All