Routine: ADGSRVL

Package	Total	Caller Graph
Registration	1	DG IHS INPAT LIST BY SPECIALTY

Entry Points

Name	Comments	DBIA/ICR reference
END1	;***> eoj
ALL
END2
END
NEWPG	;***> subrtn for end of page control
HEAD	;***> subrtn to print heading
DEV
WRITE
START	;***> initialize variables
QUE
W1
PRINT
SRV
FIND2
FIND
FIND1

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!!!?25,"Print Patient List by Treating Specialty",!! Line Location: ADGSRVL+3
Function Call: WRITE	Prompt: !,$P(^DIC(45.7,DGSV,0),U) Line Location: FIND1+0
Function Call: WRITE	Prompt: "." Line Location: FIND2+0
Function Call: WRITE	Prompt: !!?10,"* NO PATIENTS CURRENTLY ADMITTED TO THIS SERVICE *",!! Line Location: PRINT+0
Function Call: WRITE	Prompt: !?20,$E(DGNM,1,25),?50,DGX Line Location: W1+1
Function Call: WRITE	Prompt: ?60,$E($G(^DPT(DFN,.1)),1,3) Line Location: W1+2
Function Call: WRITE	Prompt: ?70,$G(^DPT(DFN,.101)) Line Location: W1+3
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: ?11,"***Confidential Patient Data Covered by Privacy Act***" Line Location: HEAD+3
Function Call: WRITE	Prompt: !?80-$L(DGFAC)/2,DGFAC,!,DGDUZ Line Location: HEAD+4
Function Call: WRITE	Prompt: ?80-$L(DGTY)/2,DGTY,?70,"Page: ",DGPAGE,! Line Location: HEAD+5
Function Call: WRITE	Prompt: ?80-$L(Y)/2,Y,!,DGLIN Line Location: HEAD+6
Function Call: WRITE	Prompt: !,"Service",?20,"Patient",?50,"Chart #" Line Location: HEAD+7
Function Call: WRITE	Prompt: ?60,"Ward",?70,"Room-Bed",!,DGLIN2,! Line Location: HEAD+8
Routine Call	%ZIS Line Location: END
Routine Call	DIR Line Location: ALL+1 SRV+1 NEWPG+2
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	FIND2+2
^DD("DD"	HEAD+6
^DIC(4 - [#4]	START+3
^DIC(45.7 - [#45.7]	FIND1
^DPT - [#2]	FIND2+1, FIND2+5, W1+2, W1+3
^DPT("ATR"	FIND, FIND2
^VA(200 - [#200]	START+3

Name	Field # of Occurrence
^(0	FIND2+2

Name	Field # of Occurrence
>> %ZIS	DEV*
DFN	FIND1, FIND2, FIND2+1, FIND2+2, FIND2+5, WRITE, W1, W1+2, W1+3, END2+1!
DGA	PRINT, PRINT+1!, END2+1!
DGA(	FIND2+5*, WRITE, W1
DGCHT	FIND2+2, FIND2+3, FIND2+4*, FIND2+5, END2+1!
DGCITY	END2+1!
DGDUZ	START+3*, END2+2!, HEAD+4
DGFAC	START+3*, END2+2!, HEAD+4
>> DGI	FIND2+3*
DGLIN	START+2*, END2+2!, HEAD+6
DGLIN2	START+2*, END2+2!, HEAD+8
DGNM	FIND2+5, PRINT+1, WRITE*, W1, W1+1, END2+1!
DGPAGE	START+4, END2+1!, HEAD+1, HEAD+2, HEAD+5
DGSTOP	START+5, FIND1+1, PRINT+1, W1+4, END2+1!, NEWPG+1, NEWPG+2*, NEWPG+3
DGSV	START+5, FIND, FIND1, FIND2, END2+1!
DGTIME	END2+1!
DGTY	START+1*, END2+1!, HEAD+5
DGX	FIND2+3, W1, W1+1, END2+1!
DGZSRT	ALL+2, SRV+2, END!, START+5, PRINT+1, END2+1!
DIR	ALL!, SRV!, END!, END2+2!, NEWPG+2!
DIR("A"	ALL+1, SRV
DIR("B"	ALL*
DIR(0	ALL, SRV, NEWPG+2*
>> DIROUT	SRV+1
>> DIRUT	ALL+2
DT	HEAD+6
>> DTOUT	SRV+1
>> DUOUT	SRV+1
DUZ	START+3
DUZ(2	START+3, FIND2+2
IO	DEV
IO("Q"	DEV, QUE!
IOF	ADGSRVL+3, HEAD+1
IOSL	FIND1+1, W1+4
IOST	END1+1, NEWPG+1, HEAD+1
>> POP	DEV
U	START+3, FIND1, FIND1+1, FIND2+2, FIND2+5, PRINT+1, W1+4, NEWPG+3
>> X	NEWPG+2
Y	ALL+2, SRV+1, SRV+2, END!, HEAD+6*
>> ZTDESC	QUE*
>> ZTQUEUED	END2
>> ZTRTN	QUE*
>> ZTSAVE("DGZSRT"	QUE+1*
ZTSK	QUE+1!