Routine: ADGICPQ

Package	Total	Caller Graph
Registration	1	DG IHS IC PROVIDER LIST

Entry Points

Name	Comments	DBIA/ICR reference
A	;--main
Q	;--cleanup
EN	;--queued entry point
P1	;--one provider
PROV	;--all providers or just one?
SELF	; -- set user to only provider for report
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
^ADGICPP	A+7, EN+1
^DIC	PROV+21
^DIR	PROV+5, PROV+9, PROV+13, PROV+17, 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 discharge 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!" Line Location: HDH+4
Function Call: WRITE	Prompt: !!,"(1) for a Service",!,"(2) for a Class",!,"(3) for a Provider" Line Location: PROV+7
Function Call: WRITE	Prompt: !!,"I will print Incomplete/Delinquent Charts for " Line Location: SELF+1
Function Call: WRITE	Prompt: $P($G(^VA(200,DUZ,0)),U),!! Line Location: SELF+2
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+21
Routine Call	DIR Line Location: PROV+5 PROV+9 PROV+13 PROV+17 COPY+2 SUMM+4 SCRN+3
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^ADGCD - [#9009013.5]	1+9
^ADGIC - [#9009013]	P1+4, 1+4, 1+7, 1+8
^ADGIC("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"	ADGICPQ+3!, 1+13*
^VA(200 - [#200]	SELF+2, PA+2, 1+5
^XUSEC("DGZICPALL"	PROV+1

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