Routine: FHMASE1

Information

FHMASE1 ; HISC/AAC - Multidivisional Encounter Statistics ;10/14/03 11:57

Package	Total	Caller Graph
Dietetics	1	FHASE1

Name	Comments	DBIA/ICR reference
F0
F1
F2
QUIT	;
D2
A1
A0
KIL	;
IND	;List Encounters
DT	; Get From/To Dates
COM	; List Encounters for a clinician
N2	;Get Communications Office
D1

Name	Line Occurrences
Function Call: READ	Prompt: "Print report for all Communications Offices Y or N: " Formatting: !! Timeout: DTIME Variable: ZCO Line Location: COM+2
Function Call: WRITE	Prompt: ! Line Location: COM+2
Function Call: READ	Prompt: "Statistics for ALL Clinicians? Y// " Formatting: !! Timeout: DTIME Variable: X Line Location: A0+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: A0+0
Function Call: WRITE	Prompt: ! Line Location: A1+0
Function Call: READ	Prompt: "Break-down by Clinician? Y// " Formatting: !! Timeout: DTIME Variable: X Line Location: F0+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: F0+0
Function Call: READ	Prompt: "List Individual Patient Encounters? N// " Formatting: !! Timeout: DTIME Variable: X Line Location: F1+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: F1+0
Function Call: WRITE	Prompt: !!,"The report requires a 132 column printer.",! Line Location: F2+0
Function Call: WRITE	Prompt: ! Line Location: F2+1
Function Call: WRITE	Prompt: ! Line Location: D1+0
Function Call: WRITE	Prompt: *7," [Cannot Start after Today!] " Line Location: D1+1
Function Call: WRITE	Prompt: *7," [End before Start?] " Line Location: D2+1
Function Call: WRITE	Prompt: *7," [Must Not enter date greater than Today!] " Line Location: D2+2
Routine Call	DIC Line Location: A1 N2+2
Routine Call	%ZIS Line Location: F2+1

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	KIL+1!

Name	Field # of Occurrence
>> %DT	D1, D2
>> %DT("A"	D1, D2
%ZIS	F2+1!*, F2+3!
%ZIS("A"	F2+1*
>> CO	FHMASE1+6, FHMASE1+8, IND+3, IND+5, COM+1, N2+2, N2+4
>> CON	N2+4*
>> CONAM	COM+1, N2+4
>> CONAME	COM+1, N2+4
>> CONUMX	N2+4*
>> COXX	COM+1*
DIC	A1!, N2+1, N2+5!
DIC("A"	A1, N2+1
DIC(0	A1, N2+1
DT	D1+1, D2+2
DTIME	COM+2, A0, F0, F1
>> DTOUT	A1, D1, D2
DUZ	IND+6
>> EDT	D2*, D2+1, D2+2
>> FHLST	F2+2*
>> FHPGM	F2+2*
>> FHX1	IND+6, A1, F0+1*, F1, F1+1
>> FHX2	IND+6, A1, F0+1, F1+1
>> HEADER	FHMASE1+5, IND+2
IO	F2+3
IO("Q"	F2+2
IOP	F2+1!, F2+3!
>> POP	F2+1
>> SDT	D1*, D1+1, D2+1
U	FHMASE1+9, IND+6, F0, F1, D1, D2
>> X	FHMASE1+9, IND+6, A0, A0+1, A1, F0, F0+1, F1, F1+1, D1 , D2*
>> Y	FHMASE1+6, FHMASE1+8, IND+3, IND+5, A1, D1, D2, N2+2, N2+3, N2+4 , N2+5
>> ZCO	COM+1, COM+2, COM+3