Routine: AQAOPC81

Information

AQAOPC81 ; IHS/ORDC/LJF - OCC BY PROVIDER ;

Source file <AQAOPC81.m>

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR
Quality Assurance	1	KILL^AQAOUTIL

Package	Total	Caller Graph
Quality Assurance	1	AQAOPC8

Name	Comments	DBIA/ICR reference
PROV	; >> ask user which providers to print
RTN	;;
EXIT	; >> eoj
RPT	; >>> ask user to select report to run
ONE	; >> ask user to select one class or one provider

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: PROV+3
Function Call: WRITE	Prompt: !! Line Location: ONE+1
Function Call: WRITE	Prompt: !!," AVAILABLE OCCURRENCE REPORTS:",! Line Location: RPT+1
Routine Call	DIC Line Location: ONE+5
Routine Call	DIR Line Location: PROV+8 RPT+4

Name	Line Occurrences (* Changed, ! Killed)
^AQAO1(9 - [#9002169.9]	PROV+2
^DIC(19.1 - [#19.1]	ONE+7
^VA(200 - [#200]	ONE+9, ONE+10, ONE+11

Name	Field # of Occurrence
^("PS"	ONE+10

Name	Field # of Occurrence
>> AQAOK	ONE+7*, ONE+9
>> AQAORTN	RPT+5*
>> AQAOSRT	PROV+9*, ONE+1, ONE+2, ONE+6, ONE+7
>> AQAOXS(0	PROV+9*
>> AQAOXS(1	ONE+6, ONE+12
>> AQAOXSM	PROV+1*
>> AQAOXSN	PROV+2*
DIC	ONE+1!*
DIC("A"	ONE+4*
DIC("S"	ONE+3*
DIC(0	ONE+1*
DIR	PROV+3!, RPT+1!
DIR("A"	PROV+3, PROV+4, PROV+5, PROV+6, PROV+7, RPT+2, RPT+3, RPT+4
DIR(0	PROV+3, RPT+1
>> DIRUT	PROV+8, RPT+4
DT	ONE+10
>> DTOUT	ONE+5, RPT+4
>> DUOUT	ONE+5
>> I	RPT+3*
U	ONE+10, ONE+11
>> X	ONE+5, ONE+9*, ONE+10, ONE+11, ONE+12
>> Y	PROV+8, PROV+9, ONE+5, ONE+6, ONE+11, RPT+4

Name	Field # of Occurrence
$T(RTN+I	RPT+3
$T(RTN+Y	RPT+5