Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: FHMTK1C

Package: Dietetics

Routine: FHMTK1C


Information

FHMTK1C ; HISC/NCA/RVD - Print Tray Tickets ;6/21/2017 13:45

Source Information

Source file <FHMTK1C.m>

Entry Points

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

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: ?$S(NBR=1:2,NBR=2:45,1:88),MM(N1,NBR)
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !
  • Line Location: START+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+16
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: ?S1,$$NOTE^FHMTK1D(MM(0,NBR),NBR,MFLG,MEAL)
  • Line Location: HEAD+3
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+13
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: MFLG
  • Line Location: L1+13
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+7
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+10
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+7
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
Info |  Source |  Entry Points |  Interaction Calls