Routine: ADGDSIP

Package	Total	Caller Graph
Registration	1	DG IHS IC DS PROVIDER LIST

Entry Points

Name	Comments	DBIA/ICR reference
A	;--main
Q	;--cleanup
EN	;EP; --queued entry point
P1	;--one provider
PROV	;--all providers or just one?
SUMM	;--print summaries at end of each provider?
DEV	;--device selection
1	;
DELDT	;--delinquent chart date (today-(30days+holidaydays))
PA	;--all providers
QUE	;--queued output
COPY	;--number of copies
SCRN	;--include awaiting trans deficiency?
HDH	;--intro

Name	Field # of Occurrence
C^%DTC	DELDT+2, DELDT+4
^%ZIS	DEV+1
HOME^%ZIS	Q+2
^%ZISC	QUE+3
^%ZTLOAD	QUE+3
^ADGDSIP1	A+8, EN+1
^DIC	PROV+20
^DIR	PROV+4, PROV+8, PROV+12, PROV+16, COPY+2, SUMM+4, SCRN+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!?23,"Chart Deficiency List By Provider",!! Line Location: HDH+1
Function Call: WRITE	Prompt: !!?10,"Charts with a surgery date earlier than " Line Location: HDH+2
Function Call: WRITE	Prompt: !?29,$E(DGDEL,4,5)_"/"_$E(DGDEL,6,7)_"/"_$E(DGDEL,2,3) Line Location: HDH+3
Function Call: WRITE	Prompt: !?15,"will be considered delinquent! (",DGRNG," days)" Line Location: HDH+4
Function Call: WRITE	Prompt: !!,"(1) for a Service",!,"(2) for a Class",!,"(3) for a Provider" Line Location: PROV+6
Function Call: WRITE	Prompt: !!,"Include in Report:",!,"(1) Individual Provider Lists Only" Line Location: SUMM+1
Function Call: WRITE	Prompt: !,"(2) Summary Page Only",!,"(3) BOTH" Line Location: SUMM+2
Routine Call	%ZIS Line Location: Q+2
Routine Call	DIC Line Location: PROV+20
Routine Call	DIR Line Location: PROV+4 PROV+8 PROV+12 PROV+16 COPY+2 SUMM+4 SCRN+3
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^ADGCD - [#9009013.5]	1+11
^ADGDSI - [#9009012.5]	P1+4, 1+4, 1+9, 1+10
^ADGDSI("AC"	PA+1, P1+2, P1+3, P1+5
^AUPNPAT - [#9000001]	1+2
^DG(43 - [#43]	DELDT+1
^DPT - [#2]	1+2
^HOLIDAY - [#40.5]	DELDT+3
^TMP("DGZICPL"	ADGDSIP+3!, 1+14*
^VA(200 - [#200]	PA+2, 1+6

Name	Field # of Occurrence
>> %ZIS	DEV+1*
CD	1+1~, 1+8, 1+12, 1+14
CHT	1+1~, 1+2*, 1+14
DFN	P1+1~, P1+2*, P1+3, P1+4, P1+5, 1+2, 1+4, 1+9, 1+10, 1+14
DGDEL	DELDT+4*, HDH+3, Q+1!
DGFLG	Q+1!
DGNUM	COPY+2*, Q+1!
DGOPT	PROV+4, PROV+8, PROV+10, PROV+14, PA+2, P1+4, Q+1!
DGPR	A+8, PROV+4, PROV+20, EN+1, PA+1*, PA+2, P1+2, P1+3, P1+5, 1+6 , Q+1!
DGRNG	A+1~, DELDT+1*, DELDT+2, DELDT+4, HDH+4
DGSCN	PROV+4, PROV+12, PROV+16*, PA+2, P1+4, Q+1!
DGSCRN	SCRN+3*, 1+11, Q+1!
DGSUMPG	SUMM+4*, Q+1!
DIC	PROV+18!*
DIC("A"	PROV+18*
DIC("S"	PROV+19*
DIC(0	PROV+18*
DIR	PROV+1!, PROV+7!, PROV+11!, PROV+15!, COPY+1!, SUMM+3!, SCRN+1!, Q+1!
DIR("?"	PROV+2, PROV+3
DIR("A"	PROV+1, PROV+7, PROV+11, PROV+15, COPY+1, SUMM+3, SCRN+2*
DIR("B"	PROV+1, COPY+1, SCRN+1*
DIR(0	PROV+1, PROV+7, PROV+11, PROV+15, COPY+1, SUMM+3, SCRN+1*
>> DIRUT	A+2, A+3, A+4, A+5, PROV+4, PROV+8
DS	P1+1~, P1+3*, P1+4, P1+5, 1+4, 1+9, 1+10
DSD	1+1~, 1+5*, 1+14
DT	DELDT+2, DELDT+3, DELDT+4
DUZ(2	1+2
I	QUE+2~*
IO("Q"	A+7, QUE+1!
N	1+1~, 1+4*, 1+5
NM	1+1~, 1+2*, 1+14
OPD	1+1~, 1+5*, 1+14
OPR	1+1~, 1+5*, 1+14
PM	P1+1~, P1+5*, 1+9, 1+10
POP	A+6, Q+1!
PRN	1+1~, 1+6*, 1+14
SUM	1+1~
U	DELDT+1, PA+2, P1+4, 1+2, 1+5, 1+6, 1+10, 1+12, 1+14
X	DELDT+1~, DELDT+3, DELDT+4, 1+8~, 1+9*, 1+10
X1	DELDT+1~, DELDT+2, DELDT+4, 1+8~, 1+10*, 1+11, 1+12
X2	DELDT+1~, DELDT+2, DELDT+4
Y	A+4, DELDT+1~, DELDT+3*, DELDT+4, PROV+4, PROV+8, PROV+12, PROV+16, PROV+20, COPY+2 , SUMM+4, SCRN+3
>> ZTDESC	QUE+1*
>> ZTRTN	QUE+1*
>> ZTSAVE(	QUE+2*
ZTSK	QUE+3!