Routine: FHMNBRPT

Information

FHMNBRPT ;Hines OIFO/JT,RTK - Dietetics Monitor Brief ;07/26/01 11:49

Package	Total	Caller Graph
Dietetics	1	FHMNBRPT

Name	Comments	DBIA/ICR reference
EN	;get admission/monitor information
END	;kill and quit
HDR	;Header
DEV	;get device and set up queue
PG	;
DATE	;sets date ; Check for multidivisional site

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DATE+3
Function Call: WRITE	Prompt: !,Y,?13,$E($P(^DPT(DFN,0),U,1),1,23) Line Location: EN+7
Function Call: WRITE	Prompt: ?48,"Yes" Line Location: EN+9
Function Call: WRITE	Prompt: ?56,Y Line Location: EN+10
Function Call: WRITE	Prompt: !!,"TOTAL ADMISSIONS: ",?22,ADMTOT Line Location: EN+14
Function Call: WRITE	Prompt: !,"TOTAL WITH MONITORS:",?22,MONTOT Line Location: EN+15
Function Call: WRITE	Prompt: !,"Percentage of Admissions with Monitors: " Line Location: EN+16
Function Call: WRITE	Prompt: "0.0%" Line Location: EN+17
Function Call: WRITE	Prompt: FHPER,"%" Line Location: EN+20
Function Call: WRITE	Prompt: ! Line Location: EN+21
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !,FHNDT,?60,"Page: " Line Location: HDR+1
Function Call: WRITE	Prompt: PG,!! Line Location: HDR+1
Function Call: WRITE	Prompt: "Admission",?13,"Patient",?39,"SSN",?45,"Monitor?",?56,"Discharge" Line Location: HDR+2
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: "=" Line Location: HDR+3
Routine Call	DIR Line Location: EN+21 PG+1
Routine Call	%ZIS Line Location: DEV+1

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

Name	Field # of Occurrence
>> %DT	DATE+3*
>> %DT("A"	DATE+3, DATE+4
>> %DT(0	DATE+4*!
%ZIS	DEV+1!*, DEV+6!
ADMTOT	EN+2, EN+8, EN+14, EN+17, EN+18, END+1!
DFN	EN+5*, EN+6, EN+7, EN+8, END+1!
DIR	EN+21!, PG+1!
DIR(0	EN+21, PG+1
>> EX	EN+1, EN+4, EN+5, EN+13, PG+1
FHDFN	EN+6, EN+9, EN+10, END+1!
FHEDT	DATE+6*, EN+3, END+1!
FHNDT	EN+1*, END+1!, HDR+1
FHPER	EN+18, EN+19, EN+20, END+1!
FHSDT	DATE+4*, EN+3, END+1!
>> FHZ115	EN+6*
I	EN+3*, EN+4, EN+7, END+1!
IO	DEV+2
IO("Q"	DEV+2
IOF	HDR+1
IOP	DEV+1!, DEV+6!
IOSL	EN+5
IOST	EN+21, PG+1
J	EN+4*, EN+5, EN+9, EN+10, END+1!
MONTOT	EN+2, EN+9, EN+15, EN+17, EN+18, END+1!
PG	EN+1, END+1!, HDR+1
>> POP	DEV+1
SSN	END+1!
U	DATE+2, EN+4, EN+5, EN+7, EN+8, EN+10, EN+13, PG+1
X	EN+1, END+1!
Y	DATE+3, DATE+4, DATE+5, DATE+6, EN+1, EN+7, EN+10*, END+1!, PG+1
>> Z	HDR+3*
>> ZTDESC	DEV+5*
>> ZTRTN	DEV+3*
>> ZTSAVE	DEV+4*
>> ZTSAVE("FHEDT"	DEV+3*
>> ZTSAVE("FHSDT"	DEV+3*