Routine: FHPRW

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

Package	Total	Caller Graph
Dietetics	1	FHPRO6

Name	Field # of Occurrence
NOW^%DTC	Q1+1
^%ZIS	F1+3
^%ZISC	F1+5
^DIC	F1+1
DTP^FH	HDR
EN2^FH	F1+4
TR^FH	F1
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Select LOCATION (or ALL): " Formatting: !! Timeout: DTIME Variable: X Line Location: F1+0
Function Call: WRITE	Prompt: !!,"Verifying completeness of room-bed & ward assignments ..." Line Location: F1+2
Function Call: WRITE	Prompt: ! Line Location: F1+3
Function Call: WRITE	Prompt: ! Line Location: Q1+1
Function Call: WRITE	Prompt: ! Line Location: Q1+4
Function Call: WRITE	Prompt: !!,"Print Order:",?22,$P(X,"^",4) Line Location: Q2+1
Function Call: WRITE	Prompt: !,"Type of Location:",?22,$S($P(X,U,3)="O":"OUTPATIENT",1:"INPATIENT") Line Location: Q2+2
Function Call: WRITE	Prompt: !,"Assigned Clinician(s):",?22,$P($G(^VA(200,Z,0)),"^",1) Line Location: Q2+7
Function Call: WRITE	Prompt: !,"Tray Assembly:",?22 Line Location: Q2+9
Function Call: WRITE	Prompt: $P($G(^FH(119.72,Z,0)),"^",1) Line Location: Q2+9
Function Call: WRITE	Prompt: $P($G(^FH(119.72,Z,0)),"^",1) Line Location: Q2+9
Function Call: WRITE	Prompt: !,"Cafeteria:",?22 Line Location: Q2+10
Function Call: WRITE	Prompt: $P($G(^FH(119.72,Z,0)),"^",1) Line Location: Q2+10
Function Call: WRITE	Prompt: $P($G(^FH(119.72,Z,0)),"^",1) Line Location: Q2+10
Function Call: WRITE	Prompt: !,"Dining Room:",?22 Line Location: Q2+11
Function Call: WRITE	Prompt: "Yes" Line Location: Q2+11
Function Call: WRITE	Prompt: "Yes" Line Location: Q2+11
Function Call: WRITE	Prompt: !,"Supplemental Fdgs.:",?22 Line Location: Q2+12
Function Call: WRITE	Prompt: $P($G(^FH(119.74,Z,0)),"^",1) Line Location: Q2+12
Function Call: WRITE	Prompt: !,"Diet Communication:",?22 Line Location: Q2+13
Function Call: WRITE	Prompt: $P($G(^FH(119.73,Z,0)),"^",1) Line Location: Q2+13
Function Call: WRITE	Prompt: !!,"Admission Diet:",?22 Line Location: Q2+14
Function Call: WRITE	Prompt: $P($G(^FH(111,Z,0)),"^",1) Line Location: Q2+14
Function Call: WRITE	Prompt: "NO ORDER" Line Location: Q2+15
Function Call: WRITE	Prompt: !!,"Review Frequencies:" Line Location: Q2+16
Function Call: WRITE	Prompt: !!?5,"NPO's:" Line Location: Q2+17
Function Call: WRITE	Prompt: ?19,$J(Z,3,0)," days" Condition for execution: Z Line Location: Q2+17
Function Call: WRITE	Prompt: ?45,"Admit Status:" Line Location: Q2+18
Function Call: WRITE	Prompt: ?59,$J(Z,3,0)," days" Condition for execution: Z Line Location: Q2+18
Function Call: WRITE	Prompt: !?5,"Tubefeedings:" Line Location: Q2+19
Function Call: WRITE	Prompt: ?19,$J(Z,3,0)," days" Condition for execution: Z Line Location: Q2+19
Function Call: WRITE	Prompt: ?45,"Supp. Fdgs.:" Line Location: Q2+20
Function Call: WRITE	Prompt: ?59,$J(Z,3,0)," days" Condition for execution: Z Line Location: Q2+20
Function Call: WRITE	Prompt: !!?5,"Status I:" Line Location: Q2+21
Function Call: WRITE	Prompt: ?19,$J(Z,3,0)," days" Condition for execution: Z Line Location: Q2+21
Function Call: WRITE	Prompt: ?45,"Status III:" Line Location: Q2+22
Function Call: WRITE	Prompt: ?59,$J(Z,3,0)," days" Condition for execution: Z Line Location: Q2+22
Function Call: WRITE	Prompt: !?5,"Status II:" Line Location: Q2+23
Function Call: WRITE	Prompt: ?19,$J(Z,3,0)," days" Condition for execution: Z Line Location: Q2+23
Function Call: WRITE	Prompt: ?45,"Status IV:" Line Location: Q2+24
Function Call: WRITE	Prompt: ?59,$J(Z,3,0)," days" Condition for execution: Z Line Location: Q2+24
Function Call: WRITE	Prompt: !!,"Bulk Nourishment Orders:",! Line Location: Q2+25
Function Call: WRITE	Prompt: !?5,P(LL) Line Location: Q2+27
Function Call: WRITE	Prompt: ?45,P(K) Line Location: Q2+27
Function Call: WRITE	Prompt: !!,"Room-Beds Assigned:",! Line Location: Q2+28
Function Call: WRITE	Prompt: !?5,P(LL) Line Location: Q2+30
Function Call: WRITE	Prompt: ?MM,P(K(MM)) Line Location: Q2+30
Function Call: WRITE	Prompt: !!,"Default MAS Wards:",! Line Location: Q2+31
Function Call: WRITE	Prompt: !?5,P(LL) Line Location: Q2+33
Function Call: WRITE	Prompt: ?45,P(K) Line Location: Q2+33
Function Call: WRITE	Prompt: !!,"Print Cafeteria on Tray Tickets: ",$S(FHY="Y":"YES",1:"NO") Line Location: Q2+34
Function Call: WRITE	Prompt: !,"Maximum # of Days to Schedule Recurring Meal: ",$P(NODE1,U,2) Line Location: Q2+41
Function Call: WRITE	Prompt: !,"Number of Days for Review of Recurring Meal: ",$P(NODE1,U,3) Line Location: Q2+42
Function Call: WRITE	Prompt: !!,"Non-VA Facility? ",$S($P(NODE1,U,4)="Y":"YES",1:"NO") Line Location: Q2+43
Function Call: WRITE	Prompt: ! Line Location: Q2+44
Function Call: WRITE	Prompt: !,$E(DTP,1,9),?19,"D I E T E T I C L O C A T I O N P R O F I L E",?73,"Page ",PG Line Location: HDR+0
Function Call: WRITE	Prompt: !!?(78-$L(Y)\2),Y Line Location: HDR+1
Function Call: WRITE	Prompt: !,"-------------------------------------------------------------------------------",! Line Location: HDR+2
Function Call: WRITE	Prompt: !,"Room ",$P(^DG(405.4,LL,0),"^",1)," not assigned to any Dietetic Ward" Line Location: VER+1
Function Call: WRITE	Prompt: !,"MAS Ward ",$P(^DIC(42,LL,0),"^",1)," not assigned to any Dietetics Ward" Line Location: VER+2
Routine Call	DIC Line Location: F1+1
Routine Call	%ZIS Line Location: F1+3

FileNo	Call Tags
^FH(119.6 - [#119.6]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	B3, VER+1
^DIC(42 - [#42]	Q2+38, B2, VER+2
^FH(111 - [#111]	Q2+14
^FH(118 - [#118]	B1
^FH(119.6 - [#119.6]	Q1+2, Q2, Q2+6, Q2+7, BLD+2, BLD+3, BLD+4, VER+1, VER+2
^FH(119.72 - [#119.72]	Q2+9, Q2+10
^FH(119.73 - [#119.73]	Q2+13
^FH(119.74 - [#119.74]	Q2+12
^SC - [#44]	Q2+39
^TMP($J	Q1+1!, Q1+2, Q1+3, Q2+26, Q2+29, Q2+32, BLD+1!, B1, B2, B3 , KIL!
^VA(200 - [#200]	Q2+7

Name	Line Occurrences
B1	BLD+2
B2	BLD+3
B3	BLD+4
BLD	Q2
F1	F1+1
HDR	Q2
KIL	F1, F1+3, F1+4, F1+5
Q1	F1+5
Q2	Q1+1, Q1+3
VER	F1+2

Name	Field # of Occurrence
^(	Q1+2, Q1+3, Q2+26, BLD+2, BLD+3, BLD+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	Q1+1
%ZIS	F1+3!*, F1+5!
%ZIS("A"	F1+3*
C1	Q2+5~, Q2+6, Q2+7
DIC	F1+1!*
DIC(0	F1+1*
DTIME	F1
>> DTP	HDR*
>> FHLST	F1+4*
>> FHOL	Q2+35*, Q2+37
>> FHOLFIL	Q2+35*, Q2+36, Q2+38, Q2+39
>> FHOLIEN	Q2+37*, Q2+38, Q2+39
>> FHOLNM	Q2+36, Q2+38, Q2+39*, Q2+40
>> FHPGM	F1+4*
>> FHY	Q2+25*, Q2+34
IO	F1+5
IO("Q"	F1+4
IOF	HDR
IOP	F1+3!, F1+5!
IOST	HDR
>> K	Q2+27, Q2+33
>> K(	Q2+30*
>> K(22	Q2+30*
>> K(39	Q2+30*
>> K(54	Q2+30*
>> K1	Q1+1, Q1+3, Q2, Q2+6, Q2+7, BLD+2, BLD+3, BLD+4
>> LL	Q2+27, Q2+30, Q2+33, BLD+2, BLD+3, BLD+4, VER+1, VER+2
>> MM	Q2+30*
>> N	Q2+26, Q2+27, Q2+29, Q2+30, Q2+32, Q2+33, B1, B2, B3
>> NM	Q2+26, Q2+29, Q2+32*
>> NODE1	Q2*, Q2+35, Q2+41, Q2+42, Q2+43
>> NOW	Q1+1*, HDR
>> NX	Q1+2, Q1+3
P	Q2+26!, Q2+29!, Q2+32!
P(	Q2+26, Q2+27, Q2+29, Q2+30, Q2+32*, Q2+33
>> P0	Q1+2*
>> PG	Q1+1, HDR
>> POP	F1+3
>> Q	B1*
U	Q2+2, Q2+35, Q2+38, Q2+39, Q2+41, Q2+42, Q2+43
>> WRD	F1, F1+1, F1+2, Q1+1
>> WRDN	Q1+2*
>> X	F1, Q1+2, Q2*, Q2+1, Q2+2, Q2+9, Q2+10, Q2+11, Q2+12, Q2+13 , Q2+14, Q2+15, Q2+17, Q2+18, Q2+19, Q2+20, Q2+21, Q2+22, Q2+23, Q2+24 , Q2+25, HDR+1
>> Y	F1+1, BLD+2, BLD+3, BLD+4, B1, B2, B3, HDR+1
>> Z	Q2+7, Q2+9, Q2+10, Q2+11, Q2+12, Q2+13, Q2+14, Q2+17, Q2+18, Q2+19 , Q2+20, Q2+21, Q2+22, Q2+23, Q2+24, Q2+27, Q2+30, Q2+33

Customize PDF page

Package: Dietetics

Routine: FHPRW

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q1	; Print Dietetic Ward Profile
F1
Q2
VER	; Verify completeness of data base
HDR
KIL
B1
B2
B3
BLD	; Build temp files