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 |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(119.74 - [#119.74] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call