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 | FileMan Files Accessed Via FileMan Db Call | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All

Print Page as PDF

Routine: FHASXR

Package: Dietetics

Routine: FHASXR

Information

FHASXR ; HISC/REL - Print Screening ;5/10/93 15:10

Source Information

Source file <FHASXR.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Dietetics	5	(EN2,TR)^FH ^FHASXR1 ^FHDPA CHECK^FHOMDPA (MONUM,PATNAME)^FHOMUTL
Kernel	3	^%ZIS ^%ZISC KILL^XUSCLEAN
VA Fileman	3	^%DT (C,NOW)^%DTC ^DIC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Dietetics	1	FHASXR

Entry Points

Name	Comments	DBIA/ICR reference
F0
P2
P0
P1
L0
P4	;ask user for how far to print encounter, 1 yr back as default.
P3
Q0	; Process Screening
KIL
Q3
Q1
W1
W0
Q2
D0

External References

Name	Field # of Occurrence
^%DT	W1, P4+2
C^%DTC	W1+1
NOW^%DTC	W1+1
^%ZIS	L0
^%ZISC	L0+2
^DIC	D0, W0
EN2^FH	L0+1
TR^FH	F0, P2
^FHASXR1	Q0+1, Q1
^FHDPA	P0
CHECK^FHOMDPA	Q0+1
MONUM^FHOMUTL	P4+4
PATNAME^FHOMUTL	Q1
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Print by PATIENT or COMMUNICATION OFFICE or ALL or WARD? WARD// " Formatting: !! Timeout: DTIME Variable: X Line Location: F0+0
Function Call: WRITE	Prompt: *7," Answer with P or C or A or W" Line Location: F0+1
Function Call: WRITE	Prompt: ! Line Location: D0+0
Function Call: WRITE	Prompt: ! Line Location: W0+0
Function Call: READ	Prompt: "Admissions since Date/Time: " Formatting: !! Timeout: DTIME Variable: X Line Location: W1+0
Function Call: WRITE	Prompt: " [ DATE CANNOT BE MORE THAN 5 DAYS IN PAST ]" Line Location: W1+1
Function Call: WRITE	Prompt: *7,!!?5," [ Patient has expired. ]" Line Location: P0+1
Function Call: READ	Prompt: "Include Nutrition Profiles? (Y/N): " Formatting: !! Timeout: DTIME Variable: NP Line Location: P2+0
Function Call: WRITE	Prompt: *7,!," Answer YES or NO" Line Location: P2+0
Function Call: WRITE	Prompt: ! Line Location: P4+1
Function Call: WRITE	Prompt: ! Line Location: L0+0
Routine Call	DIC Line Location: D0 W0
Routine Call	%ZIS Line Location: L0

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	Q1
^DPT - [#2]	P0+1
^FH(119.6 - [#119.6]	Q2+1, Q3
^FH(119.9 - [#119.9]	P1
^FHPT("AW"	Q1

Label References

Name	Line Occurrences
D0	D0
F0	F0+1
KIL	F0, D0, W0, W1, P0, P0+1, P2, L0, L0+1, L0+2
L0	P3+1
P0	F0+2
P1	W1+2
P2	P2
P3	P1
Q0	L0+2
Q1	Q2+1, Q3
Q2	Q0+2
Q3	Q0+2
W0	F0+2, W0
W1	F0+2, D0, W1, W1+1

Naked Globals

Name	Field # of Occurrence
^(	Q3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	W1+1
%DT	W1!, P4+1, P4+2!
%DT("A"	P4+1*
%DT("B"	P4+2*
%DT(0	W1, P4+2
%ZIS	L0*!, L0+2!
%ZIS("B"	L0*
>> ADM	F0+2, D0, W0, Q1
>> ALL	P0*
>> ANS	Q1
>> CF	Q2*, Q2+1
>> DFN	F0+2, D0, W0*, P0, P0+1, Q0+1
DIC	D0!, W0!
DIC("A"	D0, W0
DIC(0	D0, W0
DTIME	F0, W1, P2
>> DTOUT	D0, W0, P4+2
>> FHDFN	Q0+1, Q1*
>> FHET	P4+3*
>> FHLST	L0+1*
>> FHNUM	P3+1*, P4+4
>> FHPGM	L0+1*
>> FHZ115	Q0+1*
IO	L0+2
IO("Q"	L0+1
IOF	Q1
IOP	L0!, L0+2!
IOST	Q1
>> NN	Q2+1, Q3
>> NP	P1, P2, P3*, P3+1
>> POP	L0
>> TIM	W1, W1+1, P0, Q1
>> WARD	F0+2, D0, W0, Q0+2, Q1, Q2, Q2+1, Q3*
>> WRD	Q2, Q2+1, Q3*
>> X	F0, F0+1, F0+2, D0, W0, W1, W1+1, P2, P4+2, Q1
>> X1	W1+1*
>> X2	W1+1*
>> Y	D0, W0, W1, P4+3

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | FileMan Files Accessed Via FileMan Db Call | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All