Routine: FHADR6

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

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*

Customize PDF page

Package: Dietetics

Routine: FHADR6

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: