Routine: ADGDSIP1

Package	Total	Call Graph
IHS Changes To ADT	3	^ADGDSIP2 KILL^ADGUTIL PRTOPT^ADGVAR
Kernel	1	^%ZISC
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGDSIP

Entry Points

Name	Comments	DBIA/ICR reference
A	;--main
END1
PINI	;--provider name and zero counts
END	;--cleanup
SUM	;--set ^TMP for summary page
HEAD	;--heading
TOTALS	;--print totals for each provider
1	;--incomplete chart file data
NEWPG	;--page control
CHDEF	;--chart deficiencies
INI	;--initialize variables
LPRV	;--loop provider
LUTL	;--loop disch date, patient name, dfn

External References

Name	Field # of Occurrence
^%ZISC	END1
^ADGDSIP2	A+5
KILL^ADGUTIL	END1
PRTOPT^ADGVAR	END+1
^DIR	A+4, NEWPG+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$E(NM,1,20),?22,$J(CHT,6) Line Location: 1+9
Function Call: WRITE	Prompt: ?30,$E(SD,4,5)_"/"_$E(SD,6,7)_"/"_$E(SD,2,3) Line Location: 1+10
Function Call: WRITE	Prompt: !!?20,"TOTAL INCOMPLETE CHARTS: ",$J(DGTCNT,3) Line Location: TOTALS+3
Function Call: WRITE	Prompt: !?17,"# Incomplete for SIGNATURE: ",$J(DGCNT("ISG"),3) Line Location: TOTALS+5
Function Call: WRITE	Prompt: !!?20,"TOTAL DELINQUENT CHARTS: ",$J(DGCNT("DEL"),3) Line Location: TOTALS+7
Function Call: WRITE	Prompt: !?17,"# Delinquent for OP REPORT: ",$J(DGCNT("OPR"),3) Line Location: TOTALS+9
Function Call: WRITE	Prompt: !?17,"# Delinquent for SIGNATURE: ",$J(DGCNT("SIG"),3) Line Location: TOTALS+11
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+2
Function Call: WRITE	Prompt: ?12,"***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: ?22,"DAY SURGERY INCOMPLETE CHART LIST FOR" Line Location: HEAD+5
Function Call: WRITE	Prompt: !,$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3) Line Location: HEAD+6
Function Call: WRITE	Prompt: ?80-$L(DGPRVN)/2,DGPRVN Line Location: HEAD+7
Function Call: WRITE	Prompt: ?65,"Page ",DGPAGE Line Location: HEAD+8
Function Call: WRITE	Prompt: !!,"Patient Name",?22,"HRCN",?30,"Surg Date",?40,"Op Dict" Line Location: HEAD+9
Function Call: WRITE	Prompt: ?50,"Op Rcvd",?60,"Chart Deficiency",!,DGLIN Line Location: HEAD+10
Routine Call	DIR Line Location: A+4 NEWPG+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADGCD - [#9009013.5]	CHDEF+2
^DIC(4 - [#4]	INI+2
^TMP("DGZICPL"	END1+1!, LPRV+2, LUTL+2, LUTL+4, LUTL+6, 1+2
^TMP("DGZICPL1"	INI+3!, END1+1!, 1+5, CHDEF+13, SUM+1*
^VA(200 - [#200]	INI+2

Label References

Name	Line Occurrences
1	LUTL+6
CHDEF	1+14
END	A+7
END1	A+2, A+6
HEAD	NEWPG+3, NEWPG+6
INI	A+1
LPRV	A+1
LUTL	LPRV+3
NEWPG	LPRV+3, 1+8, TOTALS+2
PINI	LPRV+3
SUM	LPRV+4
TOTALS	LPRV+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CD	CHDEF+1~, CHDEF+2*, CHDEF+3, CHDEF+5, CHDEF+8, CHDEF+14
CHT	1+1~, 1+3*, 1+9
DFN	LUTL+1~, LUTL+5, LUTL+6, 1+2, 1+5, CHDEF+11, CHDEF+12, CHDEF+13
DGA	1+17!
DGA(	1+16, CHDEF+10*
DGA("ISG"	CHDEF+5*
>> DGCNT(	PINI+2, 1+16
>> DGCNT("DEL"	CHDEF+12*, TOTALS+7, SUM+1
>> DGCNT("ISG"	TOTALS+4, TOTALS+5, SUM+1
>> DGCNT("OPR"	TOTALS+8, TOTALS+9, SUM+1
>> DGCNT("SIG"	TOTALS+10, TOTALS+11, SUM+1
>> DGDEL	CHDEF+5, CHDEF+8
>> DGDUZ	INI+2*, HEAD+4
>> DGFAC	INI+2*, HEAD+4
>> DGFLG	INI+1, 1+17, CHDEF+11, CHDEF+12*
>> DGI	PINI+2*
>> DGII	A+1*
>> DGLIN	INI+1*, HEAD+10
>> DGNUM	A+1
>> DGPAGE	A+4, INI+1, HEAD+2, HEAD+8, NEWPG+3
>> DGPRVN	PINI+1*, SUM+1, HEAD+7
>> DGSTOP	A+1, A+2, A+6, INI+1, LPRV+2, LPRV+3, LUTL+2, LUTL+4, LUTL+6, 1+7 , 1+8, TOTALS+2, NEWPG+5
>> DGSUMPG	A+3, LPRV+4, 1+7, CHDEF+3, CHDEF+5, CHDEF+8, CHDEF+14, HEAD+1, NEWPG+1
>> DGTCNT	PINI+1, 1+5, TOTALS+3, SUM+1
>> DGX	CHDEF+2*
DIR	A+4!, NEWPG+5!
DIR(0	A+4, NEWPG+5
DT	HEAD+6
DUZ	INI+2
DUZ(2	INI+2
GRP	CHDEF+1~, CHDEF+2, CHDEF+3, CHDEF+5, CHDEF+8*, CHDEF+10, CHDEF+14
IO	A+1
IOF	HEAD+2
IOSL	1+8, TOTALS+2
IOST	A+4, END+1, HEAD+2, NEWPG+3
J	1+1~, 1+14, 1+16, CHDEF+2
N	1+1~, 1+2*, 1+3, 1+14, CHDEF+2
NM	LUTL+1~, LUTL+3, LUTL+4, LUTL+6, 1+2, 1+9
OPD	1+1~, 1+3*, 1+11
OPR	1+1~, 1+3*, 1+12
PR	LPRV+1~, LPRV+2*, PINI+1, LUTL+2, LUTL+4, LUTL+6, 1+2
SD	LUTL+1~, LUTL+2*, LUTL+4, LUTL+6, 1+2, 1+10, CHDEF+5, CHDEF+8
SUM	1+1~
U	A+1, A+2, A+4, A+6, INI+2, LPRV+2, LPRV+3, LUTL+2, LUTL+4, LUTL+6 , 1+3, 1+7, 1+8, 1+14, CHDEF+2, TOTALS+2, SUM+1, NEWPG+6
>> X	A+4, NEWPG+5, NEWPG+6

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGDSIP1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: