Routine: FHMASE

Information

FHMASE ; HISC/AAC - Multidivisional Dietetic Encounters ;10/14/03 13:17

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
VA FileMan	7	^%DT ^DIC FILE^DICN ^DIE ^DIK EN1^DIP ^DIR
Dietetics	2	TR^FH ^FHDPA
Kernel	2	^%ZIS KILL^XUSCLEAN

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Dietetics	1	FHASE

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; Enter/Edit Encounter Types
EN2	; List Encounter Types
EN3	; Enter Dietetic Encounter
EN30	; Enter/Edit a Encounter
EN31	; Enter a Encounter
A
EN4	; Process Edit Encounter
A0
A1
PR
EDIT
PAT	; Get Patient
CLIN	; Get Clinician
R1
ASK
E5
CNT
RSET
KIL

External References

Name	Field # of Occurrence
^%DT	EN31+1, EN4+2
^%ZIS	RSET
^DIC	EN1+1, A1
FILE^DICN	A+1
^DIE	EN1+2, EDIT
^DIK	EDIT+2, E5+4
EN1^DIP	EN2+2
^DIR	EN3+1, A0
TR^FH	ASK+1, E5+1
^FHDPA	PAT+1
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN1+1
Function Call: WRITE	Prompt: ! Line Location: EN2+1
Function Call: WRITE	Prompt: ! Line Location: EN3+1
Function Call: WRITE	Prompt: ! Line Location: EN31+1
Function Call: WRITE	Prompt: ! Line Location: EN4+2
Function Call: WRITE	Prompt: ! Line Location: A1+0
Function Call: WRITE	Prompt: ! Line Location: PR+0
Function Call: WRITE	Prompt: !,CTR," " Line Location: PR+0
Function Call: WRITE	Prompt: !,CTR," " Line Location: PR+0
Function Call: WRITE	Prompt: !?5,"No encounter on file on this date" Line Location: PR+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: PR+2
Function Call: WRITE	Prompt: *7,!!,"Select only a number no greater than ",K1," or press ""^"" or a return to exit." Line Location: PR+3
Function Call: WRITE	Prompt: ! Line Location: PR+5
Function Call: WRITE	Prompt: *7,!,"<encounter deleted>" Line Location: EDIT+2
Function Call: WRITE	Prompt: *7,!!?5,"Patient has expired." Line Location: PAT+2
Function Call: WRITE	Prompt: !!,"No Encounter on file for this patient." Line Location: PAT+3
Function Call: READ	Formatting: !! Prompt: "Is this correct? Y// " Variable: YN Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: ASK+2
Function Call: WRITE	Prompt: !!,"You can ONLY DELETE an encounter that is entered by you.",! Line Location: ASK+4
Function Call: READ	Formatting: ! Prompt: "Want to delete encounter? N// " Variable: YN Timeout: DTIME Line Location: E5+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: E5+2
Function Call: WRITE	Prompt: *7,!,"<encounter deleted>" Line Location: E5+4
Routine Call	DIC Line Location: EN1+1 A1
Routine Call	DIE Line Location: EN1+2 EDIT
Routine Call	DIR Line Location: EN3+1 A0
Routine Call	%ZIS Line Location: RSET

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^FH(115.6 - [#115.6]	Classic Fileman Calls
^FHEN - [#115.7]	Classic Fileman Calls
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PR
^DPT - [#2]	PAT+2
^FH(115.6 - [#115.6]	PAT+5, R1+1
^FHEN - [#115.7]	A, PR+4, EDIT+1, PAT+4, PAT+5, R1+1, CNT, CNT+1
^FHEN("AP"	PAT+3, PAT+4
^FHEN("AT"	CLIN+1, R1
^FHEN(0	A*, A+1
^TMP($J	EN4+2!, PR, PR+4, PR+5, PAT+5, R1+1, KIL!
^XUSEC("FHMGR"	EN1+2

Label References

Name	Line Occurrences
A	A
A1	A1
ASK	A0, A1, ASK+2
CLIN	A1, R1
E5	E5+2
EDIT	A+2, ASK+4
EN1	EN1+1, EN1+2
EN3	EN30+1
EN31	EN30+1
EN4	EN3+2, A0, A1
KIL	EN1+1, EN1+2, EN3+1, EN30+1, EN4+2, A0, A1
PAT	A0, PAT+2, PAT+3
PR	A0, A1, PR+3
R1	R1+2
RSET	EN2+2

Naked Globals

Name	Field # of Occurrence
^(	PR, CNT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN31+1!, EN4+2!
%DT("A"	EN31+1, EN4+2
%DT("B"	EN31+1*
%DT(0	EN31+1*
%ZIS	RSET!
>> ALL	PAT+1*
>> ASE	A+1, PR+4, EDIT, EDIT+1, PAT+4, PAT+5, CLIN+2, R1*, R1+1, E5+4 , CNT, CNT+1
>> BY	EN2+1*
>> CTR	EN4+2, PR, PAT+5, R1+1
DA	EN1+2, A, A+1, EDIT, EDIT+1, EDIT+2!, E5+4*!
DD	EN31+2!
>> DFN	A0, PAT+1, PAT+2, PAT+3, PAT+4
>> DHD	EN2+2*
DIC	EN1+1!, EN2+1, EN31+2!, A+1!, A1!, EDIT!
DIC("A"	A1*
DIC("DR"	EN1+1, EN31+2
DIC(0	EN1+1, EN31+2, A1*
>> DIDEL	EN1+2*
DIE	EN1+1, EDIT!
DIK	EDIT+2!, E5+4!
DINUM	A+1*!
DIR	EN3+1!, A0!
DIR("A"	EN3+1, A0
DIR(0	EN3+1, A0
DIROUT	EN3+1!, A0
DIRUT	EN3+1!, A0
DLAYGO	EN1+1!, EN31+2, A+1!
DO	EN31+2!
DR	EN1+2, EDIT!
>> DTE	EN31+1, PAT+4, PAT+5, R1+1*
DTIME	PR+2, ASK, E5
>> DTOUT	EN1+1, EN31+1, EN4+2, A1
DUZ	EN1+2, ASK+4
>> E1	R1+1*
>> EDT	EN4+2*, PAT+4
>> FHCLK	PR+5*, ASK+4
>> FHN	EN3+1, EN3+2, EN31+1*
FHX1	EDIT~
>> FHX3	CNT, CNT+1
>> FHX4	A+1, PR+4
>> FLDS	EN2+1*
>> FR	EN2+2*
>> IOP	RSET*
>> K1	PR*, PR+1, PR+3
>> L	EN2+1*
>> LP	CNT+1*
>> NAM	A1*, R1+1
>> ST	CNT+1*
>> TIM	EN4+2*, PAT+4
>> TO	EN2+2*
>> X	EN1+1, A+1, A1, PR, PR+2, PR+3, PR+4, PR+5, EDIT+1, EDIT+2 , ASK+1, E5+1
>> X1	EN4+2, CLIN+1, R1
>> X2	EN4+2*, CLIN+1
Y	EN1+1, EN1+2, EN3+2, EN30+1, EN31+1, A+1, EN4+2, A0, A1, PR! , PR+1, PR+2, EDIT+3, PAT+4, PAT+5, R1+1, ASK, E5, E5+4*
>> YN	ASK, ASK+1, ASK+2, ASK+3, E5, E5+1, E5+2, E5+3

Customize PDF page

Package: Dietetics