Routine: AQAOPC22

Package	Total	Call Graph
Quality Assurance	4	ICDPRINT^AQAOPC23 SUMMARY^AQAOPC24 (HEADING,INIT,KILL,NEWPG)^AQAOUTIL PRTOPT^AQAOVAR
VA Fileman	2	YX^%DTC EN^DIQ1
Kernel	1	^%ZISC

Package	Total	Caller Graph
Quality Assurance	1	AQAOPC21

Entry Points

Name	Comments	DBIA/ICR reference
END	; >>> eoj
HDG1	; >> SUBRTN for second half of heading
LIST2	; >> SUBRTN to print occ for each AQAOSUB
INIT	; >>> initialize variables
LISTING	; >> SUBRTN to print occurrence listing if selected
FINDING	; >> SUBRTN to find last finding to date for occ
DLMHDG	; >> SUBRTN for ASCII heading for listing portion
MAIN	; >>> main calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA FOR DATE RANGE SPECIFIED",!! Line Location: MAIN+1
Function Call: WRITE	Prompt: !!,7," STOP CAPTURE NOW! *",! Line Location: END+1
Function Call: WRITE	Prompt: !,$P(AQAOSTR,U),AQAODLM,Y,AQAODLM Line Location: LIST2+10
Function Call: WRITE	Prompt: !,$P(AQAOSTR,U),?9,Y Line Location: LIST2+11
Function Call: WRITE	Prompt: AQAOF,$S($D(AQAODLM):AQAODLM,AQAOS="":"",1:" / "),AQAOS Line Location: LIST2+21
Function Call: WRITE	Prompt: ?AQAOIOMX-$L(X)/2,X Line Location: HDG1+1
Function Call: WRITE	Prompt: !?AQAOIOMX-$L(AQAORG)/2,AQAORG,!,AQAOLINE Line Location: HDG1+2
Function Call: WRITE	Prompt: !,"Case #",?9,"Occ Date",?23,"Age",?29,"Sex",?34,"Fndg/Stg" Line Location: HDG1+3
Function Call: WRITE	Prompt: ?45,"Prov",?53,"Diagnoses",?92,"Procedures" Line Location: HDG1+4
Function Call: WRITE	Prompt: !,AQAOLINE,! Line Location: HDG1+5
Function Call: WRITE	Prompt: !?AQAOIOMX-$L(AQAODESC)/2,AQAODESC,! Line Location: HDG1+6
Function Call: WRITE	Prompt: !!!!,"*OCCURRENCE LISTINGS WITH ICD CODES*",!,AQAORG,! Line Location: DLMHDG+1
Function Call: WRITE	Prompt: !,"Printed by ",AQAODUZ," Printed on " Line Location: DLMHDG+2
Function Call: WRITE	Prompt: Y Line Location: DLMHDG+2
Function Call: WRITE	Prompt: !,AQAODESC,! Line Location: DLMHDG+3
Function Call: WRITE	Prompt: I,AQAODLM Line Location: DLMHDG+4
Function Call: WRITE	Prompt: I,AQAODLM Line Location: DLMHDG+5

FileNo	Call Tags
^AQAOC - [#9002167]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	INIT+2, END+2
^AQAO(7 - [#9002168.7]	FINDING+4, FINDING+8, FINDING+11
^AQAO(8 - [#9002168.8]	FINDING+4, FINDING+7, FINDING+10
^AQAOC - [#9002167]	LIST2+6, LIST2+16, FINDING+2, FINDING+3, FINDING+5, FINDING+7, FINDING+8, FINDING+10, FINDING+11
^DD("DD"	LIST2+9
^DPT - [#2]	LIST2+16
^TMP("AQAO"	INIT+7!, END+4!, LIST2+23*
^TMP("AQAOPC2"	MAIN+1, END+4!, LISTING+5, LIST2+3, LIST2+5
^UTILITY("DIQ1"	LIST2+12!, LIST2+14

Name	Field # of Occurrence
>> %H	DLMHDG+2*
>> AQAOBD	INIT+5
>> AQAODESC	HDG1+6, DLMHDG+3
>> AQAODLM	END+1, LISTING+1, LIST2+8, LIST2+9, LIST2+10, LIST2+13, LIST2+15, LIST2+20, LIST2+21, DLMHDG+4 , DLMHDG+5
>> AQAODT	LIST2+2, LIST2+3, LIST2+5, LIST2+9
>> AQAODUZ	DLMHDG+2
>> AQAOED	INIT+6
>> AQAOF	LIST2+21, LIST2+23, FINDING+1, FINDING+4, FINDING+7, FINDING+10
>> AQAOHCON	INIT+3*
>> AQAOIOMX	INIT+2*, LIST2+1, HDG1+1, HDG1+2, HDG1+6
>> AQAOLINE	HDG1+2, HDG1+5
>> AQAON	LIST2+4, LIST2+5, LIST2+6, LIST2+12, LIST2+14, LIST2+16, FINDING+2, FINDING+3, FINDING+5, FINDING+7 , FINDING+8, FINDING+10, FINDING+11
>> AQAORG	INIT+5, INIT+6, HDG1+2, DLMHDG+1
>> AQAOS	LIST2+21, FINDING+1, FINDING+4, FINDING+8, FINDING+11
>> AQAOSTOP	MAIN+3, LISTING+5, LIST2+3, LIST2+5, LIST2+8
>> AQAOSTR	LIST2+6*, LIST2+10, LIST2+11
>> AQAOSUB	LISTING+4, LISTING+5, LIST2+1, LIST2+3, LIST2+5, LIST2+23
>> AQAOTY	INIT+4*
>> AQAOTYPE	INIT+1, END+2, LISTING+1, LISTING+2, LIST2+1, LIST2+7, LIST2+20, LIST2+21
>> AQAOXSN	LISTING+4
>> DA	LIST2+12*
>> DIC	LIST2+12*
>> DR	LIST2+12*
>> I	DLMHDG+4, DLMHDG+5
IOM	END+2
IOSL	LIST2+8
>> IOT	INIT+1, END+2
U	MAIN+3, LISTING+5, LIST2+3, LIST2+5, LIST2+8, LIST2+10, LIST2+11, LIST2+16, FINDING+2, FINDING+3 , FINDING+4, FINDING+7, FINDING+8, FINDING+10, FINDING+11
>> X	INIT+2, END+2, FINDING+2, FINDING+4, FINDING+5, FINDING+7, FINDING+8, FINDING+10, FINDING+11, HDG1+1*
>> Y	LIST2+9, LIST2+10, LIST2+11, FINDING+3, FINDING+4, FINDING+5*, FINDING+6, FINDING+7, FINDING+8, DLMHDG+2
>> ZTQUEUED	END+3