Routine: AQAQPR12

Package	Total	Call Graph
Kernel	1	^%ZISC
Quality Assurance	1	KILL^AQAQUTIL
VA Fileman	1	^DIR

Package	Total	Caller Graph
Quality Assurance	2	AQAQPR1 AQAQPR11

Entry Points

Name	Comments	DBIA/ICR reference
COUNT	;***> SUBRTN to print subcounts and increment totals
HEAD	;***> SUBRTN to print heading
END	;EP;>>> eoj <<<
NEWPG	;***> SUBRTN for end of page control
LINE	;***> SUBRTN to print line of data and increment counts
WAIT

External References

Name	Field # of Occurrence
^%ZISC	END+1
KILL^AQAQUTIL	END+1
^DIR	WAIT, NEWPG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>> NO DATA FOR DATES",!! Line Location: AQAQPR12+12
Function Call: WRITE	Prompt: !!," ADMISSIONS: ",AQAQTCNT Line Location: AQAQPR12+31
Function Call: WRITE	Prompt: !," ICU ADMISSIONS: ",AQAQTICT Line Location: AQAQPR12+32
Function Call: WRITE	Prompt: !," TOTAL ADMISSIONS: ",AQAQTCNT+AQAQTICT Line Location: AQAQPR12+33
Function Call: WRITE	Prompt: !,"NEWBORN ADMISSIONS: ",AQAQTWCT Line Location: AQAQPR12+34
Function Call: WRITE	Prompt: !,AQAQLINE Line Location: AQAQPR12+35
Function Call: WRITE	Prompt: ! Line Location: WAIT+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !,AQAQLINE Line Location: HEAD+2
Function Call: WRITE	Prompt: !?11,"***Confidential Patient Data Covered by Privacy Act***" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,AQAQDUZ,?80-$L(AQAQSITE)/2,AQAQSITE Line Location: HEAD+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+6
Function Call: WRITE	Prompt: ?80-$L(AQAQTY)/2,AQAQTY,?70,"Page: ",AQAQPAGE Line Location: HEAD+6
Function Call: WRITE	Prompt: !,Y,?30,AQAQRG Line Location: HEAD+7
Function Call: WRITE	Prompt: !,AQAQLINE Line Location: HEAD+8
Function Call: WRITE	Prompt: !,"Admit Date",?20,"Patient",?43,"Ward",?48,"Srv",?55,"Admitting DX" Line Location: HEAD+9
Function Call: WRITE	Prompt: !,AQAQLIN2 Line Location: HEAD+10
Function Call: WRITE	Prompt: !,Y Line Location: LINE+1
Function Call: WRITE	Prompt: ?20,$E($P(AQAQSTR,U),1,20) Line Location: LINE+2
Function Call: WRITE	Prompt: ?43,$E($P(AQAQSTR,U,2),1,3),?48,$E($P(AQAQSTR,U,3),1,3) Line Location: LINE+3
Function Call: WRITE	Prompt: ?55,$E($P(AQAQSTR,U,4),1,23) Line Location: LINE+4
Function Call: WRITE	Prompt: !," Admissions: ",AQAQSCNT Line Location: COUNT+1
Function Call: WRITE	Prompt: !," ICU Admissions: ",AQAQICNT Line Location: COUNT+2
Function Call: WRITE	Prompt: !," Total Admissions: ",AQAQICNT+AQAQSCNT Line Location: COUNT+3
Function Call: WRITE	Prompt: !,"Newborn Admissions: ",AQAQWCNT Line Location: COUNT+4
Function Call: WRITE	Prompt: !,AQAQLINE Line Location: COUNT+5
Routine Call	DIR Line Location: WAIT NEWPG+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HEAD+7, LINE+1
^DIC(3 - [#3]	AQAQPR12+4
^DIC(4 - [#4]	AQAQPR12+5
^UTILITY("AQAQPR1"	AQAQPR12+12, AQAQPR12+16, AQAQPR12+22, AQAQPR12+25, END+1!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AQAQBDT	AQAQPR12+6
>> AQAQDT	AQAQPR12+21, AQAQPR12+22, AQAQPR12+23, AQAQPR12+25, LINE+1
>> AQAQDUZ	AQAQPR12+4*, HEAD+4
>> AQAQEDT	AQAQPR12+7
>> AQAQICNT	AQAQPR12+10, AQAQPR12+17, AQAQPR12+30, LINE+5, COUNT+2, COUNT+3, COUNT+5*
>> AQAQLIN2	AQAQPR12+9*, HEAD+10
>> AQAQLINE	AQAQPR12+8*, AQAQPR12+35, HEAD+2, HEAD+8, COUNT+5
>> AQAQLST	AQAQPR12+21*, AQAQPR12+23
>> AQAQPAGE	AQAQPR12+4, AQAQPR12+18, NEWPG+2, HEAD+1, HEAD+2, HEAD+6
>> AQAQPRV	AQAQPR12+15, AQAQPR12+16, AQAQPR12+20, AQAQPR12+22, AQAQPR12+25
>> AQAQRG	AQAQPR12+6, AQAQPR12+7, HEAD+7
>> AQAQSCNT	AQAQPR12+10, AQAQPR12+17, AQAQPR12+30, LINE+7, COUNT+1, COUNT+3, COUNT+5*
>> AQAQSITE	AQAQPR12+5*, HEAD+4
>> AQAQSTOP	AQAQPR12+4, AQAQPR12+16, AQAQPR12+19, AQAQPR12+22, AQAQPR12+25, AQAQPR12+29, NEWPG+1, NEWPG+2*, NEWPG+3
>> AQAQSTR	AQAQPR12+26*, LINE+2, LINE+3, LINE+4, LINE+5, LINE+6
>> AQAQTCNT	AQAQPR12+10, AQAQPR12+31, AQAQPR12+33, COUNT+1
>> AQAQTICT	AQAQPR12+10, AQAQPR12+32, AQAQPR12+33, COUNT+2
>> AQAQTWCT	AQAQPR12+10, AQAQPR12+34, COUNT+4
>> AQAQTY	HEAD+5*, HEAD+6
>> AQAQWCNT	AQAQPR12+10, AQAQPR12+30, LINE+6, COUNT+4, COUNT+5*
>> DFN	AQAQPR12+24, AQAQPR12+25, AQAQPR12+26
DIR	WAIT!, NEWPG+2!
DIR("A"	WAIT*
DIR(0	WAIT, NEWPG+2
DT	HEAD+7
DUZ	AQAQPR12+4
DUZ(2	AQAQPR12+5
IOF	END+1, HEAD+1
IOSL	LINE+8
IOST	WAIT, NEWPG+1, HEAD+1
U	AQAQPR12+4, AQAQPR12+5, AQAQPR12+16, AQAQPR12+19, AQAQPR12+22, AQAQPR12+25, AQAQPR12+29, NEWPG+3, LINE+2, LINE+3 , LINE+4, LINE+5, LINE+6
>> X	NEWPG+2
>> Y	HEAD+7, LINE+1

Customize PDF page

Package: Quality Assurance

Routine: AQAQPR12

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
COUNT	AQAQPR12+17, AQAQPR12+23, AQAQPR12+30
END	AQAQPR12+29
HEAD	AQAQPR12+12, AQAQPR12+18, NEWPG+1, NEWPG+3
LINE	AQAQPR12+26
NEWPG	AQAQPR12+19, AQAQPR12+31, LINE+8
WAIT	AQAQPR12+12