Routine: FHMMBRPT

Package	Total	Call Graph
VA Fileman	4	(,DD)^%DT NOW^%DTC ^DIC ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Dietetics	1	CHECK^FHOMDPA

Package	Total	Caller Graph
Dietetics	1	FHMNBRPT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;get admission/monitor information
END	;kill and quit
HDR	;Header
DEV	;get device and set up queue
THEND	;
DATE	;sets date
N2	;find Communications Office
COM	;get Communication Offices
COFF	;get Communications Offices
PG	;

External References

Name	Field # of Occurrence
^%DT	DATE+1, DATE+2
DD^%DT	EN+5
NOW^%DTC	EN+5
^%ZIS	DEV+1
^%ZISC	DEV+2, DEV+10
^%ZTLOAD	DEV+9
^DIC	N2+2
^DIR	EN+26, THEND+1, PG+1
CHECK^FHOMDPA	EN+10

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Print report for all Communication Offices Y or N: " Formatting: !! Timeout: DTIME Variable: ZCO Line Location: COM+4
Function Call: WRITE	Prompt: ! Line Location: COM+4
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: !,Y,?13,$E($P($G(^DPT(DFN,0)),U,1),1,23) Line Location: EN+11
Function Call: WRITE	Prompt: ?48,"Yes" Line Location: EN+13
Function Call: WRITE	Prompt: ?56,Y Line Location: EN+14
Function Call: WRITE	Prompt: !!,"TOTAL ADMISSIONS: ",?22,ADMTOT Line Location: EN+18
Function Call: WRITE	Prompt: !,"TOTAL WITH MONITORS:",?22,MONTOT Line Location: EN+19
Function Call: WRITE	Prompt: !,"Percentage of Admissions with Monitors: " Line Location: EN+20
Function Call: WRITE	Prompt: "0.0%" Line Location: EN+21
Function Call: WRITE	Prompt: FHPER,"%" Line Location: EN+24
Function Call: WRITE	Prompt: ! Line Location: EN+26
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: ! Line Location: THEND+1
Function Call: WRITE	Prompt: !!,"ALL TOTAL ADMISSIONS: ",?22,ALLADM Line Location: THEND+3
Function Call: WRITE	Prompt: !,"TOTAL WITH MONITORS:",?22,ALLMON Line Location: THEND+4
Function Call: WRITE	Prompt: !,"Percentage of Admissions with Monitors: " Line Location: THEND+5
Function Call: WRITE	Prompt: "0.0%" Line Location: THEND+6
Function Call: WRITE	Prompt: ALLFHPER,"%" Line Location: THEND+9
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !,NAME,?30,"MONITOR BRIEF REPORT" Line Location: HDR+1
Function Call: WRITE	Prompt: !,FHNDT,?60,"Page: " Line Location: HDR+1
Function Call: WRITE	Prompt: !,FHNDT,?60,"Page: " 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	DIC Line Location: N2+2
Routine Call	DIR Line Location: EN+26 THEND+1 PG+1
Routine Call	%ZIS Line Location: DEV+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+11, EN+14
^DGPM - [#405]	EN+8, EN+9
^DGPM("ATT1"	EN+7, EN+8
^DPT - [#2]	EN+11, EN+12
^FH(119.6 - [#119.6]	COFF+1, COFF+2, COFF+3
^FH(119.73 - [#119.73]	COM+3, EN+2, EN+3, EN+8
^FHPT - [#115]	EN+13, EN+14

Label References

Name	Line Occurrences
COFF	EN+8
DEV	DATE+6
EN	EN+3, EN+21, EN+25, DEV+2
END	DATE+4, DEV+2, THEND+6, THEND+10
HDR	THEND+2, PG+2
N2	COM+5, N2+4
PG	EN+5, EN+9, EN+18, EN+19, EN+24, THEND+9
THEND	EN+1, EN+2, EN+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DATE+1*
>> %DT("A"	DATE+1, DATE+2
>> %DT(0	DATE+2*!
%ZIS	DEV+1!*, DEV+10!
ADMTOT	EN+6, EN+12, EN+18, EN+21, EN+22, END+1!
>> ALLADM	COM+1, EN+18, THEND+3, THEND+6, THEND+7
>> ALLFHPER	COM+1, THEND+7, THEND+8*, THEND+9
>> ALLMON	COM+1, EN+19, THEND+4, THEND+6, THEND+7
>> CO	COM+1, COM+5, EN+1, N2+2, N2+4
>> CON	N2+4*
>> CONAM	COM+1, N2+4
>> CONAME	COM+1, EN+1, N2+4
>> CONUMX	COM+1, EN+1, N2+4*
>> COXX	COM+1, EN+1, EN+2*, EN+3, EN+8
DFN	EN+9*, EN+10, EN+11, EN+12, END+1!
DIC	N2+1*, N2+5!
DIC("A"	N2+1*
DIC(0	N2+1*
DIR	EN+26!, THEND+1!, PG+1!
DIR(0	EN+26, THEND+1, PG+1*
DTIME	COM+4
>> EX	DATE+3, EN+8, EN+9, EN+17, EN+18, EN+19, EN+24, THEND+9, PG+1
>> FHCOMM	COM+1, EN+8, COFF+3
FHDFN	EN+10, EN+13, EN+14, END+1!
FHEDT	DATE+5*, EN+7, END+1!
FHNDT	EN+5*, END+1!, HDR+1
FHPER	EN+22, EN+23, EN+24, END+1!
FHSDT	DATE+2*, EN+7, END+1!
>> FHWARD	COFF+2*, COFF+3
>> FHZ115	EN+10*
I	EN+7*, EN+8, EN+11, END+1!
IO	DEV+2
IO("Q"	DEV+2
IOF	HDR+1
IOP	DEV+1!, DEV+10!
IOSL	EN+9, EN+18, EN+19, EN+24, THEND+9
IOST	EN+26, THEND+1, PG+1
J	EN+8*, EN+9, EN+13, EN+14, END+1!
MONTOT	EN+6, EN+13, EN+19, EN+21, EN+22, END+1!
>> NAME	EN+1, EN+2, THEND+2*, HDR+1
PG	DATE+3, END+1!, HDR+1
>> POP	DEV+1
>> REC	EN+8*
SSN	END+1!
U	EN+8, EN+9, EN+11, EN+12, EN+14, EN+17, EN+18, EN+19, EN+24, THEND+9 , PG+1
>> WARD	COM+1, EN+8, COFF+1, COFF+2
X	EN+5, END+1!
Y	COM+5, DATE+1, DATE+2, DATE+4, DATE+5, EN+5, EN+11, EN+14*, END+1!, N2+2 , N2+3, N2+4, N2+5, PG+1
>> Z	HDR+3*
>> ZCO	COM+1, COM+4, COM+5, EN+1, EN+2
>> ZOUT	COM+1, COM+3, EN+2
>> ZTDESC	DEV+9*
>> ZTRTN	DEV+3*
>> ZTSAVE	DEV+4*
>> ZTSAVE("ALLADM"	DEV+6*
>> ZTSAVE("ALLFHPER"	DEV+6*
>> ZTSAVE("ALLMON"	DEV+5*
>> ZTSAVE("CO"	DEV+5*
>> ZTSAVE("CONAME"	DEV+8*
>> ZTSAVE("CONUMX"	DEV+7*
>> ZTSAVE("COXX"	DEV+7*
>> ZTSAVE("EX"	DEV+5*
>> ZTSAVE("FHCOMM"	DEV+7*
>> ZTSAVE("FHEDT"	DEV+3*
>> ZTSAVE("FHSDT"	DEV+3*
>> ZTSAVE("PG"	DEV+5*
>> ZTSAVE("ZCO"	DEV+4*
>> ZTSAVE("ZOUT"	DEV+6*
>> ZZCOUNT	COM+3*
>> ZZOUT	COM+1*

Customize PDF page

Package: Dietetics

Routine: FHMMBRPT

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: