Routine: FHSP

Package	Total	Call Graph
Dietetics	8	(DTP,TR)^FH ALG^FHCLN ^FHOMDPA DIETPAT^FHOMRR1 PATNAME^FHOMUTL OPFILE^FHORX EVNT^FHSP1 CHK^FHSPED
VA Fileman	4	^DIC ^DIE EN1^DIP ^DIR
Kernel	2	^%ZIS KILL^XUSCLEAN

Package	Total	Caller Graph
Dietetics	3	FHSP1 FHSP2 FHSPED

Name	Field # of Occurrence
^%ZIS	EN2+3
^DIC	EN1+1, N1+1
^DIE	EN1+2
EN1^DIP	EN2+2
^DIR	A0+10, E1+4
DTP^FH	N3+3, AD1+9, SO3+14, SO3+16, SO3+17, LIS+4
TR^FH	R1+4, N3
ALG^FHCLN	LIS+11
^FHOMDPA	SO2+2
DIETPAT^FHOMRR1	LIS+8
PATNAME^FHOMUTL	LIS+2
OPFILE^FHORX	N3+4, SO3+18
EVNT^FHSP1	ADD+2
CHK^FHSPED	MS1+6
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN1+1
Function Call: WRITE	Prompt: ! Line Location: EN1+1
Function Call: WRITE	Prompt: ! Line Location: EN2+1
Function Call: WRITE	Prompt: !!,"** NO OUTPATIENT DATA ON FILE! Please enter outpatient meals from Recurring Meals Menu [FHOMRMGR]." Line Location: SO+2
Function Call: WRITE	Prompt: @IOF,!,"Outpatient Recurring Meals... " Line Location: SO+3
Function Call: WRITE	Prompt: !,?19 Line Location: A0+17
Function Call: WRITE	Prompt: "," Line Location: A0+18
Function Call: WRITE	Prompt: !!,"NO OUTPATIENT DATA ON FILE for today's date and the future!!",! Line Location: A0+27
Function Call: WRITE	Prompt: !!,"There is no outpatient data for this Meal!!" Line Location: R1+14
Function Call: WRITE	Prompt: !!,"There is no outpatient data for this Meal!!" Line Location: R1+15
Function Call: WRITE	Prompt: *7,!,"Select B for Breakfast, N for Noon, E for Evening or ALL for all meals",!,"Answer may be multiple meals, e.g., BN or NE" Line Location: MS1+0
Function Call: WRITE	Prompt: !!,"There is no outpatient data for this Meal!!" Line Location: MS1+3
Function Call: WRITE	Prompt: ! Line Location: E1+4
Function Call: READ	Prompt: "Edit which Order #? " Formatting: !! Timeout: DTIME Variable: X Line Location: N0+0
Function Call: WRITE	Prompt: *7," Enter # of Order to Edit" Line Location: N0+0
Function Call: WRITE	Prompt: !!,"Standing Order ",$P($G(^FH(118.3,+SP,0)),"^",1)," added" Line Location: N0+2
Function Call: WRITE	Prompt: ! Line Location: N1+0
Function Call: WRITE	Prompt: !!,"Standing Order ",$P($G(^FH(118.3,+SP,0)),"^",1)," added" Line Location: N1+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: N1A+0
Function Call: WRITE	Prompt: " .. Done" Line Location: N1A+2
Function Call: WRITE	Prompt: *7,!,"Press Return to take Default or ""@"" to Delete" Line Location: N1A+3
Function Call: READ	Timeout: DTIME Variable: NUM Line Location: N2A+0
Function Call: WRITE	Prompt: !,*7,"Enter a number from 1-9." Line Location: N2A+2
Function Call: READ	Timeout: DTIME Variable: YN Line Location: N3+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: N3+0
Function Call: WRITE	Prompt: ?40,"Date: ",FHDTST Condition for execution: $D(FHDTST) Line Location: LIS+9
Function Call: WRITE	Prompt: !," Allergies: ",$S(ALG="":"None on file",1:ALG) Line Location: LIS+11
Function Call: WRITE	Prompt: !!,"No Active Outpatient Standing Orders." Line Location: LIS+15
Function Call: WRITE	Prompt: !!,"Active Outpatient Standing Orders: ",! Line Location: LIS+16
Function Call: WRITE	Prompt: ! Line Location: LIS+19
Function Call: WRITE	Prompt: $J(LN,2) Condition for execution: NO Line Location: LIS+19
Function Call: WRITE	Prompt: " ( INACTIVE )" Line Location: LIS+21
Routine Call	DIE Line Location: EN1+2
Routine Call	DIC Line Location: EN1+1 N1+1
Routine Call	DIR Line Location: A0+10 E1+4
Routine Call	%ZIS Line Location: EN2+3

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	A0+8
^FH(111 - [#111]	LIS+7
^FH(118.3 - [#118.3]	A0+16, N0+2, N1+2, N1A, N3+4, SO3+18, LIS+21
^FH(119.6 - [#119.6]	A0+7, E1+2, AD1+3, SO3+5, LIS+6
^FHPT - [#115]	SO+1, SO+2, A0+4, A0+5, A0+13, A0+14, E1, N0+1, N3+2, N3+3 , AD1, AD1+2, AD1+4, AD1+5, AD1+6, AD1+7, AD1+9, SO3+3, SO3+5, SO3+6 , SO3+7, SO3+9, SO3+11, SO3+12, SO3+14, LIS+3, LIS+13
^FHPT("ASPO"	N3+2!, AD1+7*, SO3+13!, LIS+13
^FHPT("RM"	A0+4
^XUSEC("FHMGR"	EN1+2

Name	Line Occurrences
AD1	ADD+1, AD1+6
ALL	MS1+5
E0	MS1+4, MS1+8, N1A+1, N1A+2, ADD+3
E1	E1+1
EN1	EN1+1, EN1+2
KIL	EN1+1, EN2+3, N1A, N2A, N3, SO2+2
L1	LIS+19
LIS	E1+3, SO2+2
MS1	R1+3, R1+5, R1+13
N0	N0
N1	E1+3, E1+4
N1A	N0+1, N0+2, N1A+3
N2A	N2A+1, N2A+2
N3	N3
R1	R1+14, R1+15, MS1, MS1+3
SO	N1+1
SO2	SO2+2
SO3	N1A+2

Name	Field # of Occurrence
^(0	E1, AD1+3, AD1+5*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN2+3!
>> ADM	E0, E1, N0+1, N3+2, N3+3, ADD+1, AD1, AD1+2, AD1+4, AD1+5 , AD1+6, AD1+7, AD1+9, SO2+1, SO3+2, SO3+3, SO3+5, SO3+6, SO3+7, SO3+9 , SO3+11, SO3+12, SO3+13, SO3+14, LIS+1, LIS+3, LIS+8, LIS+13
>> ALG	LIS+11
>> ALL	SO2+2*
>> BY	EN2+1*
>> C1	N2A+4*, N2A+5, N3+2
>> C2	N2A+4*, N2A+5
>> CTR	LIS+12*
DA	EN1+2*!
>> DHD	EN2+2*
DIC	EN1+1!, EN2+1, N1!*, N1+1!
DIC("A"	N1*
DIC("DR"	EN1+1*
DIC(0	EN1+1, N1
DIDEL	EN1+2*!
DIE	EN1+1*, EN1+2!
DIR	A0+10!, E1+4!
DIR("A"	A0+10, E1+4
DIR("B"	E1+4*
DIR(0	A0+10, E1+4
>> DIROUT	E1+4
>> DIRUT	E1+4
DLAYGO	EN1+1*!, N1+1!
DR	EN1+2*!
DT	SO+1, A0+4, ALL, SO3+15
DTIME	R1, N0, N1A, N2A, N3
>> DTOUT	EN1+1, N1+1
>> DTP	A0+8, A0+11, A0+12, N3+3, N3+4, AD1+9, SO3+14, SO3+16, SO3+17, LIS+4*
DUZ	EN1+2, N3+2, AD1+7, SO3+11
>> FH1	R1, R1+14, R1+15*
>> FH11	A0+7*, A0+11, A0+12
>> FHACT	N3+4, SO3+18
>> FHALML	R1, R1+6, R1+7*, SO3+18
FHCK	A0+1!
FHCK(	R1+8, R1+9, R1+10*, AD1+2, SO3+3
FHCK("B"	R1+11*
FHCK("E"	R1+11*
FHCK("N"	R1+11*
>> FHCNSOF	R1, AD1+1, AD1+9, SO3+1
>> FHCOFLG	A0+9, A0+18, A0+21
>> FHCT	ALL*
>> FHDA15	A0+5*, A0+6, A0+7, A0+8
>> FHDA15SF	A0+14*, A0+15, A0+16
>> FHDASFNM	A0+16*, A0+17, A0+19, A0+20
>> FHDASFQT	A0+16*, A0+17, A0+19, A0+20
>> FHDATA0	LIS+3*, LIS+4, LIS+6
>> FHDATL	A0+9, A0+12, A0+17, A0+18, A0+19
>> FHDFN	SO+1, SO+2, A0+4, A0+5, A0+13, A0+14, E1, N0+1, N3+2, N3+3 , AD1, AD1+2, AD1+4, AD1+5, AD1+6, AD1+7, AD1+9, SO2+2, SO3+3, SO3+5 , SO3+6, SO3+7, SO3+9, SO3+11, SO3+12, SO3+13, SO3+14, LIS+3, LIS+13
>> FHDIET	LIS+5, LIS+6, LIS+7, LIS+8
>> FHDIETP	LIS+5*, LIS+8
FHDM14	A0+1!, A0+27
FHDM14(	A0+6*, A0+22, A0+24, A0+25, A0+26, MS1+7, ALL
>> FHDT1	MS1+7, ALL*, SO3+16
>> FHDT2	MS1+7, ALL*, SO3+17
>> FHDTML	R1, R1+1, R1+2, R1+3, R1+4, R1+5, R1+7, R1+8, R1+9, R1+10 , R1+11, R1+12, R1+14, R1+15, MS1+1*, MS1+3, MS1+4, MS1+5, MS1+6, MS1+7
>> FHDTP	AD1+9, SO3+1, SO3+14, SO3+15, SO3+16, SO3+17, SO3+18
>> FHDTST	LIS+4*, LIS+9
>> FHDTSV	ALL*
FHEDI	A0+1!
FHEDI(	MS1+4, MS1+7, ALL*, E1, ADD+1, SO3+2
FHEDIF	A0+1!
FHFLG	A0+1!, MS1+6, MS1+7
>> FHI	A0+4, A0+6, A0+22, A0+24, A0+25, A0+26, MS1+7, ALL, ADD+1, SO3+2
FHIEN	A0+1!
FHIEN(	A0+24, A0+25, A0+26*, MS1+4
>> FHJ	A0+4, A0+5, A0+6, A0+13, A0+14, A0+23, A0+24, A0+25, A0+26, ALL* , SO3+6*, SO3+7, SO3+9
>> FHLIS	MS1+2*
>> FHLOC	A0+7, E1, E1+2, AD1+3, SO3+5
>> FHLOCN	A0+7, E1, E1+2, N3+4, AD1+1, AD1+3, SO3+1, SO3+4, SO3+5, SO3+18
>> FHMEAL	A0+7*
FHMIEN	A0+1!
>> FHPTNM	LIS+5
>> FHQ	A0+2, A0+4, A0+10, R1, R1+3, R1+5, R1+8, R1+9, R1+10, R1+12* , R1+13, MS1
>> FHRNUM	LIS+8*
>> FHSF	A0+13*, A0+14
>> FHSOFG	LIS+14*
>> FHSOOP	SO+1*, SO+2
>> FHTOTML(	R1+14, R1+15, MS1+3, MS1+4, MS1+6
>> FHTOTML("A"	A0+3*
>> FHTOTML("B"	A0+3, A0+24
>> FHTOTML("E"	A0+3, A0+26
>> FHTOTML("N"	A0+3, A0+25
>> FHTXT	N3+4, SO3+18
>> FHX	R1, R1+4, R1+6, E1+1
>> FLDS	EN2+1*
>> FR	EN2+2*
IOF	SO+3, A0+10
>> IOP	EN2+3*
IOSL	A0+10
>> K	LIS+13, LIS+18, LIS+19, LIS+20, LIS+21, LIS+22, L1+1
>> L	EN2+1, L1+2, L1+3*
>> LN	E1+3, N0, N0+1, N0+2, N1+3, N1A+4, N2+1, N2A, N2A+1, N2A+3 , N2A+4, N3+2, N3+5, AD1+8, SO3+13, LIS+15, LIS+19*, LIS+22
>> LS	N0+1, AD1+7, LIS+15, LIS+19*
>> M	LIS+13, LIS+17, LIS+18, LIS+20, LIS+21, LIS+22, L1+1
>> M1	L1+1*, L1+2, L1+3
>> M2	LIS+21, L1+1, L1+2, L1+3*
>> MEAL	E1, E1+1, N2+1, N3+4, AD1+2, AD1+7, SO3+3, SO3+12
N	LIS+12!
N(	LIS+13*, LIS+18, LIS+20, LIS+21, LIS+22, L1+1
N(""	LIS+15
>> NAM	LIS+5*, LIS+9
>> NO	E1, AD1+5, AD1+6, AD1+7, AD1+8, SO2+2, SO3+8, SO3+9*, SO3+10, SO3+11 , SO3+12, SO3+13, LIS+19
>> NOW	N3+2, AD1+7, SO3+11
>> NUM	N2A, N2A+1, N2A+2, N2A+3, N3+4, AD1+7, SO3+12, LIS+20*, LIS+21
>> OLD	N3+2*
P	LIS+12!
P(	N0+1, N0+2, N1+3, N1A+4, N2+1, N2A, N2A+1, N2A+3, N2A+4, N3+2 , N3+5, AD1+8, SO3+13!, LIS+22*
>> SP	N0+1, N0+2, N1+1, N1+2, N1+3, N1A, N1A+4, N2+1, N2A, N2A+1 , N2A+3, N2A+4, N3+2, N3+4, N3+5, AD1+7, AD1+8, SO3+9, SO3+12*, SO3+13 , SO3+18
>> SPD	SO3+7*, SO3+9
>> TO	EN2+2*
U	EN1+1, A0+4, A0+6, A0+7, A0+8, A0+15, A0+16, MS1+4, MS1+7, ALL , E1, E1+2, N3+3, N3+4, AD1+2, AD1+3, AD1+9, SO3+3, SO3+5, SO3+7 , SO3+9, SO3+14, SO3+18, LIS+4, LIS+6, LIS+7
>> WARD	LIS+5, LIS+6, LIS+9
>> X	EN1+1, R1+4, N0, N0+1, N1+1, N1A, N1A+1, N1A+2, N1A+3, N3 , AD1+5, SO3+12, LIS+13*
>> Y	EN1+1, EN1+2, A0+8, A0+10, E1+4, N1+1, LIS+5, LIS+7, LIS+8, LIS+10
>> YN	N3*, N3+1
>> Z	LIS+18*, LIS+21, LIS+22

Customize PDF page

Package: Dietetics

Routine: FHSP

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 3

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
N1A
LIS	;list outpt SO
EN1	; Enter/Edit Standing Orders
AD1
A0	;Rec Meal entry.
EN2	; List Standing Orders
E1
E0
R1
N2A
ADD	; Add SO
SO2	; SO Inquiry
L1	; Store SO
N0
N1
N2	;
N3
ALL
SO3	; Cancel SO
MS1
SO	;OutPT SO
KIL