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

Package: Dietetics

Routine: FHADR6


Information

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

Source Information

Source file <FHADR6.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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
  • Formatting: !!
  • Prompt: "Change Numbers of Modified Diets and Total Diets for that week? Y// "
  • Variable: X
  • Timeout: DTIME
  • 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
  • Formatting: !!
  • Prompt: "Select the Day of Week you wish to change the data on: "
  • Variable: WKDS
  • Timeout: DTIME
  • Line Location: OK1+0
Function Call: WRITE
  • Prompt: !,"Please enter the desired days of the week."
  • Line Location: OK1+1
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • 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
  • Variable: Y
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls