Routine: FHMNADM

Information

FHMNADM ;Hines OIFO/JT,RTK - Dietetics Adm/Disc Monitor Report ;06/12/02 10:34

Package	Total	Caller Graph
Dietetics	1	FHMNADM

Name	Comments	DBIA/ICR reference
EN	;get admission/monitor information
END	;end/kill/quit ;
HDR	;Header
DEV	;get device and set up queue
KL
EN1	;discharges
WRT	;write info ;
PG	;
DATE	;sets date

Name	Line Occurrences
Function Call: WRITE	Prompt: !,Y,?13,$E($P(^DPT(DFN,0),U,1),U,23) Line Location: WRT+4
Function Call: WRITE	Prompt: ?39,$E($P(^(0),U,9),6,9) Line Location: WRT+5
Function Call: WRITE	Prompt: ?48,"Yes" Line Location: WRT+6
Function Call: WRITE	Prompt: ?56,Y Line Location: WRT+7
Function Call: WRITE	Prompt: !!,"TOTAL "_$S(TYP="A":"ADMISSIONS",TYP="D":"DISCHARGES")_": ",?22,MVTOT Line Location: END+3
Function Call: WRITE	Prompt: !,"TOTAL WITH MONITORS:",?22,MONTOT Line Location: END+4
Function Call: WRITE	Prompt: !,"Percentage of " Line Location: END+7
Function Call: WRITE	Prompt: $S(TYP="A":"Admissions",TYP="D":"Discharges") Line Location: END+8
Function Call: WRITE	Prompt: " with Monitors: ",FHPER,"%" Line Location: END+9
Function Call: WRITE	Prompt: !,"Task #",ZTSK Line Location: DEV+6
Function Call: WRITE	Prompt: !,"DIETETIC MONITOR REPORT (Monitoring " Line Location: HDR+3
Function Call: WRITE	Prompt: $S(TYP="A":"Admissions",TYP="D":"Discharges")_")" Line Location: HDR+4
Function Call: WRITE	Prompt: !,FHNDT,?60,"Page: " Line Location: HDR+5
Function Call: WRITE	Prompt: PG,!! Line Location: HDR+5
Function Call: WRITE	Prompt: "Admission",?13,"Patient",?39,"SSN",?45,"Monitor?",?56,"Discharge" Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: HDR+7
Function Call: WRITE	Prompt: "=" Line Location: HDR+7
Routine Call	DIR Line Location: DATE+8 PG+1
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+1, WRT+4, WRT+7, EN1+1
^DGPM - [#405]	WRT+2, EN1+5, EN1+6
^DGPM("ATT1"	EN+3, EN+4
^DGPM("ATT3"	EN1+3, EN1+4
^DPT - [#2]	WRT+4
^FH(119.9 - [#119.9]	DATE+3
^FHPT - [#115]	WRT+6, WRT+7

Name	Field # of Occurrence
^(0	WRT+5

Name	Field # of Occurrence
%DT	DATE+4*, KL+1!
%DT("A"	DATE+4, DATE+5
%DT(0	DATE+4!, DATE+5*
%ZIS	DEV+2!*, DEV+7!
ADDT	KL+1!
ADM	EN+5, WRT+6, WRT+7, EN1+5, EN1+6, KL!
>> ADMD	EN+5, WRT+4, EN1+6
DFN	WRT+2*, WRT+3, WRT+4, KL!
DIR	KL+1!, PG+1!
DIR("A"	DATE+8*
DIR(0	DATE+7, PG+1
DT	EN+1, EN1+1
>> EX	EN+1, EN+3, EN+4, WRT+2, EN1+1, EN1+3, EN1+4, END+2, PG+1*
FHDFN	WRT+3, WRT+6, WRT+7, KL!
FHEDT	DATE+6*, EN+3, EN1+3, KL!, DEV+7!
FHNDT	EN+1, EN1+1, KL!, HDR+5
FHPER	END+5, END+6, END+9, KL!
FHSDT	DATE+5*, EN+3, EN1+3, KL!, DEV+7!
>> FHZ115	WRT+3*
I	EN+3, EN+4, EN+5, EN1+3, EN1+4, KL!
IO	DEV+3
IO("Q"	DEV+3
IOF	HDR+2
IOP	DEV+2!, DEV+7!
IOSL	WRT+2
IOST	PG+1
J	EN+4, EN+5, WRT+2, EN1+4, EN1+5, KL!
MONTOT	EN+2, WRT+6, EN1+2*, END+4, END+5, KL!
MVTOT	EN+2, WRT+5, EN1+2*, END+3, END+5, KL!
PG	EN+1, EN1+1, KL!, HDR+5*
>> POP	DEV+2
SSN	KL!
TAG	KL+1!, DEV+1*, DEV+3, DEV+4
TYP	DATE+9*, END+3, END+8, KL+1!, DEV+1, HDR+4
U	DATE+3, EN+3, EN+4, WRT+2, WRT+4, WRT+5, WRT+7, EN1+3, EN1+4, EN1+5 , EN1+6, END+2, PG+1
X	KL!
Y	DATE+4, DATE+5, DATE+6, DATE+9, EN+1, WRT+4, WRT+7, EN1+1, KL!, PG+1
>> Z	HDR+7*
>> ZTDESC	DEV+5*
>> ZTRTN	DEV+4*
>> ZTSAVE("FHEDT"	DEV+4*
>> ZTSAVE("FHSDT"	DEV+4*
>> ZTSAVE("TYP"	DEV+5*
>> ZTSK	DEV+6