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

Package: Dietetics

Routine: FHNO6


Information

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

Source Information

Source file <FHNO6.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
VA Fileman 2 NOW^%DTC  ^DIC  
Dietetics 1 (DTP,EN2)^FH  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHNO11  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC Q1+1
^%ZIS L0
^%ZISC L0+2
^DIC F1+1, D2+1
DTP^FH Q1+1
EN2^FH L0+1
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?27,"SUPPLEMENTAL FEEDING COSTS",!!
  • Line Location: FHNO6+3
Function Call: READ
  • Prompt: "Select by S=SUPPLEMENTAL FEEDING SITE or W=WARD: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: XX
  • Line Location: D0+0
Function Call: WRITE
  • Prompt: *7," Enter S or W"
  • Line Location: D0+1
Function Call: READ
  • Prompt: "Select WARD (or ALL): "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: F1+0
Function Call: READ
  • Prompt: "Select SUPPLEMENTAL FEEDING SITE (or ALL): "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: D2+0
Function Call: READ
  • Prompt: "SUMMARY only? Y// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • DIC
  • Line Location:
    • F1+1
    • D2+1
Routine Call
  • %ZIS
  • Line Location:
    • L0

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(114 - [#114] Q1+20, SFO+27, GRD, OGRD
^FH(118 - [#118] Q1+20, SFO+27, GRD, OGRD
^FH(119.6 - [#119.6] D0+3, Q1+3, SFO+8
^FH(119.74 - [#119.74] D0+2, Q1+6, SFO+11
^FHPT - [#115] Q1+10, Q1+11, SFO+5, SFO+6, SFO+15, SFO+17
^FHPT("AW" Q1+7
^FHPT("RM" SFO+4, SFO+5
^TMP($J Q1+1!, Q1+8*, Q1+9*, Q1+13*, Q1+14*, Q1+15*, Q1+16*, Q1+20*, Q1+21, Q1+23
, Q1+24, Q1+25, Q1+26, Q1+29, SFO+1!, SFO+13*, SFO+14*, SFO+21*, SFO+22*, SFO+23*
, SFO+24*, SFO+27*, SFO+28, SFO+29, SFO+30, SFO+31, SFO+32, SFO+35, GRD*, GRD+2
, GRD+4, GRD+5, GRD+6, GRD+7, GRD+10, OGRD*, OGRD+2, OGRD+3, OGRD+4, OGRD+5
, OGRD+6, OGRD+9, KIL!

Label References

Name Line Occurrences
D0 D0+1
D2 D0+4, D2+1
F1 F1+1
GRD Q1+33
HDR Q1+23, Q1+26, Q1+28, SFO+29, SFO+32, SFO+34, GRD+4, GRD+7, GRD+9, OGRD+3
, OGRD+6, OGRD+8
KIL D0, F1, D2, S0, L0, L0+1, L0+2
OGRD SFO+39
Q1 L0+2
S0 D0+2, D0+3, F1+2, S0

Naked Globals

Name Field # of Occurrence
^( Q1+3, Q1+15*, Q1+16*, Q1+20, Q1+24, SFO+23*, SFO+24*, SFO+27, SFO+30, GRD
, GRD+5, OGRD, OGRD+4
^("T" Q1+26, SFO+32, GRD+7, OGRD+6
^(0 Q1+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % Q1+1
%ZIS L0!*, L0+2!
%ZIS("A" L0*
>> A1 Q1+26*, Q1+27, SFO+32*, SFO+33, GRD+7*, GRD+8, OGRD+6*, OGRD+7
>> A2 Q1+26*, Q1+27, SFO+32*, SFO+33, GRD+7*, GRD+8, OGRD+6*, OGRD+7
>> ADM Q1+7*, Q1+10, Q1+11
>> CTR Q1+29*, SFO+35*, GRD+10*, OGRD+9*
>> CU Q1+20*, Q1+24*, Q1+26, Q1+27, SFO+27*, SFO+30*, SFO+32, SFO+33, GRD*, GRD+5*
, GRD+7, GRD+8, OGRD*, OGRD+4*, OGRD+6, OGRD+7
DIC F1+1!*, D2+1!*
DIC(0 F1+1*, D2+1*
DT SFO+4
DTIME D0, F1, D2, S0
>> DTP Q1+1*
>> FHDA15 SFO+6*, SFO+7
>> FHDA15SF SFO+17*, SFO+18, SFO+19, SFO+23
>> FHDFN Q1+7*, Q1+10, Q1+11, SFO+4*, SFO+5, SFO+6, SFO+15, SFO+17, SFO+25
>> FHDFNSV SFO+2*, SFO+25*
>> FHI SFO+4*, SFO+5
>> FHJ SFO+5*, SFO+6, SFO+15, SFO+17
>> FHLOC SFO+7*, SFO+8, SFO+9
>> FHLOX0 SFO+8*, SFO+10, SFO+11
>> FHLST L0+1*
>> FHMEAL SFO+7*
>> FHOUT Q1+22*, SFO+2*, GRD+3*, HDR+3
>> FHPGM L0+1*
>> FHSF SFO+15*, SFO+16, SFO+17
>> FHSUM Q1+1*, Q1+2*, Q1+9, Q1+14, Q1+15, Q1+33, SFO+1*, SFO+3*, SFO+14, SFO+22
, SFO+23, SFO+39
>> FHSUMHD Q1+1*, SFO+1*, GRD+1*, OGRD+1*, HDR+4, HDR+5
IO L0+2
IO("Q" L0+1
IOF FHNO6+3, HDR+1
IOP L0!, L0+2!
IOSL Q1+26, Q1+28, SFO+32, SFO+34, GRD+7, GRD+9, OGRD+6, OGRD+8
IOST HDR+1
>> KK Q1+3*, Q1+4, Q1+7
>> L Q1+15*, SFO+23*
>> NAM Q1+20*, Q1+24*, Q1+25, Q1+27, SFO+27*, SFO+30*, SFO+31, SFO+33, GRD*, GRD+5*
, GRD+6, GRD+8, OGRD*, OGRD+4*, OGRD+5, OGRD+7
>> NO Q1+10*, Q1+11
>> P0 Q1+6*, SFO+11*
>> PD Q1+12*, Q1+13, Q1+14, Q1+15, Q1+16, SFO+19*, SFO+21, SFO+22, SFO+23, SFO+24
>> PG Q1+1*, HDR+1*, HDR+2
>> POP L0
>> PTIM Q1+1*, HDR+2
>> Q Q1+15*, Q1+16, SFO+23*, SFO+24
>> REC Q1+20*, SFO+27*, GRD*, OGRD*
>> SUM S0+1*, Q1+2, Q1+6, SFO+3, SFO+11, HDR+4
>> T1 Q1+23*, Q1+26*, Q1+28, Q1+30, Q1+31, SFO+29*, SFO+32*, SFO+34, SFO+36, SFO+37
, GRD+4*, GRD+7*, GRD+9, GRD+11, GRD+12, OGRD+3*, OGRD+6*, OGRD+8, OGRD+10, OGRD+11
>> T2 Q1+23*, Q1+26*, Q1+28, Q1+30, Q1+31, SFO+29*, SFO+32*, SFO+34, SFO+36, SFO+37
, GRD+4*, GRD+7*, GRD+9, GRD+11, GRD+12, OGRD+3*, OGRD+6*, OGRD+8, OGRD+10, OGRD+11
>> TNOD Q1+6*, Q1+8, Q1+13, Q1+15, Q1+21*, Q1+23, Q1+25, Q1+26, Q1+29, SFO+11*
, SFO+13, SFO+21, SFO+23, SFO+28*, SFO+29, SFO+31, SFO+32, SFO+35, GRD+2*, GRD+4
, GRD+6, GRD+7, GRD+10, OGRD+2*, OGRD+3, OGRD+5, OGRD+6, OGRD+9, HDR+4
U SFO+5, SFO+7, SFO+15, SFO+18
>> WP Q1+29*, Q1+30, Q1+32, SFO+35*, SFO+36, SFO+38, GRD+10*, GRD+11, GRD+13, OGRD+9*
, OGRD+10, OGRD+12
>> WPD Q1+29*, Q1+31, Q1+32, SFO+35*, SFO+37, SFO+38, GRD+10*, GRD+12, GRD+13, OGRD+9*
, OGRD+11, OGRD+12
>> WPT Q1+29*, Q1+31, Q1+32, SFO+35*, SFO+37, SFO+38, GRD+10*, GRD+12, GRD+13, OGRD+9*
, OGRD+11, OGRD+12
>> WRD D0+2*, D0+3*, F1*, F1+1*, D2*, D2+1*, S0, Q1+2, Q1+4, Q1+5
, SFO+3, SFO+9, SFO+10
>> X F1*, D2*, D2+1, S0*, S0+1
>> X0 Q1+3*, Q1+5, Q1+6
>> XX D0*, D0+1, D0+2, D0+3, D0+4, Q1+4, Q1+5, Q1+6, SFO+9, SFO+10
, SFO+11
>> Y F1+1, D2+1, Q1+10*, Q1+11*, Q1+12, Q1+15, HDR+4*, HDR+5*
>> Z Q1+15*, Q1+16, Q1+20*, Q1+25*, Q1+26, SFO+23*, SFO+24, SFO+27*, SFO+31*, SFO+32
, GRD*, GRD+6*, GRD+7, OGRD*, OGRD+5*, OGRD+6
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