Routine: AQAOPC3

Package	Total	Call Graph
Quality Assurance	5	(BYPAT,BYVISIT)^AQAOHOP2 ($$BDATE,$$EDATE)^AQAOLKP OCCCHK^AQAOSEC KILL^AQAOUTIL PRTOPT^AQAOVAR
VA Fileman	3	^DIC EN1^DIP ^DIR
Patient Care Component	1	^APCDVLK

Package

Total

Call Graph

(BYPAT,BYVISIT)^AQAOHOP2 ($$BDATE,$$EDATE)^AQAOLKP OCCCHK^AQAOSEC KILL^AQAOUTIL PRTOPT^AQAOVAR

^DIC EN1^DIP ^DIR

Name	Comments	DBIA/ICR reference
DATES	; >> ask user to choose date range
BYPAT	;ENTRY POINT for option to print occ by pat for visit range
BYVISIT	;ENTRY POINT for option to print occ by visit
PPRINT	; >>> set variables and call dip
VPRINT	; >>> set variables and call dip
PPAT	; >>> ask user for patient name or chart #
EXIT	; >>> eoj
VPAT	; >>> ask user for patient name or chart #
CHECK	; >>> check if visit is linked to occ available to user
VVISIT	; >>> ask user for patient visit

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: VPAT+1
Function Call: WRITE	Prompt: !!,"Select VISIT DATE linked to an occurrence you are evaluating." Line Location: VPAT+4
Function Call: WRITE	Prompt: !! Line Location: VVISIT+1
Function Call: WRITE	Prompt: *7," ??" Line Location: VVISIT+3
Function Call: WRITE	Prompt: *7," NO VISIT FOR THAT DATE. TRY AGAIN." Line Location: VVISIT+9
Function Call: WRITE	Prompt: !! Line Location: VPRINT+1
Function Call: WRITE	Prompt: !! Line Location: PPAT+1
Function Call: WRITE	Prompt: !! Line Location: PPRINT+1
Routine Call	DIC Line Location: VPAT+1 PPAT+1
Routine Call	DIR Line Location: VVISIT+2

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

Name	Line Occurrences (* Changed, ! Killed)
^AQAOC("AE"	CHECK+1, CHECK+4
^AUPNVSIT - [#9000010]	VPRINT+4

Name	Field # of Occurrence
APCDCAT	VVISIT+7!
APCDCLN	VVISIT+7!
APCDDATE	VVISIT+7!
APCDLOC	VVISIT+7!
APCDLOOK	VVISIT+5*, VVISIT+7!
APCDOVRR	VVISIT+5*, VVISIT+7!
APCDPAT	VVISIT+5*, VVISIT+7!
APCDTYPE	VVISIT+7!
>> APCDVLDT	VVISIT+4*
APCDVSIT	VVISIT+5*, VVISIT+9, CHECK+1, CHECK+4, VPRINT+4!
>> AQAOBD	DATES+1*, PPRINT+5
>> AQAOCHK("OK"	CHECK+4, CHECK+5
>> AQAOED	DATES+2*, PPRINT+5
>> AQAOINAC	VPRINT+3, PPRINT+2
>> AQAOPAT	VPAT+2, VVISIT+5, CHECK+1, CHECK+4, PPAT+2
>> BY	VPRINT+1, PPRINT+2
DIC	VPAT+1!, VPRINT+1, PPAT+1!, PPRINT+1
DIC(0	VPAT+1, PPAT+1
DIR	VVISIT+1!
DIR("?"	VVISIT+1*
DIR("A"	VVISIT+2*
DIR(0	VVISIT+1*
>> DIS(0	VPRINT+3, PPRINT+4
>> FLDS	VPRINT+1, PPRINT+1
>> FR	VPRINT+4, PPRINT+5
>> L	VPRINT+1, PPRINT+1
>> TO	VPRINT+4, PPRINT+5
U	VVISIT+3, VVISIT+8, VPRINT+4, DATES+1, DATES+2
>> X	VVISIT+8
>> Y	VPAT+1, VPAT+2, VVISIT+3, VVISIT+4, CHECK+3, CHECK+4, PPAT+1, PPAT+2

Information