Routine: AQAQPR32

Package	Total	Call Graph
Quality Assurance	2	(GETGRP,PROVCNT,SUBCNT)^AQAQPR33 KILL^AQAQUTIL
Kernel	1	^%ZISC
VA Fileman	1	^DIR

Package

Total

Call Graph

Quality Assurance

(GETGRP,PROVCNT,SUBCNT)^AQAQPR33 KILL^AQAQUTIL

Kernel

^%ZISC

VA Fileman

^DIR

Package	Total	Caller Graph
Quality Assurance	3	AQAQPR3 AQAQPR31 AQAQPR33

Package

Total

Caller Graph

Quality Assurance

AQAQPR3 AQAQPR31 AQAQPR33

Name	Comments	DBIA/ICR reference
HEAD	;***> SUBRTN to print heading
END	;EP;>>> eoj <<<
TOTALS	;>>> print facility totals <<<
NEWPG	;EP;***> SUBRTN for end of page control
LOOP3
LOOP2
LOOP1
LOOP4
LINE	;***> SUBRTN to print line of visit data
WAIT

Name	Field # of Occurrence
^%ZISC	END+1
GETGRP^AQAQPR33	LOOP2+2
PROVCNT^AQAQPR33	LOOP2+1
SUBCNT^AQAQPR33	LOOP2+3, LOOP2+4
KILL^AQAQUTIL	END+1
^DIR	WAIT, NEWPG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>> NO DATA FOUND!!" Line Location: AQAQPR32+17
Function Call: WRITE	Prompt: !!,"*TOTAL DIAGNOSES: ",AQAQTCT,"*",!,AQAQLINE Line Location: TOTALS+2
Function Call: WRITE	Prompt: ! Line Location: WAIT+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !,$E(AQAQVDT,4,5)_"/"_$E(AQAQVDT,6,7)_"/"_($E(AQAQVDT,1,3)+1700)_"-" Line Location: LINE+4
Function Call: WRITE	Prompt: $E(AQAQDT,4,5)_"/"_$E(AQAQDT,6,7)_"/"_($E(AQAQDT,1,3)+1700) Line Location: LINE+8
Function Call: WRITE	Prompt: ?23,$J(AQAQY,6) Line Location: LINE+11
Function Call: WRITE	Prompt: ?37,AQAQX Line Location: LINE+15
Function Call: WRITE	Prompt: ?42,$E($P(^AUTNPOV(AQAQZ,0),U),1,37) Line Location: LINE+16
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: !,"Visit",?23,"Patient",!,"Dates",?23,"Chart #",?32,"Srv",?37,"P/S" Line Location: HEAD+8
Function Call: WRITE	Prompt: ?42,"Diagnosis Narrative",!,AQAQLIN2 Line Location: HEAD+9
Routine Call	DIR Line Location: WAIT NEWPG+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	LINE+10
^AUPNVINP - [#9000010.02]	LINE+12
^AUPNVPOV - [#9000010.07]	LINE+14
^AUPNVSIT - [#9000010]	LINE+1
^AUTNPOV - [#9999999.27]	LINE+16
^DD("DD"	HEAD+6
^DIC(3 - [#3]	AQAQPR32+5
^DIC(4 - [#4]	AQAQPR32+6
^DIC(45.7 - [#45.7]	LINE+13
^UTILITY("AQAQPR3"	AQAQPR32+17, LOOP1, LOOP2, LOOP3, LOOP4, END+1!

Name	Line Occurrences
END	LOOP1+1, LOOP1+2, LOOP4+2
HEAD	AQAQPR32+17, LOOP1+1, NEWPG+1, NEWPG+3
LINE	LOOP4+1
LOOP1	LOOP2+1
LOOP2	LOOP3+1
LOOP3	LOOP4+1
LOOP4	LOOP4+2
NEWPG	LOOP1+2, TOTALS+1, LINE+18
TOTALS	LOOP1
WAIT	AQAQPR32+17

Name	Field # of Occurrence
^(	LOOP4+1
^(0	LINE+14

Local Variables

Name	Field # of Occurrence
>> AQAQBDT	AQAQPR32+10
>> AQAQDT	LOOP2+7, LOOP3, LOOP3+1, LOOP4, LINE+8
>> AQAQDUZ	AQAQPR32+5*, HEAD+3
>> AQAQEDT	AQAQPR32+11
>> AQAQGCT	LOOP1+3, LOOP2+2, LINE+17
>> AQAQICD	LOOP1+6, LOOP2, LOOP2+1, LOOP2+3, LOOP2+4, LOOP3, LOOP4
>> AQAQLIN2	AQAQPR32+14*, HEAD+9
>> AQAQLINE	AQAQPR32+13*, TOTALS+2, HEAD+1, HEAD+7
>> AQAQPAGE	AQAQPR32+5, LOOP1+1, NEWPG+2, HEAD+1, HEAD+5
>> AQAQPCT	LOOP1+3, LINE+17
>> AQAQPRV	AQAQPR32+15, AQAQPR32+21, LOOP1*, LOOP2, LOOP3, LOOP4, HEAD+6
>> AQAQRG	AQAQPR32+10, AQAQPR32+11, HEAD+7
>> AQAQRNG	LOOP2+3, LOOP2+4
>> AQAQSITE	AQAQPR32+6*, HEAD+3
>> AQAQSTOP	AQAQPR32+5, LOOP1+1, LOOP1+2, LOOP4+2, NEWPG+1, NEWPG+2*, NEWPG+3
>> AQAQSTR	LOOP4+1*, LINE+12, LINE+14
>> AQAQTCT	AQAQPR32+15*, TOTALS+2
>> AQAQTY	HEAD+4*, HEAD+5
>> AQAQV	LINE+1*, LINE+10
>> AQAQVDFN	LOOP3+1, LOOP4, LOOP4+1, LINE+1
>> AQAQVDT	LINE+1*, LINE+4
>> AQAQX	LINE+12, LINE+13, LINE+14, LINE+15
>> AQAQY	LINE+10*, LINE+11
>> AQAQZ	LINE+14*, LINE+16
DIR	WAIT!, NEWPG+2!
DIR("A"	WAIT*
DIR(0	WAIT, NEWPG+2
DT	HEAD+6
DUZ	AQAQPR32+5
DUZ(2	AQAQPR32+6, LINE+10
IOF	END+1, HEAD+1
IOSL	TOTALS+1, LINE+18
IOST	WAIT, NEWPG+1
U	AQAQPR32+5, AQAQPR32+6, LOOP1+1, LOOP1+2, LOOP4+2, LINE+1, LINE+10, LINE+12, LINE+13, LINE+14 , LINE+16, NEWPG+3
>> X	NEWPG+2
>> Y	HEAD+6*

Customize PDF page

Package: Quality Assurance

Routine: AQAQPR32

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed