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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: FHADR6

Package: Dietetics

Routine: FHADR6


Information

FHADR6 ; HISC/NCA - Modified Diet Percentage ;1/23/98 16:06

Source Information

Source file <FHADR6.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Dietetics 4 TR^FH  QR^FHADR1  HDR2^FHADR3A  HDR^FHADRPT  
VA Fileman 2 ^%DT  (C,H)^%DTC  
Kernel 1 KILL^XUSCLEAN  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHADR5  FHADRPT  

Entry Points

Name Comments DBIA/ICR reference
DISP ; Display the numbers of the seven days for validation
OK1
F2
P1 ; Build List of dates and add the Modified Diets for the seven days
OK
F1
EN1 ; Enter Snapshot Date
EN2 ; Print the % Modified Diet and Number of Patients
KIL
MSG
E1
E2

External References

Name Field # of Occurrence
^%DT F1+2
C^%DTC DISP+1, P1+3
H^%DTC F1+3
TR^FH F2, OK1
QR^FHADR1 EN1+1
HDR2^FHADR3A EN2+2
HDR^FHADRPT EN2+2
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: F1+0
Function Call: WRITE
  • Prompt: !,"Select SUNDAY Date: ",$S(XX'="":XX_"// ",1:"") R X:DTIME G:'$T!(X["^")
  • Line Location: F1+0
Function Call: WRITE
  • Prompt: *7," .. Not a Sunday"
  • Line Location: F1+3
Function Call: WRITE
  • Prompt: *7," .. Date Not Within Qtr"
  • Line Location: F1+4
Function Call: WRITE
  • Prompt: *7,"..Date Not Within Qtr"
  • Line Location: F1+5
Function Call: WRITE
  • Prompt: *7,"..Date Not Within Qtr"
  • Line Location: F1+6
Function Call: WRITE
  • Prompt: !!?25
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: Y," - "
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: Y," - "
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !!?12,"| X | M | T | W | R | F | S |"
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !?12,"| Sun | Mon | Tues | Wed | Thur | Fri | Sat | Total"
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !,"_____________________________________________________________________________"
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: !,"# Mod. Diets"
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: "|",$J($S(M(L):M(L),1:""),7)
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: "|",$J($S(TOT:TOT,1:""),8)
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: !,"Total Diets",?12
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: "|",$J($S(TM(L):TM(L),1:""),7)
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: "|",$J($S(TOT:TOT,1:""),8)
  • Line Location: DISP+18
Function Call: READ
  • Prompt: "Change Numbers of Modified Diets and Total Diets for that week? Y// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: F2+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: F2+0
Function Call: WRITE
  • Prompt: !!?10,"Sun Mon Tues Wed Thur Fri Sat"
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !?10," X M T W R F S"
  • Line Location: OK+1
Function Call: WRITE
  • Prompt: !!,"Enter string of characters for desired days of week: e.g., MWF",!
  • Line Location: OK+2
Function Call: READ
  • Prompt: "Select the Day of Week you wish to change the data on: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: WKDS
  • Line Location: OK1+0
Function Call: WRITE
  • Prompt: !,"Please enter the desired days of the week."
  • Line Location: OK1+1
Function Call: READ
  • Timeout: DTIME
  • Variable: Y
  • Line Location: E1+0
Function Call: WRITE
  • Prompt: " ",M(DAY)
  • Line Location: E1+1
Function Call: WRITE
  • Prompt: *7,!," Enter an amount greater than 0 but less than 999999999"
  • Line Location: E1+2
Function Call: READ
  • Timeout: DTIME
  • Variable: Y
  • Line Location: E2+0
Function Call: WRITE
  • Prompt: " ",TM(DAY)
  • Line Location: E2+1
Function Call: WRITE
  • Prompt: *7,!," Enter an amount greater than 0 but less than 9999999999"
  • Line Location: E2+2
Function Call: WRITE
  • Prompt: *7,!," Error - Illegal Character or Repeated Day."
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !!!!,"MODIFIED DIET SUMMARY"
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !!?35,"1st Qtr",?55,"2nd Qtr",?75,"3rd Qtr",?95,"4th Qtr",?115,"YTD Avg",!
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: $S(X:$J(X,7,1),1:$J("",7))_$J("",13)
  • Line Location: P1+15
Function Call: WRITE
  • Prompt: $S(TQ:$J(TOT/TQ,7,1),1:$J("",7))
  • Line Location: P1+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN1+2, DISP+11
^FH(117 - [#117] DISP+2, DISP+6*, E2+4*, P1+4, P1+8*
^FH(117.3 - [#117.3] EN1+2, F1+7*, P1+2

Label References

Name Line Occurrences
DISP OK1+3
E1 OK1+2, E1+2
E2 E2+2
F1 F1+2, F1+3, F1+4, F1+5, F1+6
F2 F2
KIL EN1+1, F1, F1+2, F2, F2+1, OK1, OK1+3
MSG OK1+1
OK OK1+1
OK1 MSG

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT F1!, F1+2*
>> %Y F1+3
>> ANS EN1+2*, OK1+2, OK1+3, E1*, E2*
>> D1 DISP+1*, P1+3*
>> DAY OK1+2*, E1, E1+1, E1+3, E2, E2+1, E2+3, E2+4
DC DISP+1!, P1+3!
DC( DISP+1*, DISP+2, DISP+6, E2+4, P1+3*, P1+4, P1+8
DC(1 DISP+11
DC(7 DISP+11
DTIME F1, F2, OK1, E1, E2
>> DTOUT F1+2
>> FHYR P1+1
>> K DISP+2*, DISP+3, DISP+6, DISP+8, OK1+1*, OK1+2*, EN2+1*, P1+4*, P1+8
>> L DISP+1*, DISP+15*, DISP+17*, P1+3*
>> LIN EN2+2
LP DISP+5*, P1+7*, P1+17!
M DISP+1!, EN2+1!, P1+17!
M( DISP+3*, DISP+15, E1, E1+1, E1+3*, E2+4, EN2+1*, P1+5*, P1+15
>> MD EN1+1*
N EN1+1*, DISP+2*, DISP+3, DISP+4, DISP+5*, DISP+6, DISP+8, EN2+1!, P1+4*, P1+5
, P1+6, P1+7*, P1+8, P1+10, P1+17!
>> PRE EN1+1, EN1+2, F1+4, F1+5, F1+6, F1+7, P1+1*, P1+2
>> QR P1+1*
>> QTR P1+1*, P1+5, P1+10, P1+11, P1+13, P1+15*
R DISP+2*, DISP+5, P1+4*, P1+7, P1+17!
TD EN2+1!, P1+17!
TD( EN2+1*, P1+11*, P1+13
>> TIM EN1+2*, F1+3*, F1+4, F1+5, F1+6, F1+7, DISP+1, P1+2*, P1+3
TM DISP+1!, EN2+1!, P1+17!
TM( DISP+8*, DISP+17, E2, E2+1, E2+3*, E2+4, EN2+1*, P1+10*, P1+15
>> TOT DISP+15*, DISP+16*, DISP+17*, DISP+18, EN2+1*, P1+15*, P1+16
>> TQ EN2+1*, P1+13*, P1+16
>> TS F1+4*, F1+5, F1+6
>> WK OK1+2*, E1, E2
>> WKDS OK1*, OK1+1, OK1+2
>> X F1*, F1+1*, F1+3*, DISP+1, F2*, F2+1*, OK1*, P1+3, P1+15*
>> X1 DISP+1*, OK1+1*, P1+3*
>> X2 DISP+1*, P1+3*
>> XX EN1+2*, F1, F1+1
>> Y EN1+2*, F1+2, F1+3, DISP+11*, OK1+2*, E1*, E1+1*, E1+2, E1+3, E2*
, E2+1*, E2+2, E2+3
>> Z OK1+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All