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

Package: Dietetics

Routine: FHNO6


Information

FHNO6 ; HISC/REL/NCA - Supplemental Feeding Costs ;2/13/95 13:32

Source Information

Source file <FHNO6.m>

Entry Points

Name Comments DBIA/ICR reference
D0
F1
D2
S0
L0
Q1 ; Print Supplemental Feeding Cost Report
SFO ;process outpt SFs.
GRD
OGRD
HDR ; Print Header
KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?27,"SUPPLEMENTAL FEEDING COSTS",!!
  • Line Location: FHNO6+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Select by S=SUPPLEMENTAL FEEDING SITE or W=WARD: "
  • Variable: XX
  • Timeout: DTIME
  • Line Location: D0+0
Function Call: WRITE
  • Prompt: *7," Enter S or W"
  • Line Location: D0+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Select WARD (or ALL): "
  • Variable: X
  • Timeout: DTIME
  • Line Location: F1+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Select SUPPLEMENTAL FEEDING SITE (or ALL): "
  • Variable: X
  • Timeout: DTIME
  • Line Location: D2+0
Function Call: READ
  • Formatting: !!
  • Prompt: "SUMMARY only? Y// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: S0+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: S0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: L0+0
Function Call: WRITE
  • Prompt: !!,"Total",?39,$J(T1,8,2),$J(T2,16,2),$J(T1+T2,16,2)
  • Line Location: Q1+28
Function Call: WRITE
  • Prompt: ?39,$J(WPD/WP*100,8,0)
  • Condition for execution: WPD
  • Line Location: Q1+32
Function Call: WRITE
  • Prompt: ?55,$J(WPT/WP*100,8,0)
  • Condition for execution: WPT
  • Line Location: Q1+32
Function Call: WRITE
  • Prompt: ?71,$J(WPD+WPT/WP*100,8,0)
  • Condition for execution: (WPD+WPT)
  • Line Location: Q1+32
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1+32
Function Call: WRITE
  • Prompt: !!,"Total",?39,$J(T1,8,2),$J(T2,16,2),$J(T1+T2,16,2)
  • Line Location: SFO+34
Function Call: WRITE
  • Prompt: ?39,$J(WPD/WP*100,8,0)
  • Condition for execution: WPD
  • Line Location: SFO+38
Function Call: WRITE
  • Prompt: ?55,$J(WPT/WP*100,8,0)
  • Condition for execution: WPT
  • Line Location: SFO+38
Function Call: WRITE
  • Prompt: ?71,$J(WPD+WPT/WP*100,8,0)
  • Condition for execution: (WPD+WPT)
  • Line Location: SFO+38
Function Call: WRITE
  • Prompt: !
  • Line Location: SFO+38
Function Call: WRITE
  • Prompt: !!,"Grand Total",?39,$J(T1,8,2),$J(T2,16,2),$J(T1+T2,16,2)
  • Line Location: GRD+9
Function Call: WRITE
  • Prompt: ?39,$J(WPD/WP*100,8,0)
  • Condition for execution: WPD
  • Line Location: GRD+13
Function Call: WRITE
  • Prompt: ?55,$J(WPT/WP*100,8,0)
  • Condition for execution: WPT
  • Line Location: GRD+13
Function Call: WRITE
  • Prompt: ?71,$J(WPD+WPT/WP*100,8,0)
  • Condition for execution: (WPD+WPT)
  • Line Location: GRD+13
Function Call: WRITE
  • Prompt: !
  • Line Location: GRD+13
Function Call: WRITE
  • Prompt: !!,"Grand Total",?39,$J(T1,8,2),$J(T2,16,2),$J(T1+T2,16,2)
  • Line Location: OGRD+8
Function Call: WRITE
  • Prompt: ?39,$J(WPD/WP*100,8,0)
  • Condition for execution: WPD
  • Line Location: OGRD+12
Function Call: WRITE
  • Prompt: ?55,$J(WPT/WP*100,8,0)
  • Condition for execution: WPT
  • Line Location: OGRD+12
Function Call: WRITE
  • Prompt: ?71,$J(WPD+WPT/WP*100,8,0)
  • Condition for execution: (WPD+WPT)
  • Line Location: OGRD+12
Function Call: WRITE
  • Prompt: !
  • Line Location: OGRD+12
Function Call: WRITE
  • Prompt: !,PTIM,!!?11,"S U P P L E M E N T A L F E E D I N G C O S T S",?73,"Page ",PG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,$S(FHOUT=1:"***OUTPATIENT***",1:"***INPATIENT***")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?(80-$L(Y)\2),Y
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?(80-$L(Y)\2),Y
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!?38,"DIETARY",?52,"THERAPEUTIC",?71,"TOTAL",!,"Supplemental Feeding",?28,"Cost Qty Total Qty Total Qty Total",!
  • Line Location: HDR+6

FileMan Files Accessed Via FileMan Db Call

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