Routine: AQAOPC72

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Quality Assurance	2	(HEADING,INIT,KILL,NEWPG)^AQAOUTIL PRTOPT^AQAOVAR
Kernel	1	^%ZISC
VA Fileman	1	Y^DIQ

Package	Total	Caller Graph
Quality Assurance	1	AQAOPC71

Package

Total

Caller Graph

Quality Assurance

AQAOPC71

Entry Points

Name	Comments	DBIA/ICR reference
INDNAME()	;ENTRY POINT EXTR VAR - sets the indicator heading variable
MONTHS	; >> SUBRTN to create array for months in report&init their counts
LIST	; >> SUBRTN to list occurrences
HDG3	; >> SUBRTN to print 2nd half of heading for stats pages
HDG2	; >> SUBRTN to print 2nd half of heading for listing
EXIT	; >>> eoj
COUNTP	; >> SUBRTN to to loop thru extra sort then print line
PRINT	; >> SUBRTN to print each occurrence
VALUES	; >> SUBRTN to print criteria values by month
LOOP	; >> loop thru ^tmp to get data then print it

Name	Field # of Occurrence
^%ZISC	EXIT+3
HEADING^AQAOUTIL	LOOP+2
INIT^AQAOUTIL	AQAOPC72+12
KILL^AQAOUTIL	EXIT+3
NEWPG^AQAOUTIL	LOOP+6, PRINT+5, VALUES+5, VALUES+17, VALUES+32
PRTOPT^AQAOVAR	EXIT+1
Y^DIQ	INDNAME+2, INDNAME+4, INDNAME+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?10,Y Line Location: PRINT+7
Function Call: WRITE	Prompt: ?X Line Location: VALUES+12
Function Call: WRITE	Prompt: ?X Line Location: VALUES+23
Function Call: WRITE	Prompt: !?9,AQAOLIN3,!,"Monthly:" Line Location: VALUES+33
Function Call: WRITE	Prompt: ?AQAOIOMX-11,$J(+$G(AQAOCNT(AQAOSUB)),8),! Line Location: VALUES+36
Function Call: WRITE	Prompt: ?AQAOIOMX-$L(AQAORNG)/2,AQAORNG,! Line Location: HDG2+1
Function Call: WRITE	Prompt: ?AQAOIOMX-$L(AQAOM)/2,AQAOM,!,AQAOLIN2,! Line Location: HDG2+2
Function Call: WRITE	Prompt: ?3,"CRITERION: "_AQAOCR(X) Line Location: HDG2+3
Function Call: WRITE	Prompt: !,"Case ID",?10,"Occ Date",?25,"Age",?35,"Sex",?45,"Value" Line Location: HDG2+4
Function Call: WRITE	Prompt: !,AQAOLINE Line Location: HDG2+5
Function Call: WRITE	Prompt: ?AQAOIOMX-$L(AQAORNG)/2,AQAORNG,! Line Location: HDG3+1
Function Call: WRITE	Prompt: ?AQAOIOMX-$L(AQAOM)/2,AQAOM,!,AQAOLIN2,! Line Location: HDG3+2
Function Call: WRITE	Prompt: ?3,"CRITERION: "_AQAOCR(X) Line Location: HDG3+3
Function Call: WRITE	Prompt: !,"Values " Line Location: HDG3+4
Function Call: WRITE	Prompt: ?($X+2),$E(X,4,5),"/",1700+$E(X,1,3) Line Location: HDG3+5
Function Call: WRITE	Prompt: ?AQAOIOMX-9," Totals",!,AQAOLINE Line Location: HDG3+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	AQAOPC72+10, EXIT+2
^AQAO(2 - [#9002168.2]	INDNAME+1
^DD("DD"	AQAOPC72+16, PRINT+7
^DD(9002168.2	INDNAME+2, INDNAME+4, INDNAME+6
^TMP("AQAOPC7"	EXIT+4!, COUNTP+2, VALUES+3, VALUES+4, VALUES+11, VALUES+13, VALUES+22, VALUES+24
^TMP("AQAOPC7A"	EXIT+4!, LIST+2, PRINT+2, PRINT+4, PRINT+6
^TMP("AQAOPC7B"	EXIT+4!, VALUES+25
^UTILITY("DIQ1"	EXIT+5!

Name	Line Occurrences
$$INDNAME	LOOP+1
COUNTP	LOOP+8
EXIT	LOOP+4, LOOP+6
HDG2	LOOP+3, PRINT+5
HDG3	LOOP+8, VALUES+5, VALUES+17, VALUES+32
LIST	LOOP+7
MONTHS	AQAOPC72+7, VALUES+1
PRINT	LIST+1, LIST+3
VALUES	COUNTP+1, COUNTP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AQAOARM(	VALUES+10, VALUES+15, VALUES+21, VALUES+34, VALUES+35, MONTHS+3, HDG3+5
>> AQAOBD	AQAOPC72+16, MONTHS+1
>> AQAOCNT	LOOP+4
>> AQAOCNT(	VALUES+27, VALUES+36
>> AQAOCR(	HDG2+3, HDG3+3
>> AQAOCR(0	HDG2+3, HDG3+3
>> AQAODT	PRINT+1, PRINT+2, PRINT+4, PRINT+6, PRINT+7
>> AQAOED	AQAOPC72+16, MONTHS+1
>> AQAOHCON	AQAOPC72+12*
>> AQAOID	PRINT+3, PRINT+4, PRINT+6, PRINT+7
>> AQAOIND	INDNAME+1
>> AQAOIOM	AQAOPC72+10*, EXIT+2
>> AQAOIOMX	AQAOPC72+9, AQAOPC72+10, AQAOPC72+11, LIST+3, COUNTP+3, VALUES+16, VALUES+27, VALUES+36, HDG2+1, HDG2+2 , HDG3+1, HDG3+2, HDG3+6
>> AQAOLIN2	HDG2+2, HDG3+2
>> AQAOLIN3	AQAOPC72+11*, VALUES+33
>> AQAOLINE	HDG2+5, HDG3+6
>> AQAOM	LOOP+1, HDG2+2, HDG3+2, INDNAME+1, INDNAME+7, INDNAME+8, INDNAME+9
>> AQAOMON	VALUES+9, VALUES+10, VALUES+11, VALUES+13, VALUES+15, VALUES+20, VALUES+21, VALUES+22, VALUES+24, VALUES+25 , VALUES+33, VALUES+34, VALUES+35
>> AQAOPAGE	LOOP+2
>> AQAORNG	AQAOPC72+16, AQAOPC72+17, HDG2+1, HDG3+1
>> AQAOSTOP	LOOP+6, LIST+2, PRINT+2, PRINT+4, PRINT+5, COUNTP+2, VALUES+3, VALUES+5, VALUES+10, VALUES+17 , VALUES+21, VALUES+28, VALUES+32, VALUES+34
>> AQAOSUB	LIST+1, LIST+2, LIST+3, PRINT+2, PRINT+4, PRINT+6, COUNTP+1, COUNTP+2, COUNTP+3, VALUES+3 , VALUES+4, VALUES+11, VALUES+13, VALUES+22, VALUES+24, VALUES+25, VALUES+27, VALUES+36
>> AQAOSUBT	VALUES+4*, VALUES+16, VALUES+27
>> AQAOT	INDNAME+1*, INDNAME+2, INDNAME+4, INDNAME+6
>> AQAOTY	AQAOPC72+15*
>> AQAOTYPE	LOOP+3, LOOP+6
>> AQAOVAL	VALUES+2, VALUES+3, VALUES+4, VALUES+6, VALUES+11, VALUES+13, VALUES+22, VALUES+24
>> AQAOXSN	LIST+1, COUNTP+1
>> AQAOZ	INDNAME+3, INDNAME+5, INDNAME+7*
>> C	INDNAME+2, INDNAME+4, INDNAME+6*
IOM	AQAOPC72+10
IOSL	PRINT+5, VALUES+5, VALUES+17, VALUES+32
IOST	EXIT+1
>> IOT	AQAOPC72+10, EXIT+2
U	LOOP+6, LIST+2, PRINT+2, PRINT+4, PRINT+5, PRINT+8, COUNTP+2, VALUES+3, VALUES+5, VALUES+10 , VALUES+17, VALUES+21, VALUES+28, VALUES+32, VALUES+34, INDNAME+1, INDNAME+2, INDNAME+4, INDNAME+6
>> X	AQAOPC72+10, EXIT+2, PRINT+6, PRINT+8, VALUES+12, VALUES+13, VALUES+14, VALUES+15, VALUES+23, VALUES+24* , VALUES+25, VALUES+26, MONTHS+1, MONTHS+2, MONTHS+3, MONTHS+4, HDG2+3, HDG3+3, HDG3+4, HDG3+5
>> Y	AQAOPC72+10, AQAOPC72+16, AQAOPC72+17, PRINT+7, MONTHS+1, MONTHS+4, INDNAME+2, INDNAME+3, INDNAME+4, INDNAME+5 , INDNAME+6*, INDNAME+7

Customize PDF page

Package: Quality Assurance

Routine: AQAOPC72

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: