Routine: AQAOPC83

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

Package	Total	Caller Graph
Quality Assurance	1	AQAOPC82

Entry Points

Name	Comments	DBIA/ICR reference
LIST	; >> SUBRTN to loop thru ^tmp and print cases
HDG2	; >> SUBRTN to print second half of heading
INIT	; >>> initialize variables
EXIT	; >>> eoj
SUBTOTAL	; >> SUBRTN to print subtotals for an indicator in 2 columns
LOOP	; >>> loop thru med staff functions selected to check for data

Name	Line Occurrences
Function Call: WRITE	Prompt: ?10,Y Line Location: LIST+11
Function Call: WRITE	Prompt: !,"Subtotals: ",?25,X Line Location: SUBTOTAL+1
Function Call: WRITE	Prompt: ?24,AQAOX,?45,$J(^TMP("AQAOPC8A",$J,AQAOIND,AQAOX),4) Line Location: SUBTOTAL+6
Function Call: WRITE	Prompt: ?53,AQAOY,?70,$J(^TMP("AQAOPC8B",$J,AQAOIND,AQAOY),4) Line Location: SUBTOTAL+7
Function Call: WRITE	Prompt: !?45,"----",?70,"----" Line Location: SUBTOTAL+8
Function Call: WRITE	Prompt: !?45,$J(AQAOCNT,4),?70,$J(AQAOCNT,4) Line Location: SUBTOTAL+9
Function Call: WRITE	Prompt: ?AQAOIOMX-$L(AQAOPRVN)/2,AQAOPRVN Line Location: HDG2+1
Function Call: WRITE	Prompt: !?AQAOIOMX-$L(AQAORG)/2,AQAORG,!,AQAOLIN2 Line Location: HDG2+2
Function Call: WRITE	Prompt: !,"Case ID",?10,"Occ Date",?24,"Find/Actn/Type/Level" Line Location: HDG2+3
Function Call: WRITE	Prompt: ?53,"Risk/Occ/Ultimate Outcomes",!,AQAOLINE Line Location: HDG2+4

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	INIT+1
^AQAO(2 - [#9002168.2]	LIST+4
^DD("DD"	LIST+11
^TMP("AQAOPC8"	INIT+7, LOOP+5, EXIT+2!, LIST+2, LIST+6, LIST+8, LIST+9
^TMP("AQAOPC8A"	EXIT+2!, SUBTOTAL+3, SUBTOTAL+5, SUBTOTAL+6
^TMP("AQAOPC8B"	EXIT+2!, SUBTOTAL+3, SUBTOTAL+7

Name	Field # of Occurrence
>> AQAOBD	INIT+4
>> AQAOCNT	SUBTOTAL+2, SUBTOTAL+5, SUBTOTAL+9
>> AQAODT	LIST+5, LIST+6, LIST+8, LIST+9, LIST+11
>> AQAOED	INIT+5
>> AQAOHCON	INIT+2*
>> AQAOIFN	LIST+7, LIST+8, LIST+9
>> AQAOIND	LIST+1, LIST+2, LIST+3, LIST+4, LIST+6, LIST+8, LIST+9, SUBTOTAL+3, SUBTOTAL+5, SUBTOTAL+6 , SUBTOTAL+7
>> AQAOIOMX	INIT+1*, LOOP+6, HDG2+1, HDG2+2, HDG2+5
>> AQAOLIN2	HDG2+2
>> AQAOLINE	INIT+9, HDG2+4
>> AQAOM	LOOP+1, LOOP+2, LOOP+5, LIST+2, LIST+6, LIST+8, LIST+9, HDG2+5
>> AQAOMP(	LOOP+2, HDG2+5
>> AQAOPAGE	LOOP+3
>> AQAOPRVN	HDG2+1
>> AQAORG	INIT+4, INIT+5, HDG2+2
>> AQAOS	LIST+9*, LIST+11, LIST+12, LIST+13
>> AQAOSTOP	LOOP+2, LOOP+4, LIST+2, LIST+6, LIST+8, LIST+10, SUBTOTAL+4
>> AQAOTY	INIT+3*
>> AQAOX	SUBTOTAL+2, SUBTOTAL+3, SUBTOTAL+5, SUBTOTAL+6
>> AQAOY	SUBTOTAL+2, SUBTOTAL+3, SUBTOTAL+7
IOSL	LIST+10, SUBTOTAL+4
IOST	EXIT+1
>> IOT	INIT+1
U	LOOP+2, LOOP+4, LIST+2, LIST+3, LIST+4, LIST+6, LIST+8, LIST+10, LIST+11, LIST+12 , LIST+13, SUBTOTAL+4
>> X	INIT+1, SUBTOTAL+1
>> Y	LIST+11*
>> ZTQUEUED	EXIT+1