Routine: AQAQPR42

Information

AQAQPR42 ;IHS/ANMC/LJF - DISCHARGES BY PROVIDER & DX; [ 07/09/1999 2:27 PM ]

Package	Total	Caller Graph
Quality Assurance	2	AQAQPR4 AQAQPR41

Name	Comments	DBIA/ICR reference
PRVINIT	;
HEAD	;***> SUBRTN to print heading
END	;EP;>>> eoj <<<
TOTALS	;>>> print facility totals <<<
PROVCNT	;***> SUBRTN to print provider subcount
NEWPG	;***> SUBRTN for end of page control
LOOP2
LOOP1
WAIT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>> NO DATA FOUND!!" Line Location: AQAQPR42+17
Function Call: WRITE	Prompt: !,$E(AQAQGRP,1,67),?70,AQAQCNT,! Line Location: LOOP2+3
Function Call: WRITE	Prompt: !!,"*TOTAL DIAGNOSES: ",AQAQTCT,"*",!,AQAQLINE Line Location: TOTALS+2
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: @IOF,!,AQAQLINE Line Location: HEAD+1
Function Call: WRITE	Prompt: !?11,"***Confidential Patient Data Covered by Privacy Act***" Line Location: HEAD+2
Function Call: WRITE	Prompt: !,AQAQDUZ,?80-$L(AQAQSITE)/2,AQAQSITE Line Location: HEAD+3
Function Call: WRITE	Prompt: ! Line Location: HEAD+5
Function Call: WRITE	Prompt: ?80-$L(AQAQTY)/2,AQAQTY,?70,"Page: ",AQAQPAGE Line Location: HEAD+5
Function Call: WRITE	Prompt: !,Y,?80-$L(AQAQPRV)/2,AQAQPRV Line Location: HEAD+6
Function Call: WRITE	Prompt: !?30,AQAQRG,!,AQAQLINE Line Location: HEAD+7
Function Call: WRITE	Prompt: !,"Diagnostic Category",?70,"Count",!,AQAQLIN2 Line Location: HEAD+8
Function Call: WRITE	Prompt: !?25,"* PRIMARY DIAGNOSES ONLY *" Line Location: HEAD+9
Function Call: WRITE	Prompt: !?17,"* PRIMARY & SECONDARY DIAGNOSES COUNTED *" Line Location: HEAD+10
Function Call: WRITE	Prompt: !?20,"TOTAL DIAGNOSES FOR PROVIDER: ",AQAQPCT Line Location: PROVCNT+2
Function Call: WRITE	Prompt: !,AQAQLINE Line Location: PROVCNT+3
Routine Call	DIR Line Location: WAIT NEWPG+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HEAD+6
^DIC(3 - [#3]	AQAQPR42+5
^DIC(4 - [#4]	AQAQPR42+6
^UTILITY("AQAQPR4"	AQAQPR42+17, LOOP1, LOOP2, LOOP2+2, END+1!

Name	Field # of Occurrence
>> AQAQBDT	AQAQPR42+10
>> AQAQCDX	HEAD+9
>> AQAQCNT	LOOP2+2*, LOOP2+3, LOOP2+4
>> AQAQDUZ	AQAQPR42+5*, HEAD+3
>> AQAQEDT	AQAQPR42+11
>> AQAQGRP	PRVINIT+2, LOOP2, LOOP2+1, LOOP2+2, LOOP2+3
>> AQAQLIN2	AQAQPR42+14*, HEAD+8
>> AQAQLINE	AQAQPR42+13*, TOTALS+2, HEAD+1, HEAD+7, PROVCNT+3
>> AQAQPAGE	AQAQPR42+5, LOOP1+1, NEWPG+2, HEAD+1, HEAD+5
>> AQAQPCT	AQAQPR42+15, LOOP1+3, LOOP2+4, PROVCNT+2, PROVCNT+3
>> AQAQPRV	AQAQPR42+15, AQAQPR42+20, LOOP1*, LOOP2, LOOP2+2, HEAD+6
>> AQAQRG	AQAQPR42+10, AQAQPR42+11, HEAD+7
>> AQAQSITE	AQAQPR42+6*, HEAD+3
>> AQAQSTOP	AQAQPR42+5, LOOP1+1, LOOP1+2, LOOP2+1, LOOP2+6, NEWPG+1, NEWPG+2*, NEWPG+3, PROVCNT+1
>> AQAQTCT	AQAQPR42+15, TOTALS+2, PROVCNT+3
>> AQAQTY	HEAD+4*, HEAD+5
DIR	WAIT!, NEWPG+2!
DIR("A"	WAIT*
DIR(0	WAIT, NEWPG+2
DT	HEAD+6
DUZ	AQAQPR42+5
DUZ(2	AQAQPR42+6
IOF	END+1, HEAD+1
IOSL	LOOP2+5, TOTALS+1, PROVCNT+1
IOST	WAIT, NEWPG+1
U	AQAQPR42+5, AQAQPR42+6, LOOP1+1, LOOP1+2, LOOP2+1, LOOP2+6, NEWPG+3, PROVCNT+1
>> X	NEWPG+2
>> Y	HEAD+6*