Routine: AQAQDCP

Information

AQAQDCP ;IHS/ANMC/LJF - INCOM/DELQ CHARTS BY PROVIDER; [ 07/09/1999 2:27 PM ]

Package	Total	Caller Graph
Quality Assurance	1	AQAQDCC

Name	Comments	DBIA/ICR reference
NEWPG	;***> SUBRTN for end of page control
HEAD	;**> SUBRTN to print heading
END	;>>> eoj
LINE	;***> SUBRTN to print line of data

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,AQAQLIN Line Location: AQAQDCP+17
Function Call: WRITE	Prompt: !,"Total Delinquent Charts: ",?33,AQAQDTOT Line Location: AQAQDCP+18
Function Call: WRITE	Prompt: ?(AQAQX+(AQAQI*10)),$J(AQAQTOT(AQAQI),3) Line Location: AQAQDCP+19
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: !?8,"***Confidential Medical Staff Data Covered by Privacy Act***" Line Location: HEAD+1
Function Call: WRITE	Prompt: @IOF,!!,AQAQDUZ,?80-$L(AQAQFAC)/2,AQAQFAC Line Location: HEAD+2
Function Call: WRITE	Prompt: !,$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_($E(DT,1,3)+1700) Line Location: HEAD+5
Function Call: WRITE	Prompt: ?25,"DELINQUENT CHARTS BY PROVIDER" Line Location: HEAD+7
Function Call: WRITE	Prompt: ! Line Location: HEAD+8
Function Call: WRITE	Prompt: ?34,"SUMMARY PAGE" Line Location: HEAD+8
Function Call: WRITE	Prompt: !!?30,"DELINQ",?39,"-----REASONS CHARTS ARE DELINQUENT------" Line Location: HEAD+9
Function Call: WRITE	Prompt: !,"PROVIDER",?30,"CHARTS",?39,"OP REPORT" Line Location: HEAD+10
Function Call: WRITE	Prompt: ?50,"A SHEET",?60,"SUMMARY",?70,"SIGNATURE",!,AQAQLIN Line Location: HEAD+11
Function Call: WRITE	Prompt: !,$E(AQAQPRVN,1,15),?33,$J($P(AQAQSTR,U),3) Line Location: LINE+1
Function Call: WRITE	Prompt: ?43,$J($P(AQAQSTR,U,2),3),?53,$J($P(AQAQSTR,U,3),3) Line Location: LINE+2
Function Call: WRITE	Prompt: ?63,$J($P(AQAQSTR,U,4),3),?73,$J($P(AQAQSTR,U,5),3) Line Location: LINE+3
Routine Call	DIR Line Location: END+1 NEWPG+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC(3 - [#3]	AQAQDCP+4
^DIC(4 - [#4]	AQAQDCP+5
^UTILITY("AQAQDC"	AQAQDCP+12, END+2!

Name	Field # of Occurrence
^(	AQAQDCP+13

Name	Field # of Occurrence
>> AQAQDTOT	AQAQDCP+18
>> AQAQDUZ	AQAQDCP+4*, HEAD+2
>> AQAQFAC	AQAQDCP+5*, HEAD+2
>> AQAQI	AQAQDCP+10, AQAQDCP+19
>> AQAQJ	LINE+5*
>> AQAQLIN	AQAQDCP+6*, AQAQDCP+17, HEAD+11
>> AQAQPRVN	AQAQDCP+10, AQAQDCP+11, AQAQDCP+12, AQAQDCP+13, LINE+1
>> AQAQSTOP	AQAQDCP+4, AQAQDCP+11, AQAQDCP+14, NEWPG+1, NEWPG+2*, NEWPG+3
>> AQAQSTR	AQAQDCP+13*, LINE+1, LINE+2, LINE+3, LINE+5
>> AQAQTOT(	AQAQDCP+10, AQAQDCP+19, LINE+5
>> AQAQX	AQAQDCP+19*
DIR	END+1!, NEWPG+2!
DIR("A"	END+1*
DIR(0	END+1, NEWPG+2
DT	HEAD+5
DUZ	AQAQDCP+4
DUZ(2	AQAQDCP+5
IOF	END+2, HEAD+2
IOSL	LINE+6
IOST	END+1, NEWPG+1
U	AQAQDCP+4, AQAQDCP+5, AQAQDCP+11, AQAQDCP+14, NEWPG+3, LINE+1, LINE+2, LINE+3, LINE+5
>> X	NEWPG+2