Routine: DGOIL

Information

DGOIL ;ALB/AAS - INPATIENT LIST ; 28-SEPT-90

Source Information

Source file <DGOIL.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Registration	3	^DGOIL1 $$ASKDIV^DGUTL ZIS^DGUTQ
VA Fileman	3	NOW^%DTC D^DIQ ^DIR
Kernel	2	HOME^%ZIS ^%ZISC

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Registration	2	DG INPATIENT LIST DGOIL1

Entry Points

Name	Comments	DBIA/ICR reference
SORT	; -- sort inpatients, store in ^utility($j,
END1
END
HDR
HDR1
BYNAME	; -- if by name get entries to print
DEV
BYWARD	; -- if by ward get entries to print
SETU	; -- set utility($j,$s(sort by ward:ward,1:name),$s(sort by ward:name,1:ward),dfn)=pointer to dgpm
BRKOUT	; -- with ward breakout
CAP(X)
WARD	; -- by ward or by name
FIRST	; -- get range of the output
LEGEND	; -legend for flag column
DRG	; -- with DGR breakout
DQ	; -- entry point to start processing

External References

Name	Field # of Occurrence
NOW^%DTC	DQ+2
HOME^%ZIS	%+1
^%ZISC	END1+1
^DGOIL1	BYWARD+1, BYNAME+1
$$ASKDIV^DGUTL	FIRST+14
ZIS^DGUTQ	DEV+2
D^DIQ	DQ+2
^DIR	WARD+1, FIRST+4, FIRST+8, BRKOUT+1, DRG+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DGOIL+4
Function Call: WRITE	Prompt: !!,?32,"Inpatient List",!!! Line Location: DGOIL+5
Function Call: WRITE	Prompt: !!,"End must be after beginning",! Line Location: FIRST+12
Function Call: WRITE	Prompt: !! Line Location: BRKOUT+1
Function Call: WRITE	Prompt: !,"No Matches Found" Line Location: SORT+6
Function Call: WRITE	Prompt: @IOF,"INPATIENT LIST",?(IOM-29) Line Location: HDR1+0
Function Call: WRITE	Prompt: DGDATE," PAGE: ",DGPG Line Location: HDR1+0
Function Call: WRITE	Prompt: !?104,"Trim",?112,"Nat/Loc",?120,"Nat/Loc" Line Location: HDR1+3
Function Call: WRITE	Prompt: ! Line Location: HDR1+4
Function Call: WRITE	Prompt: "=" Line Location: HDR1+4
Function Call: WRITE	Prompt: ?45,"DIVISION(S): ",VAUTD(I),! Line Location: HDR1+6
Function Call: WRITE	Prompt: ! Line Location: LEGEND+1
Function Call: WRITE	Prompt: !,"'+' Before the Patient name indicates patient is currently ASIH, '!' Indicates patient chose not to be in Facility Directory" Line Location: LEGEND+2
Function Call: READ	Prompt: "Press '^' to QUIT or Return to Continue" Formatting: ! Timeout: DTIME Variable: Z Line Location: LEGEND+4
Routine Call	%ZIS Line Location: %+1
Routine Call	DIR Line Location: WARD+1 FIRST+4 FIRST+8 BRKOUT+1 DRG+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	DQ+3
^DIC(42 - [#42]	SORT+3
^DPT - [#2]	SETU+1, SETU+2
^DPT("CN"	SORT+2
^UTILITY($J	DQ+1!, SORT+6, BYWARD+1, BYNAME+1, SETU+3*, HDR1+5, END!

Label References

Name	Line Occurrences
$$CAP	FIRST+5, FIRST+9
END	DEV+2, SORT+6, BYNAME+2
END1	WARD+1, FIRST+4, FIRST+8, FIRST+14, BRKOUT+1, DRG+1
FIRST	FIRST+12
HDR	BYWARD+1
HDR1	SORT+6
LEGEND	HDR, END
SETU	SORT+4

Naked Globals

Name	Field # of Occurrence
^(	SORT+2, BYWARD+1, BYNAME+1
^("GL"	DQ+3
^(0	SORT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DQ+2, END1!
ADM	END1!
AFFIL	DQ+3*, HDR1+1, HDR1+2, END1!
DFN	SORT+2, BYWARD+1, BYNAME+1*, SETU+1, SETU+2, SETU+3, END1!
DGASIH	END1!
DGBEG	FIRST+5, FIRST+6, FIRST+12, DQ+4, DQ+5, SORT+1, BYNAME+1, END1!
DGBRK	BRKOUT+1*, DRG+1, END1!
DGDATE	DQ+2*, HDR1, END1!
DGDRG	DRG+1*, DEV, HDR1+1, HDR1+2, HDR1+3, END1!, LEGEND+3
DGEND	FIRST+9, FIRST+10, FIRST+12, SORT+2, BYNAME+1, END1!
DGL	END1!
DGOUT	END1!
DGPG	DQ+2, HDR1, END1!
DGPGM	DEV+1*, END1!
DGPM	SORT+2, BYWARD+1, BYNAME+1*, SETU+3, END1!
DGVAR	DEV+1*, END1!
DGWARD	WARD+1*, FIRST+1, FIRST+8, SORT+1, SORT+2, BYWARD+1, BYNAME+1, SETU+3, HDR1+5, END1!
>> DGWD	SORT+3*
DIR	WARD+1!, FIRST+4!, FIRST+8!, BRKOUT+1!, END1!
DIR("?"	FIRST+2, FIRST+3
DIR("A"	WARD+1, FIRST+1, FIRST+8, BRKOUT+1, DRG+1*
DIR("B"	WARD+1, FIRST+1, FIRST+8, BRKOUT+1, DRG+1*
DIR(0	WARD+1, FIRST+1, FIRST+8, BRKOUT+1, DRG+1*
DIRUT	WARD+1, FIRST+4, FIRST+8, BRKOUT+1, DRG+1, END, END1!
DIS	END1!
DRG	END1!
DRGCAL	END1!
DTIME	LEGEND+4
DUOUT	BYWARD+1, BYNAME+1, HDR, END, END1!, LEGEND+4*
I	SORT+2, BYWARD+1, BYNAME+1, HDR1+4, HDR1+6*, END1!
IO	DEV+2
IOF	%+1, HDR1
IOM	HDR1, HDR1+4
IOSL	LEGEND+1
IOST	LEGEND+3, LEGEND+4
J	SORT+2, BYWARD+1, BYNAME+1*, END1!
K	BYWARD+1, BYNAME+1, END1!
L	END1!, LEGEND+1*
M	END1!
N	BYWARD+1, BYNAME+1, HDR1+5, END1!
NAME	SETU+2*, SETU+3, END1!
>> POP	DEV+2, DQ+2*, END
U	SORT+3
VA	END1!
VAIN	END1!
VAUTD	SORT+3, END1!
VAUTD(	SORT+3, HDR1+6
W	SORT+1, SORT+2, SORT+3, BYWARD+1, BYNAME+1, SETU+3, HDR1+5, END1!
X	END1!, CAP~, CAP+1
X1	END1!
X2	END1!
X3	END1!
Y	WARD+1, FIRST+5, FIRST+9, BRKOUT+1, DRG+1, DQ+2*, END1!
Z	END1!, LEGEND+4*
>> ZTQUEUED	END

Customize PDF page

Package: Registration

Routine: DGOIL

Call Graph Total: 8

Caller Graph Total: 2