Routine: AQAOPC8

Package	Total	Call Graph
Quality Assurance	6	PROV^AQAOHOP3 ($$BDATE,$$EDATE,$$IND)^AQAOLKP PROFILE1^AQAOPC80 ^AQAOPC81 ^AQAOPC82 KILL^AQAOUTIL
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
VA Fileman	1	^DIR

Package

Total

Call Graph

PROV^AQAOHOP3 ($$BDATE,$$EDATE,$$IND)^AQAOLKP PROFILE1^AQAOPC80 ^AQAOPC81 ^AQAOPC82 KILL^AQAOUTIL

(,HOME)^%ZIS ^%ZTLOAD

^DIR

Name	Comments	DBIA/ICR reference
PROFILE	; -- SUBRTN for starting point for single provider profile
MEDSTF	; >> ask user to select which med staff functions to print
DATES	; >> ask for date range
NAME	; >> ask if user wants provider name to print on report
FORMAT	; >> individual indicators or grouped by med staff function?
DEV	; >> get print device
EXIT	; -- eoj
IND	; >> for MSF chosen get indicators
MSF	;;
TYPE	; -- ask user which provider report to print

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: TYPE+3
Function Call: WRITE	Prompt: !! Line Location: NAME+1
Function Call: WRITE	Prompt: !! Line Location: FORMAT+1
Function Call: WRITE	Prompt: !! Line Location: MEDSTF+1
Function Call: WRITE	Prompt: !! Line Location: DEV+1
Routine Call	%ZIS Line Location: DEV+5
Routine Call	DIR Line Location: TYPE+8 NAME+5 FORMAT+12 MEDSTF+6
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^AQAO(2 - [#9002168.2]	IND+2

Name	Field # of Occurrence
>> %ZIS	DEV+1*
>> AQAOBD	DATES+1*
>> AQAOED	DATES+2*
AQAOMP	IND+5!
AQAOMP(	MEDSTF+13*
AQAOMP(10	FORMAT+14, MEDSTF+14
AQAOMSF	FORMAT+14, MEDSTF+7, MEDSTF+8*, MEDSTF+11, IND+1, IND+5!
AQAOMSF(	FORMAT+15, IND+3
AQAOMSF(0	MEDSTF+8*, MEDSTF+14, IND+4
>> AQAOPROV	NAME+6
>> AQAOPRVN	NAME+6*
>> AQAOUA("USER"	TYPE+2
>> AQAOX	IND+1*, IND+2
>> AQAOY	IND+2*, IND+3
DIR	TYPE+3!, NAME+1!, FORMAT+1!, MEDSTF+1!
DIR("?"	TYPE+4, NAME+3, NAME+4, FORMAT+3, FORMAT+4, FORMAT+5, FORMAT+6, FORMAT+7, FORMAT+8, FORMAT+9 , FORMAT+10, FORMAT+11
DIR("A"	TYPE+3, TYPE+5, TYPE+6, TYPE+7, TYPE+8, NAME+2, FORMAT+1, MEDSTF+2, MEDSTF+3, MEDSTF+4 , MEDSTF+5, MEDSTF+6
DIR("B"	NAME+1*
DIR(0	TYPE+3, NAME+1, FORMAT+2, MEDSTF+1
>> DIRUT	TYPE+8, NAME+5, FORMAT+12, MEDSTF+7
>> DTOUT	NAME+5, MEDSTF+7
>> I	MEDSTF+4, MEDSTF+11, IND+1, DEV+4
IO	DEV+2
IO("Q"	DEV+2, DEV+3!
>> POP	DEV+1
U	TYPE+2, DATES+1, DATES+2, FORMAT+15, IND+1
>> X	TYPE+9, MEDSTF+12, MEDSTF+13
>> Y	TYPE+8, TYPE+9, NAME+6, FORMAT+12, FORMAT+13, FORMAT+15, MEDSTF+7, MEDSTF+11, MEDSTF+13, IND+1
>> ZTDESC	DEV+3*
>> ZTRTN	DEV+3*
>> ZTSAVE(	DEV+4*

Information

Name	Field # of Occurrence
$T(MSF+I	MEDSTF+4
$T(MSF+Y	MEDSTF+12